Text only | Text with Images

The MASM Forum Archive 2004 to 2012

General Forums => The Campus => Topic started by: UtillMasm on August 26, 2009, 11:07:35 AM

Title: Wrong drizz sha1, when file great than 4gb!
Post by: UtillMasm on August 26, 2009, 11:07:35 AM
sha1 example for big file (20g).

sha1 example for the "cryptohash.rar".

thanks all.
Title: Re: I need a sha1 example, help me!
Post by: Tedd on August 26, 2009, 03:35:38 PM
http://www.masm32.com/board/index.php?topic=12169.msg93096#msg93096

You'll have to read the file in chunks (best if it's a multiple of sha chunk size) and update the hash with each chunk, until you've done the whole file.
Or you can implement the whole hash yourself, but you'll still need to read the file in chunks.
Title: Re: I need a sha1 example, help me!
Post by: UtillMasm on August 27, 2009, 05:02:45 AM
Help!
Code Select
include \masm32\include\masm32rt.inc
SHA1Init proto
SHA1Update proto :dword,:dword
SHA1Final proto
HexEncoder proto :dword,:dword,:dword
SHA1_DIGESTSIZE equ 160
.data
FileName db 'C:\23g.txt',0
  ;C:\23g.txt
   ;Hash v1.04
    ;D7824ADABBAE69AEC100A97F5DA6EFB61FC8BEDD
   ;ThisHash
    ;B89F35D692021BD847D683BCCCF9FB696926DF8E
szSHA1 db SHA1_DIGESTSIZE / 8 * 2 + 1 dup (0)
.data?
hFile dd ?
dwRead dd ?
SHA1HashBuf db 64 dup(?)
SHA1Len dd ?
SHA1Index dd ?
SHA1Digest dd 5 dup(?)
szBuffer db 4096 dup (?)
.code
start:
invoke CreateFile,addr FileName,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0
cmp eax,-1
mov hFile,eax
je Lable_004022E7
invoke SHA1Init
@@:
invoke ReadFile,hFile,addr szBuffer,sizeof szBuffer,addr dwRead,0
test eax,eax
je Lable_0040212D
mov esi,dwRead
test esi,esi
je Lable_0040212D
invoke SHA1Update,addr szBuffer,dwRead
.if dwRead!=0
  jmp @b
.endif
Lable_0040212D:
invoke SHA1Final
invoke HexEncoder,eax,SHA1_DIGESTSIZE/8,addr szSHA1
print addr szSHA1,13,10
Lable_004022E7:
inkey chr$("Press any key to exit...")
................................................................................
exit
SHA1F0 macro dwA, dwB, dwC, dwD, dwE, locX, constAC
  mov edi,dwC
  xor edi,dwD
  and edi,dwB
  xor edi,dwD
  lea dwE,[dwE + constAC + edi]
  rol dwB,30
  mov edi,dwA
  rol edi,05
  add dwE,[locX]
  add dwE,edi
endm
SHA1F1 macro dwA, dwB, dwC, dwD, dwE, locX, constAC
  mov edi,dwC
  xor edi,dwD
  xor edi,dwB
  lea dwE,[dwE + constAC + edi]
  rol dwB,30
  mov edi,dwA
  rol edi,05
  add dwE,[locX]
  add dwE,edi
endm
SHA1F2 macro dwA, dwB, dwC, dwD, dwE, locX, constAC
  mov edi,dwB
  or edi,dwC
  and edi,dwD
  mov ebp,edi
  mov edi,dwB
  and edi,dwC
  or edi,ebp
  lea dwE,[dwE + constAC + edi]
  rol dwB,30
  mov edi,dwA
  rol edi,05
  add dwE,[locX]
  add dwE,edi
endm
SHA1F3 macro dwA, dwB, dwC, dwD, dwE, locX, constAC
  mov edi,dwC
  xor edi,dwD
  xor edi,dwB
  lea dwE,[dwE + constAC + edi]
  rol dwB,30
  mov edi,dwA
  rol edi,05
  add dwE,[locX]
  add dwE,edi
