VBS偽造HTTP-REFERER的實現(xiàn)方法
在測試目錄寫了一個簡單的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
但是如果我用VBS調(diào)用msxml2.xmlhttp組件訪問這個頁面,返回的卻是No Referer。實在匪夷所思,難道我的代碼寫錯了?
于是Google了一下“VBS偽造HTTP REFERER”,發(fā)現(xiàn)搜出來的內(nèi)容大部分和這篇文章一樣,不用看又是復制粘貼,你抄我的,我抄你的,抄來抄去不知道到底是誰的,而且還是錯的!
那篇文章第一個例子是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測試,發(fā)現(xiàn)返回的照樣是No Referer。后來才看到下面的留言,“原諒我對asp不熟,給不了你什么幫助,自己查點其他資料參考一下吧”,“這我沒怎么玩asp了,代碼只是參考來的,asp的沒測試過”。
我真的不想罵人,不熟你寫也就算了,起碼測試一下吧,沒有測試過的代碼你也好意思貼上來?后來在千一網(wǎng)絡(這個網(wǎng)絡貌似不錯)看到一個比較靠譜的答案,Referer在ASP和Ajax中是無法通過設置Header來更改的。
怒了,既然xmlhttp組件不行,我用socket來寫總行了吧?。ㄗⅲ翰皇撬须娔X上都注冊了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函數(shù)比較長就不貼出來了,以前的文章寫過。測試結(jié)果如下:
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成功了,但是返回的結(jié)果好像有點奇怪,jb51.net前面和后面一行的f和0是什么東西???(其實用瀏覽器訪問也是這樣返回的,只不過瀏覽器不顯示給我們看罷了)我猜想f是Referer字符串的長度,但是搜了半天也找不到解釋。不管了,偽造成功就行,結(jié)果難看點就難看點吧。
原文:http://demon.tw/programming/vbs-http-referer.html
上一篇:vbs mdb打包解包代碼打包
欄 目:vb
下一篇:用VBS設置靜態(tài)IP和DNS服務器地址的代碼
本文標題:VBS偽造HTTP-REFERER的實現(xiàn)方法
本文地址:http://mengdiqiu.com.cn/a1/vb/7448.html
您可能感興趣的文章
- 01-10下載文件到本地運行的vbs
- 01-10VBS中的正則表達式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機閱讀
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 04-02jquery與jsp,用jquery
- 01-10SublimeText編譯C開發(fā)環(huán)境設置
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 01-10C#中split用法實例總結(jié)
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 01-10delphi制作wav文件的方法
- 01-11ajax實現(xiàn)頁面的局部加載
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文