Щит и меч

Фленов Михаил

Хакер, номер #070, стр. 070-118-5

if copy(TempString,10,4)<> '4321' then Terminate1;

if t> 1000000 then Close;

z:=Length(TempString)-1+25-20;

t:=t-z;

if t<0 then Close;

end;

//Проверяем конец строки

if copy(TempString,10,4)<> '4321' then Terminate2;

//Опять ненужные вычисления

//Сохранение кода в реестре

//Опять ненужные вычисления

end;

WWW

В качестве дополнительной инфы советую почитать статью «Защита программ от взлома» на http://z-ol.chat.ru/protect1.htm. Возможно, ты улучшишь описанный мной алгоритм и сделаешь его круче.