Changes between Version 20 and Version 21 of HashSourceCodes

Timestamp:

Dec 20, 2009, 5:30:00 AM (15 years ago)

Author:

guest

Comment:

--

HashSourceCodes

@@ -785 +785 @@
   putStrLn $ "The hash of file " ++ fn ++ ": " ++ (hex $ w82s $ reverse (L.unpack $ runPut $ putWord64le p))
 }}}
+
+== AutoIT ==
+{{{
+#cs
+        Hash code is based on Media Player Classic. It calculates: size + 64bit
+        checksum of the first and last 64k (even if they overlap because the file is smaller than 128k).
+        Authors: Authenticity % Emanuel "Datenshi" Lindgren @ AutoIT Forums.
+#ce
+Func _Compute_Hash($sFileName)
+        Local $hFile, $tRet, $tTmp, $iFileSize, $iRead, $iChunk, $iI
+        $hFile = FileOpen($sFileName, 16)
+        If Not $hFile Then Return SetError(1, 0, 0)
+        $iFileSize = FileGetSize($sFileName)
+        $iChunk = 65536
+        If $iFileSize < $iChunk * 2 Then
+                FileClose($hFile)
+                Return SetError(2, 0, 0)
+        EndIf
+        $tRet = DllStructCreate("uint64")
+        $tTmp = DllStructCreate("uint64")
+        DllStructSetData($tRet, 1, $iFileSize)
+        For $iI = 0 To ($iChunk / 8) - 1
+                DllStructSetData($tTmp, 1, FileRead($hFile, 8))
+                DllStructSetData($tRet, 1, DllStructGetData($tRet, 1) + DllStructGetData($tTmp, 1))
+        Next
+        FileSetPos($hFile, $iFileSize - $iChunk, 0)
+        For $iI = 0 To ($iChunk / 8) - 1
+                DllStructSetData($tTmp, 1, FileRead($hFile, 8))
+                DllStructSetData($tRet, 1, DllStructGetData($tRet, 1) + DllStructGetData($tTmp, 1))
+        Next
+        FileClose($hFile)
+        Return SetError(0, 0, _HEX(DllStructGetData($tRet, 1)))
+EndFunc
+Func _HEX($iValue)
+        Return StringFormat("%#.8x%.8x", $iValue / 4294967296, $iValue)
+EndFunc
+
+}}}
+