ASM Community

GenHash FRAME pszString,pHash
  uses edi,esi,ebx
  LOCAL dwStatus  :D
  LOCAL bResult  :D
  LOCAL hProv  :D
  LOCAL hHash  :D
  LOCAL cbRead  :D
  LOCAL rgbHash[64]  :B
  LOCAL cbHash  :D
  LOCAL rgbDigits[16]  :B

  // Generate a 16 byte MD5 HASH from the string
  mov ,"0123"
  mov ,"4567"
  mov ,"89ab"
  mov ,"cdef"

  invoke lstrlen,
  test eax,eax
  jz >>.ERRORCONTEXT
  mov ,eax

  invoke CryptAcquireContext,offset hProv,NULL,NULL,PROV_RSA_FULL,CRYPT_VERIFYCONTEXT
  test eax,eax
  jz >>.ERRORCONTEXT

  invoke CryptCreateHash,, CALG_MD5, NULL, NULL, offset hHash
  test eax,eax
  jz >>.ERRORHASH

  invoke CryptHashData,, , , NULL
  test eax,eax
  jz >>.ERROROTHER

  mov D,64
  invoke CryptGetHashParam,, HP_HASHVAL, offset rgbHash, offset cbHash, NULL
  test eax,eax
  jz >>.ERROROTHER

  // convert the hash to an MD5 string using a lookup table
  xor eax,eax
  xor edx,edx
  mov ebx,
  mov edi,offset rgbHash
  mov ecx,
  mov esi,offset rgbDigits
  :
    mov al,
    shr al,4
    mov dl,
    mov ,dl
    inc ebx
    mov al,
    and al,0fh
    mov dl,
    mov ,dl
    inc edi
    inc ebx
    dec ecx
  jnz <
  mov B,0

  invoke CryptDestroyHash 
  invoke CryptReleaseContext, , NULL
  xor eax,eax
  ret

  .ERROROTHER
  invoke CryptDestroyHash 

  .ERRORHASH
  invoke CryptReleaseContext, , NULL

  .ERRORCONTEXT
  invoke VirtualFree,,NULL,MEM_RELEASE
  xor eax,eax
  dec eax
  RET
ENDF

IblisHash FRAME pszString, pHash
	uses ebx
	invoke lstrlen,
	mov ebx,eax
	invoke MD5.lib:MD5_Startup
	invoke MD5.lib:MD5_Init, offset md5ctxt
	invoke MD5.lib:MD5_Read, offset md5ctxt, , ebx
	invoke MD5.lib:MD5_Digest, offset md5ctxt, offset md5hash
	
	invoke MD5.lib:MD52StringA, offset md5hash, , 1
	ret
ENDF

invoke GenHash,offset key,offset hash
PrintString(hash)
invoke IblisHash,offset key,offset hash
PrintString(hash)

Executing:
"D:\RadASM\GoAsm\Projects\ODCombo\Testhash.exe"
    
Line 101: hash = 900150983cd24fb0d6963f7d28e17f72
Line 103: hash = 900150983CD24FB0D6963F7D28E17F72