<?php
header('Content-Type: application/json');
require_once __DIR__ . '/db/config.php';

$input = json_decode(file_get_contents('php://input'), true);
if (!$input) {
    $input = json_decode(file_get_contents('php://stdin'), true);
}

if (!$input || empty($input['code'])) {
    echo json_encode(['success' => false, 'error' => 'No code provided']);
    exit;
}

$code = $input['code'];

/**
 * Luartex V11.0 - Quantum Singularity Engine
 * "The final frontier of untraceable execution."
 */
class LuartexV11_0 {
    private $rawCode;
    private $constants = [];
    private $instructions = [];
    private $keys = [];
    private $opMap = [];
    private $seed;
    private $polyKey;

    public function __construct($code) {
        $this->rawCode = $code;
        $this->seed = rand(100000, 999999);
        $this->polyKey = rand(1, 255);
        for ($i = 0; $i < 256; $i++) {
            $this->keys[] = rand(0, 255);
        }
        $this->setupOpcodes();
    }

    private function setupOpcodes() {
        $ops = [
            'LOADK', 'CALL', 'MOVE', 
            'ADD', 'SUB', 'MUL', 'DIV', 
            'RETURN', 'GETTABLE', 'SETTABLE', 'NEWTABLE',
            'TAMPER_CHECK', 'ENTROPY_SYNC',
            'FETCH_ENV', 'RESOLVE_SYMBOL',
            'MUTATE_BYTECODE', 'COMPUTE_JUMP',
            'GHOST_NOP', 'DECEPTIVE_TRAP',
            'JUMP', 'JUMP_IF'
        ];
        shuffle($ops);
        foreach ($ops as $op) {
            $this->opMap[$op] = rand(0, 255);
        }
    }

    private function genVar($len = 12) {
        $chars = 'lIi1OQuvwnmMS5zZ2B8bg9q';
        $res = '_';
        for($i=0; $i<$len; $i++) $res .= $chars[rand(0, strlen($chars)-1)];
        return $res;
    }

    private function synthesizeChar($char) {
        $a = rand(1, 255);
        $b = rand(1, 255);
        return "(bit32.bxor($char, $a) + $b - $b - $a + $char - $char)";
    }

    private function synthesizeString($s) {
        $res = [];
        for ($i = 0; $i < strlen($s); $i++) {
            $res[] = "string.char(" . $this->synthesizeChar(ord($s[$i])) . ")";
        }
        return "function() local _ = " . implode(" .. ", $res) . "; return _ end";
    }

    private function addConst($val) {
        $idx = array_search($val, $this->constants);
        if ($idx === false) {
            $this->constants[] = $val;
            $idx = count($this->constants) - 1;
        }
        return $idx;
    }

    private function compile() {
        $cleanCode = preg_replace('/--[[]*.*?[]]*--/s', '', $this->rawCode);
        $cleanCode = preg_replace('/--.*$/m', '', $cleanCode);
        $tokens = preg_split('/[;
]+/', $cleanCode);
        
        $insts = [];
        foreach ($tokens as $token) {
            $token = trim($token);
            if (empty($token)) continue;
            
            $insts[] = [$this->opMap['GHOST_NOP'], rand(0,255), rand(0,255), rand(0,255)];
            
            if (preg_match('/^(?:local\s+)?([a-zA-Z_]\w*)\s*=\s*{\s*}\s*$/', $token, $m)) {
                $insts[] = [$this->opMap['NEWTABLE'], 0, 0, 0];
                $this->emitSetGlobalInto($insts, 0, $m[1]);
            }
            elseif (preg_match('/^([a-zA-Z_]\w*)\s*\[\s*["\']?(.*?)["\']?\s*\]\s*=\s*(.*)$/', $token, $m)) {
                $this->emitTableSetInto($insts, $m[1], $m[2], $m[3]);
            }
            elseif (preg_match('/^([a-zA-Z_]\w*(?:\.\w*)*)\s*\((.*?)\)\s*$/', $token, $m)) {
                $this->emitCallInto($insts, $m[1], $m[2]);
            }
            elseif (preg_match('/^(?:local\s+)?([a-zA-Z_]\w*)\s*=\s*(.*)$/', $token, $m)) {
                $this->emitAssignmentInto($insts, $m[1], $m[2]);
            }
        }
        $insts[] = [$this->opMap['RETURN'], 0, 0, 0];
        
        $this->instructions = [];
        foreach ($insts as $i => $inst) {
            $next = ($i < count($insts) - 1) ? 1 : 0;
            $this->instructions[] = [$inst[0], $inst[1], $inst[2], $inst[3], $next];
        }
    }

