VBS伪造HTTP-REFERER的实现方法
程序员文章站
2022-04-29 09:17:44
在测试目录写了一个简单的referer.php，代码如下 复制代码 代码如下:
在测试目录写了一个简单的referer.php，代码如下
<?php
if (!isset($_server["http_referer"]))
echo "no referer";
else
echo $_server["http_referer"];
?>
如果直接点击上面的链接，那么页面会显示referer页面的链接。
set http = createobject("msxml2.xmlhttp")
http.open "get","http://jb51.net/test/referer.php",false
http.setrequestheader "referer","http://jb51.net"
http.send
wscript.echo http.responsetext
dim http
set http=server.createobject("msxml2.xmlhttp")
http.open "get",url,false
http.setrequestheader "referer","http://www.fromdomain.cn/"
http.send()
set socket = wscript.createobject("mswinsock.winsock","winsock_")
socket.remotehost = "jb51.net"
socket.remoteport = 80
socket.connect
do
wscript.sleep 100
loop
sub winsock_connect()
data = "get /test/referer.php http/1.1" & vbcrlf &_
"referer: http://jb51.net" & vbcrlf &_
"host: jb51.net" & vbcrlf & vbcrlf
socket.senddata data
end sub
sub winsock_dataarrival(bytestotal)
socket.getdata str
wscript.echo utf8tounicode(str)
wscript.quit
end sub
utf8tounicode函数比较长就不贴出来了，以前的文章写过。测试结果如下：
http/1.1 200 ok
date: thu, 04 nov 2010 14:05:20 gmt
server: apache
transfer-encoding: chunked
content-type: text/html
f
http://jb51.net
0
可以肯定伪造referer成功了，但是返回的结果好像有点奇怪，jb51.net前面和后面一行的f和0是什么东西啊？（其实用浏览器访问也是这样返回的，只不过浏览器不显示给我们看罢了）我猜想f是referer字符串的长度，但是搜了半天也找不到解释。不管了，伪造成功就行，结果难看点就难看点吧。
原文：http://demon.tw/programming/vbs-http-referer.html
复制代码 代码如下:
<?php
if (!isset($_server["http_referer"]))
echo "no referer";
else
echo $_server["http_referer"];
?>
如果直接点击上面的链接，那么页面会显示referer页面的链接。
复制代码 代码如下:
set http = createobject("msxml2.xmlhttp")
http.open "get","http://jb51.net/test/referer.php",false
http.setrequestheader "referer","http://jb51.net"
http.send
wscript.echo http.responsetext
但是如果我用vbs调用msxml2.xmlhttp组件访问这个页面，返回的却是no referer。实在匪夷所思，难道我的代码写错了？
于是google了一下“vbs伪造http referer”，发现搜出来的内容大部分和一样，不用看又是复制粘贴，你抄我的，我抄你的，抄来抄去不知道到底是谁的，而且还是错的！
那篇文章第一个例子是asp的
复制代码 代码如下:
dim http
set http=server.createobject("msxml2.xmlhttp")
http.open "get",url,false
http.setrequestheader "referer","http://www.fromdomain.cn/"
http.send()
开始我还以为asp下的vbs和我直接双击运行的vbs不一样，asp下的比较牛逼，可以改referer。为此我还专门装了iis测试，发现返回的照样是no referer。后来才看到下面的留言，“原谅我对asp不熟，给不了你什么帮助，自己查点其他资料参考一下吧”，“这我没怎么玩asp了，代码只是参考来的，asp的没测试过”。
我真的不想骂人，不熟你写也就算了，起码测试一下吧，没有测试过的代码你也好意思贴上来？后来在千一网络（这个网络貌似不错）看到一个比较靠谱的答案，referer在asp和ajax中是无法通过设置header来更改的。
怒了，既然xmlhttp组件不行，我用socket来写总行了吧！（注：不是所有电脑上都注册了winsock组件）
复制代码 代码如下:
set socket = wscript.createobject("mswinsock.winsock","winsock_")
socket.remotehost = "jb51.net"
socket.remoteport = 80
socket.connect
do
wscript.sleep 100
loop
sub winsock_connect()
data = "get /test/referer.php http/1.1" & vbcrlf &_
"referer: http://jb51.net" & vbcrlf &_
"host: jb51.net" & vbcrlf & vbcrlf
socket.senddata data
end sub
sub winsock_dataarrival(bytestotal)
socket.getdata str
wscript.echo utf8tounicode(str)
wscript.quit
end sub
utf8tounicode函数比较长就不贴出来了，以前的文章写过。测试结果如下：
复制代码 代码如下:
http/1.1 200 ok
date: thu, 04 nov 2010 14:05:20 gmt
server: apache
transfer-encoding: chunked
content-type: text/html
f
http://jb51.net
0
可以肯定伪造referer成功了，但是返回的结果好像有点奇怪，jb51.net前面和后面一行的f和0是什么东西啊？（其实用浏览器访问也是这样返回的，只不过浏览器不显示给我们看罢了）我猜想f是referer字符串的长度，但是搜了半天也找不到解释。不管了，伪造成功就行，结果难看点就难看点吧。
原文：http://demon.tw/programming/vbs-http-referer.html
上一篇： VBS加密与VBE解密实现方法
下一篇： VBS和UAC用户帐户控制实现代码