在Perl中创建glibc 2.7样式的Sha-512隐窝哈希

前端之家收集整理的这篇文章主要介绍了在Perl中创建glibc 2.7样式的Sha-512隐窝哈希前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
所以,我有一个从数据库中读取/验证(和写入)密码哈希的网站,我有一些东西可以生成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/

如预期!

猜你在找的Perl相关文章