ASP伪造REFERER(页 1) - 免费代码及编程交流 - 落伍者站长论坛 im286, 为中国站长服务!

在你身边 发表于 2008-4-28 00:14

ASP伪造REFERER

[code]<%
Function GetBody(weburl)
Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP")
With Retrieval
      .Open "Get", weburl, False, "", ""
      .setRequestHeader "referer","http://www.*.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.*.com/referer.asp"))
%>
[/code]转自 internet

Sugar__________ 发表于 2008-4-28 15:46

不错能破一些垃圾防盗链。

mige 发表于 2008-4-28 15:53

收藏了.

homerzhu 发表于 2008-4-28 18:47

呵呵

我爱红猪 发表于 2008-4-28 18:48

:lol: 采集经常用

阿红发表于 2008-4-28 19:16

*** 作者被禁止或删除内容自动屏蔽 ***

阿红发表于 2008-4-28 19:22

*** 作者被禁止或删除内容自动屏蔽 ***

29668 发表于 2008-4-28 19:38

yangjiangh 发表于 2008-4-28 21:12

:(
很不错的样子！

caijinet 发表于 2008-4-28 22:43

不错的

trme 发表于 2008-4-29 01:42

:cool: 顶一个

djk8 发表于 2008-4-30 10:47

做个记号。。。

zhujie 发表于 2008-4-30 14:22

不会用啊。

阿红发表于 2008-4-30 15:19

*** 作者被禁止或删除内容自动屏蔽 ***

homerzhu 发表于 2008-4-30 18:09

页: [1]

落伍者站长论坛's Archiver

ASP伪造REFERER