Delphi中的加密算法(MD5,MD4,MD3...)
来源:互联网 发布:unity3d shader mask 编辑:程序博客网 时间:2024/06/07 00:24
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest 单元,再写如下代码即可以达到MD5的实现。
示例代码
在Uses单元中引用 IdHashMessageDigest 单元,再写如下代码即可以达到MD5的实现。
示例代码
procedure TForm1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := TIdHashMessageDigest5.Create;
Digest := MyMD5.HashValue('');
ShowMessage('32: ' + MyMD5.AsHex(Digest)); //显示32个字符长度的MD5签名结果
ShowMessage('16: ' + Copy(MyMD5.AsHex(Digest), 9, 16)); //显示16个字符长度的MD5签名结果
end;
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := TIdHashMessageDigest5.Create;
Digest := MyMD5.HashValue('');
ShowMessage('32: ' + MyMD5.AsHex(Digest)); //显示32个字符长度的MD5签名结果
ShowMessage('16: ' + Copy(MyMD5.AsHex(Digest), 9, 16)); //显示16个字符长度的MD5签名结果
end;
说明:
MyMD5.HashValue 函数中可以是一个字符串或是一个流对象,它返回的结果类型为 T4x4LongWordRecord 的MD5签名后结果
MyMD5.AsHex 函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串。
MyMD5.HashValue 函数中可以是一个字符串或是一个流对象,它返回的结果类型为 T4x4LongWordRecord 的MD5签名后结果
MyMD5.AsHex 函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串。
0 0
- Delphi中的加密算法(MD5,MD4,MD3...)
- Delphi中的加密算法(MD5,MD4,MD3...)
- SQL 加密方法(MD5,SHA1,MD2,MD3,MD4等)
- HASH加密算法:MD4、MD5、SHA1
- java md5,md2,md4 加密算法
- MD5加密算法(DELPHI)
- DELPHI MD5加密算法
- 重新组织编写Delphi的MD2、MD4、MD5类
- 用delphi实现MD5加密算法
- 用delphi实现MD5加密算法
- Java中的MD5加密算法
- VB 6.0中的MD5加密算法
- Java中的MD5加密算法完整版
- Java中的MD5加密算法完整版
- MD5加密算法在ASP中的应用
- 浅谈MD5加密算法中的加盐值(SALT)
- python中的md5和sha1加密算法使用
- 浅谈MD5加密算法中的加盐值(SALT)
- JavaScript中的 ==、===、if()
- 复合动作
- 浅谈构件图
- 计算机视觉领域的一些牛人博客,超有实力的研究机构等的网站链接
- 黑马程序员--正则表达式(regex)
- Delphi中的加密算法(MD5,MD4,MD3...)
- 关于PHP中禁止敏感数据的注册问题
- hdu 1506 Largest Rectangle in a Histogram(单调栈||dp)
- ZOJ 1713 (Haiku Review)解题报告
- C语言的井号(#)特殊用法(#define)
- 自定义的图片轮询器ScrollView
- 搜狗输入法隐私事件
- 如何绕过youtube 广告和隐藏youtube的视频
- 解决BAE部署JavaWeb项目中文乱码问题