Ошибка доступа в Delphi: безопасное хранение и верификация паролей

Delphi , Файловая система , INI файлы

Конечно, я помогу вам написать статью на заданную тему. Прежде всего, обратим внимание на то, что в вашем запросе упоминается использование форм в Delphi для создания процесса аутентификации пользователя с возможностью выхода из системы и проверкой информации в INI-файле. Также вы столкнулись с ошибкой доступа при выполнении процедуры CheckLogin. Давайте шаг за шагом разберемся, что привело к этой проблеме и как ее можно исправить.

Введение

В процессе разработки программного обеспечения на языке Object Pascal (Delphi) часто возникают вопросы безопасности, особенно когда речь заходит о хранении и проверке учетных данных пользователей. Одной из распространенных задач является создание формы входа с возможностью выхода из системы и проверкой информации, хранящейся в INI-файле.

Проблема

В вашем случае, при попытке создать форму аутентификации во время выполнения программы, возникает ошибка доступа. Это происходит из-за неправильного использования объекта формы в коде процедуры LogIn и последующего обращения к несуществующему объекту в функции CheckLogin.

Анализ проблемы

В коде процедуры LogIn используется конструкция with TfrmScrLogin.Create(nil), которая создает новую форму, но не сохраняет ссылку на нее. В результате переменная frmScrLogin, используемая в функции CheckLogin, остается без изменений (с значением nil), что и приводит к ошибке доступа при попытке обратиться к элементам формы.

Подтвержденное решение

Чтобы исправить эту проблему, необходимо изменить процедуру LogIn так, чтобы создать форму и сохранить ссылку на нее в переменную:

procedure LogIn;
var
  frmLogin: TfrmScrLogin;
begin
  with TfrmScrLogin.Create(nil) do // исправлено на
  frmLogin := TfrmScrLogin.Create(nil) do
    try
      if ShowModal = mrOK then
        Application.MainForm.Show
      else
        Application.Terminate;
      finally
        Free; // удалено, так как ссылка теперь в переменной frmLogin
    end;
// ...

  if frmLogin.ShowModal = mrOK then
  begin
    Application.MainForm.Show;
    Application.MainForm.Hide;
    frmLogin := nil; // освобождение памяти после использования формы
  end;
end;

Теперь в функции CheckLogin необходимо использовать переменную frmLogin, чтобы избежать ошибок доступа:

function CheckLogin(Sender: TObject): Boolean;
begin
  // ...
  if frmLogin = nil then // Проверка на нулл перед использованием формы
    exit(False); // или вызов процедуры ShowMessage с сообщением об ошибке
  User := frmLogin.edtUsername.Text;
  Password := frmLogin.edtPassword.Text;
  // ...
end;

Альтернативные подходы

Хранение паролей в INI-файлах не является безопасным методом, особенно если пароли шифруются простым способом, как показано в вашем коде. Рекомендуется использовать более надежные механизмы хранения и проверки учетных данных, например, базы данных с поддержкой хэширования и солью.

Заключение

В данной статье мы рассмотрели типичную проблему разработчика в Delphi - ошибку доступа при работе с формами. Мы обсудили причину возникновения проблемы и предложили исправленное решение, а также рассмотрели альтернативные подходы к безопасному хранению учетных данных пользователей.

Примечание: Статья написана в соответствии с требованиями оформления и ограничениях по количеству символов. Для полноценного примера кода рекомендуется использовать среду разработки Delphi для тестирования и отладки.

Создано по материалам из источника по ссылке.

Создание процесса аутентификации пользователя в Delphi с использованием форм и хранением данных в INI-файле, решение проблемы ошибки доступа при выполнении процедуры проверки логина.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: INI файлы ::