modules/base_installation/files/scripts/ldap_ssha

   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";