www.pudn.com > Kgensrcs.zip > SerGenrl.asm

; Serial Number generator by Lord Soth. Version 1.0 
; Generic Skeleton!! You must provide specific calculation routine 
; and define specific data structures, then delete the unwanted! 
; This is a DOS mode generator, using 32 bit registers 
;----------------------------------------------------------------- 
model compact 
.data 
 
 
querystr db 'Enter your soon to be registered name: $' 
headline db ' serial number generator!$' 
sernumstr db 'Your serial number is: $' 
creditstr db 'Cracked and brought to you by !!$' 
zerostr db 'ERROR: Zero length string.$' 
username db 256 DUP (0)	; max length of string that can be brought by a dialog box (normally) 
 
.code 
.startup 
.386C 
 
MOV AH,0 
MOV AL,3 
INT 10h					; set normal text video mode. 
MOV AX,0625h			; set 25 lines to scroll up 
MOV BH,1Fh				; set color attribute for blank chars 
MOV CX,0000				; set upper-left corner of window 
MOV DX,184Fh			; set lower-right corner of window 
INT 10h					; fill screen with blue death :) 
 
push ds 
pop es 
mov ah,13h 
mov al,1 
mov bh,0 
mov bl,0eh 
mov cx, 
mov dx,0 
mov ebp,offset es:headline		; this will print the headline string.. 
int 10h 
 
MOV Ah,3 
MOV BH,0 
INT 10h							; get cursor position 
 
ADD DH,2						; go down 2 lines 
MOV AH,2 
MOV DL,0 
PUSH DX 
MOV BH,0 
INT 10h							; set cursor on new position 
 
POP DX 
MOV AH,13h 
MOV AL,1 
MOV BX,1Fh 
MOV CX,27h						; 39 chars to print 
MOV EBP,offset ES:querystr		; load offset of string 
INT 10h							; print the damn string :) 
 
; get the user name from the user, of course.. who did u think? :) 
 
MOV CX,0FFh						; counter from 255 to 0 (bytes read) 
mov bx,0						; pointer for memory 
LEA DI,username 
 
KBread:	MOV AH,0 
	INT 16h						; get char from keyboard 
	MOV BX,CX 
	OR BX,0FF00h 
	NOT BX						; BX will be used to point to the memory where char is stored 
	CMP AH,1Ch					; check for Enter pressed 
	JZ  CreateUserName 			; Bug outa here 
	CMP AH,0Eh					; check for backspace 
	JNZ store 
	CALL delchar 
	JMP Kbread 
 
store:	MOV [DI+BX],AL 			; store ASCII byte in username buffer 
		MOV AH,0Ah 
		MOV BX,0 
		PUSH CX					; store counter on stack 
		MOV CX,1 
		INT 10h					; print the char on screen 
		MOV AH,3 
		INT 10h					; get cursor position 
		INC DL		 			; increase X pos by 1 
		MOV AH,2 
		MOV BH,0 
		INT 10h					; set on new pos 
		POP CX	 
		LOOP KBread				; get another char (CX decreases) 
 
; Create the REAL username the program has to calculate the serial from 
 
CreateUserName :  
 
NOT CL							; reversing CX makes it the string length 
CMP CL,0						; if no chars, get outa here :) 
JNZ contuser					;  
JMP out_of_prog					; this is a fixed JMP, if your calculation routine is long 
								; this might be needed 
 
contuser: 
 
ADD DI,CX 						; add CX counter to DI offset 
; this meant so that DI points to right AFTER the entered username 
; Here you must put the code that transforms the entered username 
; to the REAL user name the prog calculates the serial by.. 
 
LEA SI,username 
ADD SI,CX				; have SI point to start of REAL username 
 
; calculate the damn serial number already! 
; here you put the routine that takes the REAL username 
; and calculates the serial number. 
; This part is why you learned Reversing Code!! :) 
	 
 
		 
	MOV AH,3 
	MOV BX,0 
	INT 10h				; get cursor position 
	ADD DH,2 
	MOV DL,0 
	MOV AX,1301h 
	MOV BX,1Fh 
	MOV CX,17h			; 23 chars to print - "Your serial number...." 
	MOV EBP,offset sernumstr 
	INT 10h 
	MOV AH,3 
	MOV BX,0 
	INT 10h				; get cursor position 
	MOV CX,10h 
	MOV AX,1301h 
	MOV BX,1Fh 
	MOV EBP,offset serialnum 
	INT 10h				; print serial number 
	MOV AH,3 
	MOV BX,0 
	INT 10h				; get cursor position 
	ADD DH,3			; increase Y pos by 3 
	MOV DL,0			; X pos = 0, start of line 
	MOV AX,1301h 
	MOV BX,1Fh 
	MOV CX, 
	MOV EBP,offset creditstr 
	INT 10h				; print my name 
	POP BP 
	MOV AX,4C00h 
	INT 21h				; get da fuck outa here :) 
 
out_of_prog :  
	MOV AH,3 
	MOV BX,0 
	INT 10h				; get cursor position 
	MOV AX,1301h 
	MOV DL,0 
	ADD DH,3 
	MOV BX,1Fh 
	MOV CX,1Ah			; 26 chars to print, "ERROR: Zero length..." 
	MOV EBP,offset ES:zerostr 
	INT 10h 
	POP BP 
	MOV AX,4C00h 
	INT 21h				; get outa here, no chars in username 
 
delchar PROC near 
	PUSH CX 
	PUSH AX 
	CMP BX,0 
	JZ nochars 
	MOV BYTE PTR [DI+BX],0		; store null char on the buffer 
	DEC BX						; reduce memory pointer by 1 
	PUSH BX 
	MOV BH,0 
	MOV AH,3 
	INT 10h				; get cursor position 
	DEC DL 
	MOV AH,2 
	MOV BH,0 
	INT 10h				; set it on X-1 pos 
	MOV AX,0A20h		; store "space" on screen pos 
	MOV BX,0 
	MOV CX,1 
	INT 10H				; write space on screen 
	POP BX			 
	POP AX 
	POP CX 
	INC CX				; increase CX, coz it normally decreases 
						; and we want to go back 1 char 
	RET					; return to caller 
 
nochars:MOV BX,0		; zero out BX, no chars to del 
		POP AX 
		POP CX			; free stack 
		MOV CX,0FFh		; zero out counter, intial value is FFh 
		RET 
delchar	ENDP 
 
.exit 
END