proc	validate, user, serial
locals
	s dd ?
endl
	mov	esi, [user]
	mov	esi, dword[esi]
	mov	edi, [serial]
	lea	eax, [s]
	cinvoke sscanf, edi, szFmtHex, eax
	mov	edi, [s]
	mov	ebx, 8
.encode:
	stdcall	Rand, 5
	mov	ecx, eax
	add	ecx, 3
	stdcall	Rand, 64
	add	eax, 8
	xor	edx, edx
	div	ecx
	mov	ecx, edx
	ror	esi, cl
 
	stdcall	Rand, 5
	mov	ecx, eax
	add	ecx, 3
	stdcall	Rand, 64
	add	eax, 8
	xor	edx, edx
	div	ecx
	mov	ecx, edx
	ror	edi, cl
 
	xor	edi, esi
	dec	ebx
	jnz	.encode
	mov	eax, edi
	ret
endp
 
proc	generate, user, key
locals
	s dd ?
endl
	mov	ebx, 8
	mov	esi, [user]
	mov	esi, dword[esi]
.initrand:
	stdcall	Rand, 5
	add	eax, 3
	push	eax
	mov	ecx, eax
	stdcall	Rand, 64
	add	eax, 8
	push	eax
	xor	edx, edx
	div	ecx
	mov	ecx, edx
	ror	esi, cl
	stdcall	Rand, 5
	add	eax, 3
	push	eax
	stdcall	Rand, 64
	add	eax, 8
	push	eax
 
	dec	ebx
	jnz	.initrand
 
	mov	edi, [key]
	lea	eax, [s]
	cinvoke sscanf, edi, szFmtHex, eax
	mov	edi, [s]
	mov	ebx, 8
.decode:
	xor	edi, esi
	pop	eax
	pop	ecx
	xor	edx, edx
	div	ecx
	mov	ecx, edx
	rol	edi, cl
 
	pop	eax
	pop	ecx
	xor	edx, edx
	div	ecx
	mov	ecx, edx
	rol	esi, cl
	;xor	edi, esi
	dec	ebx
	jnz	.decode
	;xor	edi, esi
	mov	eax, edi
	ret
endp
 
proc Rand, range  
	mov	eax,[range] 
	imul	edx, [randseed], 0x08088405
	inc	edx 
	mov	[randseed], edx 
	mul	edx
	mov	eax, edx 
	ret 
endp