wap网站asp小偷程序如何制作

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:48:38
请问一下哪个高手知道wap网站中的asp小偷程序是怎么制作的啊，知道的说一下越详细越好，

Function GetPage(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312" '注意这个编码，来源可能是UTF-8、GBK等
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

pagetemp = GetPage("http://123.com/456.htm")'将内容偷回来

用UBB、MID、left、right等语法将不要的东西过滤

最后保存或显示出来

asp小偷程序？？？呵呵