[PhoeniX]

MySQL-таблица:

Код:

CREATE TABLE `license_keys` (`key` varchar(255) NOT NULL PRIMARY KEY)

PHP-скрипт:

PHP код:

mysql_connect('localhost','user','password','db_name');
$r = mysql_query("select count(*) from `license_keys` where `key`='".addslashes($_GET['key'])."'");
echo mysql_result($r,0,0); // Выведет 1 если ключ есть в базе, и 0 если нет 


Код программы:

Код:

uses IdHTTP;

var h: TIdHTTP; s, key: string;
begin
  key := Get_key_function; // Получаем ключ
  h := TIdHTTP.Create;
  s := h.Get('http://server.name/check.php?key='+key);
  if s='1' then begin
    ShowMessage('Программа активирована, всё ОК!');
  end else begin
    ShowMessage('Зарегистрируйте этот ключ у разработчика:'#10#13+key);
  end;
end;