asp 在线木马专杀程序

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

 

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

 BingduConfig.asp

 

<%

'极限风暴原创
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("")
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)
%>

  <%=OpenFile.Readall%>
 
  " />
 
 
  " />

<%Else%>
请输入病毒样本:

  路径:
    ">
 

  <%=Server.HTMLEncode(Request("Bdcode"))%>
 
  查询
 
  杀毒
 
 

<%
Sub ListFolderContents(path)
     Dim Fs, Folder, File, Item, Url
     Set Fs = CreateObject("Scripting.FileSystemObject")
     Set Folder = Fs.GetFolder(path)
     Response.Write("

" & Folder.Name & "

" & vbCrLf)
     For Each Item in Folder.SubFolders
       ListFolderContents(Item.Path)
    Response.Write("
• Item.Path="&Item.Path&"
")
     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("
"&Item.Name&" "&EndInfo&"
")
    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("

" & vbCrLf)
     Response.Write("

" & 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%>