Сканер открытого порта, по диапозону ip Опции

[Mr.Dmitry]

Здраствуйте! помогите написать такой сканер!
Нужно отслеживать открытый порт 1723 в сетки с диапозоном порта 172.27.1.1 до 172.27.254.254
Я написал пробную прогу (переделал с учебника Delphi Глазами хакера) которая сканирует только по 1 из адресов этот порт!
Вот код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  ipstr:string;
  port:integer;
begin
 ipstr:='172.27.176.183';
 port:=1723
 TcpClient1.RemotePort:=IntToStr(port);
 TcpClient1.Open;
 If TcpClient1.Connected then
  Label1.Caption:='Открыт';
  TcpClient1.Close;
end;

При работе этого кода выдаеться что порт открыт
Но если я изменю строку ipstr:='172.27.176.183'; допустим на
ipstr:='1';
Пишит что порт тоше открыт!
И еще как написать чтоб сканировался диапозон адресов а не 1 адресс как у меня сейчас (без ввода диапозона адресов со стороны пользователя)

Сообщение отредактировано: Mr.Dmitry - 13.04.2007 15:09

[Адель]

1. У меня Вообще ничего не пишет((
2. может стоит попробовать увеличивать свойство RemotePort
3. имхо ipstr к TCPClient вообще в данном случае отношения не имеет
4. юзай IP Tools - все давно за тебя сделали

[Mr.Dmitry]

1. У меня Вообще ничего не пишет((
2. может стоит попробовать увеличивать свойство RemotePort
3. имхо ipstr к TCPClient вообще в данном случае отношения не имеет
4. юзай IP Tools - все давно за тебя сделали

Свойство RemotePort я не могу увеличить так как мне нужно отслеживать именно 1723 порт
Ipstr эта переменая которая конечноже не может иметь ни чего общего с TCPClient

for i:=a to b do
  begin
  ipstr:='172.27.176'+IntToStr(i);
  ...
  end;

ну и вложенные циклы можно сделать, соответственно.

СПС