#!/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 '
',"\n";
#print "パスワード | $pass |
\n";
#print "暗号化パスワード | $encpass |
\n";
#print "
\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);
}