Текущий архив: 2004.07.11;
Скачать: 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 вся ветка
Текущий архив: 2004.07.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
