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;