Подскажите алгоритм 30-и дневневного использования программы...

← →
Makks (2004-07-29 16:41) [0]

Подскажите алгоритм 30-и дневневного использования программы... Причем при перемене даты на компъютере, дни не сбиваются...

← →
Алхимик © (2004-07-29 17:22) [1]

Как ты себе это представляешь?

← →
DK (2004-07-29 17:27) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=30 дней;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Close;
end;

← →
Алхимик © (2004-07-29 17:29) [3]

> [2] DK (29.07.04 17:27)

Гениально.

← →
Vasya.ru (2004-07-29 17:29) [4]

Лепишь ключь в реестре, каждый день увеличиваешь его значение на 1, и сравниваешь с 30. Уродство конечно, но работает (честно говоря сам никогда не пробовал, да и не думал над реализацией таких алгоритмов)

← →
clickmaker © (2004-07-29 17:30) [5]

> Причем при перемене даты на компъютере, дни не сбиваются

Варианты:
-При запуске проги увеличивать счетчик дней, не учитывая многократные запуски в одни сутки. Счетчик хранить в секретном месте, н-р, где-нить в недрах реестра
-Получать время с сервака (с КД, если он есть)

← →
DK (2004-07-29 17:36) [6]

[4], [5]

Спасет обычный перевод даты назад

← →
Анонимщик © (2004-07-29 18:24) [7]

Это все извращения. На самом деле нет такого алгоритма.

← →
NJoe (2004-07-29 18:41) [8]

тебе на cracklab.ru :)

посмотрите вот тут:
http://sourceforge.net/projects/tponguard/
свободно распространяемые компоненты onGuard от TurboPower, которые призваны делать демо программы. Демо-версии программ, созданные с помощью этих компонент могут:
- иметь ограничения по количеству стартов

- иметь ограничения по количеству дней использования (например, 4 дня с момента первого старта программы)

- иметь ограничения по времени использования (до определенной даты)

- поддерживают внутренние модификаторы кода

- имеют защиту от внешнего вторжения в код программы

Компоненты идут с исходниками. Копайтесь, смотрите. Для начала Вам этого хватит :)
----------------------------
С уважением
Sir John

Антикрэковые мучения на Кор.Делфи

Вариант от перевода часов - смотреть дату посл. обращения к к.л. файлам

for i:=0 to 29 do begin
t:=now;
{use program}
while DaysBetween(t,now) < 1 do
sleep(1000);
end;

← →
П7 (2004-07-30 11:20) [12]

> DK (29.07.04 17:27) [2]

Я плакал... Разместил в своём днеснике... Если хочешь, могу копирайты поставить, только скажи на кого ссылкаться...

Подскажите алгоритм 30-и дневневного использования программы... Найти похожие ветки