Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

Ответ
 
Опции темы
Старый 19.03.2016, 15:41   #1
 Сержант
Аватар для Павел.DO
 
Павел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака Норриса
Регистрация: 09.04.2010
Сообщений: 142
Популярность: 9521
Сказал(а) спасибо: 570
Поблагодарили 304 раз(а) в 197 сообщениях
Отправить сообщение для Павел.DO с помощью Skype™
 
Smile MXProtector. Защита программы регистрацией.

Всем привет сегодня мы добавим в нашу программу регистрацию
MXprotector -отличный и нужный компонент. С его помощью вы сможете защитить свою программу серийником, сделать из неё Trial версию, можно поставить ограничение на количество запусков программы и многое, многое другое.
Итак, начнем.

ШАГ 1:
Установка
  1. Распаковываем архив с компонентом.
  2. Открываем Delphi и закрываем все активные проекты.
  3. В папке, куда распаковался компонент есть еще одна папка под названием Component заходим в неё и копируем все от туда, в ...Delphi\Projects\Bpl\
  4. Находим файл mxProtector_d6.res .Если версия delphi у вас отличается от 6, то переименуйте этот файл заменив последнюю цифру в его имени. Т.е. например если ставим на delphi 7 то файл переименовываем с mxProtector_d6.res на mxProtector_d7.res
  5. Находим файл mxProtector_d7.dpk (если устанавливать будем на delphi 7) и запускаем его. Delphi выдаст нам окошечко в, котором нужно сначала нажать Compile, а затем Instal.
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

ШАГ 2:
Подготовка
Создаем новый проект. Кидаем на него 4 button (регистрация, старт, сброс, инфо), новый компонент mxprotector, 2 label`a и groupbox. На groupbox ложим 2 edit`a и ещё один button (серийник). У меня вышло примерно так:
[Ссылки могут видеть только зарегистрированные пользователи. ]

ШАГ 3:
Код

Добавляем между private и public:
Procedure ProcessRights; и жмем Ctrl + Shift + C
Далее код:
Код:
procedure TForm1.ProcessRights;
Begin
     button3.Enabled := mxProtector1.IsRegistered;
     groupbox1.Enabled := Not mxProtector1.IsRegistered;
     button1.Enabled := Not mxProtector1.IsRegistered;
     button2.Enabled := Not mxProtector1.IsRegistered;
     button4.Enabled := mxProtector1.IsRegistered;
     Edit1.Enabled := Not mxProtector1.IsRegistered;
     Edit2.Enabled := Not mxProtector1.IsRegistered;
     button2.Enabled := ( Edit1.Text <> '' ) And ( Edit2.Text <> '' ) And ( Not mxProtector1.IsRegistered );

     If mxProtector1.IsRegistered Then
     Begin
          label1.Caption := 'Зарегестрированая версия';
          Label5.Caption := 'Спасибо за регистрацию!';
     End
     Else
     Begin
          label1.Caption := 'Демо версия';
          Label5.Caption := 'Для запуска программы надо зарегестрироваться!';
     End;
end;
Теперь каждой кнопке добавляем событие on click и пишем:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := mxProtector1.GenerateSerialNumber( Edit1.Text );
end;
///СЕРИЙНИК
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
mxProtector1.Registration;
ProcessRights;
  if label1.Caption = 'Демо версия' then
  form1.Caption:= form1.Caption + '[DEMO]'
   else  form1.Caption:= StringReplace(form1.Caption, '[DEMO]', '', [rfReplaceAll]);
end;
///РЕГИСТРАЦИЯ
Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
     mxProtector1.Reset;
     MessageDlg( 'Регистрация удалена!', mtInformation, [ mbOK ], 0 );
     ProcessRights;
     edit1.Text:='';
     edit2.Text:='';
if label1.Caption = 'Демо версия' then
begin
form1.Caption:= form1.Caption + '[DEMO]';
end;
end;
///СБРОС
Код:
procedure TForm1.Button5Click(Sender: TObject);
Var
     S: String;
Begin
     If mxProtector1.GetRegisteredUserName = '' Then
          S := 'Незарегестрированная копия' Else
          S := 'Зарегестрировано на:'#13#10 + mxProtector1.GetRegisteredUserName;

     MessageDlg( S, mtInformation, [ mbOK ], 0 );
end;
///ИНФО
Теперь добавляем событие on form create:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 ProcessRights;
  if label1.Caption = 'Зарегестрированная версия' then
  begin
  edit1.Text:=mxprotector1.UserName;
  edit2.Text:=mxProtector1.GenerateSerialNumber( Edit1.Text );
  end;

  if label1.Caption = 'Демо версия' then
  begin
  form1.Caption:= form1.Caption + '[DEMO]';
  end;
end;
Ещё событие на edit2 change (edit с серийником):
Код:
procedure TForm1.Edit2Change(Sender: TObject);
begin
button2.Enabled := ( Edit1.Text <> '' ) And ( Edit2.Text <> '' );
end;
И добавляем 2 события на mxprotector (OnGetSerialNunber и OnInvalidSerialNumber):
Код:
procedure TForm1.mxProtector1InvalidSerialNumber(Sender: TObject);
begin
     MessageDlg( 'Неправильный серийный номер!', mtError, [ mbOK ], 0 );
end;
Код:
procedure TForm1.mxProtector1GetSerialNumber(Sender: TObject; var UserName,
  SerialNumber: String);
begin
     UserName := Edit1.Text;
     SerialNumber := Edit2.Text;
end;
Не забываем менять у mxprotector protectiontype на [stregister]
Вышло примерно так
[Ссылки могут видеть только зарегистрированные пользователи. ]
________________
скайп pashok.do
OnlineUser for Darkorbit
ProfiBotTool for Darkorbit
  Ответить с цитированием
Старый 25.03.2016, 20:23   #2
 Сержант
Аватар для Павел.DO
 
Павел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака НоррисаПавел.DO троюродный дядя Чака Норриса
Регистрация: 09.04.2010
Сообщений: 142
Популярность: 9521
Сказал(а) спасибо: 570
Поблагодарили 304 раз(а) в 197 сообщениях
Отправить сообщение для Павел.DO с помощью Skype™
 
По умолчанию Re: MXProtector. Защита программы регистрацией.

Видео:
[Ссылки могут видеть только зарегистрированные пользователи. ]
________________
скайп pashok.do
OnlineUser for Darkorbit
ProfiBotTool for Darkorbit
  Ответить с цитированием
Старый 26.03.2016, 18:25   #3
 Разведчик
Аватар для GameOldHack
 
GameOldHack скоро будет известенGameOldHack скоро будет известенGameOldHack скоро будет известенGameOldHack скоро будет известен
Регистрация: 31.05.2015
Сообщений: 2
Популярность: 307
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: MXProtector. Защита программы регистрацией.

Все Супер ну есть одно но ! На Delphi XE 10 ты не поставишь этот компонент так как поддержка Delphi 6,7 и вроде 9
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Защита процесса программы c# byTriX Вопросы и ответы, обсуждения 6 26.09.2015 22:13
[Защита] Защита от DDoS атак ward9 Сборки серверов 1 22.01.2012 08:59
[Уязвимость] Защита программы от внедрения в неё dll †PrEDok† Вопросы и ответы, обсуждения 0 07.12.2010 17:55

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 12:09.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net