home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Elite Hackers Toolkit
/
TheEliteHackersToolkitVolume1_1998.rar
/
HACKERS.BIN
/
appcraks
/
UNXORER.ZIP
/
UNXORER.ASM
< prev
next >
Wrap
Assembly Source File
|
1998-01-23
|
7KB
|
184 lines
; UnXorer v0.1 (c) MERLiN // Delirium Tremens 1998
.386p
cseg segment use16
assume cs:cseg,ds:cseg,es:cseg
org 100h
begin proc
mov ah,9
lea dx,id
int 21h
mov si,81h
lodsb
cmp al,13
jz bad_usage
_keep_scan:
lodsb
cmp al,32
jz _keep_scan
dec si
push si si si si
pop di
mov al,13
repne scasb
dec di
mov ax,2400h
stosw
mov seg01,cs
mov bh,10h
mov ah,4ah
int 21h
pop dx
mov ax,3d02h
int 21h
jnc c1
lea dx,not_found
view_n_exit:
mov ah,9
int 21h
mov ah,4ch
int 21h
c1:
xchg bx,ax
lea dx,process
mov ah,9
int 21h
pop dx
int 21h
mov ax,4202h
xor cx,cx
push cx cx
xor dx,dx
int 21h
sub ax,505
mov sz,ax
pop cx dx
mov ax,4200h
int 21h
lea dx,area_4_reading
mov si,dx
push si
mov ah,3fh
mov cx,3
int 21h
lodsb
cmp al,0e9h
jne not_xorer
lodsw
add ax,3
xchg dx,ax
xor cx,cx
mov ax,4200h
int 21h
mov ah,3fh
pop dx
mov cx,6
int 21h
mov si,dx
lodsb
cmp al,0beh
jne not_xorer
lodsw
lodsw
cmp ax,0fe8bh
jne not_xorer
lodsb
cmp al,0b9h
jne not_xorer
mov ah,3eh
int 21h
push 0
pop ds
mov word ptr ds:[1*4],offset int1
mov word ptr ds:[1*4+2],cs
mov eax,ds:[84h]
mov word ptr ds:[84h],offset int21
mov word ptr ds:[86h],cs
push cs
pop ds
mov old21,eax
pop dx
mov ax,4b00h
lea bx,params
int 21h
mov eax,old21
push 0
pop ds
mov dword ptr ds:[84h],eax
push cs
pop ds
lea dx,done
jmp view_n_exit
not_xorer:
mov ah,3eh
int 21h
lea dx,_not_xorer
jmp view_n_exit
int21:
cmp ax,2501h
jne ret_2_dos
push bp
mov bp,sp
or word ptr [bp+6],256
pop bp
iret
ret_2_dos:
db 0eah
old21 dd ?
int1:
push bp
mov bp,sp
cmp word ptr [bp+2],256
je got_it
go_back:
pop bp
iret
got_it:
or ax,ax
jnz go_back
or bx,bx
jnz go_back
push cs
pop ds
lea dx,_out
xor cx,cx
mov ah,3ch
int 21h
xchg bx,ax
mov ah,40h
mov ds,[bp+4]
mov dx,256
mov cx,cs:sz
int 21h
mov ah,3eh
int 21h
mov ah,4ch
int 21h
bad_usage:
lea dx,usage
jmp view_n_exit
_out db 'UNXORED.COM'
db 0
id db 'UNXORER v0.1, Unpacks files crypted with XORER vl.0',13,10
db 'Copyright (c) 1998 by MERLiN // Delirium Tremens',13,10,'$'
usage db 13,10,'Usage: UNXORER crypted_file',13,10,'$'
not_found db 'File not found$'
_not_xorer db 13,10,'Specified file doesn''t seem to be crypted with XORER vl.0$'
process db 'Processing file: $'
done db '... Done$'
params:
dw 0
dw offset param01
seg01 dw ?
dd ?
dd ?
dd ?
dd ?
param01 dd ?
sz dw ?
area_4_reading:
begin endp
cseg ends
end begin