Intline9 - Easy keygenme1

Format      db  "%u",0
xorBuffer   db  100 dup(0)
rotBuffer   db  100 dup(0)

.data?
NameBuffer  db  100 dup(?)
FinalSerial db  100 dup(?)
NameLen     dd  ?

.code
DoKey   proc    hWnd:DWORD

mov esi, OFFSET NameBuffer
mov edi, OFFSET xorBuffer
mov ecx, NameLen

xor eax, eax
mov edx, 40h

xorCalc:
    mov al, [esi]
    xor eax, edx
    mov [edi], al
    inc esi
    inc edi
    dec ecx
jnz xorCalc

xor edx, edx
xor eax, eax
mov esi, OFFSET xorBuffer
mov edi, OFFSET rotBuffer
mov ecx, NameLen
mov dl, [NameBuffer]

rotCalc:
    mov al, [esi]
    imul eax, edx
    add eax, edx
    rol eax, 4
    xor eax, 14h
    ror eax, 4
    mov [edi], al
    inc esi
    inc edi
    dec ecx
jnz rotCalc

xor eax, DWORD PTR DS:[rotBuffer]
mov edx, eax


; Serial to screen
push edx
push offset Format
push offset FinalSerial
call wsprintf

Ret
DoKey EndP