利用 ASP 实现黑客工具

发布时间：2023-11-08 10:11:13 所属栏目：Asp教程来源：

导读：实际上，该应用程序是通过使用 XMLHttpRequest 对象调用在其他网站上浏览的页面。比如新闻小偷程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用小偷程序的优点有：

实际上，该应用程序是通过使用 XMLHttpRequest 对象调用在其他网站上浏览的页面。比如新闻小偷程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用小偷程序的优点有：无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。该程序存在以下问题：不稳固，若所访问的目标网页出现问题的话，与之相关的程序也将失效。此外在需要进行更新维护时需要做相应的修正更改以便于保证盗窃行为顺利实施；同时执行效率会受到影响，因其为异步通讯方式相较于直接从本机数据库读写而言，响应速率必然有所下降。

<%

'常用函数

'1.输入url目标网页地址，返回值getHTTPPage是目标网页的html代码

function getHTTPPage(url)

Dim Http

set Http = server . createobject("MSXML 2.XMLHTTP")

Http . open "GET",url,false

Http . send()

if Http . readystate<>4 then

exit function

end if

getHTTPPage = bytesToBSTR(Http . responseBody,"GB2312")

set http = nothing

if err.number<>0 then err.Clear

end function

'2.转换乱码，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换

Function BytesToBstr(body,Cset)

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 = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

'下面试着调用

Dim Url,Html

Url=

Html = getHTTPPage(Url)

Response.write Html

%>

（编辑：驾考网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!