Delphi MD5加密

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 加密后的文本