| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
перебор IP адресов [D7, Win95/98]
BVV © (2004-05-12 13:43:00)Нужно организовать простой перебор 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
Где я ОБЛАЖАЛСЯ?
Verg (2004-05-13 13:27:00) [1]
> memo1.Lines.Add(inet_ntoa(In_Addr(htonl(i))));
BVV (2004-05-13 12:58:00) [2]Что ни кто не в состоянии помочь? Согласен вопрос может быть немного туповат.
| |
