Delphi MD5加密

1、 引用两个单元
uses IdHash,IdHashMessageDigest;
2、编写加密函数
function TEncryption.StrtoMd5(str: string): string;
var
md5 : TIdHashMessageDigest5;
longWordRec : T4x4LongWordRecord;
begin
md5 := TIdHashMessageDigest5.Create;
longWordRec:=md5.HashValue(str);
Result:=copy(LowerCase(md5.AsHex(longWordRec)),9,16);
end;
3、调用
Password:= StrtoMd5(‘abcd123‘);//加密password；
showmessage(Password);//show 加密后的文本