У меня работает снифер, SniferDemo кажется взятый откуда-то с этого форума ...

... но у него есть баг, т.е. когда я получаю пакет она определяет его вроде правильно, вроде всё работает, но port в каком-то непонятном формате, точнее, она выдает одну цифру, а на самом деле цифра другая:
.реальное 3128 соответствует в снифере 14348
.реальное 6112 соответствует в снифере 57367

... немогу понять почему, уже пробывал Хексы вертеть влево и вправо и какие я только мат действия над ними не делал, никак немогу привести к нормальному виду ...

...и еще, кто-нибудь знает как ловить исходящие пакеты ?

всё нашел, htons ...

... а вот насчет исходящих пакетов вопрос еще актуальный

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

Это сообщение отредактировал(а) Rouse_ - 29.4.2005, 20:43

Rouse_ а что за сайт ?

Цитата(RAdmin @ 29.4.2005, 21:50)

Rouse_ а что за сайт ?

Хм, я вроде в профиле его писал...
http://rouse.front.ru
Из-за отсутствия времени на написание статей я просто оформляю ответы на вопросы в виде демо приложений и выкладываю их у себя...

Цитата

А с исходящими пакетами что-то не понятно, там то что не так?

а я их не получаю ... только возвращающиеся широковешательные ... мне собственно нетак уж и нужно, я уже сделал то что мне нужно было, но я хотел бы доделать функциональность програмы по полной ...
Добавлено @ 21:17
... посмотрел на твой сайт .... круто, ты это всё написал ? ...

Rouse_ А, так это ты про свой сайт писал. (знаем, знаем, кстати замечательные примеры)

Цитата(Archon7th @ 29.4.2005, 22:15)

а я их не получаю  ... только возвращающиеся широковешательные ...

Частично непонял... Ты не ловишь ответ на исходящий запрос?
Добавлено @ 21:40

Цитата(Archon7th @ 29.4.2005, 22:15)

... посмотрел на твой сайт .... круто, ты это всё написал ? ...

Это просто демо программы, и создан этот сайт именно из-за моей лени писать документацию (статьи), поэтому я посчитал что чистый код с подробными комментариями даст людям гораздо больше чем попытки объяснить основы...

ситуация такая:

снифер ловит только пакеты от других машин в локалке, а мне нужно ловить и те пакеты которые я сам отправил

т.е. когда я захожу на какую нить машину, по сетевому окружению, я вижу ответ прокси TCP но не вижу запроса, или он UDP ? ... я еще не поймал ниодного TCP пакета от себя, только от других машин ... вот что у меня не работает

Хм, странно - странно. А у тебя всякие там файрволы и т.п. часом не стоят?

конечно стоят ;) ... но дело вроде не вних ...

исходящий UDP, я проверил, я получаю в любом случае, а вот TCP - нет ... почему ?

Ну ты отключи все что там понаставил на время и проверь без них
Исходящий вообще то у меня идет TCP (т.к. идет SMB сессия в домене) и ответ приходит четко...

Цитата(Rouse_ @ 3.5.2005, 14:05)

Ну ты отключи все что там понаставил на время и проверь без них Исходящий вообще то у меня идет TCP (т.к. идет SMB сессия в домене) и ответ приходит четко...

всё отключил, никакого эффекта ... да и закрыты были уменя выборочные порты типа telnet netop и т.п. ...

... всё ровно никаких изменений ... проверил еще .... ловит только широковещательные пакеты

... может я в коде что-то гдето зацепил ?

весь код пересмотрел
может я те на мыло скину исходники ? или саму прогу ... посмотришь ?

... кстати я посмотрел исходный пример из которого брал основу и он тоже не ловит

Это сообщение отредактировал(а) Archon7th - 3.5.2005, 16:47

Ну завтра в аську стукни, посмотрим, что там у тебя за проблема

лучше на мыло, я файл через Аську непошлю ...

Мыло ушло приватом.
Ложи свой код и содержимое лога чего он там пишет (и моего и твоего примера)...
А также если можешь, что примерно должно быть...

Цитата(Rouse_ @ 4.5.2005, 14:29)

Мыло ушло приватом. Ложи свой код и содержимое лога чего он там пишет (и моего и твоего примера)... А также если можешь, что примерно должно быть...

