asp 在线木马专杀程序

asp 在线木马专杀程序,您的网站总中木马吗？，每天手动清理木马，上传本地文件，是不是很头疼？哎。。，我就有过这样的困扰，下载个本地替换工具还得把网站程序下载下来，太麻烦，所以写了这个程序和大家共享一下吧。

 

注：路径添“/”带表站点跟目录

 BingduConfig.asp

 

<style type="text/css">
<!--
form {
 font-size: 12px;
 text-decoration: none;
}
li {
 font-size: 12px;
 text-decoration: none;
}
-->
</style><title>在线杀毒脚本引擎</title><%

'极限风暴原创
LinkURL=Request("LinkURL")
SaveFile=Request("SaveFile")
Path=Trim(Request("Path"))
FileContent=Trim(Request("FileContent"))
If SaveFile="True" Then
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set OpenFile=Fso.OPenTextFile(Path,2,True)
OpenFile.WriteLine(FileContent)
Set OpenFile=NotHing
Set Fso=NotHing
Response.Write("<script>javascript:history.go(-3);</script>")
Response.End()
End If
EditFile=Trim(Request("EditFile"))
If EditFile="True" Then
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set OpenFile=Fso.OpenTextFile(Path,1,False)
%><form id="form2" name="form2" method="post" action="">
  <textarea name="FileContent" cols="80" rows="30" id="FileContent"><%=OpenFile.Readall%></textarea>
  <input type="submit" name="Submit2" value="提交" />
  <input name="Path" type="hidden" id="Path" value="<%=Request("Path")%>" />
  <input name="SaveFile" type="hidden" id="SaveFile" value="True" />
  <input type="button" name="Submit3" value="返回" οnclick="javascript:history.go(-1);" />
  <input name="LinkURL" type="hidden" id="LinkURL" value="<%=Request.ServerVariables("HTTP_REFERER")&"?Path="&Request("Path")&"&Bdcode="&Request("Bdcode")%>" />
</form><%Else%>
请输入病毒样本:
<form id="form1" name="form1" method="post" action="">
  路径:
    <input name="Path" type="text" id="Path" value="<%=Server.HTMLEncode(Request("Path"))%>">
  <br>
  <textarea name="Bdcode" cols="50" rows="20" id="Bdcode"><%=Server.HTMLEncode(Request("Bdcode"))%></textarea>
  <input name="Exe" type="radio" value="False" checked="checked" />
  查询
  <input type="radio" name="Exe" value="True" />
  杀毒
  <input type="submit" name="Submit" value="提交" />
  <input name="Action" type="hidden" id="Action" value="True" />
</form>
<%
Sub ListFolderContents(path)
     Dim Fs, Folder, File, Item, Url
     Set Fs = CreateObject("Scripting.FileSystemObject")
     Set Folder = Fs.GetFolder(path)
     Response.Write("<li><b>" & Folder.Name & "</b> <ul>" & vbCrLf)
     For Each Item in Folder.SubFolders
       ListFolderContents(Item.Path)
    Response.Write("<li>Item.Path="&Item.Path&"</li>")
     Next
  z=0
     For Each Item in Folder.Files
       Url = MapURL(item.path)
    ExpName=Split(Item.Name,".")
    if Item.Name<>"BingduConfig.asp" Then
    If UBound(ExpName)>=1 Then
    If ExpName(1)="asp" Or ExpName(1)="js" Or ExpName(1)="html" Or ExpName(1)="htm" Then
    On Error Resume Next
    Set FileContent1=Fs.OpenTextFile(Item.Path)
    Content=FileContent1.ReadAll
    Set FileContent=Fs.OpenTextFile(Item.Path,1,False)
    Bdcode=Request("Bdcode")
    If Instr(LCase(Content),LCase(Bdcode))>0 Then
    Content=Replace(LCase(Content),LCase(Bdcode),"")
    Exe=Request("Exe")
    EndInfo="发现文件存在病毒"
    If Exe="True" Then
    Set FsoExe=Server.CreateObject("Scripting.FileSystemObject")
    Set OpenFileExe=FsoExe.OpenTextFile(Item.Path,2,False)
    OpenFileExe.WriteLine(Content) '执行杀毒
    Set OpenFileExe=NotHing
    Set FsoExe=NotHing
    EndInfo="文件杀毒完成"
    End If
    Response.Write("<br><a href=?EditFile=True&Path="&Server.URLEncode(Item.Path)&" title=查看源文件>"&Item.Name&"</a>&nbsp;"&EndInfo&"</br>")
    z=z+1
    End If
    If Err Then
    Err.Clear
    End If
    Content=""
    Set FileContent1=NotHing
    Set FileContent=NotHing
  End If
  End If
  End If
     next
     Response.Write("</ul>" & vbCrLf)
     Response.Write("</li>" & vbCrLf)
  Response.Write("查杀病毒数: ")
  Response.Write(z&" 个")
   End Sub
Function MapURL(path)
     dim rootPath, url
     rootPath = Server.MapPath("/")
     url = Right(path, Len(path) - Len(rootPath))
     MapURL = Replace(url, "/", "/")
End Function
Action=Request("Action")
If Action="True" Then
Path=Request("Path")
ListFolderContents(Server.MapPath(Path))
Response.Write("杀毒完毕")
End if
  %><%End If%>