Changeset 128 for locker/bin/webaccess

Timestamp:

Jan 28, 2007, 4:34:38 PM (18 years ago)

Author:

jbarnold

Message:

current copies of locker software

File:

• locker/bin/webaccess (modified) (1 diff)

locker/bin/webaccess

@@ -47 +47 @@
         chmod(0777, ".htaccess");
 
-        my $salt = substr($username, 0, 2);
-        $password = crypt($password, $salt);
+        my $salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z') [rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64];
+        $password = crypt($password, '$1$'.$salt);
 
         open(HTPASSWD, ">>.htpasswd");