(RADIATOR) md5 encryption

[radiator at int.ch]

Hi,

I think if you use the code I sent you it will work - I have
not tested "use Digest::MD5 qw(md5_hex)".  I know that
the format of your encrypted password is wrong.  If you
give the code I sent a try, compare the format, it will
become pretty obvious.

Mickey

At 08:58 29-06-01, Separovic, Jason wrote:
-----Start of Original Message----- 
I'm now using :

#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);
print '$1$'".md5_hex($_[0]);


to get md5 passwords but it still does not authorise.

Database ENCRYPTEDPASSWORD=$1$d41d8cd98f00b204e9800998ecf8427e    -
('password')

        > Here is my config :
        > 
        > <AuthBy SQL>
        >         # Adjust DBSource, DBUsername, DBAuth to suit your DB
        >         DBSource        dbi:Pg:dbname=radiusdb
        >         DBUsername      postgres
        >         DBAuth          password
        > 
        >         RejectEmptyPassword
        > 
        >         AuthSelect select ENCRYPTEDPASSWORD,CHECKATTR,REPLYATTR
from
        > SUBSCRIBERS where USERNAME='%U'
        >         AuthColumnDef 0, User-Password, check
        > </AuthBy>
        > 

Why??? 

-----End of Original Message----- 

===
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.