#!/usr/bin/perl

#use CGI;
$| = 1;
#$query = new CGI;
#$pass = $query->param('PASS');
#$encpass = &encrypt_passwd($pass);
$pa=$ARGV[0];
$encpass = &encrypt_passwd($pa);

#print "Content-type: text/html\n\n";
#print '<table border="1">',"\n";
#print "<tr><td>パスワード</td><td><tt>$pass</tt></td></tr>\n";
#print "<tr><td>暗号化パスワード</td><td><tt>$encpass</tt></td></tr>\n";
#print "</table>\n";

#print "$pa\n";
#print "$encpass\n";
print "$pa:$encpass\n";

exit;

sub encrypt_passwd {
	my($pass)=@_;
	my(@salt_set)=('a'..'z','A'..'Z','0'..'9','.','/');
	srand;
	my($seed1) = int(rand(64));
	my($seed2) = int(rand(64));
	my($salt) = $salt_set[$seed1] . $salt_set[$seed2];
	return crypt($pass,$salt);
}