MS FRAMEWORK VB.NET

[Vadym Voytas]

MS FRAMEWORK VB.NET

[Fedorfx]

Вопрос про комп или про сеть?

[gaidar]

Вот исходники сниффера и монитора. Не уверен, что будут работать без доработки.

[Vadym Voytas]

MS FRAMEWORK VB.NET

[gaidar]

Это DLL для мониторинга пакетов. Можно подцепить к собственному проекту и использовать функционал сниффера, например считать размер пакетов - так можно получить объем трафика.

Если честно, смотрел краем глаза и ооочень давно.

[Sebas]

http://www.mentalis.org/soft/projects/pmon/
без ДЛЛ

Sniffer packet traffic

[VAngel]

Скачал, не работает, пишет что не может найти SubMain, скачал другую с Planet Sourcе, работает, но какая та странная вещь происходит в VS2003 все норамльно, а в VS2005 не добавляет почему то строки в поле PacketList, хотя до функции OnNewPacket все доходит нормально

[VAngel]

Да совсем забыл
http://www.planet-source-code.com/Uploa ... 052005.zip

[VAngel]

Разобрал я этот пример, почти все понял...
Но есть проблема.
Вот таким вот кодом мониторю пакеты:

Код: Выделить всё

        Public Delegate Sub NewPacketEventHandler(ByVal m As myMonitor, ByVal p As myPacket)
        Public Event NewPacket As NewPacketEventHandler

        Private socks As System.Net.Sockets.Socket
        Private ip As System.Net.IPAddress
        Private bufer(65535) As Byte

        Private Const IOC_VENDOR As Integer = &H18000000
        Private Const IOC_IN As Integer = -2147483648
        Private Const SIO_RCVALL As Integer = IOC_IN Or IOC_VENDOR Or 1
        Private Const SECURITY_BUILTIN_DOMAIN_RID As Integer = &H20
        Private Const DOMAIN_ALIAS_RID_ADMINS As Integer = &H220

        Public Sub Start()

            socks = New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, _
      Net.Sockets.SocketType.Raw, Net.Sockets.ProtocolType.IP)
            Dim ep As New System.Net.IPEndPoint(ip, 0)
            socks.Bind(ep)
            socks.IOControl(SIO_RCVALL, System.BitConverter.GetBytes(1), Nothing)
            socks.BeginReceive(bufer, 0, bufer.Length, Net.Sockets.SocketFlags.None, AddressOf RecivePKT, Nothing)

        End Sub

        Sub RecivePKT(ByVal ar As IAsyncResult)

            Dim received As Integer = socks.EndReceive(ar)
            Dim pkt(received - 1) As Byte
            Array.Copy(bufer, 0, pkt, 0, received)
            Dim pock As New myPacket(pkt)
            RaiseEvent NewPacket(Me, pock)
            socks.BeginReceive(bufer, 0, bufer.Length, Net.Sockets.SocketFlags.None, AddressOf RecivePKT, Nothing)

        End Sub

myPacket - Это класс в котором пакет разбираеться по кусочкам по спецификации

Пакеты это конечно хорошо, но как определить какое приложение на компе принимает или передает пакет?
Читал я спецификацию TCP в самом пакете такой информации нет, занчит надо рыть в сторону сокетов, может кто знает подскажите.