Changeset 128 for locker/bin/webaccess


Ignore:
Timestamp:
Jan 28, 2007, 4:34:38 PM (18 years ago)
Author:
jbarnold
Message:
current copies of locker software
File:
1 edited

Legend:

Unmodified
Added
Removed
  • locker/bin/webaccess

    r127 r128  
    4747        chmod(0777, ".htaccess");
    4848
    49         my $salt = substr($username, 0, 2);
    50         $password = crypt($password, $salt);
     49        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];
     50        $password = crypt($password, '$1$'.$salt);
    5151
    5252        open(HTPASSWD, ">>.htpasswd");
Note: See TracChangeset for help on using the changeset viewer.