«
»
 

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

 

Posted in Perl |
Tags:

Both comments and pings are currently closed.

Comments are closed.