Показать сообщение отдельно
  #33  
Старый 11.12.2009, 15:23
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Цитата:
Сообщение от Asinkrit
То что ты решил проблему самостоятельно, молодец)

Хочу сразу предупредить, народ, не используйте метки в программе, это очень некрасивый стиль программирования, к тому же очень ненадежный.

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

Код:
var
  F:TextFile;
  l1, l2 :String;
begin
  AssignFile(F, 'paroli.txt');
  if FileExists('paroli.txt') then
    begin
    Reset(F);
    Readln(F, l1);
    if l1 <> '/1' then 
      begin
      Application.MessageBox('Нарушена целостность пароля','error');
      CloseFile(F);
      Exit;
      end
        else Readln(F, l1);
    Readln(F, l2);
    if l1 <> '/2' then 
      begin
      Application.MessageBox('Нарушена целостность пароля','error');
      CloseFile(F);
      Exit;
      end
        else Readln(F, l2);
    CloseFile(F);
    If (Edit1.Text='Администратор') and (Edit2.Text=l1) then 
      begin 
      end 
        else 
          If (Edit1.Text='Продавец') and (Edit2.Text=l2) then 
            begin 

            end;
    end
      else {файл не найден, делаем что-нибудь};
Скажи пожалуйста, в чем надежность в твоём случае? И еще, если есть возможность..можешь помочь в шифровании пороля любым методом применяемым к этому коду? Чтобы при изменении пороля, пороль шифровался и занасился в текстовый документ шифрованым!

Заранее спасибо!

P.S Показал этот способ профессору в университете! Вроде нормально, только надо еще сделать чтобы пороль шифровался! Завал полный =)
Ответить с цитированием