Hachage de mot de passe avec Delphi.

Bonjour,

Comme l'intitulé l'indique je voudrai hacher un mot de passe entré par l'utilisateur en utilisant de préférence SHA256. J'ai a cet effet récupérer la librairie de David Barton mais je n'arrive pas à l'utiliser correctement.

Est-ce que quelqu'un l'a connait déjà et pourrait m'expliquer comment ça fonctionne ? Ou éventuellement me donner une autre solution.

Merci bien.

un code que j'utilisais sous D2005 avec cette librairie sur le rijndeal mais ca doit être pareil pour les SHA256.
Bien sûr le code nécessite des modifications :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  sTmp,IV,Key : String;
begin
  Key := PadWithZeros(Edit1.text,32);
  IV := PadWithZeros('',16);
  DCP_rijndael1.Init(Key[1],192,@IV[1]);
  sTmp := Base64DecodeStr(Edit2.Text);
  DCP_rijndael1.DecryptECB(sTmp[1],sTmp[1]);
  Edit4.text := sTmp;
  DCP_rijndael1.Burn;
end;

Edit1 = Le texte
Edit2 = le hash

[Edit]

Manquais çà :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function PadWithZeros(const str : string; size : integer) : string;
var
  origsize, i : integer;
begin
  Result := str;
  origsize := Length(Result);
  if ((origsize mod size) <> 0) or (origsize = 0) then
  begin
    SetLength(Result,((origsize div size)+1)*size);
    for i := origsize+1 to Length(Result) do
      Result[i] := #0;
  end;
end;

Ok merci, je vais essayé d'adapter ça.