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

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

Цитата(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

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