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位小寫