[Admiral]

Доброго.
Простенькую тайм бомбу можно организовать с помощью сравнений дат (установки и времени окончания работы) в реестре.

[Delirium]

И добавить в прогу на проверочку условие: если вдруг кто нить удалит ветку реестра, то сразу не запускать прогу.

[pva]

причём лучше зашифровать дату, чтоб не догадались, и ключ назвать не expiration date, а license key. Только не нарвись на проблемы с законодательством. Если не ты работаешь в конторе, которой прогу ставишь, программа должна отработать срок, уквзвнный в договоре (если не указан - лучше пусть не отключается). Если работаешь и разрабатывал её в рабочее время - можно отсудить у тебя эту программу и она должна тогда работать вечно.

[Alex.sys]

Admiral, Delirium, pva, спасибо вам. - Лучшим на этом форуме !!! Весьма вам благодарен

[Arrest]

И еще - код программы желательно чем-нибудь зашифровать(имеется в виду готовый exe'шник). Алгоритм шифрования иначе легко находится. А еще посчитать контрольную сумму файла и записать ее куда-нибудь в инсталлятор. При установке просчитывать какой-нибудь хэш(да хоть тот же MD5) от (контрольная сумма проги + дата инсталляции) и писать в экзешник. При запуске пересчитывать CRC файла, читать дату инсталляции, хэшировать и сверять с необходимым хэшем в файле. Таким образом программа не запустится если изменится дата инсталляции или изменится хоть один байт в коде. Дату в реестре можно и не шифровать - открытым текстом. Пущай крякер помучается.

[Alex.sys]

Arrest, учту. Спасибо

[detrin]

Имхо, если программа небольшая, то зачем мусорить в реестре? Ведь по-хорошему придется еще делать деинсталлятор, для удаления всех этих записей в реестре...
В одной из своих программ использовал вот такой код:

Код:

program Fasad;

uses
  Forms,
  Sysutils,
  Dialogs,
  FasadNC in 'FasadNC.pas' {Form1},
  Options in 'Options.pas' {OptionsForm};

const
   YearExp = 2008;
   MonthExp = 2;
   DayExp = 15;

 function CheckDate(y, m, d: Integer): Boolean;
 begin
   Result := True;
   if (Date > EncodeDate(y, m, d)) then
   begin
     ShowMessage('Закончилось время использования программы');
   Result := False;
end;

 end;

{$R *.res}

begin
if CheckDate(YearExp, MonthExp, DayExp) then
   begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TOptionsForm, OptionsForm);
  Application.Run;
   end;
end.

[Alex.sys]

detrin, эт то что надо!!! Спасибо большое!!!

[Jurist_Juristov@fb]

Умники, а что вы будете делать если дату на системных часах переведут?