Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2012, 14:02   #1
Natali_1988ant
Новичок
Джуниор
 
Регистрация: 13.01.2012
Сообщений: 5
По умолчанию Идентификация и аутентификация

«Идентификация и аутентификация» Студенту необходимо реализовать идентификацию/аутентификацию пользователя при входе в систему (например, парольная аутентификация, одноразовые пароли).
Минимальные требования: в программе должно быть реализовано присвоение пользователю идентификатора (пароля) и проверка подлинности идентификатора (пароля). Желательно обеспечить шифрование хранимых паролей.
Среда программирования выбирается по желанию студента.
Очень-очень нужно, буду благодарна)
Natali_1988ant вне форума Ответить с цитированием
Старый 20.02.2012, 21:03   #2
Apchi
 
Регистрация: 08.09.2011
Сообщений: 5
По умолчанию

что ж, поделюсь опытом своим и расскажу как вижу вашу систему задания...
допустим "системой" будет окно. Кидаем на нее компоненты 2 TEdit (edPass, edLogin), две кнопки Button (btConnect, btCancel), TMemo (mmLog). Раскладывай компоненты как тебе удобно. Есть текстовый файл где указаны пары логинов и паролей с разделителем восклицательный знак (!).

в событие onClick кнопки btConnect пишем следующее:
Код:
procedure TForm1.btConnectClick(Sender: TObject);
 var
 login, password, para, buf: string;
 f: TextFile;
begin
 if (edPassword.Text='') or (edLogin.Text='') then showmessage('заполните поля!!!')
 else begin
  login:=edLogin.Text;
  password:=edPassword.Text;
  para:=login+'!'+password;

  AssignFile(f,'login&password.txt');
  reset(f);
  while not eof(f) do begin
   readln(f,buf);
   if (buf=para) then begin
    memo1.lines.add('логин и пароль совпадают. Вход в систему осуществлен');
    edLogin.clear;
    edPassword.clear;
    break;
   end;   
  end;
  closefile(f);
 end;
end;
кнопка btCancel...
Код:
procedure TForm1.btCancelClick(Sender: TObject);
begin
 Close();
end;
для примера в качестве шифрования можно использовать смещение знаков или замена букв русского алфавита на аналог английского и наоборот. можете просто через каждые 3-4 символа менять сиволы начала отрезка и конца.
Apchi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Идентификация и аутентификация в делфи shananina-katya Помощь студентам 0 07.12.2011 19:24
Идентификация листов tae1980 Microsoft Office Excel 7 09.07.2010 08:10
Идентификация Syltan Свободное общение 11 09.11.2009 20:38
Геометрическая идентификация Kail Помощь студентам 11 19.05.2009 23:08
Идентификация пользователя Gorychev PHP 9 10.02.2009 08:56