Creazione di hasc di stile glibc 2.7 Sha-512 hash in Perl

Question

Quindi, ho un sito Web che legge/verifica (e scrive) gli hash delle password dal database, e ho qualcosa che rende gli hash di password stile SHA-512 per quello, quelli che assomiglia a:

$6$GloHensinmyampOc$AxvlkxxXk36oDOyu8phBzbCfLn8hyWgoYNEuqNS.3dHf4JJrwlYCqha/g6pA7HJ1WwsADjWU4Qz8MfSWM2w6F. 

Il sito Web è basato su Java, quindi ho scritto un hash SHA-512 per esso. Il problema è che ci sono un sacco di lavori di cron perl che eseguono che anche devono verificare gli hash delle password occasionalmente nel database, e poiché quelli girano su una scatola di Solaris, la cripta non supporta il formato $ 6 $.

Così, quando lo faccio:

printf("crypt => '%s'\n",crypt("Hello",'$1$CygnieHyitJoconf$')); 

torno sensibilmente:

crypt => '$1$CygnieHy$n9MlDleP0qmGCfpbnVYy11' 

considerando che, se faccio

printf("crypt => '%s'\n",crypt("Hello",'$6$CygnieHyitJoconf$')); 

ottengo un inutile

crypt => '' 

C'è un modo per ottenere gli hash delle password SHA-512 in Perl su una casella che non usa glibc? (Questo è quello che viene detto quando faccio una ricerca per lo più ("uso crypt").

mi piacerebbe molto preferisco non re-implementare SHA-512 hash delle password in perl.

Grazie!

Answer 1

Sfortunatamente no crypt sarà la tua libc di sistema crypt, che è responsabile della scelta degli algoritmi e del mapping delle stringhe di prefissi agli algoritmi.Se vuoi accedere ad algoritmi che non sono nel tuo sistema crypt allora avrai bisogno di usare una re-implementazione di loro, e nel caso di quelli di libc, non so di alcuna reimplementazione. L'hash della password "SHA-512" di glibc non è semplicemente SHA-512, è un algoritmo personalizzato che non Esiste al di fuori di glibc che io conosca. Se hai ancora una possibilità, potresti voler passare a un algoritmo come bcrypt o PBKDF-SHA-2 che ha implementazioni multiple in lingue diverse.

Answer 2

In realtà, penso che ho appena trovato la mia risposta: Crypt::Passwd::XS

Crypt :: :: Passwd XS - Piena attuazione XS di crypt comune() algoritmi

Lo fa unix_md5, apache_md5, unix_des, unix_sha256 e unix_sha512 .. Immagino sia un po 'sfortunato che non faccia blowfish. Ma, tuttavia, risolve il mio problema! Grazie a @hobbs comunque!

use strict; 
use Crypt::Passwd::XS; 

{ 
     printf("crypt => %s\n",Crypt::Passwd::XS::crypt("Hello",'$6$CygnieHyitJoconf$')); 
} 

ora ritorna

crypt => $6$CygnieHyitJoconf$vkGJm.nLrFhyWHhNTvOh9fH/k7y6k.8ed.N7TqwT93hPMPfAOUsrRiO3MmQB5xTm1XDCVlW2zwyzU48epp8pY/ 

come previsto!