VPF::Вопрос по авторизации - Форум программистов

The MASTER

Дата 4.3.2005, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Подскажите пожалуйста, у меня такая система, чтобы пользователь зашёл в программу, ему необходимо из списка ComboBox выбрать аккаунт:
1) Администратор
2) Оператор

Вот подскажите как сделать, чтобы у каждого пользователя был свой пароль, который нужно вводить в поле Edit, и откуда лучше считывать пароли для каждого пользователя? smile

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

Snowy

Дата 4.3.2005, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если пользователи под разными аккаунтами, то можно либо сохранять в реестр в HKEY\CURRENT_USER, либо куда-либо по твоему успотрению, с именем пользователя, под которым он зарегестрировался в Windows. (нужно отследить, чтобы не дублировались на разных машинах)

The MASTER

Дата 4.3.2005, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Тогда помогите сделать так, чтобы пароли прописывались в реестр и считывались тоже от туда и программа при нажатие кнопки войти будет сверять их, и как лучше сделать, чтобы пароль уже был какой-то? или лучше потом в программе задать?

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

The MASTER

Дата 4.3.2005, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Так, что, кто нибудь поможет? smile

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

Snowy

Дата 4.3.2005, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Пусть пользователь придумывает пароль. Шифруй его по MD5 и сохраняй результат в реестр.
Как работать с реестром - читай в DRKB или FAQ.
Также придумай, чтобы пользователь не смог 2 раза завести пароль, удалив ветку в реестре или переустановив программу.

Vit

Дата 4.3.2005, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Пароли НИКОГДА не хранятся нигде. Храни хэш, сравнивай с хэшем введенного пароля...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

The MASTER

Дата 6.3.2005, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Vit А как в кэше хранить?

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

p0s0l

Дата 6.3.2005, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Не кэш, а хэш smile

Погляди эту темку, там пример использования MD5:
http://forum.vingrad.ru/index.php?showtopi...=0&#entry238724
тебе нужно будет вместо поля ввода имени юзера сделать ComboBox и оставить всего 1 кнопку...

--------------------

С уважением, г-н Посол.

The MASTER

Дата 6.3.2005, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

У меня вот так:

Выбор имени пользователя из Combobox1
Пароль из Edit1

Разве что-то не так? smile

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

p0s0l

Дата 6.3.2005, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Должно быть так примерно:

Код

function CheckUserPass (const UserName, UserPass : string) : boolean;	
var	
  S : TStringList;	
begin	
  S := TStringList.Create;	
  try	
    S.LoadFromFile('passwords.txt');	
  except end;	
  Result := S.Values[UserName] = MD5(UserPass);	
  S.SaveToFile('passwords.txt');	
  S.Free;	
end;	

procedure TForm1.Button1Click(Sender: TObject);	
begin	
  if not CheckUserPass(ComboBox.Text, Edit1.Text) then	
    ShowMessage('Неправильный пароль')	
  else	
    ShowMessage('Всё правильно');	
end;

ComboBox1 должен содержать имя юзеров
Edit1 - для ввода пароля
Button1 - для проверки введенного пароля

Хэши паролей хранятся в passwords.txt...
Чтобы всё это заработало, нужно вначале в passwords.txt прописать эти хэши...
Юзер и хэш пароля можно прописать этой функцией:

Код

procedure AddUserPass (const UserName, UserPass : string);	
var	
  S : TStringList;	
begin	
  S := TStringList.Create;	
  try	
    S.LoadFromFile('passwords.txt');	
  except end;	
  S.Values[UserName] := MD5(UserPass);	
  S.SaveToFile('passwords.txt');	
  S.Free;	
end;

--------------------

С уважением, г-н Посол.

The MASTER

Дата 9.3.2005, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Спасибо сегодня проверю! smile

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »