procedure TForm1.Button1Click(Sender: TObject); 
var    
r: TRect;    
pr: PRect;  
begin   
r.Left := 0;    
r.Top := 0;    
r.Right := 0;    
r.Bottom := 0;    
pr := @r;    
ClipCursor(pr);  
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;

{ **** UBPFD *********** by kladovka.net.ru ****

>> Шифрование исполняемого файла

 

В данном примере реализована процедура шифрования и расшифрования одной 

только процедуры "вывода сообщения".Процедура изночально не зашифровано,

что ни есть хорошо.Для того что бы процедура была при запуске программы 

уже зашифрована надо написать внешнюю программку,которая ба сканировала 

ехе-шник и находила определенные метки(начальную и конечную)и шифровала 

бы всё между ними.Таким образом вы получите готовый ехе-шник с уже 

зашифрованой(зашифроваными)процедурой. Для того чтоб некоторым умным 

людям (crackers)жить было не легко,после расшифровки и выполнения процедуры 

можно её опять зашифровать.

 

Более потробную информацию читайте в статье на «Королевства Delphi»

http://delphi.vitpc.com/mastering/safe/safe.htm

 

Там же читайте Открытый проект "Анти крэковые мучения"

http://delphi.vitpc.com/mastering/safe/index.htm

 

Зависимости: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 

Forms,Dialogs, StdCtrls;

Автор:       DDA, Vologda

Copyright:   «Королевства Delphi» Защита от несанкционированного 

использования программ, написанных на Delphi

Дата:        3 марта 2004 г.

********************************************** }

 

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

private

   { Private declarations }

public

   { Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

Procedure metka1;

//Начальная метка - нужна что бы находить потом в exe файле эти символы и знать

//откуда начинать шифровать

//Здесь метка представляет из себя десятичные числа от 0 до 256 через запятые

//Если метка 50,60,70,80,90 то это соответствует символам 2<FPZ

//Кстати, такого кол-во символов в метке может быть мало и лучше использовать больше

//Т.к если программа большая то такие последовательности могут встретиться не один раз

begin

asm

   DB 50,60,70,80,90 //2<FPZ это метка начальная

end;

 

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

beep;

ShowMessage('Период использования программы истёк!');

end;

 

Procedure metka2;

//Конечная метка - нужна чтобы знать до куда нужно шифровать в файле и

//докуда расшифровывать в памяти

begin

asm

   DB 68,68,67,45,61 //DDA-= это метка конечная

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

//Процедура Расшифрования(В даном примере и зашифрования)

var

ptrAddr: Pointer; {для Адреса процедуры вывода сообщения}

dwOldProtect: DWORD;

begin

ptrAddr := @TForm1.Button1Click;//Получаем адрес процедуры вывода сообщения

VirtualProtect(@TForm1.Button1Click, 2048, PAGE_READWRITE, @dwOldProtect);

//2048 это размер в байтах с которыми можно работать(по моему)

//Если процедура большая то нужно подбирать соответствующий размер

while ptrAddr <> @metka2 do //шифрование(слабое) выполняем пока не дойдем то конечной метки

begin

Byte(ptrAddr^) := Byte(ptrAddr^) xor $41;

//каждый байт в памяти ксорится с кодом 65'A'(к примеру)

//Используйте более надёжные алгоритмы шифрования

inc(Integer(ptrAddr));

end;

 

exit; //нужно так сделать что б компилятор включил эти процедуры

metka1;//в код,т.к Delphi не вставляет в результирующий код процедуры,

metka2;//которые никогда не используются

end;

 

//Такое шифрование взято для примера и не рекомендуется для использования серьёзной защиты

//Также рекомендуется использовать и проверочную контрольную сумму для проверки

//целостности кода программы.

//Теперь осталось только сделать отдельную программу которая искала бы

//в этом exe файле начальную и конечную метки и шифровало бы всё между ними

//

//Но для демонстрации можно посмотреть результат и сейчас

//Запустите программу и нажмите на кнопку 1 -Должно вывестись сообщение и звук.сигнал

//А если нажать на кнопку 2 - то прцедура нажатия на кнопку 1 зашифруется

//И если после этого нажать на кнопку 1 -то должно произойти что-то не предсказуемое

//т.к процедура зашифрованна и что-то нормального вы не увидите.

 

//Источник информации: CopyRight «Королевства Delphi»

//"Защита от несанкционированного использования программ, написанных на Delphi"

 

 

end.