hash کردن با Indy 10 در دلفی

با استفاده از کد زیر شما می توانید یک رشته را با دو الگوریتم SAH1 , MD5 که به طور همزمان استفاده میشوند Hash نمایید همچنین با تغییر در برنامه قادر خواهید بود فایل را نیز hash کنید تنها کافی است به جای HashStringAsHex از دستور  HashStreamAsHex استفاده کنید .  

uses  idhash,idhashsha, IdHashMessageDigest 

procedure hash(Code:string):string;

var   idmd5: TIdHashMessageDigest5;
      sthash: TIdHashSHA1;
      str:string;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  sthash := TIdHashSHA1.Create;
  try
    str := idmd5.HashStringAsHex(Code);
    result:=sthash.HashStringAsHex(str);
  finally
    idmd5.Free;
    sthash.Free;
  end;

end;