Безопасная раздача Premium в программах

[Кольша]

День добрый! Задался я тут вопрос о безопасной разадче премиум'a..
Была такая идея делать запрос на сайт с уникальным параметром например серийнико винчестера если есть в списке премиумов то ответ сервера YES иначе NO потом заносить куда нибудь в реестр и проверять при старте если есть запись в реестре то prem... иначе запрос на сайт если и там No тогда простоя прога..Туповатая идея ну ничего больше не надумал, подскажите как еще можно разадавать пермиум, и легко ли будет сломать мою идею?

[Poma][a]

Возможно Ваша идея не выдержит, добавления сайта в hosts. Тоесть данный факт стоит предусмотреть.

[Кольша]

ну тогда можно так

const
realIP:string='127.0.0.1';
..
function HostToIP(name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IP: string;
prem:boolean;
begin
  if HostToIp(Edit1.Text, IP) then
if ip<>realIP then
showmessage('][EPB взломщик')
else begin
if (reqprem) then
else
prem:=http.get('http://ksware.ru/premium.php?serialnumber='+serialnumber)='YES';
....

end;
end;

Примерно так.