Sorry your browser is not supported!

10th April, 2008 : 1.4.1
------------------------------

 * Fixed bug that was causing random crashes for some.
 * Fixed cleanup routine to avoid memory leaks.
 * Fixed flaw in message storing system.
 * Added NET PUT MEMBLOCK and NET GET MEMBLOCK commands to deal with memblocks in messages (note that these can't be used in DBC). For DarkGDK and DBC users the functions NetPutData and NetGetData have been added to allow blocks of data to be handled in messages.
 * Added new option to define the size of the write buffer.


28 February, 2008 : 1.3.2.0
------------------------------

 * Disabled the Nagle algorithm. This will make the networking more responsive when sending repeatedly at a rapid rate.


18 December, 2007 : 1.3.1.0
------------------------------

 * Fixed message processing problem.
 * Added better support for C++ and other languages.
 * Added optional IP address parameter to NET HOST for those that have problems testing on localhost.


3rd May, 2007 : 1.2.1.0
------------------------------

 * Fixed dependency problem.


11th April, 2007 : 1.2.1.0
------------------------------

 * Added the following commands to deal with Windows Firewall: NET FIREWALL ENABLED, NET FIREWALL APPLICATION ENABLED, NET FIREWALL ADD APPLICATION.


14th February, 2007 : 1.1.1.0
------------------------------

 * Added NET SET OPTION to set particular options in the plugin. Added connection timeout option.
 * Set client limit at 16384. If a higher value is used, it will default to this amount.
 * Added NET GET PLAYER IP and NET GET PLAYER PORT.
 * Made some changes for compatibility with DBC Enhanced.
 * Updated manual to explain using plugin outside of DBP.

Global Wmess$
Global Plrs$
Global Message2$

Input "Player Max : ",Plrs$
Print "Player Maximum has bein set to : "+Plrs$
Print ""
Input "Welcome Message : ",Wmess$
Print "Welcome Message has bein set to : "+Wmess$
Print ""
Print ""
Print "Press any key to continue"
wait key
NET HOST Val(Plrs$)
Do
CLS
Print ">>>Host Details<<<"
Print ""
Print ">Server IP : "+GetMyIp()
Print ">Local IP : 127.0.0.1"
Print ">Player Maximum : "+Plrs$
Print "-----------------------------------------------------------------------------"
Print ""
Print ">>>Misc<<<"
Print ">Last Given Error : "+NET GET ERROR()
Print ">Last Received Message : "+Message2$
Print ">Welcome Message : "+Wmess$
Print "-----------------------------------------------------------------------------"
For X=1 to 9999
If NET PLAYER CONNECTED(X)=1
Print "Plr "+Str$(X)+" Exists"
endif
Next X
New#=Net Player Joined()
If New#=>0
Message$=Wmess$
NET PUT STRING Message$
NET SEND New#
New#=0
endif

If NET GET MESSAGE()=1
Message2$=NET GET STRING()
NET PUT STRING Message2$
NET SEND ALL
endif

loop

Global Name$
NET CONNECT "127.0.0.1"
Input "Player Name : ",Name$
Do
If NET CONNECTED()=0
Print "ERROR : Connection with server has bein lost,or was never there."
wait 6000
end
endif
If NET GET MESSAGE()=1
Message$=NET GET STRING()
Print Message$
endif
If Controlkey()=1
Input Name$+">>",Message$
Msg$=Name$+" >> "+Message$
NET PUT STRING Msg$
NET SEND 1
endif
loop

END USER LICENSE AGREEMENT
--------------------------

You are granted permission to use this software for both commercial and non-commercial ventures, provided you abide by the following rules.

- Do not attempt to modify, translate, reverse engineer, decompile, or disassemble this software in any shape or form.
- You may not redistribute versions of the software modified by anyone but the original author himself.

No warranty of any kind is expressed or implied. You use at your own risk. The author will not be liable for data loss, damages, loss of profits or any other kind of loss while using or misusing this software.

Copyright 2007 Benjamin Wharton.

Global Wmess$
Global Plrs$
Global Message2$
If file exist("Log.txt") then delete file "Log.txt"
Open to Write 1,"Log.txt"
Input "Player Max : ",Plrs$
Print "Player Maximum has bein set to : "+Plrs$
Print ""
Input "Welcome Message : ",Wmess$
Print "Welcome Message has bein set to : "+Wmess$
Print ""
Print ""
Print "Press any key to continue"
wait key
NET HOST Val(Plrs$)
Do
CLS
Print ">>>Host Details<<<"
Print ""
Print ">Server IP : "+GetMyIp()
Print ">Local IP : 127.0.0.1"
Print ">Player Maximum : "+Plrs$
Print "-----------------------------------------------------------------------------"
Print ""
Print ">>>Misc<<<"
Print ">Last Given Error : "+NET GET ERROR()
Print ">Last Received Message : "+Message2$
Print ">Welcome Message : "+Wmess$
Print "-----------------------------------------------------------------------------"
For X=1 to 9999
If NET PLAYER CONNECTED(X)=1
Print "Plr "+Str$(X)+" Exists"
endif
Next X
New#=Net Player Joined()
If New#=>0
Message$=Wmess$+"("+GetMyIp()+")"
NET PUT STRING Message$
NET SEND New#
New#=0
endif

If NET GET MESSAGE()=1
Message2$=NET GET STRING()
Write String 1,Message2$
NET PUT STRING Message2$
NET SEND ALL
endif

If Controlkey()=1
Input "Say: ",Say$
Say2$="SERVER : "+Say$
NET PUT STRING Say2$
NET SEND ALL
endif

If Spacekey()=1
Input "New Welcome Message : ",Wmess$
endif

If Shiftkey()=1
Input "Player Number : ",Num$
Net Kick Val(Num$)
Message$="A player has bein kicked!"
NET PUT STRING Message$
NET SEND ALL
endif

loop

thisPlayer = net player from()
playerName(thisPlayer) = net get string()

` Connect to server
result = net connect(ServerIP$)
if result
	print "Connected to server."
else
	print "Failed to connect to server."
	wait key
	end
endif

` This is the server's code for checking for new players
newClient = net player joined()
if newClient > 0
	print "New client connected."
endif

` Send login message to server
net put byte 0
net put string "username"
net put string "password"
net send

` This is the server's code for processing messages
while net get message
	whoSentThis = net message from()
	messageID = net get byte()

	if messageID = 0
		username$ = net get string()
		password$ = net get string()

		` Imagine UserValid indicates if the login is allowed
		if UserValid(username$, password$)

			` The login is allowed (correct info)
			net put byte 1
			net send whoSentThis
		else
			` The login is refused (bad info)
			net put byte 2
			net send whoSentThis
		endif
	endif
endwhile

` Waiting for reply from server...
repeat
until net get message()

` Reply received, check result
messageID = net get byte()
if messageID = 1
	print "Successfully logged in."
else
	print "Failed to log in."
	net disconnect
	wait key
	end
endif

` Constants -----------------------------------
#constant MAXIMUM_CLIENTS         16
#constant MAXIMUM_TEXTLINE_AMOUNT 30

#constant MESSAGE_ID_FAIL         0
#constant MESSAGE_ID_SUCCESS      1
#constant MESSAGE_ID_REGISTER     0
#constant MESSAGE_ID_LOGIN        1
#constant MESSAGE_ID_CHAT         2
#constant MESSAGE_ID_NAMES        3
#constant MESSAGE_ID_NEWCLIENT    4
#constant MESSAGE_ID_CLIENTLEFT   5
` ---------------------------------------------

` Types ---------------------------------------
type ClientData
   loggedIn as boolean
   username as string
endtype
` ---------------------------------------------

` Variables -----------------------------------
dim Clients(MAXIMUM_CLIENTS) as ClientData
dim TextLines(MAXIMUM_TEXTLINE_AMOUNT) as string

global CURRENT_TEXTLINE_AMOUNT as integer
` ---------------------------------------------

sync off

` Start the server
result = net host(MAXIMUM_CLIENTS)
if not result
   AddTextLine("Could not start server: "+chr$(34)+net get error()+chr$(34)+".")
   wait key
   end
endif

AddTextLine("Server started @ "+get time$()+", "+get date$()+".")

` Initialize stuff
DrawTextLines()

do
   ` Check for new clients
   HandleNewConnections()

   ` Check for clients disconnecting
   HandleNewDisconnections()

   ` Check for new messages
   while net get message()
      ProcessMessage()
   endwhile

   ` Pause for 10ms to lower CPU usage
   SleepApplication(10)
loop

function HandleNewConnections()
   newClient = net player joined()
   if newClient > 0
      AddTextLine("Client "+str$(newClient)+" has connected.")
   endif
endfunction

function HandleNewDisconnections()
   leftClient = net player left()
   if leftClient > 0

      ` If client was logged in, display their name, else their number
      if Clients(leftClient).loggedIn
         AddTextLine(Clients(leftClient).username+" has disconnected.")
         Clients(leftClient).loggedIn = 0
         DrawNames()

         ` Inform other clients of this one leaving
         net put byte MESSAGE_ID_CLIENTLEFT
         net put string Clients(leftClient).username
         net send all
      else
         AddTextLine("Client "+str$(leftClient)+" has disconnected.")
      endif
   endif
endfunction

function ProcessMessage()
   sender = net message from()
   msgID = net get byte()

   select msgID

      case MESSAGE_ID_REGISTER
         username$ = net get string()
         password$ = net get string()

         ` Check if account already exists
         if file exist("users\"+username$+".txt")
            net put byte MESSAGE_ID_FAIL
            net put string "username already taken"
            net send sender
            AddTextLine("Client "+str$(sender)+" failed to register.")
         endif

         ` Create account file
         open to write 1, "users\"+lower$(username$)+".txt"
         write string 1, username$
         write string 1, password$
         close file 1

         ` Send success message
         net put byte MESSAGE_ID_SUCCESS
         net send sender
      endcase

      case MESSAGE_ID_LOGIN:
         username$ = net get string()
         password$= net get string()

         ` Try to log client in
         result = ClientLogin(sender, username$, password$)
         if result
            net put byte MESSAGE_ID_SUCCESS
            net send sender
            AddTextLine("Client "+str$(sender)+" successfully logged in as "+Clients(sender).username+".")

            ` Send list of clients connected
            net put byte MESSAGE_ID_NAMES
            for x = 1 to MAXIMUM_CLIENTS
               if Clients(x).loggedIn
                  net put string Clients(x).username
               endif
            next x
            net send sender

            ` Inform other clients of this new one
            net put byte MESSAGE_ID_NEWCLIENT
            net put string Clients(sender).username
            SendAllExcluding1(sender)

            ` Update our view of the logged in clients
            DrawNames()
         else
            net put byte MESSAGE_ID_FAIL
            net send sender
            AddTextLine("Client "+str$(sender)+" failed to log in.")
         endif
      endcase

      case MESSAGE_ID_CHAT:
         message$ = net get string()

         net put byte MESSAGE_ID_CHAT
         net put string Clients(sender).username
         net put string message$
         net send all

         AddTextLine("<"+Clients(sender).username+"> "+message$)
      endcase

      case default:
         AddTextLine("Received unknown message of ID"+str$(msgID)+".")
      endcase

   endselect
endfunction

function ClientLogin(clientNumber as integer, username as string, password as string)
   if not file exist("users\"+username+".txt") then exitfunction 0

   open to read 1, "users\"+username+".txt"
   read string 1, tempUsername$
   read string 1, tempPassword$
   close file 1
   if tempPassword$ <> password then exitfunction 0

   ` Check that client isn't already logged in
   for x = 1 to MAXIMUM_CLIENTS
      if Clients(x).loggedIn
         if Clients(x).username = tempUsername$ then exitfunction 0
      endif
   next x

   Clients(clientNumber).username = tempUsername$
   Clients(clientNumber).loggedIn = 1
endfunction 1

function SendAllExcluding1(exclusion as integer)
   for x = 1 to MAXIMUM_CLIENTS
      if Clients(x).loggedIn
         if x <> exclusion
             net send x, 1
         endif
      endif
   next x
   net send 0
endfunction

function AddTextLine(textLine as string)
   ` If message buffer full, scroll
   if CURRENT_TEXTLINE_AMOUNT = MAXIMUM_TEXTLINE_AMOUNT
      TextLines(CURRENT_TEXTLINE_AMOUNT) = textLine
      for x = 1 to MAXIMUM_TEXTLINE_AMOUNT
         TextLines(x-1) = TextLines(x)
      next x
      TextLines(MAXIMUM_TEXTLINE_AMOUNT) = ""
      DrawTextLines()
   else
      TextLines(CURRENT_TEXTLINE_AMOUNT) = textLine
      inc CURRENT_TEXTLINE_AMOUNT
      text 0, (CURRENT_TEXTLINE_AMOUNT-1)*13, TextLines((CURRENT_TEXTLINE_AMOUNT-1))
   endif
endfunction

function DrawTextLines()
   cls
   for x = 0 to CURRENT_TEXTLINE_AMOUNT
      text 0, x*13, TextLines(x)
   next x
   line 0, (MAXIMUM_TEXTLINE_AMOUNT+1)*13, 640, (MAXIMUM_TEXTLINE_AMOUNT+1)*13
endfunction

function DrawNames()
   ink 0, 0
   box 0, (MAXIMUM_TEXTLINE_AMOUNT+2)*13, screen width(), (MAXIMUM_TEXTLINE_AMOUNT+2)*13+15
   ink rgb(255, 255, 255), 0
   for x = 1 to MAXIMUM_CLIENTS
      if Clients(x).loggedIn then names$ = names$ + Clients(x).username + " "
   next x
   text 0, (MAXIMUM_TEXTLINE_AMOUNT+2)*13, names$
endfunction

function SleepApplication(pauseTime as integer)
   if not dll exist(255) then load dll "kernel32.dll", 255
   call dll 255, "Sleep", pauseTime
endfunction

` Constants -----------------------------------
#constant MAXIMUM_CLIENTS         16
#constant MAXIMUM_TEXTLINE_AMOUNT 30

#constant MESSAGE_ID_FAIL         0
#constant MESSAGE_ID_SUCCESS      1
#constant MESSAGE_ID_REGISTER     0
#constant MESSAGE_ID_LOGIN        1
#constant MESSAGE_ID_CHAT         2
#constant MESSAGE_ID_NAMES        3
#constant MESSAGE_ID_NEWCLIENT    4
#constant MESSAGE_ID_CLIENTLEFT   5
` ---------------------------------------------

` Variables -----------------------------------
dim TextLines(MAXIMUM_TEXTLINE_AMOUNT) as string
global CURRENT_TEXTLINE_AMOUNT as integer
global CURRENT_TEXT_ENTRY as string
global KEYDOWN_RETURN as boolean
` ---------------------------------------------

sync off

` Obtain server's IP address
input "Please enter the server's IP address: ", ip$
if ip$ = "" then ip$ = "127.0.0.1"

` Connect to server
result = net connect(ip$)
if not result
   print "Could not connect to server: "+chr$(34)+net get error()+chr$(34)+"."
   wait key
   end
endif

print "Connected to server @ "+get time$()+", "+get date$()+"."

` MAIN MENU SECTION
section_menu:
print "1. Login."
print "2. Register"
input "Please choose an option: ", option

if option = 1 then goto section_login
if option = 2 then goto section_register
goto section_menu

` REGISTER SECTION
section_register:
print "--- REGISTER ---"
print "Please enter your desired account details below."
input "Username: ", username$
input "Password: ", password$

net put byte MESSAGE_ID_REGISTER
net put string username$
net put string password$
net send
print "Registering..."

repeat
until net get message()

msgID = net get byte()
if msgID = MESSAGE_ID_SUCCESS
   print "Registered as ["+username$+"] with password ["+password$+"]"
else
   print "Failed to register ("+net get string()+")"
   goto section_register
endif

` LOGIN SECTION
section_login:
print "--- LOGIN ---"
print "Please enter your account details below."
input "Username: ", username$
input "Password: ", password$

net put byte MESSAGE_ID_LOGIN
net put string username$
net put string password$
net send
print "Logging in..."

repeat
until net get message()

msgID = net get byte()
if msgID = MESSAGE_ID_SUCCESS
   loggedIn = 1
else
   print "Failed to log in. Remember that passwords are case sensitive."
   goto section_login
endif

` Initialize stuff
cls
clear entry buffer
DrawTextLines()
DrawEntry()

AddTextLine("Successfully logged in.")
AddTextLine("-----------------------")
set window title "Client - Logged in as "+username$

do
   ` Check for new messages
   while net get message()
      ProcessMessage()
   endwhile

   ` Handle user input
   HandleInput()

   ` Pause for 10ms to lower CPU usage
   SleepApplication(10)

   ` Refresh the display
   rem sync
loop

function HandleInput()
   ` Get new text input
   newData$ = entry$()
   if newData$ <> ""
      CURRENT_TEXT_ENTRY = CURRENT_TEXT_ENTRY + newData$
      clear entry buffer

      ` Process backspace
      lenHigh = len(CURRENT_TEXT_ENTRY)
      lenLow = lenHigh - len(newData$)
      for x = lenHigh to lenLow step -1
         char = asc(mid$(CURRENT_TEXT_ENTRY, x))
         if char = 8
            CURRENT_TEXT_ENTRY = left$(CURRENT_TEXT_ENTRY, x-2) + right$(CURRENT_TEXT_ENTRY, len(CURRENT_TEXT_ENTRY)-x)
         else
            if char < 32
               CURRENT_TEXT_ENTRY = left$(CURRENT_TEXT_ENTRY, x-1) + right$(CURRENT_TEXT_ENTRY, len(CURRENT_TEXT_ENTRY)-x)
            endif
         endif
      next x

      DrawEntry()
   endif

   if returnkey()
      if not KEYDOWN_RETURN

         if CURRENT_TEXT_ENTRY <> ""
            ` Send chat message
            net put byte MESSAGE_ID_CHAT
            net put string CURRENT_TEXT_ENTRY
            net send

            CURRENT_TEXT_ENTRY = ""
            DrawEntry()
         endif
         KEYDOWN_RETURN = 1
      endif
   else
      if KEYDOWN_RETURN
         KEYDOWN_RETURN = 0
      endif
   endif
endfunction

function ProcessMessage()
   msgID = net get byte()

   select msgID

      case MESSAGE_ID_CHAT
         username$ = net get string()
         message$ = net get string()
         AddTextLine("<"+username$+"> "+message$)
      endcase

      case MESSAGE_ID_NAMES
         while net get message remainder() > 0
            if names$ <> "" then names$ = names$ + ", "
            names$ = names$ + net get string()
         endwhile
         AddTextLine("Names list: "+names$+".")
      endcase

      case MESSAGE_ID_NEWCLIENT
            AddTextLine(net get string()+" has joined.")
      endcase

      case MESSAGE_ID_CLIENTLEFT
         AddTextLine(net get string()+" has left.")
      endcase

   endselect
endfunction

function AddTextLine(textLine as string)
   ` If message buffer full, scroll
   if CURRENT_TEXTLINE_AMOUNT = MAXIMUM_TEXTLINE_AMOUNT
      TextLines(CURRENT_TEXTLINE_AMOUNT) = textLine
      for x = 1 to MAXIMUM_TEXTLINE_AMOUNT
         TextLines(x-1) = TextLines(x)
      next x
      TextLines(MAXIMUM_TEXTLINE_AMOUNT) = ""
      DrawTextLines()
   else
      TextLines(CURRENT_TEXTLINE_AMOUNT) = textLine
      inc CURRENT_TEXTLINE_AMOUNT
      text 0, (CURRENT_TEXTLINE_AMOUNT-1)*13, TextLines((CURRENT_TEXTLINE_AMOUNT-1))
   endif
endfunction

function DrawTextLines()
   ink 0, 0
   box 0, 0, screen width(), MAXIMUM_TEXTLINE_AMOUNT*13
   ink rgb(255, 255, 255), 0
   for x = 0 to CURRENT_TEXTLINE_AMOUNT
      text 0, x*13, TextLines(x)
   next x
   line 0, (MAXIMUM_TEXTLINE_AMOUNT+1)*13, 640, (MAXIMUM_TEXTLINE_AMOUNT+1)*13
endfunction

function DrawEntry()
      ink rgb(100, 100, 100), 0
      box 0, 460, 640, 480
      ink rgb(255, 255, 255), 0
      text 0, 463, "> "+CURRENT_TEXT_ENTRY
endfunction

function SleepApplication(pauseTime as integer)
   if not dll exist(255) then load dll "kernel32.dll", 255
   call dll 255, "Sleep", pauseTime
endfunction

No.     Time        Source                Destination           Protocol Info
      8 2.163966    192.168.1.14          192.168.1.2           TCP      3542 > 8181 [SYN] Seq=0 Len=0 MSS=1460

Frame 8 (62 bytes on wire, 62 bytes captured)
Ethernet II, Src: GemtekTe_86:6b:57 (00:14:a5:86:6b:57), Dst: Micro-St_1a:d9:99 (00:11:09:1a:d9:99)
Internet Protocol, Src: 192.168.1.14 (192.168.1.14), Dst: 192.168.1.2 (192.168.1.2)
Transmission Control Protocol, Src Port: 3542 (3542), Dst Port: 8181 (8181), Seq: 0, Len: 0

No.     Time        Source                Destination           Protocol Info
      9 2.167269    192.168.1.2           192.168.1.14          TCP      8181 > 3542 [SYN, ACK] Seq=0 Ack=1 Win=65535 Len=0 MSS=1460

Frame 9 (62 bytes on wire, 62 bytes captured)
Ethernet II, Src: Micro-St_1a:d9:99 (00:11:09:1a:d9:99), Dst: GemtekTe_86:6b:57 (00:14:a5:86:6b:57)
Internet Protocol, Src: 192.168.1.2 (192.168.1.2), Dst: 192.168.1.14 (192.168.1.14)
Transmission Control Protocol, Src Port: 8181 (8181), Dst Port: 3542 (3542), Seq: 0, Ack: 1, Len: 0

No.     Time        Source                Destination           Protocol Info
     10 2.167312    192.168.1.14          192.168.1.2           TCP      3542 > 8181 [ACK] Seq=1 Ack=1 Win=17520 Len=0

Frame 10 (54 bytes on wire, 54 bytes captured)
Ethernet II, Src: GemtekTe_86:6b:57 (00:14:a5:86:6b:57), Dst: Micro-St_1a:d9:99 (00:11:09:1a:d9:99)
Internet Protocol, Src: 192.168.1.14 (192.168.1.14), Dst: 192.168.1.2 (192.168.1.2)
Transmission Control Protocol, Src Port: 3542 (3542), Dst Port: 8181 (8181), Seq: 1, Ack: 1, Len: 0

No.     Time        Source                Destination           Protocol Info
     11 2.178875    192.168.1.2           192.168.1.14          TCP      8181 > 3542 [PSH, ACK] Seq=1 Ack=1 Win=65535 Len=3

Frame 11 (60 bytes on wire, 60 bytes captured)
Ethernet II, Src: Micro-St_1a:d9:99 (00:11:09:1a:d9:99), Dst: GemtekTe_86:6b:57 (00:14:a5:86:6b:57)
Internet Protocol, Src: 192.168.1.2 (192.168.1.2), Dst: 192.168.1.14 (192.168.1.14)
Transmission Control Protocol, Src Port: 8181 (8181), Dst Port: 3542 (3542), Seq: 1, Ack: 1, Len: 3
Data (3 bytes)

0000  00 00 00                                          ...

No.     Time        Source                Destination           Protocol Info
     12 2.367886    192.168.1.14          192.168.1.2           TCP      3542 > 8181 [ACK] Seq=1 Ack=4 Win=17517 Len=0

Frame 12 (54 bytes on wire, 54 bytes captured)
Ethernet II, Src: GemtekTe_86:6b:57 (00:14:a5:86:6b:57), Dst: Micro-St_1a:d9:99 (00:11:09:1a:d9:99)
Internet Protocol, Src: 192.168.1.14 (192.168.1.14), Dst: 192.168.1.2 (192.168.1.2)
Transmission Control Protocol, Src Port: 3542 (3542), Dst Port: 8181 (8181), Seq: 1, Ack: 4, Len: 0

No.     Time        Source                Destination           Protocol Info
     13 3.761341    192.168.1.2           192.168.1.14          TCP      8181 > 3542 [PSH, ACK] Seq=4 Ack=1 Win=65535 Len=33

Frame 13 (87 bytes on wire, 87 bytes captured)
Ethernet II, Src: Micro-St_1a:d9:99 (00:11:09:1a:d9:99), Dst: GemtekTe_86:6b:57 (00:14:a5:86:6b:57)
Internet Protocol, Src: 192.168.1.2 (192.168.1.2), Dst: 192.168.1.14 (192.168.1.14)
Transmission Control Protocol, Src Port: 8181 (8181), Dst Port: 3542 (3542), Seq: 4, Ack: 1, Len: 33
Data (33 bytes)

0000  21 00 31 38 3a 32 37 3a 34 31 20 48 65 6c 6c 6f   !.18:27:41 Hello
0010  20 66 72 6f 6d 20 74 68 65 20 73 65 72 76 65 72    from the server
0020  00                                                .

No.     Time        Source                Destination           Protocol Info
     14 3.899126    192.168.1.14          192.168.1.2           TCP      3542 > 8181 [ACK] Seq=1 Ack=37 Win=17484 Len=0

Frame 14 (54 bytes on wire, 54 bytes captured)
Ethernet II, Src: GemtekTe_86:6b:57 (00:14:a5:86:6b:57), Dst: Micro-St_1a:d9:99 (00:11:09:1a:d9:99)
Internet Protocol, Src: 192.168.1.14 (192.168.1.14), Dst: 192.168.1.2 (192.168.1.2)
Transmission Control Protocol, Src Port: 3542 (3542), Dst Port: 8181 (8181), Seq: 1, Ack: 37, Len: 0

No.     Time        Source                Destination           Protocol Info
     15 4.761296    192.168.1.2           192.168.1.14          TCP      8181 > 3542 [PSH, ACK] Seq=37 Ack=1 Win=65535 Len=33

Frame 15 (87 bytes on wire, 87 bytes captured)
Ethernet II, Src: Micro-St_1a:d9:99 (00:11:09:1a:d9:99), Dst: GemtekTe_86:6b:57 (00:14:a5:86:6b:57)
Internet Protocol, Src: 192.168.1.2 (192.168.1.2), Dst: 192.168.1.14 (192.168.1.14)
Transmission Control Protocol, Src Port: 8181 (8181), Dst Port: 3542 (3542), Seq: 37, Ack: 1, Len: 33
Data (33 bytes)

0000  21 00 31 38 3a 32 37 3a 34 32 20 48 65 6c 6c 6f   !.18:27:42 Hello
0010  20 66 72 6f 6d 20 74 68 65 20 73 65 72 76 65 72    from the server
0020  00                                                .