Как определить вхождение Ip в диапазон
- Автор темы ramslader
- Дата начала
- Сообщения
- 3,999
- Репутация
- 967
ramslader [?]
Код:
$sNetIP = "192.168.0.144"
$sNetwork = "192.168.0.0"
$sNetMask = "255.255.255.240"
If _IsIPRange($sNetIP, $sNetwork, $sNetMask) Then
ConsoleWrite(StringFormat("Адрес принадлежит сети!\n"))
Else
ConsoleWrite(StringFormat("Адрес НЕ принадлежит сети!\n"))
EndIf
Func _IsIPRange($s_NetIP, $s_Network, $s_Mask)
$i_NetIP = _IP2Long($s_NetIP)
$i_Network = _IP2Long($s_Network)
$i_CIDR = _IP2Long(_Mask2CIDR($s_Mask))
If ($i_NetIP >= $i_Network) And ($i_NetIP <= ((2^(32 - $i_CIDR)-1) + $i_Network)) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>_IsIPRange
Func _IP2Long($s_IPAddress)
$i_IPLong = ''
$a_IPAddress = StringSplit($s_IPAddress, ".")
For $i = $a_IPAddress[0] To 1 Step -1
Assign($i, $a_IPAddress[$i], 1)
$i_IPLong += Eval($i) * 256^($a_IPAddress[0] - $i)
Next
Return $i_IPLong
EndFunc ;==>_IP2Long
Func _Mask2CIDR($s_Mask)
$s_Bin = ''
$s_Mask = _IP2Long($s_Mask)
_Dec2Bin($s_Mask, $s_Bin)
$i_Pref = Stringinstr($s_Bin, "0")
If Not $i_Pref Then $i_Pref = 32
Return $i_Pref
EndFunc ;==>_Mask2CIDR
Func _Dec2Bin($i_Dec, ByRef $s_Bin)
If Not $s_Bin Then $s_Bin = ''
If( $i_Dec > 2) Then
_Dec2Bin($i_Dec / 2, $s_Bin)
$s_Bin &= Floor(Mod($i_Dec, 2))
EndIf
EndFunc ;==>_Dec2Bin- Сообщения
- 3,999
- Репутация
- 967
madmasles [?]
Пока писал функцию, экспериментировал, да так и оставил.
Код:
Func _IP2Long($s_IPAddress)
$i_IPLong = ''
$a_IPAddress = StringSplit($s_IPAddress, ".")
For $i = $a_IPAddress[0] To 1 Step -1
$i_IPLong += $a_IPAddress[$i] * 256^($a_IPAddress[0] - $i)
Next
Return $i_IPLong
EndFunc ;==>_IP2Long
- Сообщения
- 7,790
- Репутация
- 2,322
Garrett,
Почитал здесь про сети, и, если я правильно понял то, что прочитал, у Вас ошибка: вместо
Должно быть
Почитал здесь про сети, и, если я правильно понял то, что прочитал, у Вас ошибка: вместо
Код:
;~ ...
If ($i_NetIP >= $i_Network) And ($i_NetIP <= ((2 ^ (32 - $i_CIDR) - 1) + $i_Network)) Then
;~ ...
Код:
;~ ...
If ($i_NetIP >= $i_Network) And ($i_NetIP <= ((2 ^ (32 - $i_CIDR) - 2) + $i_Network)) Then
;~ ...- Сообщения
- 3,999
- Репутация
- 967
madmasles [?]
Добавлено:
То, что широковещательный адрес не используется, ещё не говорить о том, что этого делать нельзя. :whistle:
Однако, если понадобится, исправить недолго.
Вы всё правильно поняли, но ведь ramslader хотел проверить, входит ли IP в диапазон выделенных адресов. Поэтому, я намеренно оставил широковещательный адрес (бродкаст).
Добавлено:
Сообщение автоматически объединено:
То, что широковещательный адрес не используется, ещё не говорить о том, что этого делать нельзя. :whistle:
Однако, если понадобится, исправить недолго.
Добрый день! я совсем недавно начал изучать сей язык и передомной встала задача определить к какому диапазону принадлежит ip
на основе Вашего кода напильником допили свой но почему то срабатывает либо первый case либо второй до третьего и исключения не доходит почему то хотя по логике должно срабатывать исключение если я ввожу не тот ip
Прошу подсказать что я делаю не правильно?
на основе Вашего кода напильником допили свой но почему то срабатывает либо первый case либо второй до третьего и исключения не доходит почему то хотя по логике должно срабатывать исключение если я ввожу не тот ip
Прошу подсказать что я делаю не правильно?
Код:
$s ="10.72.15.14"
$a ="255.255.255.0"
;Сети
$n ="192.168.72.0"
$t ="10.72.14.0"
$r ="10.72.15.0"
Local $sNetIP = $s, $sNetwork = $n, $sNetMask = $a
Switch _IsIPRange($sNetIP, $sNetwork, $sNetMask)
Case $sNetwork = "192.168.72.0"
ConsoleWrite(StringFormat("Адрес принадлежит сети 192.168.72.0!\n"))
Case $sNetwork = "10.72.14.0"
ConsoleWrite(StringFormat("Адрес принадлежит сети 10.72.14.0!\n"))
Case $sNetwork = "10.72.15.0"
ConsoleWrite(StringFormat("Адрес принадлежит сети 10.72.15.0!\n"))
Case Else
ConsoleWrite(StringFormat("Адрес НЕ принадлежит сети!\n"))
EndSwitch
Func _IsIPRange($s_NetIP, $s_Network, $s_Mask)
$i_NetIP = _IP2Long($s_NetIP)
$i_Network = _IP2Long($s_Network)
$i_CIDR = _IP2Long(_Mask2CIDR($s_Mask))
If ($i_NetIP >= $i_Network) And ($i_NetIP <= ((2^(32 - $i_CIDR)-1) + $i_Network)) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>_IsIPRange
Func _IP2Long($s_IPAddress)
$i_IPLong = ''
$a_IPAddress = StringSplit($s_IPAddress, ".")
For $i = $a_IPAddress[0] To 1 Step -1
Assign($i, $a_IPAddress[$i], 1)
$i_IPLong += Eval($i) * 256^($a_IPAddress[0] - $i)
Next
Return $i_IPLong
EndFunc ;==>_IP2Long
Func _Mask2CIDR($s_Mask)
$s_Bin = ''
$s_Mask = _IP2Long($s_Mask)
_Dec2Bin($s_Mask, $s_Bin)
$i_Pref = Stringinstr($s_Bin, "0")
If Not $i_Pref Then $i_Pref = 32
Return $i_Pref
EndFunc ;==>_Mask2CIDR
Func _Dec2Bin($i_Dec, ByRef $s_Bin)
If Not $s_Bin Then $s_Bin = ''
If( $i_Dec > 2) Then
_Dec2Bin($i_Dec / 2, $s_Bin)
$s_Bin &= Floor(Mod($i_Dec, 2))
EndIf
EndFunc ;==>_Dec2Bin
- Сообщения
- 8,673
- Репутация
- 2,486
Потому что неверное использование Switch, там проверяется результат работы функции _IsIPRange, а не условие, скорее всего нужно так:
Код:
$s = "10.72.15.14"
$a = "255.255.255.0"
;Сети
$n = "192.168.72.0"
$t = "10.72.14.0"
$r = "10.72.15.0"
Local $sNetIP = $s, $sNetMask = $a
Local $aNetworks[] = [$n, $t, $r]
Local $fFound = False
For $i = 0 To UBound($aNetworks) - 1
If _IsIPRange($sNetIP, $aNetworks[$i], $sNetMask) Then
ConsoleWrite(StringFormat("Адрес принадлежит сети %s!\n", $aNetworks[$i]))
$fFound = True
EndIf
Next
If Not $fFound Then
ConsoleWrite(StringFormat("Адрес НЕ принадлежит сети!\n"))
EndIf
...