защита форм паролем в Delphi

[TaYgA]

Всем доброго времени суток... Мене поставили задачу создать органайзер в Delphi... Я хочу защитить главную страницу паролем, таким образом, чтоб пользователь сам мог его создавать нажав на кнопку "регистрация"... Форму с регистрацией создал, получился код:

procedure TForm3.Button1Click(Sender: TObject);
var  myFile : TextFile;
begin

// Попытка открыть файл Test.org для записи
  AssignFile(myFile, 'Test.org');
    Append(myFile);
// Запись  в этот файл
  WriteLn(myFile, Edit1.text);
    WriteLn(myFile, Edit2.text);
// Закрытие файла
  CloseFile(myFile);
end;

Форма, где проверяется пароль:

procedure TPasswordDlg.OnCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var      pass: String;
begin;
  if lowerCase(Password.Text) = (???) and Edit1 = (???) {Edit1-проверка логина}
  then CanClose:=true 
    else Application.Terminate;
end;

Подскажите пожалуйсто, куда нужно загружать файл для чтения и как прописать код?!?! Как он будет сравнивать логин и пароль, если зарегестрированных пользователей несколько, тоесть файл имеет вид:
{test.org:
Login
Password
Login
Password
.........}
Заранее спасибо

[NeshSoft]

Лучше хранить логины и пароли не в обычном текстовом файле, а в типизированом файле - тогда хотябы в обычном блокноте пароли не подглядеть. И создать для них специальный тип:

logpas = record
           log:string[10];
           pas:string[10];
           end;

затем считываем с файла первую структуру logpas - сравниваем логин, если равно тому что пользователь ввел - то сравниваем пароль, если логин не совпал то считываем из файла следующую структуру logpas, и так, пока не достигнут конец файла.

[.Phoenix]

Можно обойтись и без типизированных файлов, мне так кажется. Я думаю достаточно хранить логин да пароль в обычном текстовом файле, но эти логин и пароль могут быть просто зашифрованны. Для шифрации можно использовать простой метод Цезаря, другим вариантом может послужить файл базы данных, где будут храниться логин и пароль, ну и дополнительная информация, на случай если пароль забыт

[Пепел Феникса]

не плохо подойдет ИНИ с шифрацией.
раздел это юзер и поле с паролем.

[TaYgA]

Шифровать файл буду потом, пока хочу разобраться как сделать, чтоб хотя бы считывала логин и пароль с текстового файла... В какой форме нужно считывать файл?!?! В форме "регистрация" не получается т. к. если пользователь зарегестрирован, то он не будет открывать эту форму, следовательно и файл считываться не будет... А если в форме проверки логина и пароля, то в какой процедуре прописывать?!?! Я так понимаю будет так:

procedure PswordDlg.OnShow(Sender: TObject);
var
  myFile : TextFile;
  text   : string;
begin
  Reset(myFile);
    ReadLn(myFile, text);
end;

В этом случае как будет выглядить проверка логина и пароля??!

.........
 if lowerCase(Password.Text) = text and Edit1 = text {Edit1-проверка логина}
  then CanClose:=true 
    else Application.Terminate;
end;

Так программа не работает... Как правельно нужно написать, чтоб произошла проверка логина и пароля?!

[NeshSoft]

как я вижу text : string; - локальная переменная процедуры PswordDlg.OnShow, следовательно она уничтожается после выхода из этой процедуры. Кстати компилятор должен был предупредить, что эта переменная ни где не используется.

Можно написать кусок кода считывающий логин из файла непосредственно перед проверкой этого логина, т.е. так:

 Reset(myFile);
 ReadLn(myFile, login);
 ReadLn(myFile, pass);
 if lowerCase(Password.Text) = pass and Edit1.text = login {Edit1-проверка логина}
  then ......... 
    else ...........

PS что такое Edit1 = text? разве компилятор это пропустил?
PPS лучше озаглавливать переменные со смыслом, ну что это за text?

[TaYgA]

Спасибо за подсказку, попробывал... Теперь возникла другая проблема... При проверки пароля, программа не считывает файл, а переходит к следущему действию т. е. закрывает прогу... (if lowerCase(Password.Text) = pass then CanClose:=true
else Application.Terminate; {переходит сразу к else})
Вот код программы:
ФОРМА ПРВЕРКИ ПАРОЛЯ:

procedure TPasswordDlg.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
Var myFile: TextFile;
     pass: String;
begin
  AssignFile(myFile, 'Test.org');
    Reset(myFile);
      ReadLn(myFile, pass);
  if lowerCase(Password.Text) = pass then CanClose:=true
    else Application.Terminate;
CloseFile(myFile);
end;

"ФОРМА РЕГЕСТРАЦИЙ"

procedure TForm3.Button1Click(Sender: TObject);
var
  myFile : TextFile;
  text, pass, log   : string;

begin
log:=Edit1.Text;
pass:=Edit2.Text;
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.org');
   append(myFile);

  // Запись нескольких известных слов в этот файл
  WriteLn(myFile,log);
  WriteLn(myFile, pass);

  // Закрытие файла
  CloseFile(myFile);

end;

Подскажите, что не правельно?!?!

[russian-stalker]

Насколько я знаю, в делфи относительные пути не прокатят, так что надо заменить 'Test.org' на extractfilepath(paramstr(0))+'test. org'

[Пепел Феникса]

Насколько я знаю, в делфи относительные пути не прокатят

прокатят но они не надежны, так как стоит изменить текущую папку как капец=)

[NeshSoft]

TaYgA, можно добавить пару строк для отладки, и тогда сразу все станет ясно, напр:

procedure TPasswordDlg.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
Var myFile: TextFile;
     pass: String;
begin
  AssignFile(myFile, 'Test.org');
    Reset(myFile);
      ReadLn(myFile, pass);
  ShowMessage(lowerCase(Password.Text)+'='+pass);//прога выведет сообщение, где покажет почему она при таком сравнении переходит на else
  if lowerCase(Password.Text) = pass then CanClose:=true
    else Application.Terminate;
CloseFile(myFile);
end;