Changes between Version 38 and Version 39 of HashSourceCodes

Timestamp:

Feb 6, 2013, 6:19:21 AM (12 years ago)

Author:

os

Comment:

--

HashSourceCodes

@@ -1375 +1375 @@
 }}}
 Build with: valac --pkg gio-2.0 hash.vala
+
+== AutoHotKey ==
+{{{
+#NoEnv
+SetBatchLines, -1
+; http://www.opensubti.../breakdance.avi
+; OpenSubtitles Hash = 8E245D9679D31E12
+FilePath := "Breakdance.avi"
+MsgBox, 0, OpenSubtitlesHash, % Filepath . ":`r`n" . GetOpenSubtitlesHash(FilePath)
+ExitApp
+
+
+; ==================================================================================================
+GetOpenSubtitlesHash(FilePath) {
+   ; http://trac.opensubt...HashSourceCodes
+   Static X := { 0: "0",  1: "1",  2: "2",  3: "3",  4: "4",  5: "5",  6: "6",  7: "7"
+              ,  8: "8",  9: "9", 10: "A", 11: "B", 12: "C", 13: "D", 14: "E", 15: "F"}
+   ; Check the file size ---------------------------------------------------------------------------
+   ; 9000000000 > $moviebytesize >= 131072 bytes (changed > to  >= for the lower limit)
+   FileGetSize, FileSize, %FilePath%
+   If (FileSize < 131072) || (FileSize >= 9000000000)
+      Return ""
+   ; Read the first and last 64 KB -----------------------------------------------------------------
+   VarSetCapacity(FileParts, 131072)         ; allocate sufficient memory
+   File := FileOpen(FilePath, "r")           ; open the file
+   File.Seek(0, 0)                           ; set the file pointer (just for balance)
+   File.RawRead(FileParts, 65536)            ; read the first 64 KB
+   File.Seek(-65536, 2)                      ; set the file pointer for the last 64 KB
+   File.RawRead(&FileParts + 65536, 65536)   ; read the last 64 KB
+   File.Close()                              ; got all we need, so the file can be closed
+   ; Now calculate the hash using two UINTs for the low- and high-order parts of an UINT64 ---------
+   LoUINT := FileSize & 0xFFFFFFFF           ; store low-order UINT of file size
+   HiUINT := FileSize >> 32                  ; store high-order UINT of file size
+   Offset := -4                              ; to allow adding 4 on first iteration
+   Loop, 16384 {                             ; 131072 / 8
+      LoUINT += NumGet(FileParts, Offset += 4, "UInt") ; add first UINT value to low-order UINT
+      HiUINT += NumGet(FileParts, Offset += 4, "UInt") ; add second UINT value to high-order UINT
+   }
+   ; Adjust the probable overflow of the low-order UINT
+   HiUINT += LoUINT >> 32                    ; add the overflow to the high-order UINT
+   LoUINT &= 0xFFFFFFFF                      ; remove the overflow from the low-order UINT
+   ; Now get the hex string, i.e. the hash ---------------------------------------------------------
+   Hash := ""
+   VarSetCapacity(UINT64, 8, 0)
+   NumPut((HiUINT << 32) | LoUINT, UINT64, 0, "UInt64")
+   Loop, 8
+      Hash .= X[(Byte := NumGet(UINT64, 8 - A_Index, "UChar")) >> 4] . X[Byte & 0x0F]
+   Return Hash
+}
+; ==================================================================================================
+}}}