From 157983e86e5698ce042322da147b3b3b311cf8a1 Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Fri, 23 Apr 2004 04:15:28 +0000
Subject: Patch for bug 240004: limit the password generation subroutine to
 nice characters only; patch by Paul Wallingford <bugzilla@steeleware.com>;
 r=vladd; a=justdave.

---
 globals.pl | 24 ++----------------------
 1 file changed, 2 insertions(+), 22 deletions(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 1963ca6c3..c3c8f2a96 100644
--- a/globals.pl
+++ b/globals.pl
@@ -426,28 +426,8 @@ sub InsertNewUser {
 }
 
 sub GenerateRandomPassword {
-    my ($size) = @_;
-
-    # Generated passwords are eight characters long by default.
-    $size ||= 8;
-
-    # The list of characters that can appear in a randomly generated password.
-    # Note that users can put any character into a password they choose
-    # themselves.
-    my @pwchars = (0..9, 'A'..'Z', 'a'..'z', '-', '_', '!', '@', '#', '$',
-        '%', '^', '*');
-
-    # The number of characters in the list.
-    my $pwcharslen = scalar(@pwchars);
-
-    # Generate the password.
-    my $password = "";
-    for ( my $i=0 ; $i<$size ; $i++ ) {
-        $password .= $pwchars[rand($pwcharslen)];
-    }
-
-    # Return the password.
-    return $password;
+    my $size = (shift or 10); # default to 10 chars if nothing specified
+    return join("", map{ ('0'..'9','a'..'z','A'..'Z')[rand 62] } (1..$size));
 }
 
 #
-- 
cgit v1.2.3-24-g4f1b