涩涩视频在线观看,一级片aaa,亚洲精品无

均在命令行下使用
AntiIframe.vbs

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

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

Scan.vbs

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

'-----------------------
'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 "開(kāi)始掃描，請(qǐng)稍候……"
 WScript.Sleep(1000)
 StartTime = now()
 Call ShowAllFile(thePath)
 EndTime = now()
 WScript.Echo vbcrlf & "掃描完成！" & vbcrlf
 report2 = report2 & "<html><head><title>雷客圖 ASP 站長(zhǎng)安全助手vbs版掃描報(bào)告</title>"
 report2 = report2 & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head>"
 report2 = report2 & "<body>雷客圖 ASP 站長(zhǎng)安全助手vbs版掃描報(bào)告 "
 report2 = report2 & "開(kāi)始時(shí)間："&StartTime&" "
 report2 = report2 & "結(jié)束時(shí)間："&EndTime&" "
 report2 = report2 & "掃描完畢！一共檢查文件夾"&SumFolders&"個(gè)，文件"&SumFiles&"個(gè)，發(fā)現(xiàn)可疑點(diǎn)"&Sun&"個(gè)（紅字顯示的為嚴(yán)重可疑） "
 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%"">創(chuàng)建/修改時(shí)間</td>"
 report2 = report2 & "</tr>"
 report2 = report2 & ""
 report2 = report2 & report
 report2 = report2 & ""
 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

Sub ShowInfo()
 HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
 HelpStr = HelpStr & "===== 歡迎使用雷客圖 ASP 站長(zhǎng)安全助手vbs版 =====" & vbcrlf
 HelpStr = HelpStr & "===== 之檢查ASP木馬 =====" & vbcrlf
 HelpStr = HelpStr & "===== Author: lake2 =====" & vbcrlf
 HelpStr = HelpStr & "===== Email:lake2@mail.csdn.net =====" & vbcrlf
 HelpStr = HelpStr & "===== 歡迎訪問(wèn) www.0x54.org 得到更多信息 =====" & vbcrlf
 HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
 HelpStr = HelpStr & vbcrlf
 WScript.Echo HelpStr
End Sub

Sub ShowHelp()
 HelpStr = HelpStr & "#用法: CScript Scan.vbs [掃描路徑] [結(jié)果HTM文件路徑]" & vbcrlf
 HelpStr = HelpStr & "#例子: CScript Scan.vbs d:\Web f:\my\report.html" & vbcrlf
 HelpStr = HelpStr & vbcrlf
 WScript.Echo HelpStr
End Sub

