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^)/