Simple password generator

Written by klee on June 3rd, 2016
#!/usr/bin/perl
use strict;
use warnings;

use App::Genpass;

my $generator = App::Genpass->new(
                number    => 5,
                readable  => 0,
                special   => 1,
                specials  =>  [ '!', '#', '$' ],
                verify    => 1,
                length => 14,
);

my @list = $generator->generate();

foreach ( @list ) {
    print "$_\n";
}

Sample Results:
$ perl genpass.pl
QVTEZSe5Iz#wTB
OOKd#fahdwm35Q
UuoJkdxF8#sbD$
Yn!UBqwC0GkW4d
052Z9$NwUf1LCT

 

Comments are closed.