22 lines
1.6 KiB
HTML
22 lines
1.6 KiB
HTML
<pre>原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy)<br />
|
|
<br />
|
|
有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在这里补充一下,先看计算函数:<br />
|
|
<br />function TIdHashMessageDigest4.HashValue(AStream: TStream): T4x4LongWordRecord;参数类型是一个流就可以返回T4x4LongWordRecord类型的值,使用function TIdHash128.AsHex(const AValue: T4x4LongWordRecord): string;把T4x4LongWordRecord转换为字符串就可以显示出来,到这里就简单了,把一个文件以流的方式读取,使用HashValue就计算出MD5了,流的使用很简单,TFileStream.Create(const FileName: string; Mode: Word);参数FileName就是文件的路径,Mode就是打开方式,使用fmOpenRead以读方式打开,如果要计算大型文件最好使用线程来操作.以下是实例代码:<br />
|
|
<br />
|
|
在uses添加IdHashMessageDigest<br />
|
|
<br />procedure TForm1.Button1Click(Sender: TObject);<br />
|
|
<br />var<br />
|
|
<br />
|
|
mymd5:TIdHashMessageDigest5;<br />
|
|
<br />begin<br />
|
|
<br />
|
|
mymd5:=TIdHashMessageDigest5.Create;<br />
|
|
<br />
|
|
ShowMessage(mymd5.AsHex(mymd5.HashValue('admin')));//计算字符串admin的MD5<br />
|
|
<br />
|
|
ShowMessage(Copy(mymd5.AsHex(mymd5.HashValue('admin')),9,16));//获取16位字符串MD5<br />
|
|
<br />
|
|
ShowMessage(mymd5.AsHex(mymd5.HashValue(TFileStream.Create('e:\VRMPVOL_CNsp2.iso',fmOpenRead))));//计算文件MD5<br />
|
|
<br />
|
|
mymd5.Free;<br />
|
|
<br />end;</pre> |