Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: A reasonable temporary password generator?

by valdez (Monsignor)
on May 10, 2003 at 13:12 UTC ( #257125=note: print w/ replies, xml ) Need Help??


in reply to A reasonable temporary password generator?

Next time search also on CPAN :) If you search password on CPAN, you will get the following modules:

  1. Crypt::GeneratePassword: generate secure random pronounceable passwords
  2. Data::Password: Perl extension for assesing password quality

These modules will give what you need and let you follow merlyn's suggestions. For example:

#!/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"; }

Ciao, Valerio


Comment on Re: A reasonable temporary password generator?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://257125]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (16)
As of 2015-07-29 14:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (263 votes), past polls