======================================================
注:本文源代码点此下载
======================================================
求delphi 对md5的标准源码
http://www.delphi2007.net/delphivcl/html/delphi_20061222191119178.html
从网上当了很多关于delphi版的md5算法,计算结果都是一样的,但是它们和标准的计算工具算出来的不一样,并且对于同一个文件,我把它改个名字,或者原模原样的复制到别的地方,用那些delphi版的md5算法算出来的居然不一样!
晕死啊!!!
故求一个标准的delphi版的md5源码。。。谢谢了!!!
delphi7里就带了标准的md5算法,你可以搜索一下,md5indy
idhash.pas
idhashmessagedigest.pas
问题已解决,谢谢!
uses
idhashmessagedigest
……
//md5计算
functionmd5(checkstr:string):string;
var
mymd5:tidhashmessagedigest5;
begin
mymd5:=tidhashmessagedigest5.create;
result:=mymd5.ashex(mymd5.hashvalue(tfilestream.create(checkstr,fmopenreadorfmsharedenynone)));
mymd5.free;
end;
绿色通道:好文要顶关注我收藏该文与我联系
posted on 2008-11-18 14:21 delphi2007 阅读(107) 评论(0)编辑 收藏
注册用户登录后才能发表评论,请 登录 或 注册,返回博客园首页。
最新it新闻:
·ios 5.1 beta3文件预示未来 siri有可能支持 ipad和 ipod touch
·android平台12月广告浏览份额51.6% 超越ios
» 更多新闻...
最新知识库文章:
======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/