diff options
Diffstat (limited to 'modules/base_installation/files')
-rwxr-xr-x | modules/base_installation/files/scripts/ldap_ssha | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/modules/base_installation/files/scripts/ldap_ssha b/modules/base_installation/files/scripts/ldap_ssha new file mode 100755 index 0000000..cdbea1b --- /dev/null +++ b/modules/base_installation/files/scripts/ldap_ssha | |||
@@ -0,0 +1,13 @@ | |||
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"; | ||