雷客圖站長安全助手 vbs版代碼(asp 木馬查找)

2019-10-26 18:02:51

字體：大中小

來源：轉載

供稿：網友

均在命令行下使用
AntiIframe.vbs

#該腳本是批量掛馬程序的逆向，用于批量清除被添加到文件中的惡意代碼。記事本打開文件可以修改Pattern參數指定要處理的文件名，文件名之間用|隔開（也支持vbs正則表達式）。由于要修改文件，請謹慎的使用（最好先備份文件）
#用法: CScript AntiIframe.vbs [處理的路徑] [包含清除內容的文件]
#例子: CScript AntiIframe.vbs d:/Web d:/lake2.txt
----------------------------
Scan.vbs

#該腳本用于本地掃描ASP木馬，速度比ASP版快很多。可能存在誤報、漏報的情況，視具體情況處理
#用法: CScript Scan.vbs [掃描路徑] [結果HTM文件路徑]
#例子: CScript Scan.vbs d:/Web f:/my/report.html

Scan.vbs
復制代碼代碼如下:

'-----------------------
'Scan ASP WebShell in vbs
'Author: lake2 (http://lake2.0x54.org)
'Date: 2007-7-29
'Version: 1.1
'-----------------------

DimFileExt = "asp,cer,asa,cdx"
Dim Report, Report2, Sun, SumFiles, SumFolders

Call ShowInfo()
If WScript.Arguments.Count = 2 Then
    Sun = 0
    SumFiles = 0
    SumFolders = 1
    If Right(WScript.Arguments.Item(0),1) = "/" Then
        thePath = Mid(WScript.Arguments.Item(0),1,Len(WScript.Arguments.Item(0))-1)
    Else
        thePath = WScript.Arguments.Item(0)
    End If
    Call CheckArg(thePath)
    WScript.Echo "開始掃描，請稍候……"
    WScript.Sleep(1000)
    StartTime = now()
    Call ShowAllFile(thePath)
    EndTime = now()
    WScript.Echo vbcrlf & "掃描完成！" & vbcrlf
    report2 = report2 & "<html><head><title>雷客圖 ASP 站長安全助手vbs版掃描報告</title>"
    report2 = report2 & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head>"
    report2 = report2 & "<body><b><font size=4>雷客圖 ASP 站長安全助手vbs版掃描報告</font></b><br><br>"
    report2 = report2 & "<font size=2>開始時間："&StartTime&"</font><br>"
    report2 = report2 & "<font size=2>結束時間："&EndTime&"</font><br>"
    report2 = report2 & "<font size=2>掃描完畢！一共檢查文件夾<font color=""#FF0000"">"&SumFolders&"</font>個，文件<font color=""#FF0000"">"&SumFiles&"</font>個，發現可疑點<font color=""#FF0000"">"&Sun&"</font>個（<font color=""#FF0000"">紅字</font>顯示的為嚴重可疑）</font><br/>"
    report2 = report2 & "<table width=""100%"" border=""1"" bordercolor=""blue"" style=""padding:5px;line-height:170%;clear:both;font-size:12px;word-break:break-all"">"
    report2 = report2 & "<tr>"
    report2 = report2 & "<td width=""20%"">文件路徑</td>"
    report2 = report2 & "<td width=""20%"">特征碼</td>"
    report2 = report2 & "<td width=""40%"">描述</td>"
    report2 = report2 & "<td width=""20%"">創建/修改時間</td>"
    report2 = report2 & "</tr>"
    report2 = report2 & "<p>"
    report2 = report2 & report
    report2 = report2 & "</p>"
    report2 = report2 & "</table><hr><script src=http://www.0x54.org/announce.js></script>"
    report2 = report2 & "<div align=center>powered by <a href=""http://www.0x54.org"" target=_blank>0x54.org</a></div>"
    report2 = report2 & "</body></html>"
    Call WriteToFile()
Else
    Call ShowHelp()
End If

上一篇：VBS 腳本不能運行提示Windows無法訪問指定設備路徑或文件

下一篇：VBS 下載方法(CDO.MESSAGE)

發表評論

共有條評論