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

Question

所以,我有一个从数据库中读取/验证(和写入)密码哈希的网站,我有一些东西可以生成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",crypt("Hello",'$6$CygnieHyitJoconf$'));

我得到了一个无益的帮助

crypt => ''

有没有办法在不使用glibc的盒子上获取Perl中的SHA-512密码哈希值？(这是我在大多数搜索时被告知的内容("使用地穴").

我真的不想在perl中重新实现SHA-512密码哈希.

谢谢!

Answer 1

实际上,我想我刚刚找到了自己的答案: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/

如预期!

Answer 2

不幸的是没有。crypt将是您的系统 libc crypt，它负责选择算法并将前缀字符串映射到算法。如果您想访问系统中没有的算法，crypt那么您需要重新实现它们，对于 libc 算法，我不知道有任何重新实现。glibc 的“SHA-512”密码哈希值不仅仅是 SHA-512；据我所知，这是一种自定义算法，在 glibc 之外不存在。如果您还有机会，您可能想要更改为 bcrypt 或 PBKDF-SHA-2 等在不同语言中具有多种实现的算法。