Untitled

Public Function protocolo() As Byte()
        Dim buffer As New List(Of Byte)
        buffer.Add(2)
        buffer.AddRange(Guid.NewGuid().ToByteArray())
        buffer.AddRange(BitConverter.GetBytes(Convert.ToInt16(666)))
        buffer.Add(0)
        buffer.AddRange(BitConverter.GetBytes(Convert.ToInt16(5000)))
        buffer.AddRange(New Byte() {0, 0, 0, 0}) '
        buffer.AddRange(New Byte() {0, 0})
        buffer.AddRange(New Byte() {0, 0, 0, 0})
        buffer.AddRange(Encoding.UTF8.GetBytes(nick.Text))
        buffer.Add(0)
        buffer.AddRange(Encoding.UTF8.GetBytes(" b0t test by guachorro"))
        buffer.Add(0)
        buffer.AddRange(IPAddress.Parse("127.1.0.0").GetAddressBytes())
        buffer.AddRange(IPAddress.Parse("6.6.6.6").GetAddressBytes())
        buffer.Add(0)
        buffer.Add(0)
        buffer.Add(0)
        buffer.Add(0)
        buffer.Add(CByte(73))
        buffer.Add(CByte(1))
        buffer.Add(CByte(9))
        buffer.AddRange(Encoding.UTF8.GetBytes("Córdoba"))
        buffer.Add(0)
        buffer.InsertRange(0, BitConverter.GetBytes(Convert.ToInt16(buffer.Count - 1)))
        Return buffer.ToArray()
    End Function