alchemy.asm

破解很多程序的序列号算法程序

; Alchemica Webworks v1.1d /32 Key Generator.
; tasm alchemy.asm
; tlink /3 /t alchemy

codesg segment
  assume cs:codesg
  assume ds:codesg
  org 100h

.386

start:	jmp begin

GetName	db '[?] Please insert your name (max. 30 chars) : ','$'
Logo	db 0ah,0dh, '-----------------------------'
	db 0ah,0dh, ' Alchemica Webworks v1.1d/32 '
	db 0ah,0dh, ' Key Generator by CrackZ     '
	db 0ah,0dh, '-----------------------------'
	db 0ah,0dh,'$'
NameBuf	db 32 dup ('$')
OutBuf	db 18 dup ('$')
OutMsg	db 0ah,0dh, '[i] Your Registration Number is : ','$'
Prefx1	db 'AWR-'
Prefx2	db '-05'

begin:	mov edx, offset Logo
	mov ah, 9
	int 21h
	mov edx, offset GetName
	mov ah, 9
	int 21h
	mov edx, offset NameBuf
	mov ah, 0ah
	int 21h
	xor eax, eax
	movzx ebx, byte ptr NameBuf+1
	xor ecx, ecx
	mov edx, offset Namebuf+2
	mov esi, 0380B9F1h

@doreg:	movsx ecx, byte ptr [edx]
	imul esi, ecx
	inc edx
	dec ebx
	jnz @doreg
	xchg eax, esi

@prefx:	mov ecx, 4
	mov esi, offset Prefx1
	mov edi, offset OutBuf
	repz movsb
	mov ecx, 0ah
	call @out1
	mov ecx, 3
	mov esi, offset Prefx2
	repz movsb
	mov edx, offset OutMsg
	mov ah, 9
	int 21h
	mov edx, offset OutBuf
	mov ah, 9
	int 21h
	jmp endprg
	
@out1:	xor edx, edx
	div ecx
	add edx,30h
	push edx
	inc ebx
	test eax, eax
	jnz @out1

@out2:	pop edx
	mov byte ptr [edi],dl
	inc edi
	dec ebx
	jnz @out2
	ret

endprg:	mov ax, 4C00h
	int 21h

codesg ends
end start