#!/usr/bin/perl

$| = 1;

print "plaintext> ";
while (<>) {
    chomp;
    $result = &mkpasswd($_);
    print "\t$result\n";
    print "plaintext> ";
}

sub mkpasswd {
    my $what = $_[0];
    my $salt = chr(65+rand(27)).chr(65+rand(27));
    $salt =~ s/\W/x/g;
    
    return crypt($what, $salt);
}