Написать сканер с диапозоном IP

[ruPy]

Здрасть люди у меня проблема не могу написать сканер, чтоб он использовал не 1 IP адрес, а переберал диапозон IP всего для одного порта.
Если кто знает- помогите!!!!!!!

[Квэнди]

и что же именно у тебя не получается, показывай свой код

[Никки]

for i:=100 to 255 do begin
	for m:=100 to 255 do begin
		for n:=100 to 255 do begin
			for x:=100 to 255 do begin
				ip:=inttostr(i)+'.'+inttostr(m)+'.'+inttostr(n)+'. '+inttostr(x); {здесь будет получатся в строковой переменной IP адреса от 100.100.100.100 до 255.255.255.255 поменяй 100 и 255 в циклах на другие числа и будут другие адреса получатся!}
			end;
		end;
	end;
end;

[zAlexandrz]

получение диапазона :

procedure TForm1.Button15Click(Sender: TObject);
begin
  start[1]:=strtoint(edit3.text);
  start[2]:=strtoint(edit4.text);
  start[3]:=strtoint(edit5.text);
  start[4]:=strtoint(edit6.text);
  stop[1]:=strtoint(edit7.text);
  stop[2]:=strtoint(edit8.text);
  stop[3]:=strtoint(edit9.text);
  stop[4]:=strtoint(edit10.text);
  count:=1;
  listip[count]:=inttostr(start[1])+'.'+inttostr(start[2])+'.'+
                  inttostr(start[3])+'.'+inttostr(start[4]);
  while  not((start[1]=stop[1])and (start[2]=stop[2])and(start[3]=stop[3])and
         (start[4]=stop[4])) do
    begin
      inc(count);
      inc(start[4]);
      listip[count]:=inttostr(start[1])+'.'+inttostr(start[2])+'.'+
                      inttostr(start[3])+'.'+inttostr(start[4]);
      for i:=4 downto 2 do
        if start[i]=255  then
        begin
          inc(start[i-1]);
          start[i]:=0;
        end;
    end;
  listbox1.Clear;
  for i:=1 to count do
    listbox1.Items.Add(listip[i]);
  p:=1;
end;

listip -массив ФйПи
count - количество эллементов

Сканирование порта
(используется что то типа рекурсии)

procedure TForm1.Button16Click(Sender: TObject);
begin
      inc(conline1);
      ClientSocket.Port:=7778;
      ClientSocket.Host:= listip[conline1];
      ClientSocket.Active:=true;
end;

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode:=0;
  if conline1<>count then
    Button16.Click
end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  inc(conline);
  online[conline]:=listip[conline1];
  ClientSocket.Close;
  if conline1<>count then
    Button16.Click
end;

мАССИВ IP c открытыми портом 7778 - online
количество IP - conline

[Квэнди]

а список адресов с помощью winnet не проще получать ?

[ruPy]

Спасибо народ щас попробую и выберу что-нидь!!!!

[zAlexandrz]

Сообщение от Квэнди

а список адресов с помощью winnet не проще получать ?

Недели 4 назад спрашивал, никто не смог дать вразумительный ответ, так что сделал сам, как мог. Кстати, есть один баг и я неуспел его убрать- если конкчное значение поставить 255 то попадаем в бесконечный цикл

[Квэнди]

Когда вы спрашивали вам дали четкий ответ
http://programmersforum.ru/showpost....30&postcount=3