[C#] Using drew's proxy

Option Infer On

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports SilkroadSecurityApi
Imports System.Diagnostics
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO

Public Class Gateway
    Shared gw_security As New Security()
    Shared gw_recv_buffer As New TransferBuffer(4096, 0, 0)
    Shared gw_packets As New List(Of Packet)()
    Shared gw_socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    Public Shared version As UInteger = UInt32.Parse("197")a
    Shared locale As UInteger = UInt32.Parse("22")
    Shared [loop] As Thread
    Public Sub Start(ByVal IP As String, ByVal Port As String)
        [loop] = New Thread(AddressOf Gateway_thread)
        gw_socket.Connect(IP, Int32.Parse(Port))
        [loop].Start()
        gw_socket.Blocking = False
        gw_socket.NoDelay = True
    End Sub
    Public Sub Gateway_thread()
        While True
            Dim err As SocketError
            gw_recv_buffer.Size = gw_socket.Receive(gw_recv_buffer.Buffer, 0, gw_recv_buffer.Buffer.Length, SocketFlags.None, err)
            If err <> SocketError.Success Then
                If err <> SocketError.WouldBlock Then
                    Exit While
                End If
            Else
                If gw_recv_buffer.Size > 0 Then
                    gw_security.Recv(gw_recv_buffer)
                Else
                    Exit While
                End If
            End If
            Dim tmp_packets As List(Of Packet) = gw_security.TransferIncoming()
            If tmp_packets IsNot Nothing Then
                gw_packets.AddRange(tmp_packets)
            End If

            If gw_packets.Count > 0 Then
                For Each packet As Packet In gw_packets
                    Dim packet_bytes As Byte() = packet.GetBytes()
                    Main.LogPacket("[S->C][{0:X4}][{1} bytes]{2}{3}{4}{5}{6}", packet.Opcode, packet_bytes.Length, If(packet.Encrypted, "[Encrypted]", ""), If(packet.Massive, "[Massive]", ""), Environment.NewLine, _
                     Utility.HexDump(packet_bytes), Environment.NewLine)
                    If packet.Opcode = &H5000 OrElse packet.Opcode = &H9000 Then
                        Continue For
                    End If
                    If packet.Opcode = &H2001 Then
                        If packet.ReadAscii() = "GatewayServer" Then
                            Globals.Server = Globals.ServerEnum.Gateway
                            Dim response As New Packet(&H6100, True, False)
                            response.WriteUInt8(locale)
                            response.WriteAscii("SR_Client")
                            response.WriteUInt32(version)
                            gw_security.Send(response)
                            Main.GUI.Ping.Enabled = True
                        End If
                    ElseIf packet.Opcode = &HA100 Then
                        Dim result As Byte = packet.ReadUInt8()
                        If result = 1 Then
                            Dim response As New Packet(&H6101, True)
                            gw_security.Send(response)
                        Else : Return
                        End If
                    ElseIf packet.Opcode = &HA101 Then

                        Dim ms As New MemoryStream(packet.GetBytes)
                        Dim readPacket As New BinaryReader(ms)
                        readPacket.ReadByte()
                        readPacket.ReadByte()
                        readPacket.ReadChars(readPacket.ReadUInt16())
                        readPacket.ReadByte()
                        readPacket.ReadByte()
                        Dim SvrID = readPacket.ReadUInt16()

                        Dim NameLen = readPacket.ReadUInt16()
                        Dim Name As Char() = readPacket.ReadChars(NameLen)
                        Dim RealName As New String(Name)

                        Dim CurOnServ As Integer = readPacket.ReadUInt16()
                        Dim MaxOnServ As Integer = readPacket.ReadUInt16()
                        Dim ServStat As Integer = readPacket.ReadByte()
                        Dim ServerStatus As String = ""
                        Select Case ServStat
                            Case 0
                                ServerStatus = "Check"
                            Case 1
                                ServerStatus = "Online"
                            Case 2
                                ServerStatus = "Offline"
                        End Select
                        Dim RetString As String = String.Concat(New String() {"Connected to ", RealName, " - ", CurOnServ, "/", MaxOnServ, "  ", ServerStatus})
                        ' Main.Log(RetString)

                        Main.GUI.btn_login.Enabled = True
                        Main.GUI.btn_connect.Enabled = False
                    ElseIf packet.Opcode = &HA102 Then

                        If packet.ReadUInt8() = 1 Then
                            Dim LoginID As UInteger = packet.ReadUInt32()
                            Dim ip As String = packet.ReadAscii()
                            Dim port As UShort = packet.ReadUInt16()
                            Dim ag As New Agent()
                            ag.Start(ip, port.ToString(), LoginID, Main.id, Main.pw)

                            Exit For
                        End If
                    ElseIf packet.Opcode = &H2322 Then
                        Main.GUI.Button1.Enabled = True
                        Dim pixels As UInt32() = Captcha.GeneratePacketCaptcha(packet)
                        Dim rnd As New Random()
                        Captcha.SaveCaptchaToBMP(pixels, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & rnd.[Next](0, 999999) & ".bmp")
                    End If
                Next
                gw_packets.Clear()
            End If
            Dim tmp_buffers As List(Of KeyValuePair(Of TransferBuffer, Packet)) = gw_security.TransferOutgoing()
            If tmp_buffers IsNot Nothing Then
                Dim kvp
                For Each kvp In tmp_buffers
                    Dim buffer As TransferBuffer = kvp.Key
                    Dim packet As Packet = kvp.Value
                    err = SocketError.Success
                    While buffer.Offset <> buffer.Size

                        Dim sent As Integer = gw_socket.Send(buffer.Buffer, buffer.Offset, buffer.Size - buffer.Offset, SocketFlags.None, err)
                        If err <> SocketError.Success Then
                            If err <> SocketError.WouldBlock Then
                                Exit While
                            End If
                        End If


                        buffer.Offset += sent
                        Thread.Sleep(1)
                    End While
                    If err <> SocketError.Success Then
                        Exit For
                    End If

                    Dim packet_bytes As Byte() = packet.GetBytes()
                    Main.LogPacket("[C->S][{0:X4}][{1} bytes]{2}{3}{4}{5}{6}", packet.Opcode, packet_bytes.Length, If(packet.Encrypted, "[Encrypted]", ""), If(packet.Massive, "[Massive]", ""), Environment.NewLine, _
                     Utility.HexDump(packet_bytes), Environment.NewLine)
                Next

                If err <> SocketError.Success Then
                    Exit While
                End If
            End If
            Thread.Sleep(1)
        End While
    End Sub
    Public Shared Sub SendToServer(ByVal packet As Packet)
        gw_security.Send(packet)
    End Sub
End Class