Sub CheckArg(arg)
 tmpPath = arg
 tmpPath2 = Left(WScript.Arguments.Item(1), InStrRev(WScript.Arguments.Item(1),"\")-1)
 Set objFSO = WScript.CreateObject ("Scripting.FileSystemObject")
 If Not objFSO.FolderExists(tmpPath2) Then
 WScript.Echo "Error：錯(cuò)誤的路徑“" & tmpPath2 & "”！"
 WScript.Quit
 ElseIf Not objFSO.FolderExists(tmpPath) Then
 WScript.Echo "Error：錯(cuò)誤的路徑“" & tmpPath & "”！"
 WScript.Quit
 End If
 Set objFSO = Nothing
End Sub

'遍歷處理path及其子目錄所有文件
Sub ShowAllFile(Path)
 WScript.Echo "正在檢查目錄" & path
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set f = FSO.GetFolder(Path)
 Set fc2 = f.files
 For Each myfile in fc2
 If CheckExt(FSO.GetExtensionName(path&"\"&myfile.name)) Then
 'WScript.Echo "正在檢查文件" & path&"\"&myfile.name
 Call ScanFile(Path&Temp&"\"&myfile.name, "")
 SumFiles = SumFiles + 1
 End If
 Next
 Set fc = f.SubFolders
 For Each f1 in fc
 ShowAllFile path&"\"&f1.name
 SumFolders = SumFolders + 1
 Next
 Set FSO = Nothing
End Sub

'檢查文件后綴，如果與預(yù)定的匹配即返回TRUE
Function CheckExt(FileExt)
 If DimFileExt = "*" Then CheckExt = True
 Ext = Split(DimFileExt,",")
 For i = 0 To Ubound(Ext)
 If Lcase(FileExt) = Ext(i) Then
 CheckExt = True
 Exit Function
 End If
 Next
End Function

'檢測(cè)文件
Sub ScanFile(FilePath, InFile)
 If InFile <> "" Then
 Infiles = "該文件被"& InFile & "文件包含執(zhí)行"
 End If
 temp = FilePath
 On Error Resume Next
 Set tStream = WScript.CreateObject("ADODB.Stream")
 tStream.type = 1
 tStream.mode = 3
 tStream.open
 tStream.Position=0
 tStream.LoadFromFile FilePath
 If err Then Exit Sub end if
 tStream.type = 2
 tStream.charset = "GB2312"
 Do Until tStream.EOS
 filetxt = filetxt & LCase(replace(tStream.ReadText(102400), Chr(0), ""))
 Loop
 tStream.close()
 Set tStream = Nothing

 Set FSOs = WScript.CreateObject("Scripting.FileSystemObject")
 if len(filetxt) >0 then
 '特征碼檢查
 filetxt = vbcrlf & filetxt
 'Check "WScr"&DoMyBest&"ipt.Shell"
 If Instr( filetxt, Lcase("WScr"&DoMyBest&"ipt.Shell") ) or Instr( filetxt, Lcase("clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8") ) then
 Report = Report&"<tr><td>"&temp&"</td><td>WScr"&DoMyBest&"ipt.Shell 或者 clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8</td><td>危險(xiǎn)組件，一般被ASP木馬利用"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End if
 'Check "She"&DoMyBest&"ll.Application"
 If Instr( filetxt, Lcase("She"&DoMyBest&"ll.Application") ) or Instr( filetxt, Lcase("clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000") ) then
 Report = Report&"<tr><td>"&temp&"</td><td>She"&DoMyBest&"ll.Application 或者 clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000</td><td>危險(xiǎn)組件，一般被ASP木馬利用"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .Encode
 Set regEx = New RegExp
 regEx.IgnoreCase = True
 regEx.Global = True
 regEx.Pattern = "\bLANGUAGE\s*=\s*[""]?\s*(vbscript|jscript|javascript).encode\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>(vbscript|jscript|javascript).Encode</td><td>似乎腳本被加密了，一般ASP文件是不會(huì)加密的"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check my ASP backdoor :(
 regEx.Pattern = "\bEv"&"al\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>Ev"&"al</td><td>e"&"val()函數(shù)可以執(zhí)行任意ASP代碼，被一些后門(mén)利用。其形式一般是：ev"&"al(X) 但是javascript代碼中也可以使用，有可能是誤報(bào)。"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check exe&cute backdoor
 regEx.Pattern = "[^.]\bExe"&"cute(Global)?\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>Exec"&"ute()或者Exe"&"cuteGlobal()</td><td>該函數(shù)可以執(zhí)行任意ASP代碼，被一些后門(mén)利用。其形式一般是：ex"&"ecute(X) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check Script.Control
 regEx.Pattern = "\.Execu"&"teStatement\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Exec"&"uteStatement</td><td>發(fā)現(xiàn)MSScriptControl.ScriptControl的.Execut"&"eStatement函數(shù) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .(Open|Create)TextFile
 regEx.Pattern = "\.(Open|Create)TextFile\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Crea"&"teTextFile|.O"&"penTextFile</td><td>使用了FSO的CreateTextFile|OpenTextFile函數(shù)讀寫(xiě)文件"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .SaveT&oFile
 regEx.Pattern = "\.SaveT"&"oFile\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Sa"&"veToFile</td><td>使用了Stream或者JMail的SaveToFile函數(shù)寫(xiě)文件"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .&Save|.&SaveAs
 regEx.Pattern = "\.Sa"&"ve(As)?\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Sa"&"ve或者.Sa"&"veAs</td><td>使用了Save或SaveAs函數(shù)寫(xiě)文件"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check set Server
 regEx.Pattern = "set\s*.*\s*=\s*server\s"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>Set xxx=Se"&"rver</td><td>發(fā)現(xiàn)Set xxx=Ser" & jj & "ver，請(qǐng)管理員仔細(xì)檢查是否調(diào)用.execute "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check Server.(Transfer|Ex&ecute)
 regEx.Pattern = "Server.(Ex"&"ecute|Transfer)([ \t]*|\()[^""]\)"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>Server.Ex"&"ecute</td><td>不能跟蹤檢查Server.e"&"xecute()函數(shù)執(zhí)行的文件。請(qǐng)管理員自行檢查 "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .Ru&n
 regEx.Pattern = "\.R"&"un\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Ru"&"n</td><td>發(fā)現(xiàn) WScript 的 Run 函數(shù) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .Exe&c
 regEx.Pattern = "\.Ex"&"ec\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Ex"&"ec</td><td>發(fā)現(xiàn) WScript 的 Exec 函數(shù) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .Shel&lExecute
 regEx.Pattern = "\.Shel"&"lExecute\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.ShellE"&"xecute</td><td>發(fā)現(xiàn) Application 的 ShellExecute 函數(shù) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check .&create
 regEx.Pattern = "\.Cre"&"ate\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>.Crea"&"te</td><td>發(fā)現(xiàn) Create 函數(shù) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 Set regEx = Nothing


 'Check include file not with "&'
 Set regEx = New RegExp
 regEx.IgnoreCase = True
 regEx.Global = True
 regEx.Pattern = ""
 Set Matches = regEx.Execute(filetxt)
 For Each Match in Matches
 tFile = Replace(Trim(Mid(Match.Value, Instr(Match.Value, "=") + 1, Len(Match.Value) - Instr(Match.Value, "=") - 1)),"/","\")
 If Left(tFile, 1)="'" Then
 tFile = Mid(tFile, 2, InStr(2, tFile, "'", 1) - 2)
 ElseIf Left(tFile, 1)="""" Then
 tFile = Mid(tFile, 2, InStr(2, tFile, """", 1) - 2)
 Else
 tFile = Replace(tFile, Chr(9), " ")
 If InStr(tFile, " ") <> 0 Then
 tFile = Left(tFile, InStr( tFile, " ") - 1)
 Else
 tFile = Left(tFile, InStr( tFile, "-") - 1)
 End If
 End If
 If Not CheckExt(FSOs.GetExtensionName(tFile)) Then
 Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"\"))&tFile, FilePath)
 SumFiles = SumFiles + 1
 End If
 Next
 Set Matches = Nothing
 Set regEx = Nothing

 'Check Server&.Execute|Transfer
 Set regEx = New RegExp
 regEx.IgnoreCase = True
 regEx.Global = True
 regEx.Pattern = "Server.(Exec"&"ute|Transfer)([ \t]*|\()"".*?"""
 Set Matches = regEx.Execute(filetxt)
 For Each Match in Matches
 tFile = Replace(Mid(Match.Value, Instr(Match.Value, """") + 1, Len(Match.Value) - Instr(Match.Value, """") - 1),"/","\")
 If Not CheckExt(FSOs.GetExtensionName(tFile)) Then
 Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"\"))&tFile, FilePath)
 SumFiles = SumFiles + 1
 End If
 Next
 Set Matches = Nothing
 Set regEx = Nothing

 'Check RunatScript
 Set XregEx = New RegExp
 XregEx.IgnoreCase = True
 XregEx.Global = True
 XregEx.Pattern = "<scr"&"ipt\s*(.|\n)*?runat\s*=\s*""?server""?(.|\n)*?>"
 Set XMatches = XregEx.Execute(filetxt)
 For Each Match in XMatches
 tmpLake2 = Mid(Match.Value, 1, InStr(Match.Value, ">"))
 srcSeek = InStr(1, tmpLake2, "src", 1)
 If srcSeek > 0 Then
 srcSeek2 = instr(srcSeek, tmpLake2, "=")
 For i = 1 To 50
 tmp = Mid(tmpLake2, srcSeek2 + i, 1)
 If tmp <> " " and tmp <> chr(9) and tmp <> vbCrLf Then
 Exit For
 End If
 Next
 If tmp = """" Then
 tmpName = Mid(tmpLake2, srcSeek2 + i + 1, Instr(srcSeek2 + i + 1, tmpLake2, """") - srcSeek2 - i - 1)
 Else
 If InStr(srcSeek2 + i + 1, tmpLake2, " ") > 0 Then tmpName = Mid(tmpLake2, srcSeek2 + i, Instr(srcSeek2 + i + 1, tmpLake2, " ") - srcSeek2 - i) Else tmpName = tmpLake2
 If InStr(tmpName, chr(9)) > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, chr(9)) - 1)
 If InStr(tmpName, vbCrLf) > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, vbcrlf) - 1)
 If InStr(tmpName, ">") > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, ">") - 1)
 End If
 Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"\"))&tmpName , FilePath)
 SumFiles = SumFiles + 1
 End If
 Next
 Set Matches = Nothing
 Set regEx = Nothing

 end if
 set fsos = nothing

End Sub

Function GetDateModify(filepath)
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.GetFile(filepath)
 s = f.DateLastModified
 set f = nothing
 set fso = nothing
 GetDateModify = s
End Function

Function GetDateCreate(filepath)
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.GetFile(filepath)
 s = f.DateCreated
 set f = nothing
 set fso = nothing
 GetDateCreate = s
End Function

Sub WriteToFile()
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set theFile = FSO.OpenTextFile(WScript.Arguments.Item(1), 2, True)
 theFile.Write(Report2)
 theFile.Close
 Set FSO = Nothing
 WScript.Echo "掃描結(jié)果已經(jīng)寫(xiě)入文件“"&WScript.Arguments.Item(1)&"”，請(qǐng)查看之！"
End Sub