delphi MD5 加密 32位小写

1.引用单元：

uses IdHash,IdHashMessageDigest;

2.编写加密函数： 

function TbsPartStatusQueryForm.StrtoMd5(str: string): string;
var
md5 : TIdHashMessageDigest5;
longWordRec : T4x4LongWordRecord;
begin
md5 := TIdHashMessageDigest5.Create;
longWordRec:=md5.HashValue(str);
Result:=LowerCase(md5.AsHex(longWordRec));
end;

3.调用：

  Password:= StrtoMd5('abcd123');//加密password；
  ShowMessage(Password);//show 加密后的文本

4.在线网址校验：MD5在线加密

参考：Delphi MD5加密 16位小写