    private function emitGetGlobalInto(&$insts, $reg, $name) {
        $insts[] = [$this->opMap['FETCH_ENV'], $reg, 0, 0];
        foreach (explode('.', $name) as $part) {
            $kIdx = $this->addConst($this->synthesizeString($part));
            $insts[] = [$this->opMap['LOADK'], 250, $kIdx, 1];
            $insts[] = [$this->opMap['RESOLVE_SYMBOL'], $reg, $reg, 250];
        }
    }

    private function emitSetGlobalInto(&$insts, $reg, $name) {
        $insts[] = [$this->opMap['FETCH_ENV'], 251, 0, 0];
        $kIdx = $this->addConst($this->synthesizeString($name));
        $insts[] = [$this->opMap['LOADK'], 252, $kIdx, 1];
        $insts[] = [$this->opMap['SETTABLE'], 251, 252, $reg];
    }

    private function emitTableSetInto(&$insts, $tableName, $key, $val) {
        $this->emitGetGlobalInto($insts, 0, $tableName);
        $kIdx = $this->addConst($this->synthesizeString($key));
        $insts[] = [$this->opMap['LOADK'], 1, $kIdx, 1];
        $val = trim($val); $vReg = 2;
        if (preg_match('/^["\'](.*?)["\']$/', $val, $vm)) {
            $vIdx = $this->addConst($this->synthesizeString($vm[1]));
            $insts[] = [$this->opMap['LOADK'], $vReg, $vIdx, 1];
        } elseif (is_numeric($val)) {
            $vIdx = $this->addConst($val);
            $insts[] = [$this->opMap['LOADK'], $vReg, $vIdx, 0];
        } else {
            $this->emitGetGlobalInto($insts, $vReg, $val);
        }
        $insts[] = [$this->opMap['SETTABLE'], 0, 1, $vReg];
    }

    private function emitCallInto(&$insts, $funcName, $argStr) {
        $this->emitGetGlobalInto($insts, 0, $funcName);
        $args = [];
        if (!empty(trim($argStr))) {
            foreach (explode(',', $argStr) as $idx => $arg) {
                $arg = trim($arg); $rIdx = $idx + 1;
                if (preg_match('/^["\'](.*?)["\']$/', $arg, $m)) {
                    $vIdx = $this->addConst($this->synthesizeString($m[1]));
                    $insts[] = [$this->opMap['LOADK'], $rIdx, $vIdx, 1];
                } elseif (is_numeric($arg)) {
                    $vIdx = $this->addConst($arg);
                    $insts[] = [$this->opMap['LOADK'], $rIdx, $vIdx, 0];
                } else {
                    $this->emitGetGlobalInto($insts, $rIdx, $arg);
                }
                $args[] = $rIdx;
            }
        }
        $insts[] = [$this->opMap['CALL'], 0, count($args), 0];
    }

    private function emitAssignmentInto(&$insts, $var, $val) {
        $val = trim($val);
        if (preg_match('/^["\'](.*?)["\']$/', $val, $m)) {
            $vIdx = $this->addConst($this->synthesizeString($m[1]));
            $insts[] = [$this->opMap['LOADK'], 0, $vIdx, 1];
        } elseif (is_numeric($val)) {
            $vIdx = $this->addConst($val);
            $insts[] = [$this->opMap['LOADK'], 0, $vIdx, 0];
        } else {
            $this->emitGetGlobalInto($insts, 0, $val);
        }
        $this->emitSetGlobalInto($insts, 0, $var);
    }