лог у меня в StringGrid

незнаю видешь картинку ?
Добавлено @ 16:36
идея в том что я вижу только широковещательные UDP пакеты, больше исходящиго я ничего не вижу вообще

я сижу под Сквидом 4м, рабочая группа на отдельном Свиче, т.е. не сразу на Хаб всё идет. В настройках прокси никаких заморочек убивающих пакеты не нашел, ... - не понимаю в чем проблемма ...

Знаешь что сделай. Встрой отсечку броадкаста и посмотри что у тебя реально твориться:

Вот примерно таким кодом я убрал лишние броадкасты которыми обмениваются NT системы (их там море)

Код

[b] if htons(SrcPort) or htons(DestPort) = 137 then Exit;[/b]   // Пишем IP адрес отправителя с портом   Addr.S_addr := IPHeader.iph_src;

я еще 138 порт вырубил ... пока никакого результата ...

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

Хм, такс, проверил именно твой вариант, все четко виден как запрос, так и ответ. Никаких проблем.

Цитата(Archon7th @ 5.5.2005, 09:30)

NetTraficMonitor

Дело в том что он показывает все интерфейсы как физические так и виртуальные используя GetIfTable (принцип я показывал в одной из своих статей Мониторинг сетей в дельфи, глава "Определение входящего и исходящего трафика")

В своем же примере я использую GetAdaptersInfo, которая показывает только физические утройства, да к томуже в MSDN написано буквально следующее:

Цитата

The GetAdaptersInfo and GetInterfaceInfo functions do not return information about the loopback interface.

Пару замечаний по коду:
Перепиши вот эти две процедуры следующим образом:

Код

function Tsnif.IPAddrToName(IPAddr : string): string; var   SockAddrIn: TSockAddrIn;   HostEnt: PHostEnt;   WSAData: TWSAData; begin   WSAStartup($101, WSAData);   try     SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));     HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);     if HostEnt <> nil then       result := StrPas(Hostent^.h_name)     else       result:='Фиг знает :(';   finally     WSACleanup;   end; end; function Tsnif.StrFind(first,second : string): boolean; begin   result := first = copy(second,1,length(first)); end;

и добавь приведение номера порта к паравильному порядку байт вот так:

Код

// Пишем IP адрес отправителя с портом   Addr.S_addr := IPHeader.iph_src;   LogData := LogData + Format(LOG_STR_3, [inet_ntoa(Addr), htons(SrcPort)]);   // Пишем IP адрес получателя с портом   Addr.S_addr := IPHeader.iph_dest;   LogData := LogData + Format(LOG_STR_4, [inet_ntoa(Addr), htons(DestPort)]) + LOG_STR_7;

спасибо ... особенно понравилась запись StrFind

... но главная проблема пока актуальна ... я всё никак проверить немогу на других сетях ... вчера дискетку забыл

Цитата(Archon7th @ 5.5.2005, 10:43)

я всё никак проверить немогу на других сетях ... вчера дискетку забыл

К сожалению вот тут на работе все нормально, дома проверять безполезно там более 200 машин в локалке, заколебусь пакеты разгребать. Хотя вот вечером будет возможность протестить на локалке из 2 машин, если не забуту проверю еще раз...

Цитата(Rouse_ @ 29.4.2005, 21:03)

Цитата(RAdmin @ 29.4.2005, 21:50) Rouse_ а что за сайт ? Хм, я вроде в профиле его писал... http://rouse.front.ru Из-за отсутствия времени на написание статей я просто оформляю ответы на вопросы в виде демо приложений и выкладываю их у себя...

А ни кто не в курсе , где нибудь есть демо пакет файрволла???

Цитата(Romikgy @ 8.6.2005, 08:38)

А ни кто не в курсе , где нибудь есть демо пакет файрволла???

http://cs.rivera.ru/modules/PNphpBB2/files...ish-version.zip

Цитата(RAdmin @ 8.6.2005, 14:35)

Цитата(Romikgy @ 8.6.2005, 08:38) А ни кто не в курсе , где нибудь есть демо пакет файрволла??? http://cs.rivera.ru/modules/PNphpBB2/files...ish-version.zip

Спасибо посмотрю