melody.asm

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

; Melody v1.51 by CrackZ.

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

.386
start: jmp begin

;-----DATA-----

getname DB 0dh,0ah, 'Insert Name: ','$'
linefeed DB 0dh,0ah,'$'
logo DB 0dh,0ah, 'Melody v1.51 Key Generator',0dh,0ah,'$'
namebuff DB 26 dup('$')
outbuff DB 7 dup('$')
outcode DB 'Your Code is : ','$'

;-----DATA END-----

begin:	MOV EDX, offset logo
	MOV AH,09h
	INT 21h
	MOV EDX, offset getname
	MOV AH,09h
	INT 21h
	MOV EDX, offset namebuff
	MOV AH,0Ah
	INT 21h

	MOV EBX, offset namebuff+1 ;Length.
	XOR EAX,EAX
	MOV AL,[EBX]
	INC EBX
	MOV ECX,EAX
	XOR EDX,EDX
	XOR ESI,ESI ;Clear registers.

@1:     MOV DL,[EBX]
	ADD ESI,EDX
	INC EBX
	LOOP @1 ;While CX!=0, loop.
	
	MOV EAX,ESI ;Store sum.
	SHL ESI,7h
	ADD EAX,ESI
	MOV CX,0Ah
	XOR EBX,EBX
	MOV EDI,EBX

@2:	XOR EDX,EDX
	DIV ECX
	ADD EDX,30h
	PUSH EDX
	INC EBX
	TEST EAX,EAX
	JNZ @2
	MOV EDI, offset outbuff

@3:	POP EDX
	MOV [EDI],DL
	INC EDI
	DEC EBX
	JNZ @3

	MOV EDX, offset linefeed
	MOV AH,09h
	INT 21h
	MOV EDX, offset outcode
	MOV AH,09h
	INT 21h
	MOV EDX, offset outbuff
	MOV AH,09h
	INT 21h

;-----End-----

@4:	MOV AX,4C00h ;Exit
	INT 21h

codesg ends
end start