Changes between Version 40 and Version 41 of HashSourceCodes

Timestamp:

Feb 9, 2013, 3:18:22 PM (11 years ago)

Author:

os

Comment:

--

HashSourceCodes

@@ -248 +248 @@
 or without using GetHash.dll:
 {{{
+#!c#
 using System;
 using System.Text;
@@ -315 +316 @@
 == VB.Net ==
 {{{
+#!vba
 Imports System
 Imports System.Text
@@ -417 +419 @@
 
 {{{
+#!delphi
 function CalcGabestHash(const fname: string): string;
 var
@@ -460 +463 @@
 == Lua ==
 {{{
+#!lua
 -- will produce a correct hash regardless of architecture (big vs little endian)
 local function movieHash(fileName)
@@ -518 +522 @@
 
 {{{
+#!realbasic
     dim b as BinaryStream
     dim mb as MemoryBlock
@@ -816 +821 @@
 == Haskell ==
 {{{
+#!haskell
 import IO(bracket)
 import System.Environment(getArgs)
@@ -848 +854 @@
 [http://www.autoitscript.com/forum/topic/107155-opensubtitles-org-hashing-func/page__p__755889__hl__opensubtitles__fromsearch__1#entry755889 Forum entry]
 {{{
+#!autoit
 #cs
         Hash code is based on Media Player Classic. It calculates: size + 64bit
@@ -887 +894 @@
 == !FoxPro ==
 {{{
+#!foxpro
 PARAMETERS cfile
 PRIVATE ALL 
@@ -1124 +1132 @@
 or without using GetHash.dll:
 {{{
+#!powershell
 $dataLength = 65536
 
@@ -1223 +1232 @@
 '''OSHashAlgorithm.m'''
 {{{
+#!c++
 #import "OSHashAlgorithm.h"
 
@@ -1306 +1316 @@
 '''OSHashAlgorithm.h'''
 {{{
+#!c++
 #import <Cocoa/Cocoa.h>
 
@@ -1378 +1389 @@
 == !AutoHotKey ==
 {{{
+#!autohotkey
 #NoEnv
 SetBatchLines, -1
@@ -1426 +1438 @@
 ; ==================================================================================================
 }}}
+
+== Lisp ==
+{{{
+#!lisp
+; opensubtitle hash, common lisp, sbcl
+; sean langton 2013
+
+(defun get-lvalue(stream)
+  (let ((c)(n 0)(m 1))
+    (loop for x from 0 to 7 do
+(setf c (read-byte stream))
+(setf n (+ n (* c m)))
+(setf m (* m 256))
+) n))
+  
+(defun hashfile(path)
+  (let ((hash '(unsigned-byte 64))(len))
+    (with-open-file (in path :element-type '(unsigned-byte 8))
+      (setf len (file-length in))
+      (setf hash len)
+
+      (cond ((< len (* 2 65536)) 
+    (print "file too small to hash")
+    (return-from hashfile nil)))
+
+      (loop for x from 0 to 8191  do
+  (setf hash (logand (+ hash (get-lvalue in)) #xFFFFFFFFFFFFFFFF )))
+
+      (file-position in (- len 65536))
+
+      (loop for x from 0 to 8191  do
+  (setf hash (logand (+ hash (get-lvalue in)) #xFFFFFFFFFFFFFFFF )))
+
+      (format t "~&~16,'0x" hash))))
+
+; (hashfile #p"~/Downloads/breakdance.avi")
+; (hashfile #p"~/Downloads/dummy/dummy.bin")
+}}}