$plain = $ARGV[0];
$crypted = crypt($plain,substr(crypt(substr(time, -8), $plain), -2));
print "$plain -> $crypted\n";