вот написал :-\ может кто знает как лучше?

Elvis 21.03.2007 18:57

@ip[addr;subnet]
$parts[^subnet.split[/;lh]]
$oaddr[$parts.0]$mask[^tmp[$parts.1]]
^connect[$MAIN:mysql_connect]{
$r[^table::sql{select inet_aton('$addr') & inet_aton('$mask') as r1,inet_aton('$oaddr') & inet_aton('$mask') as r2}]
}
^if($r.r1 eq $r.r2){$result(1)}{$result(0)}

#@tmp[n] преобразует n в формат ип-адреса
#например 24 в 255.255.255.0

---