更多精彩内容,请访问云邮科技官方网站:
现在位置:首页 » 编程技术 »

ASP伪造REFERER

作者:山坛兄弟 ⁄ 时间:2013年06月22日 ⁄ 分类: 编程技术 评论:0 <%
Function GetBody(weburl) 
    Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP") 
    With Retrieval 
        .Open "Get", weburl, False, "", "" 
        .setRequestHeader "referer","http://www.030904.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.030904.com/referer.asp"))
%> 

本文由山坛兄弟原创或编辑,转载请保留链接【ASP伪造REFERER】http://flagpatternmaker.com/program/36.html 上一篇: 反深信服QQ聊天监控批处理程序
下一篇:Asp上传文件不能超过200K的解决方案
目前有 0 条评论