产生随机密码子程序

产生随机密码子程序

#####################################
#
# 本子程序用来产生一个随机密码
# modify by sirbo
#
# 调用方法:
# $weishu=8; #设定总位数
# $password=&randpas($weishu);
#
# 2000.10.29
#####################################

sub randpas{

my $weishu=shift;
my $i=0;
my (@pass,$password,$char,$rand);
while($i<$weishu){
srand;
$rand=rand(128);
if((48<=$rand && $rand<=57) || (65<=$rand && $rand<=90) || (97<=$rand && $rand<=122)){
$char=chr($rand);
push(@pass,$char);
$i++;
}
}

$password=join("",@pass);
return($password);

}#end

--------------------------------------------

#-#############################################
# Sub: 任意密码
# 产生任意 8 个字符的密码
#出处不明

sub randompass {
srand(time ^ $$);
my @passset = ('a'..'k', 'm'..'n', 'p'..'z', '2'..'9');
my $randpass = "";
for (my $i=0; $i<8; $i++) {
$randpass .= $passset[int(rand($#passset + 1))];
}
return $randpass;
}

#-#############################################