#! /usr/bin/perl
@s = ('a'..'z','A'..'Z','0'..'9','.','/');
srand;

while(<>) {
  ($name, $passwd) = split;
  $salt = $s[ int rand( scalar @s ) ] . $s[ int rand( scalar @s ) ];
  print $name . ":" . crypt($passwd, $salt) . "\n";
}
__END__
