helpers.inc

The dinamyc link library that contains an implementation of SHA1, SHA512, CRC32, CRC32b, Adler32, Tw

; ----------------------------------------------------- ;
;    Some helpers funcs                                 ;
; ----------------------------------------------------- ;

align 4
proc BinToHex uses ebx esi edi,BinData:PBYTE,BinSize:DWORD,Buffer:PCHAR
     mov esi,[BinData]
     mov edi,[Buffer]
     mov ecx,[BinSize]
     mov ebx,hex_alphabet
@@:  lodsb
     mov ah,al
     shr al,4
     xlatb
     mov byte [edi],al
     shr ax,8
     and al,$0F
     xlatb
     mov byte [edi+1],al
     inc edi
     inc edi
     loop @r
     mov [edi],cl
     ret
endp

align 4
proc LCG_Next,Value:DWORD
     mov ecx,[Value]
     mov eax,[ecx]
     mov edx,1664525
     mul edx
     add eax,1013904223
     mov [ecx],eax
     ret
endp

align 4
proc memcpy uses esi edi,dest,src,len
     mov edi,[dest]
     mov esi,[src]
     mov ecx,[len]
     mov edx,ecx
     shr ecx,2
     cld
     rep movsd
     mov ecx,edx
     and ecx,3
     rep movsb
     ret
endp

align 4
proc memset uses edi,buf,len,val
     mov edi,[buf]
     mov eax,[val]
     mov ecx,[len]
     movzx eax,al
     mov edx,$01010101
     mul edx
     mov edx,ecx
     shr ecx,2
     cld
     rep stosd
     mov ecx,edx
     and ecx,3
     rep stosb
     ret
endp