08/08/18 21:50:53
sub genpass {
my @chars = (0..9, "A".."Z", "a".."z");
join "", map { $chars[rand(@chars)] } 1..8;
}
print genpass(), "\n";
08/08/18 21:50:53
sub genpass {
my @chars = (0..9, "A".."Z", "a".."z");
join "", map { $chars[rand(@chars)] } 1..8;
}
print genpass(), "\n";