Ключ активации Delphi

Как сделать проверку ключа,при входе в программу

 

Code:

if key = '12345
begin
   ShowMessage('У вас лиц. версия.')
end
else
   exit();

Но подобные засчиты ломаются каждым школьником.

 

Умный человек когда-то подсказал мне, что единственный действенный способ -- вынести значительную часть кода на сервер, иначе ни как.

 

а у тебя есть код?

 

если есть желание позаморачиваться с серверной защитой, то как примерчик
https://dl.dropbox.com/u/18304401/AVLock_Simple_4.1.0_%28Full_Sources%29.zip
это исходники старенькой версии компонент AVLock Simple, офф сайт http://www.valega.com/. Если токи будеш читать с сайта, учитывай что на сайте уже новая версия и есть некторые отличия.

Не панацея, конечно, но как пример подойдет. Хотя и грешит дырками.

Если хочешь написать защиту к проге, то взломают все равно, если захотят, а чтоб усложнить жизнь, не вздумай использовать только if...then, это исправляется правкой одного байта, такую защиту, наверное, даже я взломаю