Лицензия программы

[rzawm]

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

А лучше использовать генерацию пароля. Кто нибудь может привести простой пример этого?

а в чём собственно дело? По подробнее , какой пароль сгенерировать? если просто нужно сгенерить пароль отвечающий какимто требованиям то тут ни чего сложного нет есть полно софта для этог, точно не помню но помоему SafePassword называется. По подробней какой пароль нужно сгенерировать?

[rzawm]

Или ты на делфях генереатор паролей хочеш своять? Говори что именно надо то

[Alex2009]

Что небуть такое что пока не ведеш пароль и логин программа не запустится тоесть

Close;

и

[rzawm]

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

Что небуть такое что пока не ведеш пароль и логин программа не запустится тоесть

Close;

и

Всё ясно, если пофиг на взлом дальнейший. То тогда слушай один из вариантов. На форму своего приложения кидай во весь размер окна панель, на эту панель размещай 2 едита и 2 лейбела один под имя пользователя второй под сн. В TForm.FormCreate пишешь Panel1.Visible:=True; А далее сравнивай то что юзер ввёл и то что должно быть если юзер ввёл правильно сн то Panel1.Visible:=False; если не правильно то ShowMessage "Проверьте правильность ввода, возможно включон CapsLock". Кстати чтоб не надоедало при каждом запуске приложения вводить сн, надо после первого правильного ввода создался к примеру файлик в каталоге программ с какимто значением а дальше при FormCreate перед Panel1.Visible:=True; приложение должно обратится к этому файлику и прочитать его содержимое если содержимое не верное или файла вобще нет то Panel1.Visible:=True; иначе Panel1.Visible:=False; и при последующем запуске панели не будет если сн правильный был введён. Вроде всё но это очень приметивно!!!

[Neeter]

Вот код главной формы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    open: boolean; //открыта ли форма с вводом логина и пароля
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 open := true;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 if open then
 begin
  open := false;
  Form2.ShowModal;
 end;
end;

end.

А это код формы, где нужно вводить логин и пароль:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 if (edit1.Text <> 'login') and (edit2.Text <> 'password') then
  Application.Terminate
 else
  Close;
end;

end.

[rzawm]

Зачем так сурово Application.Terminate :D , может сначала сообщение вывести что типа проверьте правильность или возможно включен CapsLock

[rzawm]

С двумя формами посимпотичней будет, а если пользователь просто убьёт окно с вводом пароля или просто задвинти его за предела рабочего стола (конечно его можно сделать неперемещаемым но это не выход его можно будет просто убить и всё, а само приложение продолжит работу).

[MalCer]

А если мой пароль будет генерироваться по какой нибудь сложной формуле?То

 if (edit1.Text <> 'login') and (edit2.Text <> 'password') then

не подойдет

[rzawm]

Смотря как он генерироваться будет, и что в этоге получится, то возможно будет к примеру такой вид if (edit1.Text <> 'login') and (edit2.Text <> s*i-g) then. где s-то что ввёл пользователь, i - какя нибудь постоянная привязанная к какому либо статическому значению, g- по аналогии с i. Ну это очень просто, нужен более сложный алгоритм, и по тексту надо раскидать аналогичных вещей но ложных, а самую результирующую проверку отнести как можно дальше от непосредственного кода, а ещё лучше, использовать онлайн регистрацию. Пример сообщение о вводе сн, введите сн, пользователь вводит сн, затем через некоторое время приложение отправляет на сервер неую последовательность коман в которой ко всему будет содержаться серийный номер к примеру винчестера, сервер это всё дело принимает , если регистрация прошла успешно отправляет юзеру ещё один код сгенерированный сервером, в котором в каком либо виде будет содержаться серийный номер винчечтера юзера и прочая инфа. Пользователь его либо сам вводит, а лучше чтобы он сам добовлялся в приложение и всё, у вас есть зарегистрированное приложение и которое будет работать тока на вашей машине, копирование исключено.(практически )

[rzawm]

Что то я отвлёкся, нас же интересует что то попроще. Что я там выше написал будет актуально если СН integer, если же СН будет содержать и цифры и буквы то скорее всего нужно использовать string. Сдесь ещё интереснее, существуют функции к примеру для отображеия строки наоборот, для отображения какойто части наоборот и т.д. Пример: programm - mmargorp. Плюсом можно использовать сдвиг к примеру на 359, т.е. сначало сдвиг а пототом переворот. Про сдвиг у каждой клавиши или исмвола есть свой код #13 - если память не изменяет это Enter и т.д., (остальные не помню можно для отображения всех ченить быстро накидать но это сейчас никчему). Будем считать что код буквы p = #73 если используем сдвиг то получаем что её код становится #432 и у нас получается не буква а вобще какойто иероглиф, далее всё это проводим для всех символов нашего сн а затем ещё и меняем всё наоборот, и сравниваем с введённым. После всего этого получаем то что наш СН хранится в программе но имеет совершенно нечитаемый вид.
Со здвигом понадёжнее будет. Делай лучше так. Я бы пример набросал, тут не сложно, но к сожалению, я сейчус на работе, под рукой Делфей нету.