a Tj@sdZddlmZddlZddlZdddddZdd dd d d Zdd dd ddZddddZddZ ddd ddddZ dS)a'Build a split-handler VM runtime with lazily decrypted handler closures. The original VM's dispatch chain is parsed into individual handler bodies. Each body is wrapped in a function factory, encrypted, and stored in a handler table. A handler is decrypted and compiled only on its first use. ) annotationsNstr)textreturncCs|dd}dg}|D]}|dkr.|dq|dkrB|dqd|krVd ks`n|d krp|d |qd |krd krnn|t|q|d |q|dd|S)Nutf-8surrogateescape"\z\\"z\" z\%03d )encodeappendchrjoin)rdataoutbr1/opt/ws-remote/luraph_compiler/handler_runtime.py _lua_quotes    rbytesint)rseedrcCsz|dAd@}t|}tt|D]P}||d>d@Ad@}||d?Ad@}||d>d@Ad@}|||d@N<q t|S)Nlyn<r ) bytearrayrangelenr)rrstaterirrr_stream s r')sourcerrcCst|dd|S)Nrr)r'rhex)r(rrrr_encrypt_source+sr*)vmcs@|dd}tD]\}}|dr|}q2q|durBtdd}t|dtD](}|dsx|drX|}qqX|durtdfdd t||D}g}t|D]\}}|dt|kr||dn|} |} d |d| } d d td | D} | sqt t d | } | | | | fq|S)NT if op ==zhandler chain not foundz else z else zhandler chain end not foundcs,g|]$}|ds$|dr|qS)r,z elseif op ==) startswith).0r&linesrr ?sz%_extract_handlers..rcSsg|]}t|dqS)r)r)r/vrrrr2Fzop\s*==\s*(0x[0-9A-Fa-f]+|\d+)z(?m)^\s*return\b) splitlines enumerater. ValueErrorr#r$rrefindallboolsearchr)r+startr&lineelse_atstartshandlersnatendheaderbodyopsterminalrr0r_extract_handlers/s6   rHcsZd}i}t}|D]B}ddfddtdD}||vr|||||<qqq|S)N)ctxqVtopupsvaZnvarbKpackunpackcellZcellvalZcellputmkclostruthyENVcallwithZCELL_MTpcinsboxed__rc3s|]}dVqdS)>abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789N)choice)r/_rngrr Vr4z(_random_handler_names..)setrr#add)r`fieldsrusedoldnamerr_r_random_handler_namesNs  ri)r+keyrc Cst|}tt|ddd@}g}|D]\}}}|dd}t|} |sXd|dn d|d} | D]$\} } td t | d | | } qlt | |} |D]}| |||| fqq*t d D]4}|dd}d }| |d dd|t ||fq| |dddd|Dd}|d}|dkr:td|d}|dkrVtd|d}|d|}|dkr||dn ||d}d|}|||S)z=Return a runtime with one lazily compiled closure per opcode.lyn<i 'Qriiadreturn function(ctx, ins) local q,V,top,ups,va,nva,rb=ctx.q,ctx.V,ctx.top,ctx.ups,ctx.va,ctx.nva,ctx.rb local K,pack,unpack,cell,cellval,cellput,mkclos,truthy,ENV,callwith,CELL_MT,boxed=ctx.K,ctx.pack,ctx.unpack,ctx.cell,ctx.cellval,ctx.cellput,ctx.mkclos,ctx.truthy,ctx.ENV,ctx.callwith,ctx.CELL_MT,ctx.boxed local pc=ctx.pc if ctx.q==nil then return end z" ctx.pc=pc ctx.top=top return end z end z (?.z }zfunction V.exec(rzV.exec not foundz local M = {}z M not foundz-- Binary graph reader.Nan local H = %s local function h_unhex(s) local out = {} for i = 1, #s, 2 do out[#out + 1] = string.char(tonumber(s:sub(i, i + 1), 16)) end return table.concat(out) end local function h_decrypt(hex, seed) local s = h_unhex(hex) local state = bit32.bxor(seed, 0x9E3779B9) local out = {} for i = 1, #s do state = bit32.bxor(state, bit32.lshift(state, 13)) state = bit32.bxor(state, bit32.rshift(state, 17)) state = bit32.bxor(state, bit32.lshift(state, 5)) out[i] = string.char(bit32.bxor(s:byte(i), bit32.band(state, 255))) end return table.concat(out) end local function h_get(op) local rec = H[op] if not rec then error('', 0) end if not rec.fn then local src = h_decrypt(rec.x, rec.s) local f = loadstring or load local factory = f(src) if not factory then error('', 0) end rec.fn = factory() end return rec end function V.exec(pid, ups, ...) local p = V.protos[pid] if not p then error('', 0) end local q = {} local rb = V.regbase or 0 local np = p.params local nargs = select('#', ...) for i = 1, np do q[rb + i - 1] = (select(i, ...)) end local va, nva = {}, 0 if p.vararg then nva = nargs - np for i = 1, nva do va[i] = select(np + i, ...) end end local code = p.code local n = #code local pc = 1 local top = rb - 1 local ctx = { q = q, V = V, ups = ups, va = va, nva = nva, rb = rb, top = top, pc = pc, K = K, pack = pack, unpack = unpack, cell = cell, cellval = cellval, cellput = cellput, mkclos = mkclos, truthy = truthy, ENV = ENV, callwith = callwith, CELL_MT = CELL_MT, boxed = p.boxed or {}, } while pc >= 1 and pc <= n do local ins = code[pc] local op = V.opmap and V.opmap[ins[1]] or bit32.bxor(ins[1], V.opkey) local rec = h_get(op) ctx.pc, ctx.top = pc, top if rec.t then local r = pack(rec.fn(ctx, ins)) return unpack(r, 1, r.n) end rec.fn(ctx, ins) pc, top = ctx.pc, ctx.top end end )rHrandomRandomr randrangeriitemsr8subescaper*rr#shufflerfindr7)r+rjr@r`ZrecordsrFrErGrZhnamesr(rgnewZ encryptedrnr^ZdecoytableZexec_atZ suffix_atZ decode_atprefixsuffixZnew_execrrrbuild_handler_runtime^sd              "NOr|)r) __doc__ __future__rrpr8rr'r*rHrir|rrrrs