d7升级到xe10

来源：互联网发布：五钻淘宝店铺值多少钱编辑：程序博客网时间：2024/06/08 02:24

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;

阅读全文

0 0