#include <string.au3>
MsgBox(0,"",file_head_CRC("C:\WINDOWS\explorer.exe"))
Func file_head_CRC($file)
$step = mod(FileGetSize($File),96)
$step += 4000
$fr = FileOpen($file,0)
$head=FileRead($fr,5)
FileRead($fr,$step)
$head = $head & FileRead($fr,5)
FileRead($fr,$step)
$head = $head & FileRead($fr,5)
FileRead($fr,$step)
$head = $head & FileRead($fr,5)
FileRead($fr,$step)
$head = $head & FileRead($fr,5)
FileClose($fr)
Return _StringToHex($head)
EndFunc
的确很有用,速度也很快,但是看了半天没看懂原理,不得不佩服火狐的作者,牛人就是牛人啊!
我搞不懂的是 96 4000 5 这几个数...
[ 本帖最后由 make2855 于 2008-5-28 12:45 编辑 ] |