The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Раздел полезных советов: Операции проверки IP на вхождение в..."
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение [ Отслеживать ]

"Раздел полезных советов: Операции проверки IP на вхождение в..."  
Сообщение от auto_tips on 25-Мрт-03, 10:46 
$find_net = '123.123.45.4/30';
$some_ip  = '123.123.45.5';
my ($net_ip, $net_mask) = split(/\//, $s_find_ip);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_ip);
$net_ip_raw pack ('CCCC', $ip1, $ip2, $ip3, $ip4);
$net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask)));
# $some_ip_raw  вычисляем по аналогии с $net_ip_raw
if ($some_ip_raw & $net_mask) eq $net_ip_raw){
  # $some_ip_raw входит в подсеть $find_net
}
При указании маски вида $find_net = '123.123.45.4/255.255.255.224'
вместо pack можно преобразовать IP и маску в число по алгоритму:
$net_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;
Тоже проделать с маской и проверяемым IP, вхождение в подсеть будет проверяться условием:
if ($some_ip_raw & $net_mask) == $net_ip_raw){
  # $some_ip_raw входит в подсеть $find_net
}
Другой вариант:
use Socket;
sub isinsubnet {
    my ($subnethost, $subnetmask, $testhost) = @_;
    $subnethost = inet_aton($subnethost);
    $subnetmask = inet_aton($subnetmask);
    $testhost = inet_aton($testhost);
    return (($subnethost & $subnetmask) eq ($testhost & $subnetmask));
}


URL: https://www.opennet.ru/prog/info/1328.shtml
Обсуждается: https://www.opennet.ru/tips/info/206.shtml

Высказать мнение | Ответить | Правка | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Операции проверки IP на вхождение в сеть a.b.c.dN или a.b.c...."  
Сообщение от Zergling email on 25-Мрт-03, 10:46 
В примере полно ошибок!
Насколько я понимаю это проверка на вшивость ? :))))
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Операции проверки IP на вхождение в сеть a.b.c.dN или a.b.c...."  
Сообщение от Maxim Chirkov email on 25-Мрт-03, 13:55 
>В примере полно ошибок!
>Насколько я понимаю это проверка на вшивость ? :))))

А пальцем на ошибки показать можно ? :-)

PS. Выдиралось из разных в отдельности рабочих кусков кода и дописывалось в online, поэтому вполне могли появиться ошибки.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Операции проверки IP на вхождение в сеть a.b.c.dN или a.b.c...."  
Сообщение от Zergling email on 25-Мрт-03, 15:03 
>>В примере полно ошибок!
>>Насколько я понимаю это проверка на вшивость ? :))))
>
>А пальцем на ошибки показать можно ? :-)
>
>PS. Выдиралось из разных в отдельности рабочих кусков кода и дописывалось в
>online, поэтому вполне могли появиться ошибки.
1)в первом там грамматические ошибки
плюс еще то что берем из пустой переменной :)
см в split
2)это во втором примере
полный листинг
$find_net = '123.123.45.0/255.255.255.0';
$some_ip = '123.123.45.254';
my ($net_ip, $net_mask) = split(/\//, $find_net);
#При указании маски вида $find_net = '123.123.45.4/255.255.255.224'
#вместо pack можно преобразовать IP и маску в число по алгоритму:
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_ip);
$net_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_mask);
$net_mask_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
$some_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;

if (($some_ip_raw & $net_mask_raw) == ($net_ip_raw & $net_mask_raw)){
  # $some_ip_raw входит в подсеть $find_net
}

насколько я понимаю так будет правильнее
а так статья в целом классная :)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "исправленный скрипт для a.b.c.d/N"  
Сообщение от Denis Chelukanov on 19-Фев-04, 01:44 
В примере пара ошибочек из-за чего он и не работает. Вот исправленный :

$find_net = '123.123.45.4/30';
$some_ip  = '123.123.45.5';
my ($net_ip, $net_mask) = split(/\//, $find_net);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_ip);
my $net_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);
my $net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask)));

my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

# $some_ip_raw  вычисляем по аналогии с $net_ip_raw
if (($some_ip_raw & $net_mask_raw) eq $net_ip_raw){
  print "$some_ip входит в подсеть $find_net";
}

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

5. "исправленный скрипт для a.b.c.d/N"  
Сообщение от Skif (ok) on 01-Ноя-05, 20:02 
тут они тоже присутсвуют
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

лучше сменить на

my ($ip_1, $ip_2, $ip_3, $ip_4) = split(/\./, $some_ip);
my $some_ip_raw = pack ('CCCC', $ip_1, $ip_2, $ip_3, $ip_4);

или убрать my перед ($ip1, $ip2, $ip3, $ip4)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

6. "Операции проверки IP на вхождение в сеть a.b.c.d/N или a.b.c..."  
Сообщение от nordicdyno on 23-Янв-09, 12:12 
Я могу ошибаться (т.к. не использовал), но разве Net::Patricia не то же самое умеет делать?
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей 		Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру