private Sub udp_PacketArrived (Packet As UDPPacket)
Dim connection As tConnection
connection.Initialize
connection.imei = BytesToString(Packet.Data,Packet.Offset, Packet.Length,"UTF-8")
connection.last_ping = DateTime.Now
connection.rhost = Packet.HostAddress
connection.rport = Packet.Port
connections.Put(connection.imei,connection)
Log("LISTEN " & DateTime.Time(DateTime.Now) & " - " & _
connection.rhost & ":" & connection.rport & " - " & connection.imei )
' // we are testing a response
Dim p As UDPPacket, res As String = "hello " & connection.imei
Dim data() As Byte = res.GetBytes("UTF8")
p.Initialize(data, Packet.HostAddress,Packet.Port)
socketUDP.Send(p)
End Sub