форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Разговоры, обсуждение новостей (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 on 25-Мрт-03, 10:46

В примере полно ошибок! Насколько я понимаю это проверка на вшивость ? :))))

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

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

	3. "Операции проверки IP на вхождение в сеть a.b.c.dN или a.b.c...."
	Сообщение от Zergling 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]