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 @@
+#! /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";