Zen Script

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={"1aefd6b695064e3c8bae1cfab7860ae8d57db746ac9c05035931f2a17870bccf9a160e7e2db63a8fb6685f65798da2081376c5b9b18729d2c1d4cdddc574eb0e1ce3f6baeb3d966ed2ff0dc2519bc0c8647bfa1ad003f1cd8f5555a1227c97ad14f13ef6086e1d30ce800c75db7e04eccfb6e81a5eb12957bcf08b03d635219cca9a5ebb04ba1846e651bf24c250d55257"};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=2252159589;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