Сканнер расшаренных ресурсов

← →
Kallega (2003-08-27 09:37) [0]

Доброе утро.
Посмотрел сообщение на аналогичную тему, но не могу никак понять, как осуществить перебор IP-адресов. Т.е. чтобы можно было просканировать определённый диапазон IP-адресов.
Заранее спасибо.

← →
Reindeer Moss Eater © (2003-08-27 09:40) [1]

IP адрес - это четырехбайтовое число без знака.

← →
Kallega (2003-08-27 09:47) [2]

Это понятно.
А здесь куда его подставлять?
procedure TfrmMain.ScanShare(Res: TNetResource; Root: Boolean); var hEnum: cardinal; nrResource: array[0..512] of TNetResource; dwSize: DWORD; numEntries: DWORD; i: DWORD; dwResult: DWORD; begin if Root = True then dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, nil, hEnum) else dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Res, hEnum); if dwResult = NO_ERROR then begin dwSize := SizeOf(nrResource); numEntries := DWORD(-1); if WNetEnumResource(hEnum, numEntries, @nrResource, dwSize) = NO_ERROR then begin for i := 0 to numEntries - 1 do begin if nrResource[i].lpRemoteName <> nil then meIPResults.Lines.Add(nrResource[i].lpRemoteName); ScanShare(nrResource[i],false); end;//for end;//if WNetCloseEnum(hEnum); end;//if end;

← →
Reindeer Moss Eater © (2003-08-27 09:50) [3]

У тебя исходный вопрос - как осуществить перебор IP-адресов.

← →
Reindeer Moss Eater © (2003-08-27 09:52) [4]

The WNetOpenEnum function starts an enumeration of network resources or existing connections.
Функция эта сама реализует поиск доступных ресурсов на доступных хостах

← →
Kallega (2003-08-27 09:53) [5]

У тебя исходный вопрос - как осуществить перебор IP-адресов.
//

Да, но в данном контексте :))

← →
Reindeer Moss Eater © (2003-08-27 09:59) [6]

[4]
Расшаренные ресурсы не обязаны лежать на хостах, имеющих IP адрес.

← →
Kallega (2003-08-27 10:04) [7]

Хорошо
Сейчас если я запускаю эту футнкцию в моей локальной сети, она только её и сканирует, а как сделать так, чтобы она сканировала глобально?

← →
Reindeer Moss Eater © (2003-08-27 10:06) [8]

так, чтобы она сканировала глобально?
Во всем интернете что ли?

← →
Kallega (2003-08-27 10:16) [9]

как раз не во всём инете
хочу, чтобы я, например, ввёд диапазон 195.5.57.0-195.5.57.255 - это дипазон ИП-шников Укртелекома - провайдера телефонной связи и инета у нас, на Украине, и получил список расшаренных ресурсов абонентов этого провайдера

← →
Е-Моё имя © (2003-08-27 10:18) [10]

ишь какой шустрый....

← →
Kallega (2003-08-27 10:24) [11]

ишь какой шустрый....

да ничё я не шустрый
существует миллион таких программ, просто хотелось написать самому
я знаю, что сто процентов, можно средствами Delphi такую вещь, только не знаю как :))

← →
Е-Моё имя © (2003-08-27 10:50) [12]

поищи в сети примеры
я нашел в свое время, и ты найдешь ;)
тема-то скользкая, мало кто посоветует чо-нить

← →
Kallega (2003-08-27 11:13) [13]

почему же скользкая? может сканить провайдера и не совсем законно.... но что поделаешь, если хочется
а искать в сети примеры - я бы с радостью, но у меня ограничение по трафику, поэтому я сижу только на этом форуме и в аське :(((
если ты говоришь, что находил, может поделишься?

Kallega (27.08.03 11:13)
до дому доберусь, может и поделюсь ;-)
на эту тему щас нет ничо

> Reindeer Moss Eater © (27.08.03 09:59) [6]

Поподробнее плз. Вы уверены за правильность построения фразы?

Желаю успехов

Rouse_ ©
Поподробнее плз.
Поподробнее плиз, о чем поподробнее?

Вы уверены за правильность построения фразы?
Абсолютно

Желаю успехов
Это лишнее.

← →
Ura (2003-08-28 09:02) [17]

Я делал дак:
По ip адресу узнавал имя машины через gethostbyaddr
Потом функцией NetShareEnam смотрел ресурсы

> Желаю успехов
> Это лишнее.

:))))))))))))))))))))))

Сканнер расшаренных ресурсов Найти похожие ветки