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="返回" onclick="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> "&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%>