Сканер портов

← →
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...:-)

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