[perso/Immae/Projets/Puppet.git] / modules / base_installation / files / scripts / ldap_ssha

#! /usr/bin/perl
use strict;
use Digest::SHA qw(sha1);
use MIME::Base64;

print 'Password: ';
system ( "stty -echo");
my $secret = <STDIN>;
chomp $secret;
my $salt;
$salt .= ('.','/',0..9,'A'..'Z','a'..'z')[rand 64] foreach(1..8);

print "\nHashed string for LDAP:\nuserPassword: {SSHA}" . encode_base64(sha1($secret . $salt) . $salt, '') . "\n";
Commit	Line	Data
b3ac23bb IB	1	#! /usr/bin/perl
	2	use strict;
	3	use Digest::SHA qw(sha1);
	4	use MIME::Base64;
	5
	6	print 'Password: ';
	7	system ( "stty -echo");
	8	my $secret = <STDIN>;
	9	chomp $secret;
	10	my $salt;
	11	$salt .= ('.','/',0..9,'A'..'Z','a'..'z')[rand 64] foreach(1..8);
	12
	13	print "\nHashed string for LDAP:\nuserPassword: {SSHA}" . encode_base64(sha1($secret . $salt) . $salt, '') . "\n";