vellum99.asm

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

; Vellum Solids 99.
; CrackZ - 29/02/2000.

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

.386

start:	jmp begin

ByteTable	db 19h,14h,0Fh,12h,0Dh,09h,04h,00h,22h,22h,22h,22h,22h,22h,22h,22h
		db 22h,22h,22h,22h,22h,17h,18h,1Ah,13h,15h,16h,0Bh,11h,22h,0Ch,0Eh
		db 08h,0Ah,10h,05h,02h,07h,01h,06h,03h
InputBuffer	db 22 dup('$')
LoopC		dd 0h
OpeningLogo	db 0dh,0ah,'----------------------------'
		db 0dh,0ah,' Vellum Solids 99 by CrackZ '
		db 0dh,0ah,'----------------------------'
		db 0dh,0ah,'$'
OpeningMsg	db 0dh,0ah,'[?] Please insert the Authorization Code to generate : ','$'
OutputBuffer	db 22 dup('$')
OutputMsg	db 0dh,0ah,'[i] The result is : ','$'
TestDW		dd 0h

begin:	mov edx, offset OpeningLogo
	mov ah, 9
	int 21h
	mov edx, offset OpeningMsg
	mov ah, 9
	int 21h
	mov edx, offset InputBuffer
	mov ah, 0ah
	int 21h
	xor eax, eax
	movzx ebx, byte ptr [InputBuffer+1]
	xor ecx, ecx
	xor edx, edx
	mov esi, offset ByteTable
	mov ebp, offset OutputBuffer

_5CC02C:
	mov edi, offset InputBuffer+2
	add edi, dword ptr [LoopC]
	mov eax, dword ptr [TestDW]
	movsx eax, al
	add eax, -32h
	cmp eax, 28h
	ja .1
	cmp eax, 7h
	jz .9
	xor ecx, ecx
	mov al, byte ptr [ByteTable+eax]
	mov ecx, dword ptr [LoopC]
	mov dl, 30h
	sub dl, cl
	add al, dl
	jmp IsByteCorrect

.1:	mov al, 22h
	mov ecx, dword ptr [LoopC]
	mov dl, 30h
	sub dl, cl
	add al, dl
	jmp IsByteCorrect
	
.9:	xor al, al
	mov ecx, dword ptr [LoopC]
	mov dl, 30h
	sub dl, cl
	add al, dl
	jmp IsByteCorrect

IsByteCorrect:
	cmp byte ptr [edi], 2Dh ; Is it a hyphen?.
	jz IsHyphen
	cmp al, byte ptr [edi]
	jz KeepByte
	cmp dword ptr [TestDW], 05Ah ; 'Z'
	jz endprg ; No correct byte exists.
	inc dword ptr [TestDW] ; Increment test value.
	jmp _5CC02C

IsHyphen:
	mov dword ptr [TestDW], 2Dh

KeepByte:
	mov eax, dword ptr [TestDW]
	mov [ebp], al ; Store the byte.
	mov dword ptr [TestDW], 0h ; Reset test value.
	inc ebp
	inc dword ptr [LoopC]
	cmp ebx, dword ptr [LoopC]
	jnz _5CC02C

Output:	mov edx, offset OutputMsg
	mov ah, 9
	int 21h
	sub ebp, dword ptr [LoopC]
	xchg edx, ebp
	mov ah, 9
	int 21h

endprg:	mov ax,4C00h
	int 21h

codesg ends
end start