Random Password Generator in Perl

Random Password Generator Script in Perl

Source code :

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

Output :

lOT7b7bxTA5SaRH5e

Output :


                

Comments :