]>
git.immae.eu Git - perso/Immae/Projets/Puppet.git/blob - modules/base_installation/files/scripts/ldap_ssha
3 use Digest
::SHA
qw(sha1);
7 system ( "stty -echo");
11 $salt .= ('.','/',0..9,'A'..'Z','a'..'z')[rand 64] foreach(1..8);
13 print "\nHashed string for LDAP:\nuserPassword: {SSHA}" . encode_base64
(sha1
($secret . $salt) . $salt, '') . "\n";