VPF::Трафик UDP ??? - Форум программистов

Олег_Игоревич

Дата 8.5.2005, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 21.1.2005

Репутация: нет
Всего: нет

Доброго ВАМ времени суток, уважаемые!

Возник у меня такой вопрос :
как можно узнать кол-во входящего и исходящего трафика по протоколу UDP и другим , как , к примеру, в программе
OutPost Firewall ?
Заранее спасибо !!!

--------------------

Используй жизнь ПО ПОЛНОЙ !!!

Rouse_

Дата 9.5.2005, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 5
Всего: 29

Так пойдет?

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    lblInDatagrams: TLabel;
    lbldwNoPorts: TLabel;
    lbldwInErrors: TLabel;
    lbldwOutDatagrams: TLabel;
    lbdwNumAddrs: TLabel;
    procedure Timer1Timer(Sender: TObject);
  end;

  PMibUdpStats = ^TMibUdpStats;
  _MIB_UDPSTATS = packed record
    dwInDatagrams: DWORD;
    dwNoPorts: DWORD;
    dwInErrors: DWORD;
    dwOutDatagrams: DWORD;
    dwNumAddrs: DWORD;
  end;
  TMibUdpStats = _MIB_UDPSTATS;

  function GetUdpStatistics(var pStats: TMibUdpStats): DWORD;
    stdcall; external 'iphlpapi.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Stats: TMibUdpStats;
begin
  if GetUdpStatistics(Stats) = NO_ERROR then
  begin
    lblInDatagrams.Caption := IntToStr(Stats.dwInDatagrams);
    lbldwNoPorts.Caption := IntToStr(Stats.dwNoPorts);
    lbldwInErrors.Caption := IntToStr(Stats.dwInErrors);
    lbldwOutDatagrams.Caption := IntToStr(Stats.dwOutDatagrams);
    lbdwNumAddrs.Caption := IntToStr(Stats.dwNumAddrs);
  end;
end;

end.

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Олег_Игоревич

Дата 10.5.2005, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 21.1.2005

Репутация: нет
Всего: нет

Большое спасибо Rouse_ ! Всё понятно !!!

--------------------

Используй жизнь ПО ПОЛНОЙ !!!

Дата 17.11.2005, 12:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Скажите, а как при этом узнать IP адреса входящего и исходящего соединения?
А также номера портов smile

Snowy

Дата 17.11.2005, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

В данном примере никак. Тут статистика.
А статистика это обобщенные данные, а не по каждому соединени.
Тут нужно копать в сторону GetUDPTable или GetExtendedUdpTable.

Дата 17.11.2005, 15:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

GetUDPTable не помогает
Про GetExtendedUdpTable инфу не нашел
может линки подкинете или подскажите как можно определить IP адрес удаленного соединения по UDP протоколу?

Заранее спасибо!!!

AntonSaburov

Дата 17.11.2005, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Штурман

Профиль
Группа: Модератор
Сообщений: 5658
Регистрация: 2.7.2002
Где: Санкт-Петербург

Репутация: нет
Всего: 118

Открывать сокеты на уровне ROW_SOCKET. Тогда можно ловить весь траффик и делать с ним что хочешь.

--------------------

Мои проекты для Винграда

Snowy

Дата 17.11.2005, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

UDP протокол не содержит IP адреса.
Поэтому просто так никак.
Нужно ловить все подряд IP пакеты, а потом уже разбираться, UDP это или нет.

Дата 18.11.2005, 08:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Тогда как определить на какой порт пришел перехваченный IP пакет?

Snowy

Дата 18.11.2005, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

А тут уже нужно вытаскивать из него UDP и смотреть в UDP.
Данные о портах там.

Guest

Дата 18.11.2005, 11:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подскажите пожалуйста как это реализовать
в состав пакета входит:

Код


версия и длина заголовка
тип сервиса
длина всего пакета
Идентификация
флаги и смещения
время жизни пакета
протокол
контрольная сумма
IP-адрес отправителя
IP-адрес назначения

Как вытащить из него UDP?

Romikgy

Дата 18.11.2005, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

Цитата(Guest @ 18.11.2005, 11:29)

протокол

Здесь об этом написано smile

Добавлено @ 12:40
Возьми на посмотреть как работает простейший сниффер.

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 18.11.2005, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(Guest @ 18.11.2005, 11:29)

Как вытащить из него UDP?

Это сложнее. Сам UDP пакет может быть разбит по нескольким IP пакетам.
Хотя, если тебе нужен только порт - нужно брать данные из тела IP пакета и разбирать, согласно заголовка UDP. Естественно, если тип данных в пакете UDP.

Дата 18.11.2005, 13:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А есть примерчик? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »