Perl - Порт скан
 

Помогите!

Нужен скрипт для сканирования портов...

Плз..

Ну или хотябы принцип работы... )

Вернее не принцип работы... ) А через что делать... Проюывал через while... Но зашел в тупик!

Через for по диапазону

Ладно, объясню полностью:
1. Свернуть айпишники в 1 цифру
2. Цикл фор между этими цифрами
3. В цикле: Развернуть айпишники и выполнить действия(например порты проверять)

Это все, что тебе надо(причем детально), если, конечно, ты перл знаешь =)

Я тока начал изучать перл... )

Непонял следуюзее:

1. Свернуть айпишники в 1 цифру (Всмысле назначить например: $fip = "Тут начальный IP"; и $sip = "Еонечный IP"; ??????

2. Плохо знаю for ((

Наверно надо: for i= 'начальный порт' to 'конечный порт'

3. Какой функицией проверятть IP ??? Использовать Socket?

Тебе рано этим заниматься.

Типа: Делаю робота. Он почему-то не работает. А что это за штучки-дрючки внутри должны быть?

nerezus, не согласен про свернуть ip в одну цифру, т.к. будет очень много лишней работы. Чтобы гонять IP-ки по циклу надо сделать вложенные циклы, где конечный IP будет монтироваться из переменных полученных после прогона каждого из вложенных циклов причем:

Всего циклов будет 4 (если речь идет о прогоне диапазона на один порт, вслучае прогона IP на много портов - цикл один и IP конечно монтировать ненадо, вслучае прогона диапазона IP на диапазон портов - циклов еще больше), состовляющие IP-адреса должны изменяться от 0-255.

Работа с полученным IP: установить сокетное соединение с данным IP к данному порту. Вслучае неудачи - порт закрыт, вслучаеудачи - открыт, закрыть сокетное соединение и по новой.

Блин. Берешь айпи, берешь порт начальный и пробуешь соедениться.
Берешь след. порт (увелю на 1) и пробуешь...

Zadoxlik, не говори глупости
спрашиваешь, почему сворачивать? смотри:
прогони от 112.4.6.7 до 112.4.7.1 твоим методом:
сколько машин?

в четвертом цикле будет от 7 до 1 с шагом +1
сколько это? правильно, ноль
поэтому надо свернуть

Kez, спор как раз на тему "Берешь айпи"