home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Elite Hackers Toolkit
/
TheEliteHackersToolkitVolume1_1998.rar
/
HACKERS.BIN
/
appcraks
/
LV608KEY.ZIP
/
LV608KEY.ASM
< prev
next >
Wrap
Assembly Source File
|
1998-05-09
|
6KB
|
176 lines
.386p
cseg segment use16
assume cs:cseg,ds:cseg,es:cseg
org 100h
begin proc
lea dx,hello
mov ah,9
int 21h
mov ax,6900h
mov bl,3
lea dx,DiskSerial
int 21h
lea si,DiskSerial+2
lodsw
xchg ax,bx
lodsw
add ax,13h
add bx,ax
mov dx,bx
xor bx,25fh
xor dx,260h
push dx
mov IDNum,bx
call tryIt
pop IDNum
mov ah,9
lea dx,_6_08
int 21h
cld
lea di,serial
mov al,'0'
mov cx,11
rep stosb
call tryIt
mov ah,4ch
int 21h
tryIt:
mov cx,11
lea di,serial
__inc:
call Increment
lea si,serial
mov bx,IDNum
mov cx,6
LoopIt:
lodsb
cbw
sub al,2fh
mov di,ax
mov bp,1234h
mul bp
xor ax,bx
add ax,di
xchg ax,bx
lodsb
loop LoopIt
lea di,serial+1
mov ax,bx
xor dx,dx
mov cx,2710h
div cx
add al,48
stosb
inc di
mov ax,bx
mov cx,3e8h
xor dx,dx
div cx
xor dx,dx
mov cx,10
div cx
xchg dx,ax
add al,48
stosb
inc di
mov ax,bx
mov cx,64h
xor dx,dx
div cx
xor dx,dx
mov cx,10
div cx
xchg dx,ax
add al,48
stosb
inc di
mov ax,bx
mov cx,10
xor dx,dx
div cx
xor dx,dx
div cx
xchg dx,ax
xor dx,dx
add al,48
stosb
inc di
mov ax,bx
div cx
xchg dx,ax
add al,48
stosb
lea si,Serial+2
mov di,IDNum
mov cx,6
mov bx,1234h
_3ff:
lodsb
cbw
sub al,2fh
push ax
mul bx
xor di,ax
pop ax
add di,ax
inc si
loop _3ff
push di
lea si,Serial+3
mov cl,5
mov bx,10
xor ax,ax
_419:
mul bx
xchg di,ax
lodsw
cbw
sub al,30h
add ax,di
loop _419
pop cx
cmp ax,cx
jne __inc
mov byte ptr (serial+11),'$'
mov ah,9
lea dx,msg
int 21h
mov byte ptr (serial+11),'0'
jmp __inc
enough:
pop ax
retn
Increment:
lea si,IDNum-3
std
_inc:
lodsb
dec si
inc ax
cmp al,3ah
jnz skp
cmp si,offset serial-2
jz enough
mov byte ptr [si+2],'0'
jmp _inc
skp:
mov byte ptr [si+2],al
cld
retn
hello db 'The LGAVIEW key generator for v6.07&6.08',13,10
db 'Copyright (c) by MERLiN // Delirium Tremens ''98',13,10
db 'Processing codes for v6.07b ...$'
_6_08 db 13,10,'Now calculating the v6.08a codes ...$'
msg db 13,10,'Found code:',32
serial db '0000000000000'
IDNum dw ?
DiskSerial:
begin endp
cseg ends
end begin