Iframe网马批量清除

最新推荐文章于 2025-08-04 13:52:44 发布

bill1315

最新推荐文章于 2025-08-04 13:52:44 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏：应用技巧文章标签： iframe path regex scripting border vbscript

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/bill1315/article/details/1793360

应用技巧专栏收录该内容

7 篇文章

订阅专栏

Iframe网马批量清除,把此文件保存在中毒的虚拟目录下,然后运行,根目录为'/',虚拟目录直接为虚拟目录名称即可.

<!--以下代码令存为任意名称.asp然后运行清楚你制定的恶意框架代码即可。

代码：-->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<meta http-equiv="content-type" content="text/html; charset=gb2312">

<head><title>iframe网马批量清除工具</title></head>

<body>

<%

requestpath = request.form("path")

if request.form("path") = "" or request.form("ext") = "" or request.form("delcon") = "" then

%>

<h2><strong>Iframe网马批量清除</strong></h2>

<p><font color="#0033FF">车友网专用</font></p>

<form name="form1" method="post" action="">

<strong>功能描述:</strong>

注意备份

<p><strong>要检查的路径: </strong><br/>

<input name="path" type="text" id="path" style="border:1px solid #999" size="50">

<br/>

* 从站点根目录算起，支持虚拟目录</p>

<p><strong>要清除的文件:</strong> <br/>

<input name="ext" type="text" id="ext" value="^.+.(htm|html|asp|aspx|php|jsp)$" size="50" style="border:1px solid #999">

<br/>

* 支持vbs正则表达式，亦可以用“(index.htm|index.asp|文件名……)”的方式</p>

<p>

</p>

<p><strong>要清除的内容:</strong> <br/>

<textarea name="delcon" cols="50" rows="6" id="delcon"></textarea>

<br/>

* 在指定的文件中发现该代码即清除之 </p>

<p>

<input type="submit" name="submit" value="提交" style="border:1px solid #999">

</p>

</form>

<%

else

if requestpath = "" then

tmppath = server.mappath("")

elseif requestpath = "." then

tmppath = server.mappath(".")

else

tmppath = server.mappath("" & requestpath)

end if

showallfile(tmppath)

response.write("清理完毕！<br/><br/><a href=""#"" onclick=""javascript:history.go(-1);"">返回前一页面</a><br/>")

end if

%>

</body>

</html>

<%

'遍历处理path及其子目录所有文件

sub showallfile(path)

'on error resume next

set fso = createobject("scripting.filesystemobject")

if not fso.folderexists(path) then exit sub

set f = fso.getfolder(path)

set fc2 = f.files

for each myfile in fc2

if err then response.write("权限不足，不能检查目录 <b>"&path&"</b><br/>"):response.Write(err):exit sub

set regex = new regexp

regex.ignorecase = true

regex.global = true

regex.pattern = request.form("ext")

if regex.test(myfile.name) then

checkfile(path&""&myfile.name)

end if

set regex = nothing

next

set fc = f.subfolders

for each f1 in fc

showallfile path&""&f1.name

next

set fso = nothing

end sub

Function checkfile(fPath)

Dim rFile,wFile,bool,result

set fso = createobject("scripting.filesystemobject")

Set rFile = fso.openTextFile(fPath,1)

result = rFile.readAll()

reStr=request.form("delcon")

If InStr(result,reStr) > 0 Then

bool = True

result = Replace(result,reStr,"")

Set wFile = fso.openTextFile(fPath,2)

wFile.write(result)

Set wFile = Nothing

response.write "已经修复文件: "&fPath&" ...<br/>"

Else

bool = False

End If

Set rFile = Nothing

replaceFile = bool

End Function

%>

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。