Ganibal95
GreenBytes
- Сообщения
- 877
- Репутация
- 240
Всем привет
Как можно по IP(IP активен все норм) узнать какой он содержит порт?
Вот мой скрипт но баг, до 20 доходит(Если подставиш под переменную $i=20 он дойдет до 40) и сразу потом как метеор находит!
Как можно по IP(IP активен все норм) узнать какой он содержит порт?
Вот мой скрипт но баг, до 20 доходит(Если подставиш под переменную $i=20 он дойдет до 40) и сразу потом как метеор находит!
Код:
Func _Scan_PORT($IP)
Local $Port = '-Port'
Opt("TCPTimeout",1)
TCPStartup()
For $i=100 to 10000 Step 1
$Port = TCPConnect($IP,$i)
if $Port <> -1 Then
TCPCloseSocket($Port)
ExitLoop
EndIf
Next
TCPShutdown()
Return $Port
EndFunc