Pereiti prie turinio

Rekomenduojami pranešimai

Prieš 1 minutę, Huker parašė:

Niekas neatsiliepe kas galetu padeti

parsisiųsk seną versiją operos, labai seną, atjunk internetą, įdiegk tada ją ir tada prisijunk internetą (neišjungęs naršyklės) ir pasileisi tą wml webą, o jeigu failą reikia atidaryti, tai tada išvis pasileisk be interneto.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Velniai zino koki tu cia faila duodi, atsisiunciau is interneto random .wml faila ir per fileproinfo.com/tools/viewer/wml puikiausiai perziuriu.

paziurejus tavo koda, manau jo net neturi atidaryti jokia narsykle, nes nera ka atidaryti, apart kodo ?

<?php

        if (!$debug) {
                header ("Expires: Thu, 01 Jan 1970 00:00:01 GMT");
                header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
                header ("Cache-Control: no-cache, no-store, must-revalidate, max-age=0");
                header ("Pragma: no-cache");
                $ch="Content-type:text/vnd.wap.wml;charset=";
                if ($cnick) $g_ch=0;
                if ($g_ch==0) $ch.="utf-8"; else if ($g_ch==1) $ch.="windows-1251"; else $ch.="koi8-r";
                header($ch);
                echo "<?xml version=\"1.0\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">\n";
                setlocale(LC_ALL,'lt_LT.utf8','lt_LT.UTF8','lt_LT.UTF-8','lt_LT','lt_LT.utf-8');
                //function win2unicode ($s) {if ((ord($s)>=192) & (ord($s)<=255)) $hexvalue=dechex(ord($s)+848); if ($s=="?") $hexvalue="401"; if ($s=="?") $hexvalue="451"; return("&#x0".$hexvalue.";");}
                //function translate($s) {global $g_ch; if ($g_ch==0) return(preg_replace("/[?-???]/e","win2unicode('\\0')",$s)); else if ($g_ch==1) return $s; else return convert_cyr_string($s,"w","k");}
                 }
        $wml = "<wml>";
        if (!$login) {$journal=0;$menu="none";}
        if ($fm) {$journal=0;$page_d=0;$msg="Spauskite mygtuka Meniu";}
        if ($fm2) {$journal=0;$page_d=0;require("f_menu.dat");}
        if ($cj) $fskipj=1;
        if ($fskipj) $journal=0; else if ($g_joff) $loc_i[$loc][$login]["journal"]=preg_replace('/(\||^)[^:!]*(\||$)/',"|",$loc_i[$loc][$login]["journal"]);
        $page_j="";
        if ($game["journal"] && $login!=$g_admin && $gm!=$gm_id) $page_j=$game["journal"];
        if ($journal==1 && $loc_i[$loc][$login]["journal"]) {$page_j=str_replace("|","<br/>",$loc_i[$loc][$login]["journal"]); if ($gm!=$gm_id || $login==$g_admin) $loc_i[$loc][$login]["journal"]="";if (!$g_j2loc) $page_j=preg_replace('/<br\/>(Atejo|Atkulniavo) [^<]+/',"",$page_j);}

        $t_g1 = sscanf(microtime(),"%s %s");
        $t_g1 = $t_g1[1]+$t_g1[0];
        $game["tmid"]=($game["tmid"]+$t_g1-$t_g)/2;
        savegame();
        if ($page_j && $journal) {$page_j = explode("<br/>",$page_j); if (count($page_j)>$g_list) array_splice($page_j,0,count($page_j)-$g_list); $page_j = implode("<br/>",$page_j);}
        if ($page_d && file_exists("loc_f/".$loc)) $page_j.="<br/>".implode("",file("loc_f/".$loc));
        strlen($wml.$msg.$page_j)<$g_size?$bsize=1:$bsize=0;
        if ($page_j && substr($page_j,0,5)=="<br/>") $page_j=substr($page_j,5);
        if ($page_j && $journal) {
                if ($bsize) $tu="#g"; else {$tu="$PHP_SELF?".preg_replace("/(ci|use|say|ca|drop|take|to|adm|cm|go)=/","c1=",$g_tmp);}
                $wml.= "<card title=\"Zurnalas\"><do type=\"accept\" label=\"Toliau\"><go href=\"".$tu."\"/></do><p>".$page_j."<br/><a href=\"".$tu."\">Toliau</a>";
                if($tu!="#g") $wml.="/<a href=\"".$tu.($fskipj?"":"&cj=1")."\">i meniu</a>/";
                $wml.="</p></card>";
                }

        $t_g1 = sscanf(microtime(),"%s %s");
        $t_g1 = $t_g1[1]+$t_g1[0];
        if ($login==$g_admin || ($gm_id && $gm==$gm_id)) $title.=" ".substr($t_g1-$t_g,0,4)."/".substr($game["tmid"],0,4);

        if ($bsize || !$journal || !$page_j) {
        $wml.= "<card id=\"g\" title=\"".$title."\"";
        if ($menu=='main') $wml.= " ontimer=\"$PHP_SELF?sid=$sid\"><timer value=\"600\"/";
        $wml.= ">";
        if ($vname) $wml.="<onevent type=\"onenterforward\"><refresh><setvar name=\"$vname\" value=\"$vval\"/></refresh></onevent>";

        if ($menu=='' || $menu=='inv' && $g_menu!=1) {
                $wml.= "<do name=\"b1\" type=\"options\" label=\"I zaidima\"><go href=\"$PHP_SELF?sid=$sid\"/></do>";
                $wml.= "<do name=\"b2\" type=\"accept\" label=\"Atgal\"><prev/></do>";
                }
        $o=4;
        if ($menu=='main' && $g_menu==2 && !$fm) {$wml.= "<do name=\"o2\" type=\"options\" label=\"Meniu\"><go href=\"$PHP_SELF?sid=$sid&fm=1&cj=1\"/></do>"; $menu='';}
        if ($menu=='main' && $g_menu==3 && !$fm2) {$msg= str_replace("</p></card><card id=\"m\"","<br/><a href=\"$PHP_SELF?sid=$sid&fm2=1&cj=1\">Meniu</a></p></card><card id=\"m\"",$msg); $menu='';}
        if ($menu=='main' && $g_menu==4 && !$fm2) {$msg= str_replace("</p></card><card id=\"m\"","<br/><a href=\"$PHP_SELF?sid=$sid&fm2=1&cj=1\">Meniu</a></p></card><card id=\"m\"",$msg); $menu='';}
        if (($menu=='main' || $fm) && !$fm2){
                $wml.= "<do name=\"b1\" type=\"options\" label=\"Personazas\"><go href=\"$PHP_SELF?sid=$sid&cl=i&cj=1\"/></do>";
                if (!isset($loc_i[$loc][$login]["macro"])) $m=array(); else $m=explode("/",$loc_i[$loc][$login]["macro"]);
                for($i=1;$i<9;$i++) if ($m[$i-1]) {$mn=explode("|",$m[$i-1]);$wml.= "<do name=\"b$o\" type=\"options\" label=\"".$mn[4]."\"><go href=\"$PHP_SELF?sid=$sid&cm=$i\"/></do>";$o++;}
                }
        if ($menu=='inv' && $g_menu==1) $wml.= "<do name=\"b1\" type=\"options\" label=\"I zaidima\"><go href=\"$PHP_SELF?sid=$sid\"/></do>";
        if ($menu=='inv' && $g_menu==1 || $g_menu==0 && $menu=='main' || $fm) {
                $wml.= "<do name=\"b2\" type=\"options\" label=\"Sakyti\"><go href=\"$PHP_SELF?sid=$sid&cs=1&cj=1\"/></do>";
                $wml.= "<do name=\"b3\" type=\"options\" label=\"Kontaktai\"><go href=\"$PHP_SELF?sid=$sid&msg=1&cj=1\"/></do>";
                $wml.= "<do name=\"b$o\" type=\"options\" label=\"makrokomandos\"><go href=\"$PHP_SELF?sid=$sid&cm=new\"/></do>";
                if ($g_map) {$o++;$wml.= "<do name=\"b$o\" type=\"options\" label=\"Zemelapis\"><go href=\"$PHP_SELF?sid=$sid&map=".$g_map."\"/></do>";}
                $o++;$wml.= "<do name=\"b$o\" type=\"options\" label=\"Issaugoti\"><go href=\"$PHP_SELF?sid=$sid&ce=1\"/></do>";
                }

        if (substr($msg,0,2)!="<p") $msg="<p>".$msg;
        if (substr($msg,strlen($msg)-4)!="</p>") $msg.="</p>";
        $wml.= "".$msg."</card>";
        };
        if ($g_smf && strpos($wml,"<input")===false) $wml = preg_replace(array("'(<p [^>]*>)'","'<p>'","'</p>'"), array("\\1<small>","<p><small>","</small></p>"), $wml);

        $wml.= "</wml>";
		
