cdquick.asm

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

; CD-QUICK v3.0 (Windows 95) Key Generator
; tasm cdquick.asm
; tlink /3 /t cdquick

; This program is vapourware, it won't improve your CD's
; performance at all.

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

.386

start:	jmp begin

CopyBuf	db 32 dup ('$')
GetName	db 0ah,0dh, '[?] Please insert your name : ','$'
Logo	db 0ah,0dh, '-----------------------------'
	db 0ah,0dh, ' CD-QUICK v3.0 Key Generator '
	db 0ah,0dh, ' By CrackZ (Windows 95)      '
	db 0ah,0dh, ' THIS PROGRAM IS VAPOURWARE! '
	db 0ah,0dh, '-----------------------------', 0ah,0dh,'$'
NameBuf	db 32 dup ('$')
OutBuf	db 5 dup ('$')
OutReg	db 0ah,0dh, '[i] Your registration number is : ','$'

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
	push ebx
	mov edx, offset NameBuf+2
	call UpperCase
	pop ebx ; Restore length.
	mov ecx, ebx
	mov esi, offset NameBuf+2
	mov edi, offset CopyBuf
	call CopyBack
	xor eax, eax
	mov ebx, ecx
	mov ecx, offset CopyBuf
	xor esi, esi
	call _C0002DDD
	push eax
	mov ah, 9
	mov edx, offset OutReg
	int 21h
	pop eax
	call Out4Hex
	mov ah, 9
	mov edx, offset OutBuf
	int 21h
	jmp endprg

_C0002DDD:
	movsx edx, byte ptr [ecx]
	add esi, edx
	inc ecx
	cmp esi, 0ffh
	jb _C0002DF1
	sub esi, 0ffh

_C0002DF1:
	add eax, esi
	dec ebx
	jnz _C0002DDD
	mov ecx, 0ffh
	xor edx, edx
	div ecx
	shl dx, 8
	or dx, si
	xor dx, 0b375h
	mov ax, dx
	ret

CopyBack:
	mov al, [ebx.esi-1]
	mov [edi], al
	inc edi
	dec ebx
	jnz CopyBack
	ret

Out4Hex:
	mov edx, offset OutBuf
	mov bx, ax
	and eax, 0fh
	call Out4Write
	mov [edx.3], al
	mov ax, bx
	ror eax, 4
	and eax, 0fh
	call Out4Write
	mov [edx.2], al
	mov ax, bx
	ror eax, 8
	and eax, 0fh
	call Out4Write
	mov [edx.1], al
	mov ax, bx
	ror eax, 0ch
	and eax, 0fh
	call Out4Write
	mov [edx], al
	ret

Out4Write:
	cmp al, 9h
	ja Add37h
	add al, 30h
	ret

Add37h:	add al, 37h
	ret

UpperCase:
	mov al, [edx]
	cmp al, 39h
	jb NoUCase
	cmp al, 5ah
	ja UCase
	jmp NoUCase

UCase:	sub al, 20h

NoUCase:
	mov [edx], al
	inc edx
	dec ebx
	jnz UpperCase
	ret

endprg:	mov ax, 4c00h
	int 21h

codesg ends
end start