#!/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);
}

