perl - 如何在 Perl CGI 程序中加密和解密密码？

Question

我是 Perl CGI 的新手，使用 ActivePerl、SQLite DB、Apache 服务器和 Windows。我有一个输入表单，其中包含 ID、名称、密码等字段在。每当有人输入新条目时，无论他们输入什么密码应该加密并存储在数据库中的字段。

下次当同一用户输入密码时，应该对其进行验证。现在我想需要一个解密函数或代码。

我发现了一种叫做 MD5 加密的东西。请问谁能给我有关此的更多信息，并帮助我了解如何编写代码或任何链接关于这个？

Answer 1

在初始设置用户时调用make_crypto_hash，参数是他给定的密码。将函数返回值存储在数据库中。

sub make_crypto_hash {
    my ($passphrase) = @_;
    return Authen::Passphrase::BlowfishCrypt->new(
        cost        => 8,
        salt_random => 1,
        passphrase  => $passphrase,
    )->as_rfc2307;
}

当有人登录时调用 match_passphrase_against_crypto_hash 并且您想查看密码是否属于该用户。参数是您从数据库中为给定用户名检索的加密哈希，以及用户刚刚提供的密码。返回值为 bool 值。

sub match_passphrase_against_crypto_hash {
    my ($crypto_hash, $passphrase) = @_;
    return Authen::Passphrase::BlowfishCrypt
        ->from_rfc2307($crypto_hash)->match($passphrase);
}