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