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”.
|
1 |
uses IdHashMessageDigest,idHash; |
String to MD5 :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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 :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
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
