Молот и топор

Shturmovik (Shturmovik@bk.ru)

Хакер, номер #073, стр. 073-108-5

for i:= 1 to length(s) do

sn :=sn +'cr('+Inttostr(integer(s[i]))+')+';

Timer1.Enabled:=false;

delete(sn,length(sn),1);

if Proverka(sn)<> 64759 then

ShowMessage('You are not buy me') else

Timer3.Enabled:=true;

end;

procedure TForm1.Edit3Change(Sender: TObject);

label 1;

begin

Randomize;

1: Timer1.Interval:=random(1000000);

form1.Caption:=IntToStr(Timer1.Interval);

if Timer1.Interval<8000 then goto 1;

Timer1.Enabled:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer2.Interval:=5000;

Timer1.Interval:=4900;

Timer2.Enabled:=true;

//Не забудь поместить сюда псевдофункцию

Form3.Show;

//Форма с надписью «Ждите!»

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

MessageBox(0,'You win!','crackme', mb_OK);

end;

CD

На CD ты найдешь исходники моего крэкми, в котором заюзаны методы из статьи.

WWW

www.delphiworld.narod.ru - отличный сборник статей (а их более 5000) по Delphi.

www.delphimaster.ru - тоже Delphi, но с огромным замечательным форумом.

www.cracklab.ru - огромный ресурс, посвященный взлому и защите программ.

INFO

Также я предлагаю разрабатывать приложения, работающие только в NT-системах, где невозможны некоторые функции отладчиков, а следовательно это можно считать приемом антиотладки.