#!/usr/bin/perl -w

$password = $ARGV[0];
srand(time|$$);
$random = "abcdefghijklmnopqrstuvwxyz1234567890";
for (1..2) {
	$salt .= substr($random,int(rand(36)),1);
}
$field = crypt ($password, $salt);
print $field;