Delphi MD5加密

 Delphi MD5加密
   一、 引用兩個單元
       uses   IdHash,IdHashMessageDigest;
   二、編寫加密函數
    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; 
三、調用
      Password:= StrtoMd5('abcd123');//加密password；
     showmessage(Password);//show 加密後的文本