Pereiti prie turinio

Wml to html

Huker

Sukūrė Huker
Programuotojų kampas

 Dalintis Sekėjai 1

Rekomenduojami pranešimai

venom

venom 1.457

Atrašyta
Atrašyta
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
ITSprendimas

ITSprendimas 267

Atrašyta
Atrašyta

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
MuniGod

MuniGod 981

Atrašyta
Atrašyta
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...
×
 Dalintis
Sekėjai 1
Eiti į temų sąrašą

  • Dabar naršo   0 narių

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

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

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