hi,
Because we use in our LDAP for password md5 with MIME64
(userpassword={MD5}qP0OV/oViFka8YbFMWEWeg==)
We had to make some changes in the Radius.pm file. Here is a patch:
--- Radius.pm Tue Jun 13 10:25:10 2000
+++ Radiusmd5.pm Tue Jun 13 10:26:12 2000
@@ -708,6 +708,18 @@
# via Apache::AuthenRadius or similar
$result = &check_digest_password($user, $submitted_pw, $pw);
}
+ elsif ($pw =~ /^{MD5}/)
+ {
+ require MIME::Base64;
+ require Digest::MD5;
+ my $context = new MD5;
+ $context->reset();
+ $context->add("$submitted_pw");
+
+ my $tmppw = "{MD5}" . MIME::Base64::encode_base64($context->digest());
+ chomp($tmppw);
+ $result = ($tmppw eq $pw);
+ }
else
{
# Just ordinary old plaintext, look for an exact match
--
Regards,
Robin Gruyters - [EMAIL PROTECTED] - WISH BV - nic-hdl: RG3771-RIPE
http://www.wish.net - tel: +31(0)413242500 - fax. +31(0)208762628
PGP key ID DEB8C991 - Head Engineering / Web Designer / B.O.F.H.
BOFH excuse: Telecommunications is downshifting.
===
Archive at http://www.starport.net/~radiator/
Announcements on [EMAIL PROTECTED]
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
