md5加密
来源:互联网 发布:知春大厦b座 户型图 编辑:程序博客网 时间:2024/06/18 14:11
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;
//增加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
- MD5加密
- MD5加密
- md5加密
- MD5加密
- md5加密
- MD5加密
- MD5加密
- md5 加密
- MD5加密
- md5加密
- MD5加密
- MD5加密
- MD5加密
- MD5加密
- MD5加密
- MD5加密
- MD5加密
- MD5加密
- JAVA如何把一个float四舍五入到小数点后2位,4位,或者其它指定位数.
- 理解嵌入式开发中的一些硬件相关的概念
- <java EE 项目:Musicstore>项目结构分析: 项目的3层结构之间的关系 :(表示层,业务层,数据层)
- 今天单词
- leetcode--7. Reverse Integer
- md5加密
- JPA与QueryDsl的学习
- TypeScript 变量声明
- 上传项目到git仓库
- Docker镜像仓库Harbor之搭建及配置
- vuex(入门软文)
- Rescue
- SpringBoot-09整合MyBatis
- 赋值变量给短信模板