|
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;//T4x4LongWordRecord;
begin
MyMD5 := TIdHashMessageDigest5.Create;
Digest := MyMD5.HashValue(s);
result := MyMD5.AsHex(Digest); //显示32个字符长度的MD5签名结果
Result := delUnderLine(Result); //删除'-'并将字符转换成小写
end; |
|