大佬教程收集整理的这篇文章主要介绍了如何在Perl CGI程序中加密和解密密码?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
下一次当同一个用户输入密码时,应该验证它.现在
我想要一个解密函数或代码.
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); }
以上是大佬教程为你收集整理的如何在Perl CGI程序中加密和解密密码?全部内容,希望文章能够帮你解决如何在Perl CGI程序中加密和解密密码?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。