USES IdGlobal,IdHash;
function GetMd5Str(ContenStr:string):string; var RegMd5:TIdHashMessageDigest5; RegDigest:T4x4LongWordRecord; begin RegMd5:=TIdHashMessageDigest5.Create; RegDigest:=RegMd5.HashValue(ContenStr); Result:=LowerCase(RegMd5.AsHex(RegDigest)); end;
|
请发表评论