$wml=str_replace("&amp;","&",$wml);

$wml=str_replace("&","&amp;",$wml);

$wml=str_replace('&amp;nbsp;','&nbsp;',$wml);

$wml=str_replace('&amp;&#35;','&#',$wml);

$wml=str_replace(array('(A*)','(a*)','(C*)','(c*)','(E*)','(e*)','(E**)','(e**)','(I*)','(i*)','(S*)','(s*)','(U*)','(u*)','(U**)','(u**)','(Z*)','(z*)'),

array('&#260;','&#261;','&#268;','&#269;','&#278;','&#279;','&#280;','&#281;','&#302;','&#303;','&#352;','&#353;','&#362;','&#363;','&#370;','&#371;','&#381;','&#382;'),

$wml);
        //$wml=str_replace("&amp;","&",$wml);
        //$wml=str_replace("&","&amp;",$wml);

//konvertuojam neveiksmingus lietuvisku raidziu html kodus i veiksmingus 
//$rrrkodai=array("&amp;#260;", "&amp;#261;", "&amp;#268;", "&amp;#269;", "&amp;#278;", "&amp;#279;", "&amp;#280;", "&amp;#281;", "&amp;#302;", "&amp;#303;", "&amp;#352;", "&amp;#353;", "&amp;#362;", "&amp;#363;", "&amp;#370;", "&amp;#371;", "&amp;#381;", "&amp;#382;");
//$hhhkodai=array("&#260;", "&#261;", "&#268;", "&#269;", "&#278;", "&#279;", "&#280;", "&#281;", "&#302;", "&#303;", "&#352;", "&#353;", "&#362;", "&#363;", "&#370;", "&#371;", "&#381;", "&#382;");
//$wml=str_replace($rrrkodai,$hhhkodai,$wml);

        //$wml=strtr($wml,"?????????????????","KEHXBAPOCMTexapoc");

        echo $wml;
        //if ($debug) require "f_debug.dat";
        die("");

 

