#! /usr/local/bin/perl
##
## パスワードを決めてやる :D
##
{
  $seed = time|$$;
  $za = &creat_passwd;
  print "$za\n";
}
exit;

sub creat_passwd {
  local($ret) = undef;
  $seed += 3;   # この数字は適当に調整しても OK
  $pass_string = '0123456789abcdefghijkmnpqrstuvwxyz' .
                 'ABCDEFGHJKLMNPQRSTUVWXYZ!?@#$%=+/';
  local($psl) = length($pass_string);
  # パスワード文字列の長さを 8 としている
  foreach ( 1 .. 8 ) {
    srand($seed++);
#    $ret .= pack("C", (int(rand(74))+48));
    $ret .= substr($pass_string,int(rand($psl)),1);
  }
  return $ret;
}