вход по логину и паролю

[nikdemars]

Всем привет. Хочу у одной программы сделать вход по логину и паролю и так чтобы все логины и пароли мог изменять только администратор. Как бы мне это осуществить?
(есть мысль сделать всех пользователей во внешнем файле, со структурой :ЛОГИН, ПАРОЛЬ. И мне нужно будет сделать поиск, если есть такая пара, значит вход... и чтобы было более защищенно думаю еще добавить в программу шифровщик и дешифровщик этого файла.)
Но в моем варианте все очень сложно и весомо, есть у кого-нить вариант попроще?

[_SERGEYX_]

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

[Stilet]

Ну сделай ты форму в делфи с двумя полями ввода и одной кнопкой.
Кстати в мастере проектов по-моему был шаблон форм для пароля.

[MyLastHit]

Кинь на форму Edit1,2 и Button1.
код:

if (pos('admin',edit1.Text)<>0) and (length(edit1.text)=5)
   and (pos('admin',edit2.Text)<>0) and (length(edit2.text)=5)
then
showmessage('Верный пароль/логин!')
else
showmessage('Неверный пароль/логин!');

примитивненько, но работает) Логин - admin, пароль-admin

[Unixsoid]

Не знаю как кто что делает, но можно попробовать вот так:
Имея внешний файл логин:пароль - можно например, в начале ставить какие нибудь символы которые будут давать определенные права
Вот приблизительный код, его можно не плохо доработать (например проверять #0#логин:пароль, где 0 - права администратора, все остальное пользователя; я так раньше делал), но это уже по ситуации смотреть нужно.
P.S. Сильно не пинайте сам начинающий

log:=TstringList.Create();      //Создаем
log.LoadFromFile('наш файлик');   //Загружаем
for I := 0 to log.Count-1 do    //Цикл в файле по строкам
begin
pass:='';
login:='';
st:=log.Strings[i];              //Сохраняем строку в переменной
for j := 1 to length(st) do  //Цикл разделения строки на 2 слова
    if st[j]=':' then      //Двоеточие это наш разделитель
    begin
      for p :=j+1 to length(st) do pass:=pass+st[p]; //Записываем пароль
      for p := 1 to j-1 do  login:=login+st[p];        //Записываем логин 

      if LoginEdit.Text=Login then       //Проверяем введенный логин
         begin
           if PassEdit.Text=Pass then       //Проверяем введеный пароль
            begin
             {что то совершаем, если логин:пароль подошел}
              exit;     //Выходим из процедуры она нам больше не к чему
            end;
         end;
    end;
end;

[Stilet]

Имея внешний файл логин:пароль

А имея хорошо защищенную СУБД еще лучше будет. Да плюс настройку безопасности средствами ОС провести, так вообще замечтательно. И выдумывать ничего не придется.

[Unixsoid]

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

А имея хорошо защищенную СУБД еще лучше будет. Да плюс настройку безопасности средствами ОС провести, так вообще замечтательно. И выдумывать ничего не придется.

Хорошая идея , но вот если проект простой?

[MyLastHit]

Простой - все как у тебя Unixsoid, в предыдущем посте, только + маленькая защиточка, в виде шифрации/дешифрации файла логинов и паролей. Благо методов полно)