[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  
   3  # $Id$
   4  #use Crypt::SmbHash;
   5  use Encode::compat;
   6  use Encode qw(encode decode);
   7  
   8  $password = $ARGV[0];
   9  if ( !$password ) {
  10                  print "Not enough arguments\n";
  11                  print "Usage: $0 password\n";
  12                  exit 1;
  13  }
  14  
  15  # Generation du mot de passe crypte
  16  $crypt = `/usr/sbin/slappasswd -h {MD5} -s '$password'`;
  17  
  18  
  19  
  20  #return "$crypt";
  21  print "$crypt";