Nuoroda į pranešimą
Dalintis kituose puslapiuose
2022-10-23 19:37, ITSprendimas parašė:

Velniai zino koki tu cia faila duodi, atsisiunciau is interneto random .wml faila ir per fileproinfo.com/tools/viewer/wml puikiausiai perziuriu.

paziurejus tavo koda, manau jo net neturi atidaryti jokia narsykle, nes nera ka atidaryti, apart kodo ?


<?php

        if (!$debug) {
                header ("Expires: Thu, 01 Jan 1970 00:00:01 GMT");
                header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
                header ("Cache-Control: no-cache, no-store, must-revalidate, max-age=0");
                header ("Pragma: no-cache");
                $ch="Content-type:text/vnd.wap.wml;charset=";
                if ($cnick) $g_ch=0;
                if ($g_ch==0) $ch.="utf-8"; else if ($g_ch==1) $ch.="windows-1251"; else $ch.="koi8-r";
                header($ch);
                echo "<?xml version=\"1.0\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">\n";
                setlocale(LC_ALL,'lt_LT.utf8','lt_LT.UTF8','lt_LT.UTF-8','lt_LT','lt_LT.utf-8');
                //function win2unicode ($s) {if ((ord($s)>=192) & (ord($s)<=255)) $hexvalue=dechex(ord($s)+848); if ($s=="?") $hexvalue="401"; if ($s=="?") $hexvalue="451"; return("&#x0".$hexvalue.";");}
                //function translate($s) {global $g_ch; if ($g_ch==0) return(preg_replace("/[?-???]/e","win2unicode('\\0')",$s)); else if ($g_ch==1) return $s; else return convert_cyr_string($s,"w","k");}
                 }
        $wml = "<wml>";
        if (!$login) {$journal=0;$menu="none";}
        if ($fm) {$journal=0;$page_d=0;$msg="Spauskite mygtuka Meniu";}
        if ($fm2) {$journal=0;$page_d=0;require("f_menu.dat");}
        if ($cj) $fskipj=1;
        if ($fskipj) $journal=0; else if ($g_joff) $loc_i[$loc][$login]["journal"]=preg_replace('/(\||^)[^:!]*(\||$)/',"|",$loc_i[$loc][$login]["journal"]);
        $page_j="";
        if ($game["journal"] && $login!=$g_admin && $gm!=$gm_id) $page_j=$game["journal"];
        if ($journal==1 && $loc_i[$loc][$login]["journal"]) {$page_j=str_replace("|","<br/>",$loc_i[$loc][$login]["journal"]); if ($gm!=$gm_id || $login==$g_admin) $loc_i[$loc][$login]["journal"]="";if (!$g_j2loc) $page_j=preg_replace('/<br\/>(Atejo|Atkulniavo) [^<]+/',"",$page_j);}

        $t_g1 = sscanf(microtime(),"%s %s");
        $t_g1 = $t_g1[1]+$t_g1[0];
        $game["tmid"]=($game["tmid"]+$t_g1-$t_g)/2;
        savegame();
        if ($page_j && $journal) {$page_j = explode("<br/>",$page_j); if (count($page_j)>$g_list) array_splice($page_j,0,count($page_j)-$g_list); $page_j = implode("<br/>",$page_j);}
        if ($page_d && file_exists("loc_f/".$loc)) $page_j.="<br/>".implode("",file("loc_f/".$loc));
        strlen($wml.$msg.$page_j)<$g_size?$bsize=1:$bsize=0;
        if ($page_j && substr($page_j,0,5)=="<br/>") $page_j=substr($page_j,5);
        if ($page_j && $journal) {
                if ($bsize) $tu="#g"; else {$tu="$PHP_SELF?".preg_replace("/(ci|use|say|ca|drop|take|to|adm|cm|go)=/","c1=",$g_tmp);}
                $wml.= "<card title=\"Zurnalas\"><do type=\"accept\" label=\"Toliau\"><go href=\"".$tu."\"/></do><p>".$page_j."<br/><a href=\"".$tu."\">Toliau</a>";
                if($tu!="#g") $wml.="/<a href=\"".$tu.($fskipj?"":"&cj=1")."\">i meniu</a>/";
                $wml.="</p></card>";
                }

        $t_g1 = sscanf(microtime(),"%s %s");
        $t_g1 = $t_g1[1]+$t_g1[0];
        if ($login==$g_admin || ($gm_id && $gm==$gm_id)) $title.=" ".substr($t_g1-$t_g,0,4)."/".substr($game["tmid"],0,4);

        if ($bsize || !$journal || !$page_j) {
        $wml.= "<card id=\"g\" title=\"".$title."\"";
        if ($menu=='main') $wml.= " ontimer=\"$PHP_SELF?sid=$sid\"><timer value=\"600\"/";
        $wml.= ">";
        if ($vname) $wml.="<onevent type=\"onenterforward\"><refresh><setvar name=\"$vname\" value=\"$vval\"/></refresh></onevent>";

        if ($menu=='' || $menu=='inv' && $g_menu!=1) {
                $wml.= "<do name=\"b1\" type=\"options\" label=\"I zaidima\"><go href=\"$PHP_SELF?sid=$sid\"/></do>";
                $wml.= "<do name=\"b2\" type=\"accept\" label=\"Atgal\"><prev/></do>";
                }
        $o=4;
        if ($menu=='main' && $g_menu==2 && !$fm) {$wml.= "<do name=\"o2\" type=\"options\" label=\"Meniu\"><go href=\"$PHP_SELF?sid=$sid&fm=1&cj=1\"/></do>"; $menu='';}
        if ($menu=='main' && $g_menu==3 && !$fm2) {$msg= str_replace("</p></card><card id=\"m\"","<br/><a href=\"$PHP_SELF?sid=$sid&fm2=1&cj=1\">Meniu</a></p></card><card id=\"m\"",$msg); $menu='';}
        if ($menu=='main' && $g_menu==4 && !$fm2) {$msg= str_replace("</p></card><card id=\"m\"","<br/><a href=\"$PHP_SELF?sid=$sid&fm2=1&cj=1\">Meniu</a></p></card><card id=\"m\"",$msg); $menu='';}
        if (($menu=='main' || $fm) && !$fm2){
                $wml.= "<do name=\"b1\" type=\"options\" label=\"Personazas\"><go href=\"$PHP_SELF?sid=$sid&cl=i&cj=1\"/></do>";
                if (!isset($loc_i[$loc][$login]["macro"])) $m=array(); else $m=explode("/",$loc_i[$loc][$login]["macro"]);
                for($i=1;$i<9;$i++) if ($m[$i-1]) {$mn=explode("|",$m[$i-1]);$wml.= "<do name=\"b$o\" type=\"options\" label=\"".$mn[4]."\"><go href=\"$PHP_SELF?sid=$sid&cm=$i\"/></do>";$o++;}
                }
        if ($menu=='inv' && $g_menu==1) $wml.= "<do name=\"b1\" type=\"options\" label=\"I zaidima\"><go href=\"$PHP_SELF?sid=$sid\"/></do>";
        if ($menu=='inv' && $g_menu==1 || $g_menu==0 && $menu=='main' || $fm) {
                $wml.= "<do name=\"b2\" type=\"options\" label=\"Sakyti\"><go href=\"$PHP_SELF?sid=$sid&cs=1&cj=1\"/></do>";
                $wml.= "<do name=\"b3\" type=\"options\" label=\"Kontaktai\"><go href=\"$PHP_SELF?sid=$sid&msg=1&cj=1\"/></do>";
                $wml.= "<do name=\"b$o\" type=\"options\" label=\"makrokomandos\"><go href=\"$PHP_SELF?sid=$sid&cm=new\"/></do>";
                if ($g_map) {$o++;$wml.= "<do name=\"b$o\" type=\"options\" label=\"Zemelapis\"><go href=\"$PHP_SELF?sid=$sid&map=".$g_map."\"/></do>";}
                $o++;$wml.= "<do name=\"b$o\" type=\"options\" label=\"Issaugoti\"><go href=\"$PHP_SELF?sid=$sid&ce=1\"/></do>";
                }

        if (substr($msg,0,2)!="<p") $msg="<p>".$msg;
        if (substr($msg,strlen($msg)-4)!="</p>") $msg.="</p>";
        $wml.= "".$msg."</card>";
        };
        if ($g_smf && strpos($wml,"<input")===false) $wml = preg_replace(array("'(<p [^>]*>)'","'<p>'","'</p>'"), array("\\1<small>","<p><small>","</small></p>"), $wml);

        $wml.= "</wml>";
		
