Changeset 1151 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

Timestamp:

09/19/12 17:22:52 (12 years ago)

Author:

nanardon

Message:

add tools to generate random password

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -8 +8 @@
 use LATMOS::Accounts::Log;
 use File::Temp qw(tempfile);
+use Crypt::Cracklib;
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -247 +248 @@
 }
 
+=head2 genpassword
+
+=cut
+
+sub genpassword {
+    my (%options) = @_;
+    my @non_alpha = (qw$; : / ! ( ) [ ] { } + = @ - " ' % * & . ? < >$, ',', '$');
+    my @letters = ('a' .. 'z', 'A' .. 'Z', 0 .. 9);
+
+    my @consonants = qw(b d f g j k l m n r s t v x z ch);
+    my @vowels = qw(a e i o u ou oi io ia iu);
+
+    $options{length} ||= 6 + int(rand(3));
+
+    while (1) {
+        if ($options{syllables}) {
+            $options{length} = int($options{length} / 2);
+            $options{length} = 3 if ($options{length} < 3);
+        } else {
+            $options{length} = 6 if ($options{length} < 6);
+        }
+
+        my @chars;
+
+        if ($options{nonalpha}) {
+            for(0 .. (0 + int(rand(3)))) {
+                push(@chars, (@non_alpha[rand(scalar(@non_alpha))]));
+            }
+        }
+
+        foreach (1 .. ($options{length} - scalar(@chars))) {
+            if ($options{syllables}) {
+                my $c = @consonants[rand(scalar(@consonants))];
+                my $v = @vowels[rand(scalar(@vowels))];
+                push(@chars, "$c$v");
+            } else {
+                push(@chars, (@letters[rand(scalar(@letters))]));
+            }
+        }
+
+
+        my $pass = join('', sort { rand() <=> rand() } @chars);
+        if (length($pass) >= 6 && fascist_check($pass) eq 'ok') {
+            return $pass;
+        }
+    }
+}
+
 1;