Delphi 中Md5获取（Indy 9）

======================================================

注：本文源代码点此下载

======================================================

delphi 中md5获取(indy 9)
在delphi自带的indy控件中其实是提供了md2,md4,md5对象的,我们可以直接使用它们来完成md5的签名算法。而不需要再去找其它的 dll或是pas了。
在uses单元中引用 idhashmessagedigest,idglobal, idhash 单元,再写如下代码即可以达到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;
说 明:
mymd5.hashvalue 函数中可以是一个字符串或是一个流对象,它返回的结果类型为 t4x4longwordrecord 的md5签名后结果
mymd5.ashex函数是将t4x4longwordrecord的md5签名转换成为十六进制的md5签名字符串。
标签:
md5, indy9
绿色通道:好文要顶关注我收藏该文与我联系



posted @ 2010-05-06 16:11
天下乌鸦一般黑 阅读(280)
评论(0)编辑
收藏

======================================================

在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定
这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/