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

asp 在线木马专杀程序相关推荐

【转】新思想、新技术、新架构——更好更快的开发现代ASP.NET应用程序（续1）
上周星期天开通了博客并发布了第一篇文章<新思想.新技术.新架构--更好更快的开发现代ASP.NET应用程序>,汇集了一些比较流行的技术和开源项目,也把自己的程序架构.部分代码风格.前端表现 ...
分享123个ASP整站程序源码，总有一款适合您
分享123个ASP整站程序源码,总有一款适合您 123个ASP整站程序源码下载链接:https://pan.baidu.com/s/1GzhuIHhkNVSLz1plTyQWCg?pwd=auha ...
简单快捷实现ASP在线发邮件功能
简单快捷实现ASP在线发邮件功能在编写网上应用程序时,经常碰到需要在线发送邮件的问题,邮件内容是由程序动态决定的,如果你采用的是ASP方式来编写网上应用程序,如何简单.快捷地实现这一功能呢? 笔者在 ...
分享119个ASP整站程序源码，总有一款适合您
分享119个ASP整站程序源码,总有一款适合您 119个ASP整站程序源码下载链接:https://pan.baidu.com/s/17KlFihL6Ljkhmg3aJHftlw?pwd=ox4l ...
分享99个ASP整站程序源码，总有一款适合您
分享99个ASP整站程序源码,总有一款适合您 99个ASP整站程序源码下载链接:https://pan.baidu.com/s/1ivSFrhPAAxZifZ7ym6gHkw?pwd=v1sc 提取 ...
分享60个ASP整站程序源码，总有一款适合您
分享60个ASP整站程序源码,总有一款适合您 60个ASP整站程序源码下载链接:https://pan.baidu.com/s/1AjGM4AsHOgpWnajcXeiBFQ 提取码:e3b8 Py ...
分享105个ASP整站程序源码，总有一款适合您
分享105个ASP整站程序源码,总有一款适合您 105个ASP整站程序源码下载链接:https://pan.baidu.com/s/148X7V8o435Scu0lUgWMwFQ?pwd=8mwj ...
分享138个ASP整站程序源码，总有一款适合您
分享138个ASP整站程序源码,总有一款适合您 138个ASP整站程序源码下载链接:https://pan.baidu.com/s/1ruGhin8yHdhxQrc5Eriv4w?pwd=e2gb ...
分享88个ASP整站程序源码，总有一款适合您
分享88个ASP整站程序源码,总有一款适合您 88个ASP整站程序源码下载链接:https://pan.baidu.com/s/1oB-OwcZ7wwD-T7psHzlHyw?pwd=zfvx 提取 ...

asp 在线木马专杀程序

asp 在线木马专杀程序相关推荐

最新文章

热门文章