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 [EMAIL PROTECTED]
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
