[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  
   3  # $Id$
   4  use Crypt::SmbHash;
   5  
   6  $password = $ARGV[0];
   7  if ( !$password ) {
   8                  print "Not enough arguments\n";
   9                  print "Usage: $0 password\n";
  10                  exit 1;
  11  }
  12  
  13  ntlmgen $password, $lm, $nt;
  14  
  15  #return "$lm $nt";
  16  print "$lm $nt";