$wml=str_replace("&amp;","&",$wml);

$wml=str_replace("&","&amp;",$wml);

$wml=str_replace('&amp;nbsp;','&nbsp;',$wml);

$wml=str_replace('&amp;&#35;','&#',$wml);

$wml=str_replace(array('(A*)','(a*)','(C*)','(c*)','(E*)','(e*)','(E**)','(e**)','(I*)','(i*)','(S*)','(s*)','(U*)','(u*)','(U**)','(u**)','(Z*)','(z*)'),

array('&#260;','&#261;','&#268;','&#269;','&#278;','&#279;','&#280;','&#281;','&#302;','&#303;','&#352;','&#353;','&#362;','&#363;','&#370;','&#371;','&#381;','&#382;'),

$wml);
        //$wml=str_replace("&amp;","&",$wml);
        //$wml=str_replace("&","&amp;",$wml);

//konvertuojam neveiksmingus lietuvisku raidziu html kodus i veiksmingus 
//$rrrkodai=array("&amp;#260;", "&amp;#261;", "&amp;#268;", "&amp;#269;", "&amp;#278;", "&amp;#279;", "&amp;#280;", "&amp;#281;", "&amp;#302;", "&amp;#303;", "&amp;#352;", "&amp;#353;", "&amp;#362;", "&amp;#363;", "&amp;#370;", "&amp;#371;", "&amp;#381;", "&amp;#382;");
//$hhhkodai=array("&#260;", "&#261;", "&#268;", "&#269;", "&#278;", "&#279;", "&#280;", "&#281;", "&#302;", "&#303;", "&#352;", "&#353;", "&#362;", "&#363;", "&#370;", "&#371;", "&#381;", "&#382;");
//$wml=str_replace($rrrkodai,$hhhkodai,$wml);

        //$wml=strtr($wml,"?????????????????","KEHXBAPOCMTexapoc");

        echo $wml;
        //if ($debug) require "f_debug.dat";
        die("");

Su kodu viskas gerai, parsisiųstų 11-12 Operą ir atsidarytų. Greičiausiai rado žmogus kažkokį žaidimų skriptą internete ir tiek. 

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...