如何在Perl CGI程序中加密和解密密码？
发布时间：2020-12-15 21:15:36 所属栏目：大数据 来源：网络整理
导读：是Perl CGI的新手,使用ActivePerl,SQLite DB,Apache服务器和Windows. 我有一个输入表单,其中包括Id,Name,Password等字段 上.每当有人创建新条目时,无论他们输入密码 应加密并存储在数据库中的字段. 下一次当同一个用户输入密码时,应该验证它.现在 我想要一个
|
是Perl CGI的新手,使用ActivePerl,SQLite DB,Apache服务器和Windows.
我有一个输入表单,其中包括Id,Name,Password等字段 上.每当有人创建新条目时,无论他们输入密码 应加密并存储在数据库中的字段. 下一次当同一个用户输入密码时,应该验证它.现在 我发现了一种叫做MD5加密的东西.请任何人都能给予 解决方法
最初设置用户时调用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);
}
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |