perl - 使用 perl 编写的 gui 应用程序的身份验证

Question

它不是特定的 perl 问题
我正在构建一个连接到 DB 的 perl gui/wxperl 应用程序。
我希望我的应用程序受密码保护，即首先用户应该输入用户名和密码，然后使用应用程序。

存储密码的最佳安全方法是什么，有人可以提供一个想法，我应该如何存储用户和密码以及如何检索它们进行身份验证的最佳方法是什么？
如果可能的话，有人可以提供一些 perl 代码如何做到这一点吗？

Answer 1

您绝对不想以纯文本格式保存密码，您应该看看使用 sha256。您可以使用 Perl mod Digest::SHA(有关文档，请参阅 CPAN)。

use Digest::SHA qw(sha256);
my $digest = sha256($input_password);
my $saved_digest_password = get_saved_password_for_user($input_user);
if ($digest eq $saved_digest_password){
    # they have the correct password
}

这只是伪代码，但它应该可以帮助您入门。您可以根据自己的意愿定义“get_saved_pa​​ssword_for_user”，无论它是存储在数据库中的某个地方、文件系统或其他地方。只要确保您永远不会在任何地方存储或记录 $input_password。您唯一需要存储的是 $digest 密码。

希望有帮助!