所以,我有一个从数据库中读取/验证(和写入)密码哈希的网站,我有一些东西可以生成SHA-512样式的密码哈希,看起来像:
$6$GloHensinmyampOc$AxvlkxxXk36oDOyu8phBzbCfLn8hyWgoYNEuqNS.3dHf4JJrwlYCqha/g6pA7HJ1WwsADjWU4Qz8MfSWM2w6F.
该网站是基于java的,所以我为它写了一个SHA-512哈希.麻烦的是,有一堆perl cron作业运行,还需要偶尔验证密码哈希到数据库,并且由于那些在Solaris机箱上运行,它的crypt不支持$6 $格式.
所以,当我这样做时:
printf("crypt => '%s'\n",crypt("Hello",'$1$CygnieHyitJoconf$'));
我理智地回来了:
crypt => '$1$CygnieHy$n9MlDleP0qmGCfpbnVYy11'
然而,如果我这样做
printf("crypt => '%s'\n",'$6$CygnieHyitJoconf$'));
我得到了一个无益的帮助
crypt => ''
有没有办法在不使用glibc的盒子上获取Perl中的SHA-512密码哈希值? (这是我在大多数搜索时被告知的内容(“使用地穴”).
我真的不想在perl中重新实现SHA-512密码哈希.
谢谢!
解决方法
实际上,我想我刚刚找到了自己的答案:
Crypt::Passwd::XS
Crypt :: Passwd :: XS – 常见crypt()算法的完整XS实现
它有unix_md5,apache_md5,unix_des,unix_sha256和unix_sha512 ..我猜它有点不幸,它不会做河豚.但是,它解决了我的问题!不管怎样,谢谢@hobbs!
use strict; use Crypt::Passwd::XS; { printf("crypt => %s\n",Crypt::Passwd::XS::crypt("Hello",'$6$CygnieHyitJoconf$')); }
现在回来了
crypt => $6$CygnieHyitJoconf$vkGJm.nLrFhyWHhNTvOh9fH/k7y6k.8ed.N7TqwT93hPMPfAOUsrRiO3MmQB5xTm1XDCVlW2zwyzU48epp8pY/
如预期!