摘要：
unit md5;INTERFACEuses Windows;type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of byte; MD5Digest = array[0..15] of byte; MD5Buffer = array[0..63] of byte; MD5Context = record State: MD5State; Count: MD5Count; Buffer: MD 阅读全文
posted @ 2011-08-08 23:45
许明吉博客
阅读(498)
评论(0)
推荐(0)
摘要：
http://www.koders.com/default.aspx?s=md5&search.x=8&search.y=8&la=Delphi&li=*&scope= 阅读全文
posted @ 2011-08-08 23:09
许明吉博客
阅读(246)
评论(0)
推荐(0)
摘要：
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 阅读全文
posted @ 2011-08-08 23:05
许明吉博客
阅读(2401)
评论(0)
推荐(0)
摘要：
原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy)有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在这里补充一下,先看计算函数:function TIdHashMessageDigest4.HashValue(AStream: TStream): T4x4LongWordRecord;参数类型是一个流就可以返回T4x4LongWordRecord类型的值,使用function TIdHash128. 阅读全文
posted @ 2011-08-08 23:02
许明吉博客
阅读(12338)
评论(0)
推荐(0)
摘要：
在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 := TIdHashMessageDiges 阅读全文
posted @ 2011-08-08 22:56
许明吉博客
阅读(3982)
评论(0)
推荐(0)
摘要：
USES IdGlobal,IdHash;function GetMd5Str(ContenStr:string):string;var RegMd5:TIdHashMessageDigest5; RegDigest:T4x4LongWordRecord;begin RegMd5:=TIdHashMessageDigest5.Create; RegDigest:=RegMd5.HashValue(ContenStr); Result:=LowerCase(RegMd5.AsHex(RegDigest));end; 阅读全文
posted @ 2011-08-08 22:49
许明吉博客
阅读(2542)
评论(0)
推荐(1)
浙公网安备 33010602011771号