суть: есть freeRadius + железка, которая авторизует клиента по средствам www странички, которая лежит на этой железке. надо сделать страницу, которая будет проводит авторизацию сама находясь локально с freeRadius сервером и слать сигнал на железку пропустить пользователя.

решение: найден такой скрипт http://www.mavetju.org/programming/php.php, добпый человек поделился со всеми. Оказалось, что эксперементальные php функции socket_fd_alloc(); socket_fd_zero(); socket_fd_set(); вычеркнуты из php5. Далее был найден документ на финском из которого был взят тот же файл radius_authentication.inc, но уже под php5.
единственное изменение которое я заметил - это закоментированные socket_fd функции. вот сам файл:

<?php
// radius authentication v1.0 by Edwin Groothuis (edwin@mavetju.org)
function init_radiusconfig(&$server,&$port,&$sharedsecret,&$suffix) {
$file=fopen("./radius_authentication.conf","r");
if ($file==0) {
echo "Couldn't open radius_authentication.conf, exiting";
exit(0);
}
while (!feof($file)) {
$s=fgets($file,1024);
$s=chop($s);
if ($s[0]=="#") continue;
if (strlen($s)==0) continue;
if (preg_match("/^([a-zA-Z]+) (.*)$/",$s,$a)) {
if ($a[1]=="port") { $port=$a[2];continue; }
if ($a[1]=="server") { $server=$a[2];continue; }
if ($a[1]=="secret") { $sharedsecret=$a[2];continue; }
if ($a[1]=="suffix") {
$suffix=$a[2];
if ($suffix=="\"\"") {
$suffix="";
}
continue;
}
}
echo "Unknown config-file option: $a[1] ($s)\n";
exit(0);
}
fclose($file);
}
function RADIUS_AUTHENTICATION($username,$password) {
global $debug;
global $SERVER_ADDR;
$radiushost="";
$sharedsecret="";
$suffix="";
init_radiusconfig(&$radiushost,&$radiusport,&$sharedsecret,&$suffix);
// check your /etc/services. Some radius servers
// listen on port 1812, some on 1645.
if ($radiusport==0)
$radiusport=getservbyname("radius","udp");
$nasIP=explode(".",$SERVER_ADDR);
$ip=gethostbyname($radiushost);
// 17 is UDP, formerly known as PROTO_UDP
$sock=socket_create(AF_INET,SOCK_DGRAM,17);
$retval=socket_connect($sock,$ip,$radiusport);
//if (!preg_match("/@/",$username))
//$username.=$suffix;
if ($debug)
echo "
radius-port: $radiusport
radius-host:
$radiushost
username: $username
suffix: $suffix<hr>\n";
$RA=pack("CCCCCCCCCCCCCCCC",
// auth code
1+rand()%255, 1+rand()%255, 1+rand()%255, 1+rand()%255,
1+rand()%255, 1+rand()%255, 1+rand()%255, 1+rand()%255,
1+rand()%255, 1+rand()%255, 1+rand()%255, 1+rand()%255,
1+rand()%255, 1+rand()%255, 1+rand()%255, 1+rand()%255);
$encryptedpassword=Encrypt($password,$sharedsecret,$RA);
$length= 4+ // header
16+ // auth code
6+ // service type
2+strlen($username)+ // username
2+strlen($encryptedpassword)+ // userpassword
6+ // nasIP
6; // nasPort
$thisidentifier=rand()%256;
// v v v v v v v v
$data=pack("CCCCa*CCCCCCCCa*CCa*CCCCCCCCCCCC",
1,$thisidentifier,$length/256,$length%256, // header
$RA, // authcode
6,6,0,0,0,1, // service type
1,2+strlen($username),$username, // username
2,2+strlen($encryptedpassword),$encryptedpassword, // userpassword
4,6,$nasIP[0],$nasIP[1],$nasIP[2],$nasIP[3], // nasIP
5,3,0,0,0,0 // nasPort
);

echo "
1,$thisidentifier,$length/256,$length%256, // header  

$RA, // authcode  

6,6,0,0,0,1, // service type  

1,2+strlen($username),$username, // username  

2,2+strlen($encryptedpassword),$encryptedpassword, // userpassword  

4,6,$nasIP[0],$nasIP[1],$nasIP[2],$nasIP[3], // nasIP  

5,3,0,0,0,0 // nasPort  
  

";

socket_write($sock,$data,$length);
if ($debug)
echo "
writing $length bytes<hr>\n";
// Wait at most five seconds for the answer. Thanks to
// Michael Long <mlong@infoave.net> for his remark about this.
//
//$set=socket_fd_alloc();
//socket_fd_zero($set);
//socket_fd_set($set,$sock);
//socket_select($set,null,null,5);
//if (!socket_fd_isset($set,$sock)) {
//echo "No answer from radius server, aborting\n";
//exit(0);
}
//socket_fd_free($set);
//$readdata=socket_read($sock,1);
//socket_close($sock);
return ord($readdata);
// 2 -> Access-Accept
// 3 -> Access-Reject
// See RFC2138 for this.
//}
function Encrypt($password,$key,$RA) {
global $debug;
$keyRA=$key.$RA;
if ($debug)
echo "
key: $key
password: $password<hr>\n";
$md5checksum=md5($keyRA);
$output="";
for ($i=0;$i<=15;$i++) {
if (2*$i>strlen($md5checksum)) $m=0; else
$m=hexdec(substr($md5checksum,2*$i,2));
if ($i>strlen($keyRA)) $k=0; else
$k=ord(substr($keyRA,$i,1));
if ($i>strlen($password)) $p=0; else
$p=ord(substr($password,$i,1));
$c=$m^$p;
$output.=chr($c);
}
return $output;
}
?>

Попробовав с ним, как ни странно, появилось продвижение. php стал отсылать пакеты радиусу.
но токо неправильные пакеты.
в логах радиуса такое:

Error: WARNING: Malformed RADIUS packet from host 127.0.0.1: Invalid attribute 0

Из документации радиуса Invalid attribute 0 значит неправильный атрибуит (неправильно сформированый пакет)

вот собственно вопрос: как довести этот скрипт до ума? может есть готовое решение(не замечал в инете)?

ps
система и все компаненты работают корректно пока не производит авторизацию на этотм скрипте.
Если чтойто не верно, скорее поправляйте.

• RADIUS авторизация через web(PHP),pavel_simple, 07:06 , 10-Авг-07
  • RADIUS авторизация через web(PHP),DAtc, 10:34 , 16-Авг-07

а что? mod-auth-radius неподходит?

>а что? mod-auth-radius неподходит?

спс.
есть ещё какойто auth_xradius_module вроде поновее и понавороченее

пробую mod-auth-radius
чтойто не полусается...
freebsd 6.1
apache 2.2.4_2
freeradius 1.1.6

httpd.conf :

#---RADIUS
<IfModule mod_auth_xradius.so>
AddRadiusAuth localhost:1812 test_radius 5:3
</IfModule>

<Location /rtl>
AuthName "Wi-Fi"
AuthRadiusAuthoritative on
AuthType Basic
AuthBasicAuthoritative off
AuthUserFile ./www/hotel/public_html/rtl/.htpasswd
AuthRadiusCookieValid 5
AuthRadiusActive On
require valid-user
</Location>

AuthUserFile закоментить, то пишет в логе: (9)Bad file descriptor: Could not open password file: (null),
а с раскоментиным не читает юзер:пароль из файла

и к радиусу никаких движений нету...

что не так?..