LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

ASP 伪造访问来路 HTTP_REFERER

admin
2012年8月17日 18:37 本文热度 4543
<%
Function GetBody(weburl)
    Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP")
    With Retrieval
        .Open "Get", weburl, False, "", ""
        .setRequestHeader "referer","http://www.abc.com/"'
        .Send
        GetBody = .ResponseBody
    End With
    GetBody = BytesToBstr(GetBody,"GB2312")
    Set Retrieval = Nothing
End Function

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


Response.Write(GetBody("http://www.devdao.com/referer.asp"))
%>


========================================================


方法1

OnErrorResumeNextSethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.7.0")IfErrThenErr.Clear
Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")IfErrThenErr.Clear
Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.5.0")IfErrThenErr.Clear
Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")IfErrThenErr.Clear
Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP")IfErrThenErr.ClearResponse.Write"服务器不支持Msxml,本程序无法运行!"Response.EndEndIfEndIfEndIfEndIfEndIfOnErrorGoto0




段下载DownStartTime=Now()
DoBlockStartTime=Timer()
http.open"GET",RemoteFileUrl,true,"",""'用异步方式调用serverxmlhttp
'构造http头http.setRequestHeader"Referer",RefererUrlhttp.setRequestHeader"Accept","*/*"http.setRequestHeader"User-Agent","Baiduspider+(+http://www.baidu.com/search/spider.htm)"'伪装成Baidu'http.setRequestHeader"User-Agent","Googlebot/2.1(+http://www.google.com/bot.html)"'伪装成Googlehttp.setRequestHeader"Range","bytes="&RangeStart&"-"&Cstr(RangeStart+BlockSize-1)'分段关键http.setRequestHeader"Content-Type","application/octet-stream"http.setRequestHeader"Pragma","no-cache"http.setRequestHeader"Cache-Control","no-cache"
http.send'发送
=============================
方法2

if request("turl")<>"" then
dim xmlhttp
set xmlhttp = createobject("Microsoft.XMLHTTP")
xmlhttp.open "POST",request("turl"), false
xmlhttp.setRequestHeader "referer","http://202.96.140.49:4385/"
xmlhttp.setRequestHeader"User-Agent","Baiduspider+(+http://www.baidu.com/search/spider.htm)"'伪装成Baidu
'xmlhttp.setRequestHeader "HOST","http://202.96.140.49" 这个还没有验证
xmlhttp.setRequestHeader "Content-Length",Len(strRequest)
xmlhttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
xmlhttp.send(strRequest)
bytes2BSTR(xmlhttp.responseBody)
end if
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
response.write Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
response.write Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
End Function


该文章在 2012/8/17 18:37:13 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved