Changes between Version 28 and Version 29 of HashSourceCodes

Timestamp:

Jul 29, 2010, 12:17:09 PM (14 years ago)

Author:

guest

Comment:

Added Powershell 2.0 code

HashSourceCodes

@@ -1047 +1047 @@
 }}}
 
+== Powershell 2.0 ==
+You can use GetHash.dll.[[BR]]
+
+[http://trac.opensubtitles.org/projects/opensubtitles/attachment/wiki/HashSourceCodes/GetHash.dll][[BR]]
+
+Use Example:[[BR]]
+
+{{{
+        Add-Type -Path "GetHash.dll"
+
+        function MovieHash([string]$path) {
+                $hash = [GetHash.Main]  
+                $hash::ToHexadecimal($hash::ComputeHash($path))
+        }
+
+        MovieHash $filename 
+}}}
+or without using GetHash.dll:
+{{{
+$dataLength = 65536
+
+function LongSum([UInt64]$a, [UInt64]$b) { 
+        [UInt64](([Decimal]$a + $b) % ([Decimal]([UInt64]::MaxValue) + 1)) 
+}
+
+function StreamHash([IO.Stream]$stream) {
+        $hashLength = 8
+        [UInt64]$lhash = 0
+        [byte[]]$buffer = New-Object byte[] $hashLength
+        $i = 0
+        while ( ($i -lt ($dataLength / $hashLength)) -and ($stream.Read($buffer,0,$hashLength) -gt 0) ) {
+                $i++
+                $lhash = LongSum $lhash ([BitConverter]::ToUInt64($buffer,0))
+        }
+        $lhash
+}
+
+function MovieHash([string]$path) {
+        try { 
+                $stream = [IO.File]::OpenRead($path) 
+                [UInt64]$lhash = $stream.Length
+                $lhash = LongSum $lhash (StreamHash $stream)
+                $stream.Position = [Math]::Max(0, $stream.Length - $dataLength)
+                $lhash = LongSum $lhash (StreamHash $stream)
+                "{0:X}" -f $lhash
+        }
+        finally { $stream.Close() }
+}
+
+MovieHash $filename 
+}}}