ShareWare

[boostman]

Я хочу свою прогу продавать. Но как поставить там не знаю нормальную защиту на прогу, там серийники хочу поставить чтоб триал была, как реализовать то??

[Ring0Sn]

Интересно и чего твоя прога умеет делать необычное чтоб за нее $ платили?

[Terran]

Посмотри ссылку, там приведён простой пример защиты ShareWare:

http://www.codenet.ru/progr/delphi/s...re-program.php

[Ring0Sn]

Сообщение от Terran

Посмотри ссылку, там приведён простой пример защиты ShareWare:

http://www.codenet.ru/progr/delphi/s...re-program.php

Больше похоже на баян, а не на защиту

[Serge_Bliznykov]

не рекомендую заморачиваться с написанием собственной защиты, лучше воспользоваться чем то готовым. Например, ASProtect - если его грамотно использовать (шифровать отдельные процедуры функции и вызывать Asprotect API - то для того, чтобы сломать потребуется ОЧЕНЬ высокая квалификация и, возможно, много времени.
пожалуй, это лучшая софтина на территории exUSSR...
но, ASprotect - платная, надо покупать... (правда, Алексей Солодовников раньше разрешал пользоваться отложенным платежом - т.е. ты скачиваешь, пользуешься, когда получаешь за свою программу деньги - платишь за ASProtect.)

и ещё - не надо обольщаться - если программа реально будет кому-то нужна (анекдот про неуловимого Джо знаешь? :-)) - то её всё равно сломают! или купят и ключ раздадут... ;-)

удачи в продажах.

[dr.Chas]

Простой способ, в качестве примера триала:

uses  Registry;

procedure TForm2.RzBmpButton1Click(Sender: TObject);
var n:integer;  //количество запусков будем считывать сюда
    Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  with Reg do
  begin
    OpenKey('software', True);
    OpenKey('TrialProg', True);    //HKEY_CURRENT_USER\Software\TrialProg
    If ValueExists('MaxRun') then  //если возвращает значение true, значит есть параметр с 
     //именем MaxRun и для него определено значение
    begin
      n:=ReadInteger('MaxRun')-1;  //отнимаем ещё один запуск
      if n>=0 then WriteInteger('MaxRun', N); //записываем в реестр
    end else   //возвращает false значит это первый раз, либо пользователь удалил))))
    begin
      N:=10;   //задаём кол-во запусков
      WriteInteger('MaxRun', N);  //записываем в реестр
    end;
    Free;
  end;
  If n>0 then  //больше 0 значит запускаем программу
  begin
    Application.Create(TForm1, Form1);
  end else  //если не больше 0, значит
  begin
    //говарим пользователю что срок лицензии закончился
    MessageBeep(MB_ICONASTERISK);   
    MessageDlg('Срок лицензии закончился.', mtInformation, [mbOk], 0);
  end;
end;

P.S.: Пример взят из книги "В.В. Фараонов "Delphi Программирование на языке выского уровня".

[JTG]

Вышеприведённый пример защиты защитой не считается

[boostman]

Да вообще и ASProtect не идеальна... Там всего лишь получить ключик и имя, уже можно бежать на варезники раздавать серийники...может как нить чтоб через интернет есть способы какие???

[Serge_Bliznykov]

тогда копайте в сторону привязки к железу (мать, винт...) и/или к текущей системе + активация (хоть через Email, хоть через Интернет) (активация - вы генерите номерок на основании данных, специфичных для данного комьютера и отсылаете себе, у Вас есть генератор односторонней функции (aka электронная подпись) с помощью которого вы получаете код активации (код ответа). Потом программа из кода активации должна получать код машины (наборот - не должно быть!!), получила, сравнила - совпал - молодец, можешь работать.
Разумеется, все процедуры в программе максимально шифровать, защищать, контроль кода + обязательно навесить протектор (хотя бы тот же ASPACK/ASProtect)...

и ещё раз повторю - "Замки - это только от честных людей!", нужно будет - сломают любую проверку, ломают даже программы, которые защищены аппаратными ключами и используют сильную криптографию...

[Serge_Bliznykov]

ещё добавлю...

Сообщение от boostman

можно бежать на варезники раздавать серийники...

для борьбы с этим обычно используют black-list засвеченных ключей, плюс прекращение поддержки того пользователя, чей ключик ушёл в сеть...