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 Показал этот способ профессору в университете! Вроде нормально, только надо еще сделать чтобы пороль шифровался! Завал полный =)
|