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

发布于 2024-09-18 05:45:56 字数 255 浏览 7 评论 0原文

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

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

我发现了一种叫做 MD5 加密的东西。请任何人都可以给向我提供有关此内容的更多信息，并帮助我了解如何编写代码或任何链接关于这个？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

独享拥抱 2024-09-25 05:45:56

当你最初设置用户时调用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。这些参数是您从数据库中检索给定用户名的加密哈希值以及用户刚刚给出的密码。返回值是布尔值。

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

Call make_crypto_hash when you initially set up the user, the parameter is his given passphrase. Store the function return value in the database.

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

Call match_passphrase_against_crypto_hash when someone logs in and you want to see whether the passphrase belongs to the user. The parameters are the crypto hash you retrieve from the database for the given user name, and the passphrase just given by the user. The return value is boolean.

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

回复收藏 0 原文