local _b=bit32 or bit;if not _b then local function _band(a,b) local r=0 local p=1 for _=1,32 do local aa=a%2 local bb=b%2 if aa==1 and bb==1 then r=r+p end a=(a-aa)/2 b=(b-bb)/2 p=p*2 end return r end local function _bor(a,b) local r=0 local p=1 for _=1,32 do local aa=a%2 local bb=b%2 if aa==1 or bb==1 then r=r+p end a=(a-aa)/2 b=(b-bb)/2 p=p*2 end return r end local function _bxor(a,b) local r=0 local p=1 for _=1,32 do local aa=a%2 local bb=b%2 if aa~=bb then r=r+p end a=(a-aa)/2 b=(b-bb)/2 p=p*2 end return r end local function _lshift(a,n) return _band(a*2^n,4294967295) end local function _rshift(a,n) return math.floor(a/2^n) end _b={band=_band,bor=_bor,bxor=_bxor,lshift=_lshift,rshift=_rshift} end;local _c={"3e485ad6dacd3ee20a8618256b8a53eed2018920182b6cde071dad6f3d0c5dd8ee4d547843b0b50c2c9e6afc4bfba53dcf2a473d5f715767321678579d7220ab57fb74cff7c1a5ea2968efe83f74b09a45d359020bfe8a61bf8b7ee8a1687c7ba704588f070f35c84442c8a1835f10f4c386ec8c5195ff6bedee939e599ca13915180cbbad03d1090c912b44981833c276f84a63c2f6da10a730e0d77a0aab5e39010d07421b33ad6750"};local _s=table.concat(_c);local _e={};for i=1,#_s,2 do local v=tonumber(_s:sub(i,i+1),16);_e[#_e+1]=v or 0 end;local _x=2913855442;local _d={};for i=1,#_e do _x=_b.bxor(_x,_b.lshift(_x,13));_x=_b.bxor(_x,_b.rshift(_x,17));_x=_b.bxor(_x,_b.lshift(_x,5));_d[i]=string.char(_b.band(_b.bxor(_e[i],_x),255)) end;local _r=table.concat(_d);local _f=loadstring or load;if not _f then return end;local _ok,_err=pcall(function() local fn=_f(_r,"@z");if not fn then error("obf:loadfailed") end;fn() end);if not _ok and getgenv and getgenv().debug then warn("[Zen Obf] "..tostring(_err)) end