.386
.model flat, stdcall
option casemap: none

include windows.inc
include user32.inc
include kernel32.inc

includelib user32.lib
includelib kernel32.lib

.data
;string dd 10 dup(0), 0
string db "FSMMIvH", 0

.code
keymaker:

;xor ecx, ecx
;.while ecx < 7
;  mov byte ptr ds:[string + ecx], 41h  ; Rellenamos de 'A'
;  inc ecx
;.endw


xor edi, edi
xor eax, eax
lea esi, dword ptr string

inicio:
lods byte ptr [esi]
test al, al
je comprueba
ror edi, 0Dh
add edi, eax
jmp inicio

comprueba:
cmp edi, 0F6C53333h
je cracked

siguiente:
call incrementa
lea esi, dword ptr string
cmp eax, -1
jne inicio

exit:
invoke ExitProcess, 0

cracked:
invoke MessageBox, NULL, addr string, NULL, MB_OK
jmp exit

incrementa proc
    ;AAAAAAA

    cmp byte ptr ds:[string+6], 7Ah ;vemos si el ultimo es 7A 'z'
    je c7
    inc byte ptr ds:[string+6] ;incrementamos el ultimo
    jmp fin

    c7:
    mov byte ptr ds:[string+6], 41h ;ahora el ultimo es A
    cmp byte ptr ds:[string+5], 7Ah ;vemos si es 7A
    je c6
    inc byte ptr ds:[string+5] ;incrementamos
    jmp fin

    c6:
    mov byte ptr ds:[string+5], 41h
    cmp byte ptr ds:[string+4], 7Ah ;vemos si es 7A
    je c5
    inc byte ptr ds:[string+4]
    jmp fin

    c5:
    mov byte ptr ds:[string+4], 41h
    cmp byte ptr ds:[string+3], 7Ah ;vemos si es 7A
    je c4
    inc byte ptr ds:[string+3] ;incrementamos
    jmp fin

    c4:
    mov byte ptr ds:[string+3], 41h
    cmp byte ptr ds:[string+2], 7Ah ;vemos si es 7A
    je c3
    inc byte ptr ds:[string+2] ;incrementamos
    jmp fin

    c3:
    mov byte ptr ds:[string+2], 41h
    cmp byte ptr ds:[string+1], 7Ah ;vemos si es 7A
    je c2
    inc byte ptr ds:[string+1] ;incrementamos
    jmp fin

    c2:
    mov byte ptr ds:[string+1], 41h
    cmp byte ptr ds:[string], 7Ah ;vemos si es 7A
    je c1
    inc byte ptr ds:[string] ;incrementamos
    jmp fin

    c1:
    mov eax, -1

    fin:
    ret

incrementa endp

end keymaker