Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Сканер портов   Найти похожие ветки 

 
Sword-Fish ©   (2003-04-23 13:48) [0]

Добрый день знатоки !!!
У меня такой вопрос !!!
Как мне сделать сканер портов ...
Я пытаюсь так:
беру компоненты из Indy !!!
и поочередно их конектю с портом из цикла(for MyPort:=1 to 200), но что-то не так (я и хост прописываю) а мне надо что бы если такой-то порт открыт, то писалось бы это все в ListBox: например !!!
FTP : Port 21 - Открыт !!!
и т.д.

Как мне поступить !!!


 
S@shka ©   (2003-04-23 14:52) [1]

Интересно каки таки компоненты Indy ты берешь? :)
...
var
TCP : TIdTCPClient;
Host, temp : String;
i : Integer;
begin
TCP := TIdTCpClient.Create;
host := "www.mail.ru"; // ну или типа того :)
tcp.host := host;
for i : =1 to 200 do
begin
tcp.port := i;
try
TCP.Connect;
Memo1.Lines.Add ("Connected");
Temp := tcp.readln(); // как правило чего нить приходит
// например 220 ... для SMTP
Memo1.Lines.Add ("Recv:"+Temp);
except on E:Exception do
end;
end;
tcp.free;
end;


 
$hade ©   (2003-04-23 15:41) [2]

2S@shka ©
Disconnect"ить забыл...
и on E:Exception do нафиг не надо...:-)
да....TCP.ReadLn может ведь и не получить ничего...и так и сидеть
до старости твоей....
Temp:=TCP.ReadLn("",10)


 
S@shka ©   (2003-04-23 15:42) [3]

согласен,
(забыл :)
но не до старост конечно а до time out :)))


 
$hade ©   (2003-04-23 15:51) [4]

неее...до старости...time out по умолчанию -1 или 0 (не помню уже) а сие есть Infinity...:-)



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.075 c
14-84560
Начинающий шароварщик
2003-05-28 16:55
2003.06.26
Shareware - за и против


14-84539
kaif
2003-06-03 17:30
2003.06.26
Можно ли переименовывать таблицы?


14-84549
kaif
2003-06-07 03:43
2003.06.26
Есть заказ для настоящего дельфиста


14-84623
Vulko
2003-06-06 19:57
2003.06.26
Вам говорит о чем нибудь...


1-84181
//ALEX
2003-06-11 22:12
2003.06.26
Процедура отрисовки формы