note
valdez
<p>Next time search also on [http://search.cpan.org|CPAN] :) If you search [cpan://password] on CPAN, you will get the following modules:</p>
<ol>
<li>[cpan://Crypt::GeneratePassword]: generate secure random pronounceable passwords</li>
<li>[cpan://Data::Password]: Perl extension for assesing password quality</li>
</ol>
<p>These modules will give what you need and let you follow [merlyn]'s suggestions. For example:</p>
<code>#!/usr/bin/perl
use strict;
use warnings;
use Crypt::GeneratePassword;
use Data::Password qw(:all);
my $password = Crypt::GeneratePassword::word(8, 8);
$DICTIONARY = 4;
$GROUPS = 1;
$FOLLOWING_KEYBOARD = 1;
print "password $password ";
if (my $check = IsBadPassword($password)) {
print "not good, because $check\n";
} else {
print "is good\n";
}</code>
<p>Ciao, Valerio</p>
257101
257101