(RADIATOR) passwords

[Tech]

Hi Hugh,
We are just about there I am now returning the whole username with the realm
removed as a password but now have to bring this down to 6 places as can be seen
from the log below
Thanking you to date.

Fri Sep 21 11:09:25 2001:1000861765:1234567890:1234567890:123456:FAIL
Fri Sep 21 11:38:21 2001:1000863501:1234567890:1234567890:123456:FAIL

Hugh Irvine wrote:

> Hello -
>
> *sigh*
>
> One more time.
>
> :-/
>
> # -*- mode: Perl -*-
> # addUsernameAsPassword
> #
> # PreAuthHook to add a Password attribute
> # to an Access-Request.
> # The User-Name is used for the Password.
> # Note that the Password must be encoded
> # with the shared secret of the original NAS.
> #
> # Author: Hugh Irvine (hugh at open.com.au)
> # Copyright (C) 2001 Open System Consultants
> #
>
> sub
> {
>     my $p = ${$_[0]};
>     my $rp = ${$_[1]};
>
>     # Get the request code and password.
>     my $code = $p->code;
>     my $password = $p->get_attr('User-Password');
>
>     if (($code eq 'Access-Request') && ($password eq ""))
>     {
>         my $secret = $p->{Client}->{Secret};
>         my $user = $p->get_attr('User-Name');
>
>         print "User-Name = $user, Secret = $secret \n";
>
>         $p->change_attr('User-Password',
>             $p->encode_password($user, $secret));
>     }
>     return;
> }
>
> Don't forget to remove the "print" statement when you are happy with the
> operation of the hook (assuming we get it to work one day ...).
>
> BTW - I also modified the code to check for the existence of a valid password.
>
> My apologies - it hasn't been a good couple of weeks.
>
> regards
>
> Hugh
>
>
> > >
> > > --
> > > Radiator: the most portable, flexible and configurable RADIUS server
> > > anywhere. Available on *NIX, *BSD, Windows 95/98/2000, NT, MacOS X.
> > > -
> > > Nets: internetwork inventory and management - graphical, extensible,
> > > flexible with hardware, software, platform and database independence.
> > > ===
> > > 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.
>
> --
> Radiator: the most portable, flexible and configurable RADIUS server
> anywhere. Available on *NIX, *BSD, Windows 95/98/2000, NT, MacOS X.
> -
> Nets: internetwork inventory and management - graphical, extensible,
> flexible with hardware, software, platform and database independence.
> ===
> 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.

===
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.