算不上是原创 帮助里面的东西 稍稍的用论坛里的代码改了一下 贴个原创 吸引一下
用汉化版本里面自带的函数 ...
非典男人 发表于 2010-1-29 17:34 
LZ的算法有问题,文件应该为完整路径,切割为文件名肯定就不对了……
正确的MD5值:#include <ACN_HASH.au3>
Global $BufferSize = 0x20000
Global $sName = @ScriptFullPath
Global $FileHandle = FileOpen($sName, 16)
$MD5CTX = _MD5Init()
For $i = 1 To Ceiling(FileGetSize($sName) / $BufferSize)
_MD5Input($MD5CTX, FileRead($FileHandle, $BufferSize))
Next
$Hash = _MD5Result($MD5CTX)
FileClose($FileHandle)
MsgBox(0, '此文件MD5值:', StringTrimLeft($Hash, 2))
|