Changes between Version 36 and Version 37 of HashSourceCodes

Timestamp:

Apr 28, 2012, 1:09:53 AM (12 years ago)

Author:

guest

Comment:

Add Lua version

HashSourceCodes

@@ -457 +457 @@
 }}}
 
+
+== Lua ==
+{{{
+-- will produce a correct hash regardless of architecture (big vs little endian)
+local function movieHash(fileName)
+        local fil = io.open(fileName, "rb")
+        local lo,hi=0,0
+        for i=1,8192 do
+                local a,b,c,d = fil:read(4):byte(1,4)
+                lo = lo + a + b*256 + c*65536 + d*16777216
+                a,b,c,d = fil:read(4):byte(1,4)
+                hi = hi + a + b*256 + c*65536 + d*16777216
+                while lo>=4294967296 do
+                        lo = lo-4294967296
+                        hi = hi+1
+                end
+                while hi>=4294967296 do
+                        hi = hi-4294967296
+                end
+        end
+        local size = fil:seek("end", -65536) + 65536
+        for i=1,8192 do
+                local a,b,c,d = fil:read(4):byte(1,4)
+                lo = lo + a + b*256 + c*65536 + d*16777216
+                a,b,c,d = fil:read(4):byte(1,4)
+                hi = hi + a + b*256 + c*65536 + d*16777216
+                while lo>=4294967296 do
+                        lo = lo-4294967296
+                        hi = hi+1
+                end
+                while hi>=4294967296 do
+                        hi = hi-4294967296
+                end
+        end
+        lo = lo + size
+                while lo>=4294967296 do
+                        lo = lo-4294967296
+                        hi = hi+1
+                end
+                while hi>=4294967296 do
+                        hi = hi-4294967296
+                end
+        fil:close()
+        return string.format("%08x%08x", hi,lo), size
+end
+
+print("breakdance.avi:")
+print(movieHash("breakdance.avi"))
+print("8e245d9679d31e12 <- should be")
+print("")
+print("dummy.rar:")
+print(movieHash("dummy.rar"))
+print("61f7751fc2a72bfb <- should be according to wiki")
+print("2a527d74d45f5b1b <- what other hash tools actually report")
+}}}
+
+
 == !RealBasic ==
 Combined routine that will calculate a fast hash for videofiles over 65K and a normal md5 for subtitles