| 算不上是原创 帮助里面的东西 稍稍的用论坛里的代码改了一下 贴个原创 吸引一下 用汉化版本里面自带的函数 ...
 非典男人 发表于 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))
 |