endm
align dword
SHA1Transform proc
  pushad
  SHA1locals equ 80*4
  sub esp,SHA1locals
  SHA1W equ dword ptr [esp]
  mov edi,offset SHA1HashBuf
  xor ebx,ebx
  .repeat
   mov eax,[edi+ebx*4]
   mov ecx,[edi+ebx*4+4]
   mov edx,[edi+ebx*4+32]
   mov esi,[edi+ebx*4+32+4]
   bswap eax
   bswap edx
   bswap ecx
   bswap esi
   mov SHA1W[ebx*4],eax
   mov SHA1W[ebx*4+4],ecx
   mov SHA1W[ebx*4+32],edx
   mov SHA1W[ebx*4+32+4],esi
   inc ebx
   inc ebx
   .until ebx==8
   shl ebx,1
   .repeat
    mov eax,SHA1W[(4*ebx)-03*4]
    mov edx,SHA1W[(4*ebx+4)-03*4]
    xor eax,SHA1W[(4*ebx)-08*4]
    xor edx,SHA1W[(4*ebx+4)-08*4]
    xor eax,SHA1W[(4*ebx)-14*4]
    xor edx,SHA1W[(4*ebx+4)-14*4]
    xor eax,SHA1W[(4*ebx)-16*4]
    xor edx,SHA1W[(4*ebx+4)-16*4]
    rol eax,1
    mov SHA1W[4*ebx],eax
    rol edx,1
    mov SHA1W[4*ebx+4],edx
    inc ebx
    inc ebx
