Quick Random Password Generator for Perl
Mostly writing this for my own future benefit, but if this can help someone else in the process, perfect. Basically, create random strings of random sizes using random characters until the size of the resulting string is greater than 16. Pretty simple. #!/usr/bin/perl my @alphanumeric = (‘a’..’z’, ‘A’..’Z’, 0..9,’!’,’_’,’-‘); my @numeric = (0..9); my $randpassword = ”; until ( length($randpassword) > 16 ) { $randpassword = $randpassword . join ”, map $alphanumeric[rand @alphanumeric], 0..(rand @numeric); } print “$randpassword\n” Save the…