Скан диапозона ip [delphi]
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Скан диапозона ip [delphi] - 2010-02-18 17:53:34.516666
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
Народ подскажите, как можно просакнить заданный диапазон: 127.0.45.1-127.0.47.255 ??
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:08:02.726666
|
|
|
susanin_lost
Сообщений: 36
Оценки: 0
Присоединился: 2008-11-03 22:25:57.423333
|
var i,j:integer;
for i:=45 to 47 do
begin
for j:=1 to 255 do
begin
сканим_единственный_ip(127.0.i.j);
end;
end;
Как-то так…
А вообще что понимается у тебя под "просканить"? Нужно определить открытые порты, или просто определить что компьютер с известным адресом находится в сети?
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:13:43.323333
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
for q:= 45 to 47 do for w:=1 to 255 do это я и сам знаю, как просканить не важно, главное алгоритм
проблема в том, что диапазон может быть другим, и содержится в строке… он может и 127.xxx.xxx.xxx-129.xxx.xxx.xxx быть, так что нужно сделать алгоритм, по которому можно будет все варианты сканить..
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:18:17.203333
|
|
|
susanin_lost
Сообщений: 36
Оценки: 0
Присоединился: 2008-11-03 22:25:57.423333
|
for i1:=s1 to e1 do
for i2:=s2 to e2 do
for i3:=s3 to e3 do
for i4:=s4 to e4 do
do_stuff();
Нет проблем, делаем цикл четырехкратной вложенности. Хотя не помешает это по нескольким потокам раскидать, для скорости.
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:19:36.500000
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
quote:
Хотя не помешает это по нескольким потокам раскидать, для скорости.
Это потом уже, щас главное с теорией разобраться
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:22:45.680000
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
susanin_lost
глупо, но че то меня заклинело
думал если for q:= 1 to 1 do - будет ошибка
ппц, спс +1
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:36:29.080000
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
Народ, подскажите теперь, как назначить переменным значение между "." ?
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 18:59:29.690000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Покажи прототип своей функции для сканирования определённого ип. Что ты понимаешь под точечкой?
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:04:59.810000
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
_SaZ_ не чего нового
var
s_port:= paramstr(1);
f_port:= paramstr(2);
begin
A.sin_family:=AF_INET;
A.sin_addr.S_addr:=inet_addr(pchar(addr_ip));
S:=socket(AF_INET,SOCK_STREAM,0);
if S=INVALID_SOCKET then
writeln('socket error');
for cl:= StrToInt(s_port) to StrToInt(f_port) do begin
A.sin_port:=htons(cl); quote:
Что ты понимаешь под точечкой?
допустим есть ip ..123.132.255.255
нужно разбить его на значения массива
ip: array[1..4]of byte
....
ip[1]:= 123
ip[2]:= 132
ip[3]:= 255
ip[4]:= 255
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:24:38.003333
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
quote:
Покажи прототип своей функции для сканирования определённого ип.
Не оно ли? Автор ТС
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:27:12.080000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Гугл по ключевым словам: строки в паскале.
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:28:41.200000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Login_hochu
Не оно ли? Автор ТС
Scan.Create(false and true); - убило наповал.
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:31:48.776666
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
Login_hochu да с недели 2 назад пробовал, корявый(
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:36:28.443333
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
Или это.
quote:
Scan.Create(false and true); - убило наповал.
Не заметил сразу.
quote:
if ip.Connected = true then Из той же оперы.
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:40:04.646666
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
quote:
Scan.Create(false and true); - убило наповал.
)) друг посоветовал)
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:41:47.690000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Спроси "зачем?". Очень интересно послушать…
|
|
|
|
|
RE: Скан диапозона ip [delphi] - 2010-02-18 19:43:11.060000
|
|
|
nub Nik
Сообщений: 263
Оценки: 0
Присоединился: 2009-11-18 10:53:00.250000
|
quote:
ORIGINAL: _SaZ_
Спроси "зачем?". Очень интересно послушать…
хз, он мну как раз с потоками разобраться помог
|
|
|
|
|
|