.until ebx==80
mov edi,offset SHA1Digest
mov eax,[edi+0*4]
mov ebx,[edi+1*4]
mov ecx,[edi+2*4]
mov edx,[edi+3*4]
mov esi,[edi+4*4]
;========================================================
SHA1F0 eax, ebx, ecx, edx, esi, SHA1W[00*4], 05a827999h
SHA1F0 esi, eax, ebx, ecx, edx, SHA1W[01*4], 05a827999h
SHA1F0 edx, esi, eax, ebx, ecx, SHA1W[02*4], 05a827999h
SHA1F0 ecx, edx, esi, eax, ebx, SHA1W[03*4], 05a827999h
SHA1F0 ebx, ecx, edx, esi, eax, SHA1W[04*4], 05a827999h
SHA1F0 eax, ebx, ecx, edx, esi, SHA1W[05*4], 05a827999h
SHA1F0 esi, eax, ebx, ecx, edx, SHA1W[06*4], 05a827999h
SHA1F0 edx, esi, eax, ebx, ecx, SHA1W[07*4], 05a827999h
SHA1F0 ecx, edx, esi, eax, ebx, SHA1W[08*4], 05a827999h
SHA1F0 ebx, ecx, edx, esi, eax, SHA1W[09*4], 05a827999h
SHA1F0 eax, ebx, ecx, edx, esi, SHA1W[10*4], 05a827999h
SHA1F0 esi, eax, ebx, ecx, edx, SHA1W[11*4], 05a827999h
SHA1F0 edx, esi, eax, ebx, ecx, SHA1W[12*4], 05a827999h
SHA1F0 ecx, edx, esi, eax, ebx, SHA1W[13*4], 05a827999h
SHA1F0 ebx, ecx, edx, esi, eax, SHA1W[14*4], 05a827999h
SHA1F0 eax, ebx, ecx, edx, esi, SHA1W[15*4], 05a827999h
SHA1F0 esi, eax, ebx, ecx, edx, SHA1W[16*4], 05a827999h
SHA1F0 edx, esi, eax, ebx, ecx, SHA1W[17*4], 05a827999h
SHA1F0 ecx, edx, esi, eax, ebx, SHA1W[18*4], 05a827999h
SHA1F0 ebx, ecx, edx, esi, eax, SHA1W[19*4], 05a827999h
;========================================================
SHA1F1 eax, ebx, ecx, edx, esi, SHA1W[20*4], 06ed9eba1h
SHA1F1 esi, eax, ebx, ecx, edx, SHA1W[21*4], 06ed9eba1h
SHA1F1 edx, esi, eax, ebx, ecx, SHA1W[22*4], 06ed9eba1h
SHA1F1 ecx, edx, esi, eax, ebx, SHA1W[23*4], 06ed9eba1h
SHA1F1 ebx, ecx, edx, esi, eax, SHA1W[24*4], 06ed9eba1h
SHA1F1 eax, ebx, ecx, edx, esi, SHA1W[25*4], 06ed9eba1h
SHA1F1 esi, eax, ebx, ecx, edx, SHA1W[26*4], 06ed9eba1h
SHA1F1 edx, esi, eax, ebx, ecx, SHA1W[27*4], 06ed9eba1h
SHA1F1 ecx, edx, esi, eax, ebx, SHA1W[28*4], 06ed9eba1h
SHA1F1 ebx, ecx, edx, esi, eax, SHA1W[29*4], 06ed9eba1h
SHA1F1 eax, ebx, ecx, edx, esi, SHA1W[30*4], 06ed9eba1h
SHA1F1 esi, eax, ebx, ecx, edx, SHA1W[31*4], 06ed9eba1h
SHA1F1 edx, esi, eax, ebx, ecx, SHA1W[32*4], 06ed9eba1h
SHA1F1 ecx, edx, esi, eax, ebx, SHA1W[33*4], 06ed9eba1h
SHA1F1 ebx, ecx, edx, esi, eax, SHA1W[34*4], 06ed9eba1h
SHA1F1 eax, ebx, ecx, edx, esi, SHA1W[35*4], 06ed9eba1h
SHA1F1 esi, eax, ebx, ecx, edx, SHA1W[36*4], 06ed9eba1h
SHA1F1 edx, esi, eax, ebx, ecx, SHA1W[37*4], 06ed9eba1h
SHA1F1 ecx, edx, esi, eax, ebx, SHA1W[38*4], 06ed9eba1h
SHA1F1 ebx, ecx, edx, esi, eax, SHA1W[39*4], 06ed9eba1h
;========================================================
SHA1F2 eax, ebx, ecx, edx, esi, SHA1W[40*4], 08f1bbcdch
SHA1F2 esi, eax, ebx, ecx, edx, SHA1W[41*4], 08f1bbcdch
SHA1F2 edx, esi, eax, ebx, ecx, SHA1W[42*4], 08f1bbcdch
SHA1F2 ecx, edx, esi, eax, ebx, SHA1W[43*4], 08f1bbcdch
SHA1F2 ebx, ecx, edx, esi, eax, SHA1W[44*4], 08f1bbcdch
SHA1F2 eax, ebx, ecx, edx, esi, SHA1W[45*4], 08f1bbcdch
SHA1F2 esi, eax, ebx, ecx, edx, SHA1W[46*4], 08f1bbcdch
SHA1F2 edx, esi, eax, ebx, ecx, SHA1W[47*4], 08f1bbcdch
SHA1F2 ecx, edx, esi, eax, ebx, SHA1W[48*4], 08f1bbcdch
SHA1F2 ebx, ecx, edx, esi, eax, SHA1W[49*4], 08f1bbcdch
SHA1F2 eax, ebx, ecx, edx, esi, SHA1W[50*4], 08f1bbcdch
SHA1F2 esi, eax, ebx, ecx, edx, SHA1W[51*4], 08f1bbcdch
SHA1F2 edx, esi, eax, ebx, ecx, SHA1W[52*4], 08f1bbcdch
SHA1F2 ecx, edx, esi, eax, ebx, SHA1W[53*4], 08f1bbcdch
SHA1F2 ebx, ecx, edx, esi, eax, SHA1W[54*4], 08f1bbcdch
SHA1F2 eax, ebx, ecx, edx, esi, SHA1W[55*4], 08f1bbcdch
SHA1F2 esi, eax, ebx, ecx, edx, SHA1W[56*4], 08f1bbcdch
SHA1F2 edx, esi, eax, ebx, ecx, SHA1W[57*4], 08f1bbcdch
SHA1F2 ecx, edx, esi, eax, ebx, SHA1W[58*4], 08f1bbcdch
SHA1F2 ebx, ecx, edx, esi, eax, SHA1W[59*4], 08f1bbcdch
;========================================================
SHA1F3 eax, ebx, ecx, edx, esi, SHA1W[60*4], 0ca62c1d6h
SHA1F3 esi, eax, ebx, ecx, edx, SHA1W[61*4], 0ca62c1d6h
SHA1F3 edx, esi, eax, ebx, ecx, SHA1W[62*4], 0ca62c1d6h
SHA1F3 ecx, edx, esi, eax, ebx, SHA1W[63*4], 0ca62c1d6h
SHA1F3 ebx, ecx, edx, esi, eax, SHA1W[64*4], 0ca62c1d6h
SHA1F3 eax, ebx, ecx, edx, esi, SHA1W[65*4], 0ca62c1d6h
SHA1F3 esi, eax, ebx, ecx, edx, SHA1W[66*4], 0ca62c1d6h
SHA1F3 edx, esi, eax, ebx, ecx, SHA1W[67*4], 0ca62c1d6h
SHA1F3 ecx, edx, esi, eax, ebx, SHA1W[68*4], 0ca62c1d6h
SHA1F3 ebx, ecx, edx, esi, eax, SHA1W[69*4], 0ca62c1d6h
SHA1F3 eax, ebx, ecx, edx, esi, SHA1W[70*4], 0ca62c1d6h
SHA1F3 esi, eax, ebx, ecx, edx, SHA1W[71*4], 0ca62c1d6h
SHA1F3 edx, esi, eax, ebx, ecx, SHA1W[72*4], 0ca62c1d6h
SHA1F3 ecx, edx, esi, eax, ebx, SHA1W[73*4], 0ca62c1d6h
SHA1F3 ebx, ecx, edx, esi, eax, SHA1W[74*4], 0ca62c1d6h
SHA1F3 eax, ebx, ecx, edx, esi, SHA1W[75*4], 0ca62c1d6h
SHA1F3 esi, eax, ebx, ecx, edx, SHA1W[76*4], 0ca62c1d6h
SHA1F3 edx, esi, eax, ebx, ecx, SHA1W[77*4], 0ca62c1d6h
SHA1F3 ecx, edx, esi, eax, ebx, SHA1W[78*4], 0ca62c1d6h
SHA1F3 ebx, ecx, edx, esi, eax, SHA1W[79*4], 0ca62c1d6h
;========================================================
mov edi,offset SHA1Digest
add [edi+0*4],eax
add [edi+1*4],ebx
add [edi+2*4],ecx
add [edi+3*4],edx
add [edi+4*4],esi
add esp,SHA1locals
popad
ret
SHA1Transform endp
SHA1BURN macro
  xor eax,eax
  mov SHA1Index,eax
  mov edi,Offset SHA1HashBuf
  mov ecx,(sizeof SHA1HashBuf)/4
  rep stosd
