VBS偽造HTTP-REFERER的實(shí)現(xiàn)方法

來(lái)源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

在測(cè)試目錄寫(xiě)了一個(gè)簡(jiǎn)單的referer.php，代碼如下

復(fù)制代碼代碼如下:

 
<?php 
if (!isset($_SERVER["HTTP_REFERER"])) 
echo "No Referer"; 
else 
echo $_SERVER["HTTP_REFERER"]; 
?> 

如果直接點(diǎn)擊上面的鏈接，那么頁(yè)面會(huì)顯示referer頁(yè)面的鏈接。

復(fù)制代碼代碼如下:

 
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組件訪問(wèn)這個(gè)頁(yè)面，返回的卻是No Referer。實(shí)在匪夷所思，難道我的代碼寫(xiě)錯(cuò)了？

于是Google了一下“VBS偽造HTTP REFERER”，發(fā)現(xiàn)搜出來(lái)的內(nèi)容大部分和這篇文章一樣，不用看又是復(fù)制粘貼，你抄我的，我抄你的，抄來(lái)抄去不知道到底是誰(shuí)的，而且還是錯(cuò)的！
那篇文章第一個(gè)例子是ASP的

復(fù)制代碼代碼如下:

 
dim http 
set http=server.createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.setRequestHeader "Referer","http://www.fromdomain.cn/" 
Http.send() 

開(kāi)始我還以為ASP下的VBS和我直接雙擊運(yùn)行的VBS不一樣，ASP下的比較牛逼，可以改Referer。為此我還專(zhuān)門(mén)裝了IIS測(cè)試，發(fā)現(xiàn)返回的照樣是No Referer。后來(lái)才看到下面的留言，“原諒我對(duì)asp不熟，給不了你什么幫助，自己查點(diǎn)其他資料參考一下吧”，“這我沒(méi)怎么玩asp了，代碼只是參考來(lái)的，asp的沒(méi)測(cè)試過(guò)”。

我真的不想罵人，不熟你寫(xiě)也就算了，起碼測(cè)試一下吧，沒(méi)有測(cè)試過(guò)的代碼你也好意思貼上來(lái)？后來(lái)在千一網(wǎng)絡(luò)（這個(gè)網(wǎng)絡(luò)貌似不錯(cuò)）看到一個(gè)比較靠譜的答案，Referer在ASP和Ajax中是無(wú)法通過(guò)設(shè)置Header來(lái)更改的。

怒了，既然xmlhttp組件不行，我用socket來(lái)寫(xiě)總行了吧?。ㄗⅲ翰皇撬须娔X上都注冊(cè)了Winsock組件）

復(fù)制代碼代碼如下:

 
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ù)比較長(zhǎng)就不貼出來(lái)了，以前的文章寫(xiě)過(guò)。測(cè)試結(jié)果如下：

復(fù)制代碼代碼如下:

 
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é)果好像有點(diǎn)奇怪，jb51.net前面和后面一行的f和0是什么東西?。浚ㄆ鋵?shí)用瀏覽器訪問(wèn)也是這樣返回的，只不過(guò)瀏覽器不顯示給我們看罷了）我猜想f是Referer字符串的長(zhǎng)度，但是搜了半天也找不到解釋。不管了，偽造成功就行，結(jié)果難看點(diǎn)就難看點(diǎn)吧。
原文：http://demon.tw/programming/vbs-http-referer.html

上一篇：vbs mdb打包解包代碼打包

欄目：vb

下一篇：用VBS設(shè)置靜態(tài)IP和DNS服務(wù)器地址的代碼

本文標(biāo)題：VBS偽造HTTP-REFERER的實(shí)現(xiàn)方法

本文地址：http://mengdiqiu.com.cn/a1/vb/7448.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

VBS偽造HTTP-REFERER的實(shí)現(xiàn)方法

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