在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。
在Uses单元中引用IdHashMessageDigest单元,再写如下代码即可以达到MD5的实现。
示例代码
procedureTForm1.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;
说明:
MyMD5.HashValue函数中可以是一个字符串或是一个流对象,它返回的结果类型为T4x4LongWordRecord的MD5签名后结果
MyMD5.AsHex函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串。
分享到:
相关推荐
DELPHI实现MD5标准加密算法,含源代码,呵呵
delphi 实现hmac-md5加密算法,在delphi7开发编译通过,通过调用javascript实现。
Delphi_d7加密算法大全,附带详细使用案例,内涵常见加密算法 MD5,base64,crc32,des,aes,Blowfish,rsa,sha 等算法样例
delphi中关于文本的MD5加密算法,D7可用
Delphi加密算法集,包括了Delphi AES DES MD5 RSA BASE64 2DES 3DES Blowfish CRC32-Static SHA等 常用的加密算法用法实例,比较不错的Delphi加密实例代码了,浅显易懂而且实用的常见加密算法实例,包括字符串和文件...
RSA公钥加密算法是1977年由罗纳德·李维斯特(Ron Rivest)、阿迪·萨莫尔(Adi Shamir)和伦纳德·阿德曼(Leonard Adleman)一起提出的。1987年首次公布,当时他们三人都在麻省理工学院工作。RSA就是他们三人姓氏...
delphi md5加密算法,内附DEMO
Delphi7加密算法大全RSA DES MD5等
DELPHI7可直接使用的MD5加密文件算法源代码,输入和输出均为byte格式
delphi 下md5算法,可以对字符串以及文件进行md5 算法加密
delphi 加密nmd5 加密算法 带源代码
Delphi加密算法大全2DES_3DES_3DES3_AES_BASE64_BLOWFISH_CRC_DES_MD5_RSA_SHA
DES加密算法的delphi源码 学习delphi的朋友可以看下
DELPHI源码内容包括MD5算法,DES加解密算法,3DES加解密算法
Delphi开发中标准的MD5算法实例源程序,大概接触编程的朋友,不管是WEB...在VB中,MD5的实例特别多,当然,Delphi中也有很多,只不过大家没遇到,现在发上来这个MD5加密实例写的挺好,D7直接编译即可,有兴趣参考参考。
md5加密代码,32位的,16位的 代码描述
《软件加密技术-加密软件》附带源代码 含详细实例,可以学习 des加密md5加密 delphi加密算法源代码
{第2章 加密算法} chap02\CRC32-Dym.................CRC32算法动态码表实现 \CRC32-Static..............CRC32算法静态码表实现 \MD5.......................MD5算法示例 \SHA.......................SHA算法...
此md5加密单元是通用的md5加密算法,支持32位 64位如strtomd5函数
压缩包内含有:AES算法完整源码与调用方法、Base64算法完整源码与调用方法、BlowFish算法完整源码与调用方法、DES算法完整源码与调用方法、MD5算法完整源码与调用方法