V5.5/V6安全补丁发布公告-领先建站CMS提供服务商我们专注于CMS建站产品的研发

17186 查看	44 回复

主题：[公告]V5.5/V6安全补丁发布公告 [收藏主题]

转到：

zxzthlxf 当前离线

44 主题	0 广播	0 粉丝

级别:学前班

用户积分:530 分
登录次数:17 次
注册时间:2007/12/3
最后登录:2010/3/19

zxzthlxf 发表于：2009/9/16 10:24:00 | 显示全部帖子查看该作者主题楼主

做线上考试培训就选#科汛网校

该方法比科汛系统的在线扫描的速度要快,因为是本地扫描,推荐使用

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

zxzthlxf 当前离线

44 主题	0 广播	0 粉丝

级别:学前班

用户积分:530 分
登录次数:17 次
注册时间:2007/12/3
最后登录:2010/3/19

zxzthlxf 发表于：2009/9/18 9:46:00 | 显示全部帖子查看该作者主题沙发

做考试题库就用#科汛在线考试系统!

被充一句,在线木马检测程序是找不到这种木马的,查找IIS日志方法:先查help.asp得出执行过help.asp;.jpg文件的所有IP地址,再利用查出的IP地址查出执行过的操作,浏览这些被操作过的文件是否存在200服务响应,如果有说明这些文件是存在的,打开所有系统文件和隐藏文件功能进行查找就一定可以找出后门木马!

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

zxzthlxf 当前离线

44 主题	0 广播	0 粉丝

级别:学前班

用户积分:530 分
登录次数:17 次
注册时间:2007/12/3
最后登录:2010/3/19

zxzthlxf 发表于：2009/9/16 10:48:00 | 显示全部帖子查看该作者主题藤椅

做线上考试培训就选#科汛网校

关于如何替换被改写的代码段:请使用Ultraedit 14.0以上的版本,支持多行替换及正则表达式

在服务器上运行Ultraedit,选择搜索菜单下的在文件中替换

查找内容为:

替换内容为:空格

选下面的正则表达式,Perl规则,再选择网站目录,可进行批量替换!

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

zxzthlxf 当前离线

44 主题	0 广播	0 粉丝

级别:学前班

用户积分:530 分
登录次数:17 次
注册时间:2007/12/3
最后登录:2010/3/19

zxzthlxf 发表于：2009/9/16 10:23:00 | 显示全部帖子查看该作者主题板凳

有生源找课程就上科汛课堂街!

之后打开扫描保存到的HTML文件,查找那些被加密过的ASP文件,科汛系统USER目录下有个文件类似MISIC属于正常的!

做官网就用科汛智能建站系统!

支持(0) |

反对(0)

顶端

底部

zxzthlxf 当前离线

44 主题	0 广播	0 粉丝

级别:学前班

用户积分:530 分
登录次数:17 次
注册时间:2007/12/3
最后登录:2010/3/19

zxzthlxf 发表于：2009/9/16 10:21:00 | 显示全部帖子查看该作者主题报纸

做官网就用科汛智能建站系统!

推荐一个扫描ASP木马的代码:

使用方法:点开始->运行

输入 cscript X:\scan.vbs 网站的目录 x:\**.html

scan.vbs源文件:把下面所有内容复制保存为scan.vbs或其它文件

'-----------------------
'Scan ASP WebShell in vbs
'Author: lake2 (http://lake2.0x54.org)
'Date: 2006-12-16
'Version: 1.0
'-----------------------

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>雷客图 ASP 站长安全助手vbs版扫描报告 "
report2 = report2 & "开始时间："&StartTime&" "
report2 = report2 & "结束时间："&EndTime&" "
report2 = report2 & "扫描完毕！一共检查文件夹"&SumFolders&"个，文件"&SumFiles&"个，发现可疑点"&Sun&"个（红字显示的为严重可疑） "
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 & ""
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 站长安全助手vbs版 =====" & vbcrlf
HelpStr = HelpStr & "=====       之    检查ASP木马                =====" & vbcrlf
HelpStr = HelpStr & "=====           Author: lake2                =====" & vbcrlf
HelpStr = HelpStr & "=====       Email:lake2@mail.csdn.net        =====" & vbcrlf
HelpStr = HelpStr & "=====   欢迎访问 www.0x54.org 得到更多信息   =====" & vbcrlf
HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
HelpStr = HelpStr & vbcrlf
WScript.Echo HelpStr
End Sub

Sub ShowHelp()
HelpStr = HelpStr & "#用法: CScript Scan.vbs [扫描路径] [结果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：错误的路径“" & tmpPath2 & "”！"
  WScript.Quit
ElseIf Not objFSO.FolderExists(tmpPath) Then
  WScript.Echo "Error：错误的路径“" & 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

'检查文件后缀，如果与预定的匹配即返回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

'检测文件
Sub ScanFile(FilePath, InFile)
If InFile <> "" Then
Infiles = "该文件被"& InFile & "文件包含执行"
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>危险组件，一般被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>危险组件，一般被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文件是不会加密的"&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()函数可以执行任意ASP代码，被一些后门利用。其形式一般是：ev"&"al(X) 但是javascript代码中也可以使用，有可能是误报。"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&GetDateModify(filepath)&"</td></tr>"
 Sun = Sun + 1
 End If
 'Check exe&cute backdoor
 regEx.Pattern = "[^.]\bExe"&"cute\b"
 If regEx.Test(filetxt) Then
 Report = Report&"<tr><td>"&temp&"</td><td>Exec"&"ute</td><td>e"&"xecute()函数可以执行任意ASP代码，被一些后门利用。其形式一般是：ex"&"ecute(X) "&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函数读写文件"&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函数写文件"&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函数写文件"&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>发现Set xxx=Ser" & jj & "ver，请管理员仔细检查是否调用.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()函数执行的文件。请管理员自行检查 "&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>发现 WScript 的 Run 函数 "&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>发现 WScript 的 Exec 函数 "&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>发现 Application 的 ShellExecute 函数 "&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>发现 Create 函数 "&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 "扫描结果已经写入文件“"&WScript.Arguments.Item(1)&"”，请查看之！"
End Sub

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

＜上一主题 | 下一主题＞

首页 1 2 3 4 5 末页下一页