    private function serialize() {
        $data = pack("N", count($this->instructions));
        $data .= pack("N", count($this->constants));
        
        foreach ($this->instructions as $idx => $inst) {
            $pc = $idx + 1;
            $data .= chr((int)$inst[0] ^ (($this->polyKey + $pc) % 256));
            $data .= chr((int)$inst[1] ^ (($pc * 17) % 256));
            $data .= pack("n", (int)$inst[2] ^ (($pc * 31) % 65535));
            $data .= chr((int)$inst[3] ^ (($pc * 7) % 256));
            $data .= chr((int)$inst[4] ^ (($pc * 13) % 256));
        }

        foreach ($this->constants as $c) {
            $t = is_string($c) ? 1 : (is_numeric($c) ? 2 : 0);
            $data .= chr($t);
            $s = (string)$c;
            $data .= pack("N", strlen($s)) . $s;
        }

        $keyLen = count($this->keys); $res = "";
        for ($i = 0; $i < strlen($data); $i++) {
            $res .= chr(ord($data[$i]) ^ $this->keys[$i % $keyLen] ^ (($i * 97) % 256));
        }
        return bin2hex($res);
    }

    public function build() {
        $this->compile();
        $v = [];
        foreach(['k','b','e','f','d','c','v','stack','handlers','entropy','ptr','rolling','seed','poison','next_ptr','state','quantum','mirror','reality','obfuscated_op','h_idx'] as $var) {
            $v[$var] = $this->genVar();
        }

        $k_str = implode(",", $this->keys);
        $lua = "-- [[ Luartex V11.0 | Quantum Singularity | https://discord.gg/GpucUKeCtF ]] --\n";
        $lua .= "local " . $v['k'] . " = { " . $k_str . " }; ";
        $lua .= "local " . $v['b'] . " = \"" . $this->serialize() . "\"; ";
        $lua .= "local " . $v['e'] . " = (getgenv and getgenv()) or (getfenv and getfenv(0)) or _G; ";
        
        $lua .= "local function _H(h) local b = {}; for i = 1, #h, 2 do b[#b+1] = tonumber(h:sub(i, i+1), 16) end return b end; ";
        $lua .= "local function _D(b) local o = {}; for i = 1, #b do local k = " . $v['k'] . "[((i-1)%#" . $v['k'] . ")+1]; o[i] = bit32.bxor(b[i], k, ((i-1)*97)%256) end return o end; ";
        $lua .= "local " . $v['d'] . " = _D(_H(" . $v['b'] . ")); ";
        
        $lua .= "local function _R32(b, p) return b[p]*16777216 + b[p+1]*65536 + b[p+2]*256 + b[p+3] end; ";
        $lua .= "local function _R16(b, p) return b[p]*256 + b[p+1] end; ";
        
        $lua .= "local ic = _R32(" . $v['d'] . ", 1); local cc = _R32(" . $v['d'] . ", 5); ";
        $lua .= "local " . $v['c'] . " = {}; local cu = 9 + ic*6; ";
        $lua .= "for i = 1, cc do local t = " . $v['d'] . "[cu]; cu = cu + 1; if t > 0 then local l = _R32(" . $v['d'] . ", cu); cu = cu + 4; local s = ''; for j = 1, l do s = s .. string.char(" . $v['d'] . "[cu]); cu = cu + 1 end; if t == 2 then " . $v['c'] . "[i] = tonumber(s) else " . $v['c'] . "[i] = s end else cu = cu + 1 end end; ";
        
        $lua .= "local " . $v['v'] . " = function() ";
        $lua .= "local " . $v['stack'] . " = {}; local " . $v['ptr'] . " = 1; local " . $v['seed'] . " = " . $this->seed . "; ";
        $lua .= "local " . $v['rolling'] . " = " . $this->polyKey . "; local " . $v['poison'] . " = 0; ";
        $lua .= "local " . $v['handlers'] . " = {}; ";
        
        $lua .= "local function " . $v['quantum'] . "() local t1 = os.clock(); for i=1,1000 do end; return (os.clock()-t1) > 0.01 end; ";

        foreach ($this->opMap as $name => $val) {
            $lua .= $v['handlers'] . "[" . $val . "] = function(a, b, c) ";
            $lua .= "if " . $v['poison'] . " > 0 then a = (a + " . $v['poison'] . ") % 256; if math.random() > 0.9 then return end end; ";
            switch($name) {
                case 'ENTROPY_SYNC': 
                    $lua .= $v['rolling'] . " = bit32.bxor(" . $v['rolling'] . ", math.floor(os.clock()*1000)%256); ";
                    break;
                case 'FETCH_ENV': $lua .= $v['stack'] . "[a] = " . $v['e'] . "; "; break;
                case 'RESOLVE_SYMBOL': $lua .= $v['stack'] . "[a] = " . $v['stack'] . "[b][" . $v['stack'] . "[c]]; "; break;
                case 'LOADK': $lua .= "local v = " . $v['c'] . "[b + 1]; if c == 1 then v = v()() end; " . $v['stack'] . "[a] = v; "; break;
                case 'CALL': $lua .= "local f = " . $v['stack'] . "[a]; local args = {}; for m = 1, b do args[m] = " . $v['stack'] . "[a+m] end; if f then f((unpack or table.unpack)(args)) end; "; break;
                case 'RETURN': $lua .= $v['ptr'] . " = -1; "; break;
                case 'NEWTABLE': $lua .= $v['stack'] . "[a] = {}; "; break;
                case 'SETTABLE': $lua .= "if " . $v['stack'] . "[a] then " . $v['stack'] . "[a][" . $v['stack'] . "[b]] = " . $v['stack'] . "[c] end; "; break;
                case 'ADD': $lua .= $v['stack'] . "[a] = (tonumber(" . $v['stack'] . "[b]) or 0) + (tonumber(" . $v['stack'] . "[c]) or 0); "; break;
                case 'MUTATE_BYTECODE': $lua .= "local target = 9 + ((" . $v['ptr'] . " + a) % ic) * 6; " . $v['d'] . "[target] = bit32.bxor(" . $v['d'] . "[target], b); "; break;
                case 'GHOST_NOP': $lua .= $v['seed'] . " = bit32.bxor(" . $v['seed'] . ", " . $v['rolling'] . ", a, b, c); "; break;
                case 'TAMPER_CHECK': $lua .= "if " . $v['quantum'] . "() then " . $v['poison'] . " = " . $v['poison'] . " + 1 end; "; break;
                case 'DECEPTIVE_TRAP': $lua .= "local _ = " . $v['e'] . ".string.rep('DECEIVE', a); "; break;
                default: break;
            }
            $lua .= $v['seed'] . " = bit32.bxor(" . $v['seed'] . ", " . $val . ") + 1; ";
            $lua .= "end; ";
        }
        
        $lua .= "while " . $v['ptr'] . " > 0 do ";
        $lua .= "local o = 9 + (" . $v['ptr'] . " - 1) * 6; ";
        $lua .= "local _op = bit32.bxor(" . $v['d'] . "[o], (" . $this->polyKey . " + " . $v['ptr'] . ") % 256); ";
        $lua .= "local _a = bit32.bxor(" . $v['d'] . "[o+1], (" . $v['ptr'] . " * 17) % 256); ";
        $lua .= "local _b = bit32.bxor(_R16(" . $v['d'] . ", o+2), (" . $v['ptr'] . " * 31) % 65535); ";
        $lua .= "local _c = bit32.bxor(" . $v['d'] . "[o+4], (" . $v['ptr'] . " * 7) % 256); ";
        $lua .= "local _nx = bit32.bxor(" . $v['d'] . "[o+5], (" . $v['ptr'] . " * 13) % 256); ";
        
        $lua .= "local a, b, c; local p = bit32.bxor(" . $v['seed'] . ", " . $v['ptr'] . ") % 3; ";
        $lua .= "if p == 0 then a,b,c = _a,_b,_c elseif p == 1 then a,b,c = _b,_c,_a else a,b,c = _c,_a,_b end; ";
        
        $lua .= "local h = " . $v['handlers'] . "[_op]; if h then h(a, b, c) end; ";
        $lua .= "if " . $v['ptr'] . " > 0 then ";
        $lua .= "if _nx == 0 then " . $v['ptr'] . " = -1 else " . $v['ptr'] . " = " . $v['ptr'] . " + _nx end; ";
        $lua .= "end; ";
        
        $lua .= "if " . $v['ptr'] . " % 50 == 0 then if task and task.wait then task.wait() end end; ";
        $lua .= "end; ";
        
        $lua .= "end; ";
        $lua .= "local s, e = pcall(" . $v['v'] . "); if not s and _G.LUARTEX_DEBUG then print('VM Error:', e) end; ";
        
        return [
            'success' => true,
            'protected_code' => $lua,
            'stats' => ['version' => 'V11.0 (Quantum Singularity)', 'seed' => $this->seed, 'ILD' => 'Active']
        ];
    }
}

try {
    $vm = new LuartexV11_0($code);
    echo json_encode($vm->build());
} catch (Exception $e) {
    echo json_encode(['success' => false, 'error' => $e->getMessage()]);
}