Идентификация и аутентификация

[Natali_1988ant]

«Идентификация и аутентификация» Студенту необходимо реализовать идентификацию/аутентификацию пользователя при входе в систему (например, парольная аутентификация, одноразовые пароли).
Минимальные требования: в программе должно быть реализовано присвоение пользователю идентификатора (пароля) и проверка подлинности идентификатора (пароля). Желательно обеспечить шифрование хранимых паролей.
Среда программирования выбирается по желанию студента.
Очень-очень нужно, буду благодарна)

[Apchi]

что ж, поделюсь опытом своим и расскажу как вижу вашу систему задания...
допустим "системой" будет окно. Кидаем на нее компоненты 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 символа менять сиволы начала отрезка и конца.