tools/crypt.pl

   1 #!/usr/bin/perl
   2
   3 srand();
   4
   5 @salts = (".", "/", "0".."9", "A".."Z", "a".."z");
   6 $salt = $salts[int(rand(64))] . $salts[int(rand(64))];
   7
   8 my $passwd = shift;
   9 my $encrypted = crypt($passwd, $salt);
  10
  11 print "${encrypted}";