Changes between Version 30 and Version 31 of HashSourceCodes

Timestamp:

Sep 11, 2010, 9:57:51 AM (14 years ago)

Author:

os

Comment:

--

HashSourceCodes

@@ -1098 +1098 @@
 MovieHash $filename 
 }}}
+
+== MASM ==
+{{{
+Calc_Hash proc uses esi ebx edx pFile:dword, pBuf:dword
+
+        LOCAL hFile:dword, fSize:dword, NBR:dword, pMem:dword
+        
+        invoke CreateFile,pFile,GENERIC_ALL,0,0,OPEN_EXISTING,0,0
+        mov hFile,eax   
+        cmp eax,INVALID_HANDLE_VALUE
+        jz @Error
+        
+        invoke SetFilePointer,hFile,0,NULL,FILE_END
+        mov fSize,eax
+        push eax
+        
+        invoke GlobalAlloc,GPTR,131072
+        mov pMem,eax
+        
+        invoke SetFilePointer,hFile,0,NULL,FILE_BEGIN
+        invoke ReadFile,hFile,pMem,65536,addr NBR,NULL
+        
+        sub fSize,65536
+        add pMem,65536
+        
+        invoke SetFilePointer,hFile,fSize,NULL,FILE_BEGIN
+        invoke ReadFile,hFile,pMem,65536,addr NBR,NULL
+        
+        sub pMem,65536
+        mov esi,pMem
+        mov ecx,131072
+        pop eax
+        mov edx,eax
+        push eax
+
+        @@:
+        add edx,[esi]
+        adc ebx,[esi+4]
+        add esi,8
+        sub ecx,8
+        jnz @B
+        
+        push edx
+        push ebx
+        invoke wsprintf,pBuf,addr HashFormat
+        pop eax
+        pop eax
+        
+        invoke CloseHandle,hFile
+        invoke GlobalFree,pMem
+        pop ecx
+        
+        @Error: ; If error eax returns (INVALID_HANDLE_VALUE)
+        
+        ; Hash value is copied to pBuf
+        ; eax returns Movie Filesize
+        
+        ret
+        
+Calc_Hash endp
+}}}