批量处理网站文件挂马方法与程序

批量处理网站文件挂马方法与程序

很多网站因为种路原因被挂上了木马,我们来讲讲几种比较快的去除网页木马的方法吧,

第一种:用dw直接连接到服务器上查找-替换就OK了.

第二种:在线替换就是把下面的代码保存成一个asp文件,执行就OK了.

Server.ScriptTimeout="600"
call getfile(server.mappath("."))

sub getfile(c_path)
set file_system=createobject("scripting.filesystemobject")
set cur_folder=file_system.getfolder(c_path)
set sub_folders=cur_folder.subfolders

for each each_sub_folder in sub_folders
set sub_files=each_sub_folder.files
for each each_file in sub_files
if(lcase(right(each_file.name,3)="asp") then
ReadFile(each_sub_folder&""&each_file.name) '取文件名
end if
response.write("已处理 "&each_sub_folder&""&each_file.name&"
")
response.flush()
next
sub_folder_name=each_sub_folder.name '目录名
sub_folder_path=c_path&""&each_sub_folder.name
call getfile(sub_folder_path)
next

end sub
Function ReadFile(filespec)
response.write(filespec)
response.flush()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(filespec,1)
ReadAllTextFile = f.ReadAll
Set file1 = fs.CreateTextFile(filespec, True)
content = replace(ReadAllTextFile,"","")
file1.WriteLine content
file1.Close
Set fs = nothing
End Function
%>