проверка пароля

[tr1x]

Народ, как организовать проверку пароля перед входом в прогу, написанную на Delphi? И какие компоненты дляэтого использовать... желательно без использования БД))) помогите, плиз, оч надо, скоро диплом)))

[Obey-Kun]

Главное пароли в открытом виде не храни, только хеши.

[tr1x]

какие компоненты то использовать? и как связать с паролем?

[Баламут]

А без компонентов никак? Почитайте, как вам уже сказали выше, о хешировании. И потом, вы не высказали по этому поводу ни одной своей мысли. А с такими вопросами на нашем форуме отправляют только в одном направлении - фриланс.

[chertovich]

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

Народ, как организовать проверку пароля перед входом в прогу, написанную на Delphi? И какие компоненты дляэтого использовать... желательно без использования БД))) помогите, плиз, оч надо, скоро диплом)))

Создай окошко, стиль поствавь, например, диалог.
В главном меню нажимай Project > ViewSource
и увидишь вот такой модуль:

program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Допустим форма ввода параметров это Form2, то редактируй код вот таким образом 
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

И в свойствах 2 формы Visible поставь в True. Теперь на форму кидай 2 эдита, лэйблы и тд, и когда пароль и логин подходит, прячь (уничножай) 2 форму, но перед этим показывай главную форму



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[tr1x]

попробовал так:

procedure TForm1.Button1Click(Sender: TObject);
begin
   if ComboBox1=1 and Edit1.Text=Password.txt then
   begin
      Form1.Active:=false;
      Form2.Show;
   end;
end;

у меня выдает ошибки на проверке условия, в строчке "Form1.Active:=false;" и фатальную ошибку в проекте
че делать?

[Obey-Kun]

говорю же, пароли в открытом виде не храни.

[novichok1]

Form1.Active свойство read only. Насколько я знаю ему вам не удастся что-то присвоить. Form1 можете просто скрыть. А компоненты тут не вопрос, как вы сами уже написали, пароль будет вводится через edit. Главное где вы будете хранить пароли без использования БД. На примиивном уровне можно их хранить в скрытом файле, а если для всего нескольких юзеров то можно и регистре. Но мои советы это советы новичка, лучше послушайте более опытных форумчан )))

[Obey-Kun]

Надо хранить список логинов пользователей и соответствующих им хешей пароля.
При вводе пароля генерировать хеш и сравнивать его с тем, что у тебя хранится.
Вот так в дельфях генерировать хеши md5: http://stackoverflow.com/questions/5...ng-with-delphi

[chertovich]

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (ComboBox1.Text = '1') and (Edit1.Text = 'txt') then
  begin
    Form1.Show;
    Form2.Hide;
  end;
end;

Сообщение от Obey-Kun

Надо хранить список логинов пользователей и соответствующих им хешей пароля.
При вводе пароля генерировать хеш и сравнивать его с тем, что у тебя хранится.
Вот так в дельфях генерировать хеши md5: http://stackoverflow.com/questions/5...ng-with-delphi

Зачем ему все усложнять, если он даже простое с трудом пишет? это же не коммерческая прога, а так.