Скачать: CL | DM;

перебор IP адресов   Найти похожие ветки 

← →
BVV   (2004-05-12 13:43) [0]

Нужно организовать простой перебор ip адрессов в заданной области. Я уже как то задавал этот вопрос. Вот что у меня получилось.

procedure TForm1.Button2Click(Sender: TObject);
var
 i : integer;
 destAddress : In_Addr;
 StartAddr, FinishAddr: u_long;
begin
ipinp:=Edit1.text;
ipout:=Edit2.text;
memo1.Lines.Clear;

StartAddr :=ntohl(inet_addr(pchar(ipinp)));
FinishAddr:=ntohl(inet_addr(pchar(ipout)));

For i:=StartAddr to FinishAddr do
begin
StartAddr:= StartAddr+1;
memo1.Lines.Add(inet_ntoa(In_Addr(StartAddr)));
end;
end;

Только вот код этот выворачивает ip на изнанку.

251.100.168.192
252.100.168.192
253.100.168.192
254.100.168.192
255.100.168.192
0.101.168.192
1.101.168.192
2.101.168.192
3.101.168.192
4.101.168.192
5.101.168.192
6.101.168.192

Где я ОБЛАЖАЛСЯ?

---

← →
BVV   (2004-05-13 12:58) [1]

Что ни кто не в состоянии помочь? Согласен вопрос может быть немного туповат.

---

← →
Verg ©   (2004-05-13 13:27) [2]

> memo1.Lines.Add(inet_ntoa(In_Addr(htonl(i))));

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c