FIX - In retrieve_password.pl, look for

      $new_password = substr($new_password,1,6);

Remove this line. Then, just below

      srand(time|$$);

Add

      $new_password = int (rand(100000000));

so that you have

      srand(time|$$);
      $new_password = int (rand(100000000));

Or, you can save following page as retrieve_password.pl
and replace your copy:

http://www.dcscripts.com/FAQ/retrieve_password.txt

Please apply this patch as soon as possible. If you have
any questions, please contact me at david@dcscripts.com

Thank you for your continued support.

Regards,

David S. Choi
DCScripts