#!/usr/local/bin.sun4/perl5 -w

@salt=("a".."z","A".."Z",".","/");
$times=$ARGV[0]||'1';

for (1..$times) {
    $pass="";
    srand();
    for (1..8) {
        $pass.=chr(int(rand(94))+33);
    }
    print "$pass (",crypt($pass,@salt[rand(scalar(@salt))].@salt[rand(scalar(@salt))]),")\n";
}