Random Password Generator Script in Perl
my $password; my @characters = (('A'..'Z'), ('a'..'z'), ('!','@','%','^'), (0..9)); my $size = $#characters + 1; for (1..17) { $pwd .= $characters[int(rand($size))]; } print "$pwd"
lOT7b7bxTA5SaRH5e
Comments :