Предлагаю вашему внимания исходник файлового вируса на delphi.

Особености:

1)ЗАРАЖЕНИЕ - заражение без каких либо временных файлов и ненужных копирований жертвы, сначала из начала копируется в конец кусок жертвы размером как вирь и шифруется.

2)ЗАПУСК ЖЕРТВЫ - запуск жертвы из которой запущен вирус осуществляется в конце поиска и заражения файлов и делается он не как часто бывает в HLLP вирусах путём копирования жертвы в темп с дальнейшим её запуском, а напрямую в память.

3)ЗАРАЖЕНИЕ ФЛЭШЕК - вирус осуществляет заражение флешкарт, путём копирования себя на флэшь и создания там соответствующего autorun.inf

4)КОМПИЛЯЦИЯ - для компиляции вируса необходимо
иметь установленый Delphi. Качаем архив, разархивируем его, запускам vir.bat, после этого в папке с исходником появляется готовый к бою вирус vir.exe весом 3333 байт.

Скачать этот сорец можно ТУТ