TCP traffic monitoring

[Apocalypse]

First I would like to say that I am not making a client/server chat or anything like that. All I want to do is log all raw data that comes in and out of a port of my choice. Can anyone please show me a sample script to do something like this?

This is what I got so far, but it doesn't work:

#NoTrayIcon
#include <File.au3>

TCPStartup()
$MainSocket = TCPListen(@IPAddress1, 6112)
If $MainSocket == -1 Then
    MsgBox(0, "TCP Error", "Error Listening on TCP" & @CRLF & "@error = " & @error)
    Exit
EndIf
While 1
    $Socket = TCPAccept($MainSocket)
    If $Socket >= 0 Then
        $recv = ''
        While $recv = ''
            $recv = TCPRecv($Socket, 10000)
            If @error Then ExitLoop
        WEnd
        _FileWriteLog(@ScriptDir & "\my.log", $recv)        
        $recv = ''
    EndIf
WEnd

[martin]

First I would like to say that I am not making a client/server chat or anything like that. All I want to do is log all raw data that comes in and out of a port of my choice. Can anyone please show me a sample script to do something like this?

This is what I got so far, but it doesn't work:

#NoTrayIcon
#include <File.au3>

TCPStartup()
$MainSocket = TCPListen(@IPAddress1, 6112)
If $MainSocket == -1 Then
    MsgBox(0, "TCP Error", "Error Listening on TCP" & @CRLF & "@error = " & @error)
    Exit
EndIf
While 1
    $Socket = TCPAccept($MainSocket)
    If $Socket >= 0 Then
        $recv = ''
        While $recv = ''
            $recv = TCPRecv($Socket, 10000)
            If @error Then ExitLoop
        WEnd
        _FileWriteLog(@ScriptDir & "\my.log", $recv)        
        $recv = ''
    EndIf
WEnd

Looks ok to me. Are you sure something is being sent to that port?

[Apocalypse]

I am running wireshark at the same time to confirm the recieved data. Wireshark shows many packets coming in and out of that port durring the same period of time.

[Sundance]

Hiho,

i think the prog you are running won't make a tcp connect. i guess...

I'am gonna search for a solution. Need a program myself which gets the traffic over a specific port.

till then

Sundance