Delphi avec sqlserver

Bonjour a tous
Svp comment utiliser la fonction PWDCOMPARE dans un code Delphi pour vérifier le mot de passe tapé par l'utilisateur ???
Merci beaucoup de m'aider

Suffit de faire un SQL comme évoque dans la documentation mais sur votre table de Login.
Au préalable, il faut que les mots de passe dans votre table de Login de la base de donnée soit encryptées via PWDENCRYPT.

Essayez quelque chose de basique comme ceci :

Code:

---

SELECT PWDCOMPARE(:pMotDePasse, USERS.Login) FROM USERS WHERE Login = :pUtilisateur

---

Citation:

---

Envoyé par lokazouzou

Bonjour a tous
Svp comment utiliser la fonction PWDCOMPARE dans un code Delphi pour vérifier le mot de passe tapé par l'utilisateur ???
Merci beaucoup de m'aider

---

Pour compléter un peu la réponse de ShaiLeTroll : PWDCOMPARE est une fonction SQL de SQLSERVER, dans Delphi cette fonction doit être utilisée via un objet descendant de TDataset, donc une classe de type TFDQuery, TAdoQuery ou autre... Qui sera lié à la connexion vers le serveur MSSQL

Ah oui, je n'avais pas pensé à ce prérequis, je me suis dit que si l'on s'intéresse à la sécurité des mots de passe, on avait déjà dépassé de loin la phase du choix de la bibliothèque d'accès, de la connexion et de l'utilisation de requête

Et si l'on n'a pas encore décidé quel descendant choisir, on peut aussi le faire à la main avec les objets ADO en OLE
J'ai fait cela dans le cadre d'une comparaison de performance entre TADOQuery et la couche que ce dernier utilise (j'ai trouvé une lenteur sur le Fetch en adUseClient + adOpenKeyset sur le TADOQuery)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

FCnx: Variant; FCmd: Variant; FRec: Variant; FPrm: Variant; ... FFields: array of Variant; public procedure OpenConnection(const APassword: string); ... end;

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

//------------------------------------------------------------------------------ procedure ....OpenConnection(const APassword: string); begin FCnx := System.Win.ComObj.CreateOleObject('ADODB.Connection'); FCnx.Open(GetConnectionString() + ';Password='+APassword);   FCmd := System.Win.ComObj.CreateOleObject('ADODB.Command'); FCmd.ActiveConnection := FCnx; FCmd.CommandType := Winapi.ADOInt.adCmdText;   FRec := System.Win.ComObj.CreateOleObject('ADODB.Recordset'); FRec.CursorLocation := Winapi.ADOInt.adUseClient; FRec.CursorType := adOpenKeyset; FRec.LockType := adLockOptimistic; end;

---

Le code ci-dessus est un agrégé, c'est à titre d'exemple que ce n'est pas si compliqué d'utiliser ADO en OLE sans le TADOQuery et encore c'est Late Binding un peu plus chiant que le Early Binding.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Query.FCmd.CommandText := 'SELECT ... FROM ... WHERE ... = ?';   Query.FRec.CursorLocation := Winapi.ADOInt.adUseClient; Query.FRec.CursorType := Winapi.ADOInt.adOpenKeyset;   Query.FPrm := Query.FCmd.CreateParameter; Query.FPrm.Direction := adParamInput;   Query.FPrm.Type := adVarChar; Query.FPrm.Size := Length(VarToStr(Value)); Query.FPrm.Value := Value;   Query.FCmd.Parameters.Append(Query.FPrm);   Query.FRec.Open(Query.FCmd);   while not Query.FRec.EOF do begin for I := 0 to Query.FRec.Fields.Count - 1 do ShowMessage(Query.FFields[I].Value); Query.FRec.MoveNext; end; Query.FRec.Close;

---