Просмотр архива Территория Зла


<?php
error_reporting(0);
error_reporting(0);
extract($HTTP_GET_VARS);
  extract($HTTP_POST_VARS);
  extract($HTTP_COOKIE_VARS);
  extract($HTTP_SESSION_VARS);
  extract($HTTP_SERVER_VARS);
// возвращает -1 если есть $login в папке online
$tmp=$QUERY_STRING;if($tmp=='') $tmp=$_SERVER["QUERY_STRING"];
$tmp=urldecode($tmp);
parse_str($tmp);
if ($newstime) die(@date("d/m",@filemtime("story/news.htm")));

// список у Санчеса
if ($gwanted) die(@implode("",@file("wanted.dat")));
if ($swanted) {
        $file = fopen ("wanted.dat", "w");
        if($file!==false) {fputs($file,str_replace("\","",$swanted));fclose($file);}
        }

// кланы

if ($gclan) {if(!file_exists("clans/".$gclan)) die("none"); else die(@implode("",@file("clans/".$gclan)));}
if ($inclan) {
                $dh = opendir("clans");
                while (($fname = readdir($dh))!== false) if ($fname!="." && $fname!=".." && $fname!="1.htaccess" && $fname!=".htaccess") {
                        if(strtolower($fname)==strtolower($inclan)) {
                                closedir($dh);
                                $tmp=@unserialize(@implode("",@file("clans/".$fname)));
                                if (gettype($tmp)=="array" && !isset($tmp["m"][$login]) && !isset($tmp["v"][$login]) && !isset($tmp["s"][$login]) && !isset($tmp["g"][$login])) die("no"); else die("yes");
                                }
                        }
                closedir($dh);
                die("no");
        }
if ($sclan) {
        $test=unserialize(str_replace("\","",$data));
        if ($test["g"]) {
                $file = fopen ("clans/".$sclan, "w");
                if($file!==false) {fputs($file,str_replace("\","",$data));fclose($file);}
                } else die("err:");
        }
if ($dclan) {unlink("clans/".$dclan); die("ok:");}
if ($eclan) {
                $dh = opendir("clans");
                while (($fname = readdir($dh))!== false) if ($fname!="." && $fname!=".." && $fname!="1.htaccess" && $fname!=".htaccess") {
                        if(strtolower($fname)==strtolower($eclan)) {closedir($dh); die("yes");}
                        }
                closedir($dh);
                die("no");
                }
if ($payed) {
        if (file_exists("payed.dat")) {
                $all=0;
                $all=@implode("",@file("payed.dat"));
                if ($all) {$all++;$file=fopen("payed.dat","w");if($file!==false){fputs($file,$all);fclose($file);}}
                 } else {$file=fopen("payed.dat","w");if($file!==false){fputs($file,"1");fclose($file);}}
        die("ok");
        }
if ($reg2) {
        if (file_exists("all.dat")) {
                $all=0;
                $all=@implode("",@file("all.dat"));
                if ($all) {$all++;$file=fopen("all.dat","w");if($file!==false){fputs($file,$all);fclose($file);}}
                 } else {$file=fopen("all.dat","w");if($file!==false){fputs($file,"1");fclose($file);}}
        die("ok");
        }