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