.686
.model  flat, stdcall
option  casemap :none   ; case sensitive

include windows.inc

; -----------------------------------------------------------------------
uselib  MACRO   libname
    include     libname.inc
    includelib  libname.lib
ENDM

uselib  user32
uselib  kernel32
uselib      masm32
include \masm32\macros\macros.asm

DlgProc     PROTO :DWORD,:DWORD,:DWORD,:DWORD
; -----------------------------------------------------------------------
D                         EQU DWORD PTR
W                         EQU WORD PTR
B                         EQU BYTE PTR
o                         EQU OFFSET
d                         EQU DWORD PTR
w                         EQU WORD PTR
b                         EQU BYTE PTR

.data
        align 8
TinyRNG_x   dd  0
TinyRNG_a   dd  100711433
charset db "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",0
caption db "key is",0


.data?

buffer      db 256 dup(?)

.code
start:
gen proc
local serial[13]:byte
local pos[4*4]:byte
new_key:
lea edi,pos
mov ecx,4
@@:
    rdtsc
    adc eax, edx
    adc eax, TinyRNG_x
    mul TinyRNG_a
    adc eax, edx
    mov TinyRNG_x, eax
          xor     edx,edx
        mov     ebx,12
        inc ebx

        sub     ebx,0
        div     ebx
        add     edx,0
mov eax,edx
stosd
loop @b

lea edi,pos

mov eax,d[edi]
cmp d[edi+4],eax
je new_key
cmp d[edi+4+4],eax
je new_key
cmp d[edi+4+4+4],eax
je new_key
cmp d[edi+4+4],eax
je new_key
cmp d[edi+4+4+4],eax
je new_key
mov eax,d[edi+4+4]
cmp d[edi+4+4+4],eax
je new_key

mov ecx,12
lea edi,serial

@@:
    rdtsc
    adc eax, edx
    adc eax, TinyRNG_x
    mul TinyRNG_a
    adc eax, edx
    mov TinyRNG_x, eax
          xor     edx,edx
        mov     ebx,sizeof charset-1
        inc ebx

        sub     ebx,0
        div     ebx
        add     edx,0
mov eax,edx
movzx eax,b[charset+eax]
or eax,eax
je new_key
stosb
loop @b

lea esi,pos
lea edi,serial
lodsd
mov b[edi+eax],"W"
lodsd
mov b[edi+eax],"D"
lodsd
mov b[edi+eax],"8"
lodsd
mov b[edi+eax],"6"
lea eax, serial
mov b[eax+12],0
invoke MessageBox,0,addr serial,addr caption,MB_OK


invoke ExitProcess,0
    Ret
gen endp

end start