scripts/makepasswd

   1 #!/usr/bin/perl
   2
   3 $| = 1;
   4
   5 print "plaintext> ";
   6 while (<>) {
   7     chomp;
   8     $result = &mkpasswd($_);
   9     print "\t$result\n";
  10     print "plaintext> ";
  11 }
  12
  13 sub mkpasswd {
  14     my $what = $_[0];
  15     my $salt = chr( 65 + rand(27) ) . chr( 65 + rand(27) );
  16     $salt =~ s/\W/x/g;
  17
  18     return crypt( $what, $salt );
  19 }
  20
  21 # vim:ts=4:sw=4:expandtab:tw=80