|
发表于 2010-3-24 20:11:09
|
显示全部楼层
算不上是原创 帮助里面的东西 稍稍的用论坛里的代码改了一下 贴个原创 吸引一下
用汉化版本里面自带的函数 ...
非典男人 发表于 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))
复制代码 |
|