Bonjour, j'ai commencer petit programme pour gérer des comptes sur un logiciel de type serveur.

J'ai besoin d'un HASH SHA-1, ce qui est fait.

Mais aussi du concaténation MySQL (CONCAT()), et d'un UPPER(); PHP.


Ma requete en PHP:

Code php : Sélectionner tout - Visualiser dans une fenêtre à part
mysql_query("INSERT INTO account(username, sha_pass_hash, gmlevel, email, tbc) VALUES('$pseudo', SHA1(CONCAT(UPPER('$pseudo'),':',UPPER('$pass'))), 0, '$email', '$tbc')")or die(mysql_error());

Ma requete reprise en Delphi avec le code autour:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
  If Sql.Query('INSERT INTO account (username, sha_pass_hash, gmlevel, email, tbc) VALUES ("' + EditLoginCompte.Text +  '", "' + Action3.Caption + '", ' + Action4.Caption + ', "' + EditEmailCompte.Text + '", ' + Action5.Caption + ');') <> 0 Then
      Begin
        Sql.Fermeture;
        Statut.SimpleText := 'Erreur durant la création du compte.';
      End
    Else Statut.SimpleText := 'Création du compte effectuée avec succès.';
End;
La parti qui nous interesse là est "' + Action3.Caption + '" qui est égal à:
Action3.Caption := SHA1ToStr( SHA1(EditPasseCompte.Text) );

Mais je veux donc concaténer mon Loginasse et le "UPPER" sauf que je ne vois pas dutout comment reproduire la fonction UPPER, et je ne sais pas si la fonction CONCAT() de MySQL marchera ici.

Ne me demander pas pourquoi autant d'ActionX, j'était parti dans l'idée de me créer mon propre objet avec mes propres valeur, mais le logiciel doit être terminé au plus vite, et la POO ne s'apprend pas en un jour.. x_x