tcp packet logging

[Apocalypse]

I would like to log the raw data of all incoming packets from port = 1234 and ip = 63.241.83.?? , but so far I keep getting errors.

My Broken Code:

Dim $vPacket = ""

TCPStartUp()
$iListen = TCPListen("63.241.83.11", 1234)
$iSocket = TCPAccept($iListen)
While True
    $vPacket = TCPRecv ($iSocket, 1024)
    If @error Then $vPacket = 0
    _FileWriteLog(@ScriptDir & "\my.log", $vPacket)
WEnd

Can someone please fix this code.

Also, I don't know how to select a range of IPs like 63.241.83.?? so the code above specifies 63.241.83.11 . If possible help me fix this too.

[ChrisL]

TCPListen("63.241.83.11", 1234)

You should be listening to data on your own IP address. Is this your local IP?

TCPListen(@IPaddress1, 1234)