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