Deobfuscate lua

Кто может деобфусцировать?
Интересно узнать что там

Кто сделает, я не миллионер но в знак благодарности скажу спасибо ;)

local f=string.byte;local h=string.char;local c=string.sub;local Q=table.concat;local e=table.insert;local s=math.ldexp;local M=getfenv or function()return _ENV end;local r=setmetatable;local C=select;local t=unpack or table.unpack;local d=tonumber;local function R(f)local l,n,o="","",{}local a=256;local t={}for e=0,a-1 do t[e]=h(e)end;local e=1;local function i()local l=d(c(f,e,e),36)e=e+1;local n=d(c(f,e,e+l-1),36)e=e+l;return n end;l=h(i())o[1]=l;while e<#f do local e=i()if t[e]then n=t[e]else n=l..c(l,1,1)end;t[a]=l..c(n,1,1)o[#o+1],l,a=n,n,a+1 end;return table.concat(o)end;local i=R('26V25F27525C25C27525F24K25224Q25C25M27924124M24L24M24X24M24T24G24M25C25J27923Y23Q23X24625C25R27924024M25323U24T25124Q24W24Q24H24V27P25H27924G24V24Q27M25325C25G27923K24S24U24U24I24T24N27E27925224T24H24Q28R24I24V24V27929321F27029327926F23N25C25N27924Z28Q24S24X24I28P28T27524128V24024G24X24Q24Z28I23W27Z25324M29I23W25127K24V24I25623M24323U26L23W24Z27M23Q25729W24X24T29023L24X24S25024W27K24624123Z26J26924R25325324Z24W26X26K26K24W25327L29I24I28924M26L24G28N2B026K24N24W26Y24H26Z26K24G25625724N25024N26926I25C24929V29X24U29Z2A12A32A52A72A927M24624X24V2832BW2C42A323W24X2AC2AE2AG24V2AI2AK2AM24X2AR2AT2AV2AX2AZ2B12B328P2B62B82BA24W2BC2BE2BG2BI2BK2BM2BO2BQ23R2BT29Y2A02C82A42A62A82AA24T2CC27K2CE2CG2AL2AN2AP2CK2AU2AW2AY2BC2862B924X24N26L24K24K2BC24T24M24724Y24U26V2BP25C29U27524029W2D62BX2D92C02DC2C32C524T2C72A22562CA2DE2AF2AH2AJ2DI2CJ2AS2DM2CN2DP24W2DR2DT2DV2DX2DZ2E12E32BQ27R2752CL24Z27727923O28125C2652792F72EU24Q26L28824H2CT26K24424O26Z24W23Z24K23Z26K24I26L24Z24T24K25C28C2752B928O24S24T29K25F23R24M2B924N24M24323X23O27Q27924N29H25025C25Q28L2B329W24724M2AD25227L2972GX29322B22R29A25L2GP29X29W23P2G628I28K27524527K24N28Q24I2GY27123N2GX23N22K29A2HA27A24V24S24H29024W29B27G29X24V24724Q24U24M2GY24A29A25I29D29Q24T28I25P27924K28126B29Q24G24O2AJ29124M28S27F2G329024V2HS2IH2HU29C29L24M24K2862AE2GI27523R2GL2J025F24L24Q28A2J42C12G725K27924I25225329G28V26L24V25224I25C25E27924X2JN2JD2GN2FA28129O29Q29S23X29I27P2I627524429Q29W2J427H24I28S2JO2752502GX24P21N29A2JC29L24Q2IH23M2B128A25624C2J42B824L2G02G225F2CP28Y2G027827527L2F824Y2791022J1123626B2LA2LA1022I1121T2LB2LC2L723A2LH26B2LD1121U2LL2L61123E2LL26M2LM2301123G1123J102LX2LZ2M12M32M02M22LY2M72M62M52M92MC2M42M82MF2MB2MG2MA2MD25C2K225F23K2HQ2AM2KB25F25Y2GY2792952HK22429A2F525F2GK24I2GM2GO2752FB2532JW24M27M24024Q25527P2H32E72812GS2GU27L25C2NH25F23P2J728A24N27H24G2532MV25F2MM28L24S2HQ24X2GX1Z24S2HJ2GY2O729723R2HN27Z2812H72I92NN2792NK2N924R2K92AK2GY26V29A25X2JP2KK2II2O12NS26B24H25626B25324R24M2OX24M2B12JT2752N426B2GC27K26B24K28Q2G02HO24K2HQ2HS24V2IT2HW2902HZ2I125F21D21X21522N246246162962GX25V2O929324Q1329324227925T25D2792MS2Q925F2JO2QA2752QD2QA2MS25J25O2792432QE25F25T26G25F27R2L025F26B26L2QT2QZ2N12QZ2JO2I625T27528C2QV26B2R625F28C2MN25F2HO29728C2QJ2QQ2RA2R82RA28C28C2R52RE2RQ2QH27529C2RF27527F2R12752H32RD2RA2H32JO2RP2R72792R92RB2S92RD28K2RV2S92RI2S52NY2S72RM25F29C2RP2SC2Q82RT2RR2RJ25F27F2HO2RP2H32IN29328C2S32SR2S62752S82RN2S92SM2SQ2S829C2I62H32T92SK25F2KI2RW2QZ2T32RZ25F2TB2QW2TK2H32TG2S92T02SG2RL2S928C27Y27928K2MS2792RH2QP2TT2SI2TV2TE2T72SX2RP29C2U92TH2SX2U12SS2U32RK2U52T52N627528K2QG2TN2TE2TM2TD29C2IB2RP27F2QM2RG2UG2S42UI2TJ2U62UL2RQ2UO2S82SN2IB2TD2TM2UV25F25V2GX28C27F2U02T22SR28K25U2U52SN2RP2UM2QP2QA2V72RQ25S2S92S923P2QP28K25J2682792VY2JO2W127929U2KB2742U22T326W2U625Z2SY25F2UO2UF2RY2V52UF2S92W82RQ2W62752WO2QD28C2MU27927F2WB2QT26S27927R2KB2NO2U02202Q82672QB2U52932QA2RP2JO2QV2972QA2VS2GX2R12RI2GY2SF2932MN2S82WG2XD2SQ25F26C2WH2QP2FA2792XN2792IU2SR2JO2UC2XW2Y22R12622U32QS27R2NO26B2MU27R27R2JC2RP2I62TX29327R2Y02YC2U52YG2TF2SR2I62V42752YN2QP25J2X02752VE2S42QS2TK2T323T2972YI2752JO2IB2XM2UH2792YD2GX2Z92QP2UX2GX2Y02Z12XA2792VM2XS2VP2TI2XW2XC26U2QP2VV2V22JO2JO2WF2XZ2MV2QF2SH2RP27R2WV2UP2YR2OR2792I62U02RA2WI2VQ2XF2YW2WL2QD2I625W2Q82R528C2632SO2RQ31092VT28K2Y92UA25F261310T27F260310T2H32X829728K2H32XC2SP2662U529C29C2FE2Y12VR2QQ2QA27F2Y22QD2H32642Q82QA2JC2Y72QM27F23L2YA25F2GO2XQ2QD2IB26A293272311Z2XW2W52X027F2712QP25H2782SX2R32752VM310K2ZP2TY293312J2TL312N311I312L2RA2QH27Y2H32692U52H32H32W22RP2JC26F2GX27Y2UE2TK27Y2V025F2H326E312Y313B25F26D2SR2JC2XV2RS25F27Y26J2GX2H327Y2QA25H23K313F2462QP2W52W2275313W313Y2792I22Z3313F313D2T326Y313F2H3313H31322XU310T27Y26I313P313M2XW314D31472UP2JC2JC314C27527Y26H3135311J2RP2GO313O2Z831272VS296312V25F2QS26B2962IB2JC26N275311Q2IB2ZK25F26P314J2ZA2QT313Z25F2NW3145313C2S73149312Z313G313I314E313L27Y26M314I313R315T314M2S8314O315S2RP314S314U3105314W25F314Y2932JC2GO3151314J2H3315531572YS315A25F315C25F315E315G2YL2S42QA2H3311N311S25F2QY2QH2QA27Y311U313F221311Y2IB31612R92IB2IB314Q316O25F26K2Q03127313L2VM26R2GX2QM2QM2ZQ2ZN315X2972IB2VE2XI317C2IB2QS2RP2VM26Q2U52VM2VM315G2QD2R526O2Q82VV2VV316Y312Q2ZY2932ZK2JO2S82QM2IB2742792QM2RI2YZ313F2572XX2X4293');local o=bit and bit.bxor or function(e,n)local l,o=1,0 while e>0 and n>0 do local a,c=e%2,n%2 if a~=c then o=o+l end e,n,l=(e-a)/2,(n-c)/2,l*2 end if e<n then e=n end while e>0 do local n=e%2 if n>0 then o=o+l end e,l=(e-n)/2,l*2 end return o end local function n(n,e,l)if l then local e=(n/2^(e-1))%2^((l-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(n%(e+e)>=e)and 1 or 0;end;end;local e=1;local function l()local c,l,a,n=f(i,e,e+3);c=o(c,195)l=o(l,195)a=o(a,195)n=o(n,195)e=e+4;return(n*16777216)+(a*65536)+(l*256)+c;end;local function d()local l=o(f(i,e,e),195);e=e+1;return l;end;local function a()local l,n=f(i,e,e+2);l=o(l,195)n=o(n,195)e=e+2;return(n*256)+l;end;local function S()local o=l();local e=l();local c=1;local o=(n(e,1,20)*(2^32))+o;local l=n(e,21,31);local e=((-1)^n(e,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return s(e,l-1023)*(c+(o/(2^52)));end;local s=l;local function A(l)local n;if(not l)then l=s();if(l==0)then return'';end;end;n=c(i,e,e+l-1);e=e+l;local l={}for e=1,#n do l[e]=h(o(f(c(n,e,e)),195))end return Q(l);end;local e=l;local function h(...)return{...},C('#',...)end local function R()local i={};local o={};local e={};local f={i,o,nil,e};local e=l()local c={}for n=1,e do local l=d();local e;if(l==1)then e=(d()~=0);elseif(l==0)then e=S();elseif(l==3)then e=A();end;c[n]=e;end;for e=1,l()do o[e-1]=R();end;for f=1,l()do local e=d();if(n(e,1,1)==0)then local o=n(e,2,3);local t=n(e,4,6);local e={a(),a(),nil,nil};if(o==0)then e[3]=a();e[4]=a();elseif(o==1)then e[3]=l();elseif(o==2)then e[3]=l()-(2^16)elseif(o==3)then e[3]=l()-(2^16)e[4]=a();end;if(n(t,1,1)==1)then e[2]=c[e[2]]end if(n(t,2,2)==1)then e[3]=c[e[3]]end if(n(t,3,3)==1)then e[4]=c[e[4]]end i[f]=e;end end;f[3]=d();return f;end;local function s(e,f,a)local l=e[1];local n=e[2];local e=e[3];return function(...)local o=l;local R=n;local c=e;local d=h local l=1;local i=-1;local A={};local Q={...};local C=C('#',...)-1;local h={};local n={};for e=0,C do if(e>=c)then A[e-c]=Q[e+1];else n[e]=Q[e+1];end;end;local e=C-c+1 local e;local c;while true do e=o[l];c=e[1];if c<=36 then if c<=17 then if c<=8 then if c<=3 then if c<=1 then if c==0 then local o=e[2]local c={n[o](n[o+1])};local l=0;for e=o,e[4]do l=l+1;n[e]=c[l];end else local l=e[2]local o,e=d(n[l](t(n,l+1,e[3])))i=e+l-1 local e=0;for l=l,i do e=e+1;n[l]=o[e];end;end;elseif c>2 then local i=R[e[3]];local t;local c={};t=r({},{__index=function(l,e)local e=c[e];return e[1][e[2]];end,__newindex=function(n,e,l)local e=c[e]e[1][e[2]]=l;end;});for a=1,e[4]do l=l+1;local e=o[l];if e[1]==17 then c[a-1]={n,e[3]};else c[a-1]={f,e[3]};end;h[#h+1]=c;end;n[e[2]]=s(i,t,a);else n[e[2]]=e[3];end;elseif c<=5 then if c==4 then local e=e[2]n[e]=n[e](n[e+1])else local o=e[2]local c={n[o](n[o+1])};local l=0;for e=o,e[4]do l=l+1;n[e]=c[l];end end;elseif c<=6 then n[e[2]]=n[e[3]][e[4]];elseif c>7 then n[e[2]]=n[e[3]]-e[4];else local e=e[2]n[e](n[e+1])end;elseif c<=12 then if c<=10 then if c==9 then f[e[3]]=n[e[2]];else do return end;end;elseif c==11 then local l=e[2]n[l]=n[l](t(n,l+1,e[3]))else local c;n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))end;elseif c<=14 then if c==13 then local l=e[2]n[l]=n[l](t(n,l+1,e[3]))else n[e[2]]=(e[3]~=0);end;elseif c<=15 then local o=e[2];local c=n[o]local a=n[o+2];if(a>0)then if(c>n[o+1])then l=e[3];else n[o+3]=c;end elseif(c<n[o+1])then l=e[3];else n[o+3]=c;end elseif c>16 then n[e[2]]=n[e[3]];else l=e[3];end;elseif c<=26 then if c<=21 then if c<=19 then if c>18 then local f;local a;local h,s;local c;n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]h,s=d(n[c](t(n,c+1,e[3])))i=s+c-1 a=0;for e=c,i do a=a+1;n[e]=h[a];end;l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,i))l=l+1;e=o[l];c=e[2];f=n[e[3]];n[c+1]=f;n[c]=f[e[4]];l=l+1;e=o[l];c=e[2]n[c](n[c+1])else local c;n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];c=e[2]n[c]=n[c]()end;elseif c==20 then local l=e[2]local c={n[l]()};local o=e[4];local e=0;for l=l,o do e=e+1;n[l]=c[e];end else local c;n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](n[c+1])l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](n[c+1])end;elseif c<=23 then if c>22 then local o=e[2];local a=n[o+2];local c=n[o]+a;n[o]=c;if(a>0)then if(c<=n[o+1])then l=e[3];n[o+3]=c;end elseif(c>=n[o+1])then l=e[3];n[o+3]=c;end else local l=e[2]local c={n[l]()};local o=e[4];local e=0;for l=l,o do e=e+1;n[l]=c[e];end end;elseif c<=24 then if(n[e[2]]<n[e[4]])then l=e[3];else l=l+1;end;elseif c>25 then n[e[2]]=e[3];else local e=e[2]local o,l=d(n[e](n[e+1]))i=l+e-1 local l=0;for e=e,i do l=l+1;n[e]=o[l];end;end;elseif c<=31 then if c<=28 then if c==27 then n[e[2]]=n[e[3]][e[4]];else local f;local c;n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](n[c+1])l=l+1;e=o[l];c=e[2];f=n[e[3]];n[c+1]=f;n[c]=f[e[4]];l=l+1;e=o[l];n[e[2]]=(e[3]~=0);l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];end;elseif c<=29 then n[e[2]]=n[e[3]]+e[4];elseif c>30 then local e=e[2]local o,l=d(n[e](n[e+1]))i=l+e-1 local l=0;for e=e,i do l=l+1;n[e]=o[l];end;else n[e[2]]=a[e[3]];end;elseif c<=33 then if c==32 then local c;local i;local f;n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];f=e[3];i=n[f]for e=f+1,e[4]do i=i..n[e];end;n[e[2]]=i;l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))l=l+1;e=o[l];c=e[2];f=n[e[3]];n[c+1]=f;n[c]=f[e[4]];l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];else if(n[e[2]]<n[e[4]])then l=l+1;else l=e[3];end;end;elseif c<=34 then local o=e[2];local l=n[e[3]];n[o+1]=l;n[o]=l[e[4]];elseif c>35 then if(n[e[2]]<n[e[4]])then l=e[3];else l=l+1;end;else l=e[3];end;elseif c<=55 then if c<=45 then if c<=40 then if c<=38 then if c==37 then n[e[2]]=n[e[3]];else local l=e[2]local o,e=d(n[l](t(n,l+1,e[3])))i=e+l-1 local e=0;for l=l,i do e=e+1;n[l]=o[e];end;end;elseif c==39 then n[e[2]]=(e[3]~=0);else local o=e[3];local l=n[o]for e=o+1,e[4]do l=l..n[e];end;n[e[2]]=l;end;elseif c<=42 then if c>41 then n[e[2]]=n[e[3]]/e[4];else n[e[2]]=f[e[3]];end;elseif c<=43 then n[e[2]]=a[e[3]];elseif c>44 then local l=e[2]n[l](t(n,l+1,e[3]))else local e=e[2]n[e]=n[e]()end;elseif c<=50 then if c<=47 then if c>46 then local l=e[2]n[l](t(n,l+1,e[3]))else local i;local h;local d;local c;n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];c=e[2]d={n[c]()};h=e[4];i=0;for e=c,h do i=i+1;n[e]=d[i];end l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];c=e[2]n[c](n[c+1])l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];for e=e[2],e[3]do n[e]=nil;end;l=l+1;e=o[l];c=e[2]n[c](n[c+1])l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=n[e[3]]/e[4];l=l+1;e=o[l];n[e[2]]=n[e[3]]-e[4];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]]/e[4];l=l+1;e=o[l];n[e[2]]=n[e[3]]+e[4];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];c=e[2]n[c](n[c+1])l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]]/e[4];l=l+1;e=o[l];n[e[2]]=n[e[3]]-e[4];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]]+e[4];l=l+1;e=o[l];n[e[2]]=n[e[3]]/e[4];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];c=e[2]n[c]=n[c]()l=l+1;e=o[l];n[e[2]]=n[e[3]]-e[4];l=l+1;e=o[l];if(n[e[2]]<n[e[4]])then l=e[3];else l=l+1;end;end;elseif c<=48 then local o=e[3];local l=n[o]for e=o+1,e[4]do l=l..n[e];end;n[e[2]]=l;elseif c==49 then do return end;else local e=e[2]n[e](t(n,e+1,i))end;elseif c<=52 then if c>51 then n[e[2]]=f[e[3]];else for e=e[2],e[3]do n[e]=nil;end;end;elseif c<=53 then local f;local i;local c;n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];c=e[2]i={n[c](n[c+1])};f=0;for e=c,e[4]do f=f+1;n[e]=i[f];end l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))elseif c==54 then local c;n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];c=e[2]n[c]=n[c]()l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))else local o=e[2];local a=n[o+2];local c=n[o]+a;n[o]=c;if(a>0)then if(c<=n[o+1])then l=e[3];n[o+3]=c;end elseif(c>=n[o+1])then l=e[3];n[o+3]=c;end end;elseif c<=64 then if c<=59 then if c<=57 then if c==56 then f[e[3]]=n[e[2]];else local c;n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];c=e[2]n[c]=n[c]()l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c]=n[c](t(n,c+1,e[3]))end;elseif c==58 then n[e[2]]=n[e[3]]/e[4];else n[e[2]]=n[e[3]]+e[4];l=l+1;e=o[l];f[e[3]]=n[e[2]];l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];n[e[2]]=f[e[3]];l=l+1;e=o[l];if(n[e[2]]<n[e[4]])then l=l+1;else l=e[3];end;end;elseif c<=61 then if c>60 then local e=e[2]n[e](n[e+1])else local e=e[2]n[e]=n[e](n[e+1])end;elseif c<=62 then for e=e[2],e[3]do n[e]=nil;end;elseif c==63 then local o=e[2];local l=n[e[3]];n[o+1]=l;n[o]=l[e[4]];else local e=e[2]n[e](t(n,e+1,i))end;elseif c<=69 then if c<=66 then if c>65 then n[e[2]]=n[e[3]]+e[4];else if(n[e[2]]<n[e[4]])then l=l+1;else l=e[3];end;end;elseif c<=67 then if not n[e[2]]then l=l+1;else l=e[3];end;elseif c==68 then local e=e[2]n[e]=n[e]()else local i=R[e[3]];local t;local c={};t=r({},{__index=function(l,e)local e=c[e];return e[1][e[2]];end,__newindex=function(n,e,l)local e=c[e]e[1][e[2]]=l;end;});for a=1,e[4]do l=l+1;local e=o[l];if e[1]==17 then c[a-1]={n,e[3]};else c[a-1]={f,e[3]};end;h[#h+1]=c;end;n[e[2]]=s(i,t,a);end;elseif c<=71 then if c==70 then if not n[e[2]]then l=l+1;else l=e[3];end;else local f;local a;local c;c=e[2]n[c](t(n,c+1,e[3]))l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2];a=n[c]f=n[c+2];if(f>0)then if(a>n[c+1])then l=e[3];else n[c+3]=a;end elseif(a<n[c+1])then l=e[3];else n[c+3]=a;end end;elseif c<=72 then n[e[2]]=n[e[3]]-e[4];elseif c>73 then local c;n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](n[c+1])l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];l=l+1;e=o[l];c=e[2]n[c](n[c+1])l=l+1;e=o[l];n[e[2]]=a[e[3]];l=l+1;e=o[l];n[e[2]]=n[e[3]][e[4]];l=l+1;e=o[l];n[e[2]]=e[3];else local o=e[2];local c=n[o]local a=n[o+2];if(a>0)then if(c>n[o+1])then l=e[3];else n[o+3]=c;end elseif(c<n[o+1])then l=e[3];else n[o+3]=c;end end;l=l+1;end;end;end;return s(R(),{},M())();

 

Деобфуцировать не получится, код не работает:

lua: main.lua:1: attempt to index field '?' (a nil value)
stack traceback:
main.lua:1: in function <main.lua:1>
(...tail calls...)
[C]: in ?