endm
align dword
SHA1Init proc uses edi
  xor eax,eax
  mov SHA1Len,eax
  SHA1BURN
  mov eax,offset SHA1Digest
  mov dword ptr [eax+00],067452301h
  mov dword ptr [eax+04],0efcdab89h
  mov dword ptr [eax+08],098badcfeh
  mov dword ptr [eax+12],010325476h
  mov dword ptr [eax+16],0c3d2e1f0h
  ret
SHA1Init endp
align dword
SHA1Update proc uses esi edi ebx lpBuffer:dword,dwBufLen:dword
  mov ebx,dwBufLen
  add SHA1Len,ebx
  .while ebx
   mov eax,SHA1Index
   mov edx,64
   sub edx,eax
   .if edx<=ebx
    lea edi,[SHA1HashBuf+eax]
    mov esi,lpBuffer
    mov ecx,edx
    rep movsb
    sub ebx,edx
    add lpBuffer,edx
    call SHA1Transform
    SHA1BURN
   .else
    lea edi,[SHA1HashBuf+eax]
    mov esi,lpBuffer
    mov ecx,ebx
    rep movsb
    mov eax,SHA1Index
    add eax,ebx
    mov SHA1Index,eax
    .break
   .endif
  .endw
  ret
SHA1Update endp
align dword
SHA1Final proc uses esi edi
  mov ecx,SHA1Index
  mov byte ptr[SHA1HashBuf+ecx],80h
  .if ecx>=56
   call SHA1Transform
   SHA1BURN
  .endif
  mov eax,SHA1Len
  xor edx,edx
  shld edx,eax,3
  shl eax,3
  bswap edx; \
  bswap eax; /
  mov dword ptr [SHA1HashBuf+56],edx
  mov dword ptr [SHA1HashBuf+60],eax
  call SHA1Transform
  mov eax,offset SHA1Digest
  mov edx,[eax+0*4]
  mov ecx,[eax+1*4]
  mov esi,[eax+2*4]
  mov edi,[eax+3*4]
  bswap edx
  bswap ecx
  bswap edi
  bswap esi
  mov [eax+0*4],edx
  mov [eax+1*4],ecx
  mov [eax+2*4],esi
  mov [eax+3*4],edi
  mov edx,[eax+4*4]
  bswap edx
  mov [eax+4*4],edx
  ret
