delphixe2以上版本的md5
2014年11月27日
uses IdHashMessageDigest,IdGlobal;
Function Md5Encode(const Source:string):string;
var
MD5:TIdHashMessageDigest5;
begin
MD5 :=TIdHashMessageDigest5.Create;
Result :=MD5.HashStringAsHex(Source);
MD5.Free;
end;
分类: delphi