Delphi Tips.. md5 Hashing

In Delphi grazie alle librerie Indy la gastione dell’hashing è molto semplice di seguito due esempi per cifrare in MD5, il primo prende in input una stringa il secondo un file e ritorna , entrambi ritornano l’md5 calcolato.
Nel progetto è necessario dichiarare come librerie utilizzate : “IdHashMessageDigest” e “idHash”.

   uses IdHashMessageDigest,idHash;

String to MD5 :

function TForm1.StringToMD5(Src: String): String;

 var

   md5 : TIdHashMessageDigest5;

 begin

   md5 := TIdHashMessageDigest5.Create;

   try

     result := md5.AsHex(md5.HashValue(src)) ;

   finally

     md5.Free;

   end;

 end;

File to MD5 :

function TForm1.FileToMD5(FName: String): String;

 var

   md5 : TIdHashMessageDigest5;

   fs : TFileStream;

 begin

   md5 := TIdHashMessageDigest5.Create;

   fs := TFileStream.Create(FName, fmOpenRead OR fmShareDenyWrite) ;

   try

     result := md5.AsHex(md5.HashValue(fs)) ;

   finally

     fs.Free;

     md5.Free;

   end;

 end;

a presto
ivan