SHA1Final endp
align 4
HexEncoder proc uses edi esi ebx pBuff:dword,dwLen:dword,pOutBuff:dword
  mov ebx,dwLen
  mov edi,pOutBuff
  test ebx,ebx
  mov esi,pBuff
  jz @f
  .repeat
   movzx eax,byte ptr[esi]
   mov ecx,eax
   add edi,2
   shr ecx,4
   and eax,1111b
   and ecx,1111b
   cmp eax,10
   sbb edx,edx
   adc eax,0
   lea eax,[eax+edx*8+'7']
   cmp ecx,10
   sbb edx,edx
   adc ecx,0
   shl eax,8
   lea ecx,[ecx+edx*8+'7']
   or eax,ecx
   inc esi
   mov [edi-2],ax
   dec ebx
   .until zero?
   @@:
   mov eax,edi
   mov byte ptr[edi],0
   sub eax,pOutBuff
   ret
HexEncoder endp
end start
Title: Re: Wrong sha1, help!
Post by: starzboy on August 27, 2009, 11:40:45 AM
you could use the cryptohash library by drizz, works well.
Title: Re: Wrong sha1, help!
Post by: UtillMasm on August 27, 2009, 11:47:21 AM
this drizz's sha1 code. i don't know how to use it correctly.
Title: Re: Wrong sha1, help!
Post by: starzboy on August 27, 2009, 01:12:43 PM
Hi


include   cryptohash.inc
includelib    cryptohash.lib

;.... code
invoke lstrlen,addr buffer ; get size of bytes to be hashed
mov slen,eax ; store size
invoke SHA1Init ; initialize
invoke SHA1Update,offset buffer,slen ; update
invoke SHA1Final ; final

eax hold offset to output

hope this helps.
Title: Re: Wrong sha1, help!
Post by: UtillMasm on August 27, 2009, 01:33:31 PM
this is a 23g big file, lstrlen can do it?
Title: Re: Wrong drizz sha1, when file great than 4gb!
Post by: Tedd on August 27, 2009, 04:01:19 PM
As I said, read the file in chunks, update the hash on each chunk, until you've read the entire file, then do a final and get your hash value.
Title: Re: Wrong drizz sha1, when file great than 4gb!
Post by: drizz on August 27, 2009, 05:18:04 PM
change
Code Select
SHA1Len dd ?
to
Code Select
SHA1Len dd ?,?

change
Code Select
align dword
SHA1Init proc uses edi
xor eax, eax
mov SHA1Len,eax

to
Code Select
align dword
SHA1Init proc uses edi
xor eax, eax
mov SHA1Len,eax
mov SHA1Len+4,eax

change
Code Select
align dword
SHA1Update proc uses esi edi ebx lpBuffer:dword, dwBufLen:dword
mov ebx,dwBufLen
add SHA1Len,ebx

to
Code Select
align dword
SHA1Update proc uses esi edi ebx lpBuffer:dword, dwBufLen:dword
mov ebx,dwBufLen
add SHA1Len,ebx
adc SHA1Len+4,0

change
Code Select
mov eax,SHA1Len
xor edx,edx
to
Code Select
mov eax,SHA1Len
mov edx,SHA1Len+4

easy as that
Title: Re: Wrong drizz sha1, when file great than 4gb!
Post by: UtillMasm on August 28, 2009, 02:47:33 AM
 :U
Text only | Text with Images