md5加密

最新推荐文章于 2024-10-29 19:15:04 发布

转载最新推荐文章于 2024-10-29 19:15:04 发布 · 258 阅读

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的MD5哈希函数及如何将整数转换为字符的十六进制表示。提供了MD5_32函数用于生成字符串的MD5哈希值，并采用十六进制形式展示；同时提供了一个辅助函数inttochar2，用于将字符串类型的整数转换为其对应的十六进制字符形式。

uses
  //增加IdHashMessageDigest,IdGlobal,IdHash 三个

function MD5_32(str:String):String;
var
     MyMD5: TIdHashMessageDigest5;
     Digest: T4x4LongWordRecord;
begin
     MyMD5 := TIdHashMessageDigest5.Create;
     try
     try
            Digest := MyMD5.HashValue(str);
            Result:=MyMD5.AsHex(Digest);
            //Result := MyMD5.HashStringAsHex(str, IndyTextEncoding_UTF8).ToLower;  //XE10使用这行换以上两行
     except
     end;
     finally
            MyMD5.Free;
     end;
end;
//----------------------
function inttochar2(str:String):String;
var
     str1,str2,str3:String;
     i,aa:integer;
begin
             str1:=IntToHex(strtoint64(str),16);
             str2:='';
             for i:=0 to 7 do
                   begin
                         aa:=strtoint('$'+copy(str1,i*2+1,2));
                         str3:=Char(aa);
                         str2:=str2+str3;
                   end;
             Result:=str2;
end;
//----------------------------------
procedure TForm1.Button42Click(Sender: TObject);
var
str,str2,str3:String;
begin
       str:='123456789';
       str2:=inttochar2(str);
       str3:=MD5_32(str2);
       showmessage(str3);//需要的结果也是D7的结果=EB79A27E0E6978EFABCBB6C2C55DD9FC
end;