mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-24 12:25:29 +00:00
236 lines
4.7 KiB
NASM
236 lines
4.7 KiB
NASM
;DECOM - has few safety features right now, be careful =)
|
||
|
||
.model tiny
|
||
.radix 16
|
||
.code
|
||
org 100
|
||
include wolf.lib
|
||
|
||
start:
|
||
printf intro, ds
|
||
Release_Memory:
|
||
mov bx,(end_unmte-start+10f)/10 ;Release all but what
|
||
changealloc bx,es ;our prog needs.
|
||
|
||
Allocate_Block_For_MTE_Prog: ;Allocate memory for
|
||
mov bx,1000 ;MTE-inf prog.
|
||
alloc bx
|
||
jnc Memory_Good
|
||
jmp exit
|
||
Memory_Good:
|
||
push ax
|
||
|
||
Get_Filenames:
|
||
printf Enter_FN, ds
|
||
gets filename_buf, ds, 30
|
||
printf Enter_DN, ds
|
||
gets unenc_buf, ds, 30
|
||
|
||
Open_Prog:
|
||
fopen 0, filename, cs
|
||
jnc Load_Prog
|
||
printf Bad_File, ds
|
||
jmp Get_Filenames
|
||
|
||
Load_Prog:
|
||
pop ax
|
||
sub ax,10
|
||
mov ds,ax ;Convert Seg:0 to Seg:100
|
||
fread bx, 0ffff, 100, ax
|
||
mov cs:[MTE_Size],ax
|
||
mov cs:[MTE_Segment],ds
|
||
|
||
Close_Prog:
|
||
fclose bx
|
||
|
||
Setup_Trace:
|
||
push ds ds
|
||
|
||
mov byte ptr cs:[Success],1
|
||
|
||
push cs
|
||
pop ds
|
||
get_int 1
|
||
mov word ptr [IP_01],bx
|
||
mov word ptr [CS_01],es
|
||
set_int 1, Int_01_Handler, ds
|
||
|
||
pop ds es ;restore segment regs to MTE prog
|
||
|
||
cli
|
||
mov ax,ds
|
||
mov ss,ax ;setup new stack
|
||
mov sp,0fffe
|
||
sti
|
||
|
||
xor ax,ax
|
||
mov bx,ax
|
||
mov cx,ax
|
||
mov dx,ax ;Zero all registers
|
||
mov si,ax
|
||
mov di,ax
|
||
mov bp,ax
|
||
|
||
|
||
pushf ;Setup stack for IRET to code
|
||
pop ax
|
||
or ax,100
|
||
push ax ;Set flag on IRET
|
||
|
||
push ds
|
||
mov ax,100
|
||
push ax
|
||
|
||
xor ax,ax
|
||
|
||
iret ;Jump to MTE prog with trap set.
|
||
|
||
Done_Trace:
|
||
push cs cs
|
||
pop es ds ;restore seg regs
|
||
|
||
cli
|
||
mov ax,ds
|
||
mov ss,ax ;reset stack
|
||
mov sp,0fffe
|
||
sti
|
||
|
||
Restore_Int_01:
|
||
mov dx, word ptr cs:[CS_01]
|
||
mov ds,dx
|
||
mov dx, word ptr cs:[IP_01]
|
||
set_int 1, dx, ds
|
||
push cs
|
||
pop ds
|
||
|
||
cmp byte ptr cs:[Success],0
|
||
jne Save_It
|
||
|
||
|
||
printf halted, ds
|
||
jmp Exit
|
||
|
||
Save_It:
|
||
mov ah,3c
|
||
xor cx,cx
|
||
mov dx,offset Unencrypted
|
||
int 21
|
||
|
||
xchg bx,ax
|
||
|
||
mov ah,40
|
||
mov dx,word ptr cs:[MTE_Segment]
|
||
mov ds,dx
|
||
mov dx,100
|
||
mov cx,word ptr cs:[MTE_Size]
|
||
int 21
|
||
|
||
mov ah,3e
|
||
int 21
|
||
Exit:
|
||
terminate
|
||
|
||
Int_01_Handler:
|
||
push bp
|
||
mov bp,sp
|
||
push ax bx cx dx es ds si di
|
||
mov bx, word ptr ss:[bp+4] ;CS
|
||
mov ds,bx
|
||
mov bx,word ptr ss:[bp+2] ;IP
|
||
mov ax,word ptr ss:[bp+6] ;flags
|
||
and ax,40
|
||
|
||
cmp byte ptr ds:[bx],0cdh ;Interrupt call
|
||
je Stop_Execution
|
||
cmp byte ptr ds:[bx],9a ;Far Call
|
||
je Stop_Execution
|
||
cmp byte ptr ds:[bx],9c ;Pushf
|
||
je Stop_Execution
|
||
|
||
ES_DS_CHeck:
|
||
push bx
|
||
mov bx,ds
|
||
cmp word ptr ds:[bp-0c],bx ;CS != DS
|
||
jne Done_Check
|
||
cmp word ptr ds:[bp-0a],bx ;CS != ES
|
||
Done_Check:
|
||
pop bx
|
||
jne Stop_Execution
|
||
|
||
|
||
Check_For_Encryption_Loop:
|
||
cmp byte ptr ds:[bx],75 ;Check if JNZ (end of MTE decrypt)
|
||
je Is_JNZ
|
||
cmp byte ptr ds:[bx],74 ;Check for other loop jumps..
|
||
je Is_JZ
|
||
cmp byte ptr ds:[bx],0e0
|
||
je Is_LOOPNZ
|
||
cmp byte ptr ds:[bx],0e1
|
||
je Is_LOOPZ
|
||
cmp byte ptr ds:[bx],0e2
|
||
je Is_LOOP
|
||
Continue_Decrypt:
|
||
Done_Int_01_Handler:
|
||
pop di si ds es dx cx bx ax
|
||
pop bp
|
||
iret
|
||
|
||
Stop_Execution:
|
||
mov byte ptr cs:[Success],0
|
||
jmp Done_Trace
|
||
|
||
|
||
Is_LOOPNZ:
|
||
Is_JNZ:
|
||
or ax,ax
|
||
jz Jump_True
|
||
jmp Jump_False
|
||
|
||
Is_LOOPZ:
|
||
Is_JZ:
|
||
or ax,ax
|
||
jz Jump_False
|
||
jmp Jump_True
|
||
|
||
Is_LOOP:
|
||
dec cx
|
||
jz Jump_False
|
||
jmp Jump_True
|
||
|
||
Jump_False:
|
||
cmp byte ptr ds:[bx+1], 80
|
||
jae Done_Decrypt
|
||
jmp Continue_Decrypt
|
||
|
||
Jump_True:
|
||
cmp byte ptr ds:[bx+1],80
|
||
;jae Continue_Decrypt
|
||
jmp Continue_Decrypt ;MTE only... change later
|
||
Done_Decrypt:
|
||
jmp Done_Trace
|
||
|
||
|
||
IP_01 dw 0
|
||
CS_01 dw 0
|
||
|
||
MTE_Segment dw 0
|
||
MTE_Size dw 0
|
||
|
||
Success db 0
|
||
|
||
halted db 0a,0dh,'Sorry, cannot decrypt file safely.',0
|
||
intro db 'DECOM 0.9<EFBFBD>, COM (MTE) File Decryptor (c) 1993 Black Wolf.',0a,0dh
|
||
db 'Beta-Test Version, Use At Your Own Risk.',0
|
||
Enter_FN db 0a,0dh,'Please Enter Source Filename: ',0
|
||
Enter_DN db 0a,0dh,'Now Enter The Destination Filename: ',0
|
||
Bad_File db 0a,0dh,'Sorry, file not found.',0
|
||
|
||
filename_buf db ?,?
|
||
filename db 30 dup(?)
|
||
|
||
unenc_buf db ?,?
|
||
unencrypted db 30 dup(?)
|
||
|
||
end_unmte:
|
||
end start
|