Comment remplacer des fonctions MySQL/PHP en Delphi

Version imprimable

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:

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:

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 Login:Passe 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

si j'ai tout compris, ceci suffira

Code:

1
2
3
4
5
6
7
8
 
  If Sql.Query('INSERT INTO account (username, sha_pass_hash, gmlevel, email, tbc) VALUES (SHA1(UPPER("' + 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;

23/05/2008, 08h44
Sundark

Euh, pas exactement.

Enfete le mot de passe est génerer AVEC le login, mais il y a bien le login à par.

Code:

INSERT INTO table ('login, passe') VALUES ('login, UPPER(login:passe)');

la requete ressemble à sa (sans le CONCAT pour concatener les valeur login et passe pour quel rentre dans la fonction)

Enfin je sais pas, à vous de voir c_c
23/05/2008, 08h50
Paul TOTH
Citation:

Envoyé par Sundark

Euh, pas exactement.

Enfete le mot de passe est génerer AVEC le login, mais il y a bien le login à par.

INSERT INTO table (login, passe) login, UPPER(login:passe);
la requete ressemble à sa (sans le CONCAT pour concatener les valeur login et passe pour quel rentre dans la fonction)

Enfin je sais pas, à vous de voir c_c

quoi qu'il en soit, UpperCase() doit correspondre à UPPER(), mais quand tu construis ta requête SQL, rien ne t'empêche d'utiliser les fonctions SQL de la même façon qu'en PHP
Code:

1 2 3 sql:='INSERT INTO table (login,passe) VALUES("'+username+'",SHA1(UPPER("'+username+':'+password+'"))'; // ben oui UPPER(user:pass) c'est la même chose que UPPER(user)+':'+UPPER(pass)

Mouarf, je n'ai même pas penser à essayer ^^
Je le fait dessuite et je te dit quoi.

Bah, SUNDARK:B1EE5F8C8468A529EA5F341980441B00 = Sundark:Sundark

Ca me donne ça dans ma table, ce qui est incorrect.

Il faut donc que je concatène (ca se dit oO ?) je vais essayer CONCAT() en plus.
Code:

1 2 3 4 5 6 7 If Sql.Query('INSERT INTO account (username, sha_pass_hash, gmlevel, email, tbc) VALUES ("' + EditLoginCompte.Text + '", CONCAT(UPPER("' + EditLoginCompte.Text + ':' + Action3.Caption + '")), ' + Action4.Caption + ', "' + EditEmailCompte.Text + '", ' + Action5.Caption + ');') <> 0 Then {Back up de mon mot de passe: "' + Action3.Caption + '", } 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;
Donc ça me refait la même chose.. (que sans CONCAT)

Je double post pour rendre le message clair.

J'ai essayer de reprendre à 100% ma requete comme sur PHP et là ca me dit
Code:

1 2 3 4 5 6 7 If Sql.Query('INSERT INTO account (username, sha_pass_hash, gmlevel, email, tbc) VALUES ("' + EditLoginCompte.Text + '", CONCAT(UPPER("' + EditLoginCompte.Text + '"),':',UPPER("' + Action3.Caption + '")), ' + Action4.Caption + ', "' + EditEmailCompte.Text + '", ' + Action5.Caption + ');') <> 0 Then Begin {Back Up de mon mot de passe: "' + Action3.Caption + '",} 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;
"),':PROBLEME ICI',U

) attendu mais : trouvé

Edit: Une de mes erreurs:
Je ne refait pas comme PHP, puisque mon mot de passe est hasher avant d'être dans la requete, je vais réutilier mais maintenant hors requete, donc à ce moment là

Code:

Action3.Caption := SHA1ToStr( SHA1(EditPasseCompte.Text) );

Je vous tien au courant

Donc Donc
Code:

1 2 Action6.Caption := UPPER("' + EditLoginCompte.Text + ':' + EditPasseCompte.Text + '")); Action3.Caption := SHA1ToStr( SHA1(Action6.Caption) );
Code:

1 2 3 4 5 6 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.';
UPPER est non déclarer, je pourrais utiliser un pointeur pour corriger le problème ?

Edit:
Code:

1 2 Action6.Caption := pChar('UPPER("'+EditLoginCompte.Text+',:,'+EditPasseCompte.Text+'")'); Action3.Caption := SHA1ToStr( SHA1(Action6.Caption) );
Resultat pour Sundark:Sundark (login:pass)
Mon logiciel: 4d8532e0cfcfac80c7a5ad9c51a1608fcc729acb
Ma page web (fonctionnel) :7e16aba26c267ad14e56ee6d1299487abe20d4c4

Avec mon logiciel si j'enleve les virgule avant et après les deux points
cd59afc4107b8cabfd794a2b2e9495f2f9104b97

Essayez plutôt :

Code:

1
2
Action6.Caption := UpperCase( EditLoginCompte.Text + ':' + EditPasseCompte.Text );
Action3.Caption := SHA1ToStr( SHA1(Action6.Caption) );

23/05/2008, 09h39
Sundark

Resultat du logiciel: 7e16aba26c267ad14e56ee6d1299487abe20d4c4
Resultat de la page web: 7e16aba26c267ad14e56ee6d1299487abe20d4c4

Ca marche ! :king: Grand merci à vous deux :) :yaisse2: