![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Mr.Dmitry |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Здраствуйте! помогите написать такой сканер!
Нужно отслеживать открытый порт 1723 в сетки с диапозоном порта 172.27.1.1 до 172.27.254.254 Я написал пробную прогу (переделал с учебника Delphi Глазами хакера) которая сканирует только по 1 из адресов этот порт! Вот код: procedure TForm1.Button1Click(Sender: TObject); При работе этого кода выдаеться что порт открыт Но если я изменю строку ipstr:='172.27.176.183'; допустим на ipstr:='1'; Пишит что порт тоше открыт! ![]() И еще как написать чтоб сканировался диапозон адресов а не 1 адресс как у меня сейчас (без ввода диапозона адресов со стороны пользователя) Сообщение отредактировано: Mr.Dmitry - 13.04.2007 15:09 |
![]() ![]() |
Mr.Dmitry |
![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Ну че не кто незнает?
|
Адель |
![]()
Сообщение
#3
|
![]() Иллюзия мира ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Женский Репутация: ![]() ![]() ![]() |
1. У меня Вообще ничего не пишет((
2. может стоит попробовать увеличивать свойство RemotePort 3. имхо ipstr к TCPClient вообще в данном случае отношения не имеет 4. юзай IP Tools - все давно за тебя сделали |
Mr.Dmitry |
![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
1. У меня Вообще ничего не пишет(( 2. может стоит попробовать увеличивать свойство RemotePort 3. имхо ipstr к TCPClient вообще в данном случае отношения не имеет 4. юзай IP Tools - все давно за тебя сделали Свойство RemotePort я не могу увеличить так как мне нужно отслеживать именно 1723 порт Ipstr эта переменая которая конечноже не может иметь ни чего общего с TCPClient Цитата for i:=a to b do ну и вложенные циклы можно сделать, соответственно. СПС |
Адель |
![]()
Сообщение
#5
|
![]() Иллюзия мира ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Женский Репутация: ![]() ![]() ![]() |
Цитата Свойство RemotePort я не могу увеличить так как мне нужно отслеживать именно 1723 порт ну конешно не RemotePort, а RemoteHost...опечатка Цитата Ipstr эта переменая которая конечноже не может иметь ни чего общего с TCPClient ты не понял, я про то, что ей присвоили адрес, попросили ввести, и ВСЁ;, больше она не с чем не взаимодействует, зачем она вообще нужна?? |
Mr.Dmitry |
![]()
Сообщение
#6
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
ну конешно не RemotePort, а RemoteHost...опечатка ты не понял, я про то, что ей присвоили адрес, попросили ввести, и ВСЁ;, больше она не с чем не взаимодействует, зачем она вообще нужна?? С ipstr буит цикл дипозонов ip адрессов тоесть по введеному диапозону будет сканироваться окрыт ли такой порт на одном из ip или нет Сообщение отредактировано: Mr.Dmitry - 15.04.2007 17:23 |
Адель |
![]()
Сообщение
#7
|
![]() Иллюзия мира ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Женский Репутация: ![]() ![]() ![]() |
Цитата С ipstr буит цикл дипозонов ip адрессов не, ну что БУДЕТ это понятно, вопрос был о том, что ipstr делает здесь: ipstr:='172.27.176.183'; |
Mr.Dmitry |
![]()
Сообщение
#8
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
не, ну что БУДЕТ это понятно, вопрос был о том, что ipstr делает здесь: ipstr:='172.27.176.183'; ну так я пишу что ipstr -это ip адресс который сканируеться на наличие нужного порта! procedure TForm1.Button1Click(Sender: TObject); Вот посмотри этот пример (Взят с книги Delphi Глазами хакера) тут все работает! ![]() |
Адель |
![]()
Сообщение
#9
|
![]() Иллюзия мира ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Женский Репутация: ![]() ![]() ![]() |
Цитата 1. У меня Вообще ничего не пишет(( ничего новогу сказать не могу. нажимаю сканить (например 80) и он молчит. какой порт ты пытаешь и по какому IPне буду споритть, но имхо ipstr, тут не за что не отвечает. |
![]() ![]() |
![]() |
Текстовая версия | 10.07.2025 18:59 |