LUA   109
defsefse
Guest on 3rd February 2023 03:54:32 PM


  1. ([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) __xjsnOYwrHIz = a; end)); return(function(t,...)local o;local _;local r;local d;local f;local u;local e=24915;local n=0;local l={};while n<953 do n=n+1;while n<0x117 and e%0x2a5e<0x152f do n=n+1 e=(e-502)%16493 local a=n+e if(e%0x3e96)>=0x1f4b then e=(e*0x85)%0x2408 while n<0x1aa and e%0x4d98<0x26cc do n=n+1 e=(e*217)%15429 local r=n+e if(e%0x3b8a)>=0x1dc5 then e=(e-0x73)%0x17b0 local e=26409 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end elseif e%2~=0 then e=(e*0x1c7)%0xf78 local e=48077 if not l[e]then l[e]=0x1 f=string;end else e=(e*0x2fd)%0xb8b4 n=n+1 local e=31991 if not l[e]then l[e]=0x1 d=(not d)and _ENV or d;end end end elseif e%2~=0 then e=(e-0xd7)%0xa207 while n<0x284 and e%0x2654<0x132a do n=n+1 e=(e*235)%23542 local u=n+e if(e%0x3b38)>=0x1d9c then e=(e+0x3ab)%0x88a2 local e=94942 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e+0x92)%0x61e5 local e=50220 if not l[e]then l[e]=0x1 end else e=(e-0x2eb)%0x84a9 n=n+1 local e=15755 if not l[e]then l[e]=0x1 r=function(l)local e=0x01 local function n(n)e=e+n return l:sub(e-n,e-0x01)end while true do local l=n(0x01)if(l=="\5")then break end local e=f.byte(n(0x01))local e=n(e)if l=="\2"then e=o.HqDuOmMj(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then d[e]=function(e,n)return t(8,nil,t,n,e)end elseif l=="\4"then e=d[e]elseif l=="\0"then e=d[e][n(f.byte(n(0x01)))];end local n=n(0x08)o[n]=e end end end end end else e=(e*0x3ab)%0x47c1 n=n+1 while n<0x346 and e%0x1208<0x904 do n=n+1 e=(e*387)%17888 local d=n+e if(e%0x3894)>0x1c4a then e=(e-0x2d1)%0x65a8 local e=16553 if not l[e]then l[e]=0x1 _=tonumber;end elseif e%2~=0 then e=(e-0x22d)%0x9ed local e=12934 if not l[e]then l[e]=0x1 u="\4\8\116\111\110\117\109\98\101\114\72\113\68\117\79\109\77\106\0\6\115\116\114\105\110\103\4\99\104\97\114\116\84\66\89\97\79\101\66\0\6\115\116\114\105\110\103\3\115\117\98\75\77\81\76\100\106\97\107\0\6\115\116\114\105\110\103\4\98\121\116\101\120\98\105\119\68\116\101\83\0\5\116\97\98\108\101\6\99\111\110\99\97\116\90\89\69\98\86\122\112\95\0\5\116\97\98\108\101\6\105\110\115\101\114\116\114\111\84\122\66\110\117\116\5";end else e=(e*0x378)%0x8661 n=n+1 local e=79721 if not l[e]then l[e]=0x1 o={};end end end end end e=(e+403)%49668 end r(u);local e={};for n=0x0,0xff do local l=o.tTBYaOeB(n);e[n]=l;e[l]=n;end local function a(n)return e[n];end local f=(function(f,r)local u,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local t=f while true do n[0x03][o.KMQLdjak(r,e,(function()e=u+e return e-0x01 end)())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""l=0x000 break end end local d=#r while e<d+0x01 do n[0x02][l]=o.KMQLdjak(r,e,(function()e=u+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.roTzBnut(n[0x01],(a((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=f+t;end end return o.ZYEbVzp_(n[0x01])end);r(f(20,"wqC*d-P#3+zYh&,kkq"));r(f(157,"wsWdA=F3JML>Vb-_FdVVMV6pFs>>Wd3_3_AW>Fss33-sm-JFb3FFMLs>MFJF-L>Jg-F_bbA MVb-A_bFdWMW_X=d=v>3J=-LAALVs=FVV_dbMM_Ld_VWsJsVJ===>MsL3AbVdJdMyA=>bsWdJ>bFAs>_%v3LbJAbJLM-^=bsWJM-_=_=>_sL3-_AA_>M-L=_>bW3MMbVA!=-VMMd-J=L>FssJdbdAMMM_bFLVFd>Md-_=_LAPb3>->-SAF_JFLV>d_MbSdW3>Vd%33bAAA>V_L=_3dbFLV_MFAbWYAM3_VdMV3WA=J>Vb>dbbJ=F>FU-3_SrdMLd_Ls-J==A>WsM3bb-dJL9_V=LV-7dJJ-_W-L>sWsa3JALML_-F>V3V>Mb_M=->Ws3JWV>AW>3_l==L_d3MVMF_>VbWMJ--WA3>W_d3-VLALL>_dA3L-VFWL_J=b>3s_JJVGdbJ=0W3A>Fz_L=Md_JVJsbJ3-dAA>Js-=-bbsLM3aM=JL_>_WF_WAM>_sFsFbLAdLMnV3W>WWb3db==3M__MFLJe"));local e=(-8513+(function()local l,n=0,1;(function(e)e(e(e))end)(function(e)if l>447 then return e end l=l+1 n=(n+477)%49266 if(n%1012)>506 then return e(e(e))else return e end return e end)return n;end)())local y=(getfenv)or(function()return _ENV end);local c=o.IqZwuZKO or o.QewMOFkm;local u=4;local ee=1;local d=2;local r=3;local function p(h,...)local b=f(e,">ZrGbAXjg!&#B)_uBBXBrr)g!Zb#u&#MXXXbbXuB&_G#Ku)bZ!)XgrGg__ZnB!jZr&_u&XA&6jBrjZBGj&rB_r!g#AXArj)Ar!ZG!rbgu_Jg)rg!b!&B&gXZZ&B!G&bj_j&uZrZg)DgGG__A!!XvIj#Br_G#_G&bb_#B!ujjr)_rj)bAu!XBAg_#g_gXAG#%gBXZZXB)!oGAuXXGru_A!#AZ)Z)GG&um&XBbgXGB__&jrbBugAj_rG_uABb#kGBbX_GZ)b!)AZu!#BXGrA)&!XG)uB#grgZG)Ag!tZ)r#GXjZ_BZgbG#uX&PAGZX#_j)r#&#&rb)ZrBjjGr)__A_ZbBj##XArG)_AAbBuj#BjZZ))jgjb#uA#AX#)B)oguGZg!buur&gA_AjGr_A!!Ajx#BXjA_bB)!GAg5ABrjBGZ&rAgC_!!ABsr#gX_jjG)-r&uXBrXggX&bG_#&bA#Z}!9bXuBgjGBuF&XABjZpugZ&)_&&:AXjbGX_B!_Aj)bjuGArS)#!#bZVG#BXb_bBu!ZbA#)&AX&Z!!A!GGj_&&XXGZ!B#g!u##GXgrA)Ag&bAu_#AXrZ#)Ag)bGu!&)XrZrB&gbGGev)BXubuujjBbbZA)A!&:gu)&GXZu_)XjLGABg&XABU##Zgrbb_#!gXAuA!)A&Zo&uj&Gj_R#GAbGP&g!XGg_)!&jj*BBAgAr)sr!nGGu_#_AjGuB#!XG!Z&&jX#bX)U&#AX_!BbZAB)j_Gb_&ub##gbGX&!GZ_B!&A=DXZZ_Ag)AxDr&#X)Z#Xurj)gg_bbb_ZA)_! -Xg#b_ub&&XRA!bZuA&BA)ZZ&)jGGg_A&rAB_B#AjjrAj!Gb_r!gb_bjr!)A!buB)&#)X0#jjjrf)XgB&ZAjrXB_g)G_)A!AX!Z&&XA)bbgGG#_B&rAgXrr!ur&bZg!uXbxg#_jbgZbZuuB^X#rX)Abbbmuu#gZB6AB#!iG)u&#bu!#GXrZgB_)#!uAr__B#gZGGgZb)_&&*AXA!GZ_j!BGjuu#GXAcu_X!&bjLr#ZjGu_)AgXGBuG#rG#rb)&g_)A!GG_ub&&&bg#r_Bu!!AB_!&XXuZu):GA_)!_Abe&Zb)#&bAXB#AZZj#&j8rXru.X&!j:rg)Gg_G)&B!AA#riB)g&bbu!X&rq)Xj&ZbB&g(GXJZ&rAg}_BAj&G3_X&_X)Cg#_jbG)_0!XbBZb#uX_rb)&!ubXuB#rg_rB)bg&bzuB&BXGZg)rgbG_3!&XABZrB_j_GA_&&FAjwBBrjgru_b!&AEZgBrjrrg)_&gb&tT#Xj_Gg)gg_bbQA#FXXZB_b&xG_ub&&X!ZXBBgrb&uW&bA&ZS)gjBGr_g#vA#%&BJjXGb_r!gb_Gb#BjYrX)B!ubgTB#bjBr_)XgBbrda&_XbZ&7;gBGBur&gXgZb)Zg{bgqb&rAgh_BBj&GL_XBBAr}g#_jbG&_Q&jbBZb#&X_rb)&!gbXuB#r!grG)bg&bo=#&BXgZg_zguG&u:&XXbZrBgj_Xb_)&QAXfBB_jgbb_b&BAAhX#Bjrr&)_!bb&Zr#)XBrG)g!Zbbu&#0gXr!)rg!G_uA&&XZZX)_!rGguZ&bAuZNBXjBGruB!_AA^&BGjXrB_r!gAj<b#&jNrX)B!bbgu_B_X&rS)Xg)bru!&_XbGj)*gXGBuG&gA_ZbB&gqGX_B&r");local n=0;o.eDRvolgg(function()o.CsuOztEF()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,a=t(0,t,e,b,o.xbiwDteS);local function f()local n,l=o.xbiwDteS(b,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local s=true;local s=0 local function k()local e=n();local n=n();local r=1;local d=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(d==s)then return n*0;else e=1;r=0;end;elseif(e==2047)then return(d==0)and(n*(1/0))or(n*(0/0));end;return o.wEWRYhHI(n,e-1023)*(r+(d/(2^52)));end;local j=n;local function g(n)local l;if(not n)then n=j();if(n==0)then return'';end;end;l=o.KMQLdjak(b,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+s),#l do e=e..o.KMQLdjak(l,n,n)end return e;end;local j=#o.bsEgkGae(_('\49.\48'))~=1 local e=n;local function ne(...)return{...},o.wTpJds_S('#',...)end local function p()local _={};local s={};local e={};local c={_,s,nil,e};local e=n()local b={}for d=1,e do local l=a();local e;if(l==2)then e=(a()~=#{});elseif(l==0)then local n=k();if j and o.PXsQhcuO(o.bsEgkGae(n),'.(\48+)$')then n=o.OgJIhMDR(n);end e=n;elseif(l==3)then e=g();end;b[d]=e;end;for c=1,n()do local e=a();if(l(e,1,1)==0)then local t=l(e,2,3);local o=l(e,4,6);local e={f(),f(),nil,nil};if(t==0)then e[r]=f();e[u]=f();elseif(t==#{1})then e[r]=n();elseif(t==h[2])then e[r]=n()-(2^16)elseif(t==h[3])then e[r]=n()-(2^16)e[u]=f();end;if(l(o,1,1)==1)then e[d]=b[e[d]]end if(l(o,2,2)==1)then e[r]=b[e[r]]end if(l(o,3,3)==1)then e[u]=b[e[u]]end _[c]=e;end end;for e=1,n()do s[e-(#{1})]=p();end;c[3]=a();return c;end;local function z(l,e,n)local d=e;local d=n;return _(o.PXsQhcuO(o.PXsQhcuO(({o.eDRvolgg(l)})[2],e),n))end local function m(g,e,a)local function p(...)local f,z,h,p,_,n,b,k,s,j,m,l;local e=0;while-1<e do if e<=2 then if 0<e then if-1<e then for l=25,75 do if 1~=e then n=-41;b=-1;break;end;h=t(6,45,3,71,g);_=ne p=0;break;end;else n=-41;b=-1;end else f=t(6,75,1,81,g);z=t(6,69,2,92,g);end else if e<=4 then if e>=-1 then repeat if 3~=e then j=o.wTpJds_S('#',...)-1;m={};break;end;k={};s={...};until true;else k={};s={...};end else if 2~=e then for n=30,64 do if e~=5 then e=-2;break;end;l=t(7);break;end;else l=t(7);end end end e=e+1;end;for e=0,j do if(e>=h)then k[e-h]=s[e+1];else l[e]=s[e+1];end;end;local e=j-h+1 local e;local t;local function o(...)while true do end end while true do if n<-40 then n=n+42 end e=f[n];t=e[ee];if t<=13 then if 7>t then if 3>t then if 0<t then if t~=0 then repeat if 1<t then a[e[r]]=l[e[d]];break;end;do return end;until true;else do return end;end else for t=0,6 do if 2>=t then if t>=1 then if t~=1 then l[e[d]][e[r]]=e[u];n=n+1;e=f[n];else l[e[d]]=a[e[r]];n=n+1;e=f[n];end else l[e[d]][e[r]]=e[u];n=n+1;e=f[n];end else if t<=4 then if t==3 then l[e[d]]=a[e[r]];n=n+1;e=f[n];else l[e[d]][e[r]]=e[u];n=n+1;e=f[n];end else if t~=6 then l[e[d]]=a[e[r]];n=n+1;e=f[n];else l[e[d]]=a[e[r]];end end end end end else if 5<=t then if 5<t then local t,o,u,a,f;local n=0;while n>-1 do if 2<n then if n<=4 then if n>=-1 then for e=16,80 do if 4~=n then a=t[u];break;end;f=t[o];break;end;else f=t[o];end else if 3<n then for e=25,76 do if n~=6 then l(f,a);break;end;n=-2;break;end;else n=-2;end end else if 0<n then if-2~=n then for e=17,79 do if 1<n then u=r;break;end;o=d;break;end;else u=r;end else t=e;end end n=n+1 end else n=e[r];end else if t~=0 then for n=24,71 do if 4~=t then l[e[d]]=a[e[r]];break;end;do return end;break;end;else do return end;end end end else if 9>=t then if t<=7 then l[e[d]]=(e[r]~=0);else if t~=4 then repeat if 9~=t then local n=e[d]local d,e=_(l[n](c(l,n+1,e[r])))b=e+n-1 local e=0;for n=n,b do e=e+1;l[n]=d[e];end;break;end;local n=e[d]local d,e=_(l[n](c(l,n+1,e[r])))b=e+n-1 local e=0;for n=n,b do e=e+1;l[n]=d[e];end;until true;else local n=e[d]local d,e=_(l[n](c(l,n+1,e[r])))b=e+n-1 local e=0;for n=n,b do e=e+1;l[n]=d[e];end;end end else if 11<t then if t>=11 then for n=31,77 do if 12<t then local n=e[d];local d=l[e[r]];l[n+1]=d;l[n]=d[e[u]];break;end;l[e[d]]();break;end;else l[e[d]]();end else if t==10 then local e=e[d]l[e]=l[e](c(l,e+1,b))else l(e[d],e[r]);end end end end else if 21>t then if 16<t then if 18>=t then if t==18 then a[e[r]]=l[e[d]];else if(l[e[d]]~=e[u])then n=n+1;else n=e[r];end;end else if 20==t then l[e[d]]=(e[r]~=0);else l[e[d]][e[r]]=e[u];end end else if t<=14 then local e=e[d]l[e]=l[e](c(l,e+1,b))else if 13~=t then for o=40,78 do if 16~=t then if(l[e[d]]~=e[u])then n=n+1;else n=e[r];end;break;end;local t,u,a,o;l(e[d],e[r]);n=n+1;e=f[n];t=e[d]u,a=_(l[t](c(l,t+1,e[r])))b=a+t-1 o=0;for e=t,b do o=o+1;l[e]=u[o];end;n=n+1;e=f[n];t=e[d]l[t]=l[t](c(l,t+1,b))n=n+1;e=f[n];l[e[d]]();n=n+1;e=f[n];do return end;break;end;else if(l[e[d]]~=e[u])then n=n+1;else n=e[r];end;end end end else if 24<=t then if t<26 then if t~=25 then l[e[d]]=a[e[r]];else n=e[r];end else if 22<t then for n=37,87 do if t>26 then l[e[d]][e[r]]=e[u];break;end;l[e[d]]();break;end;else l[e[d]]();end end else if 21>=t then for t=0,3 do if 2<=t then if-2<t then for o=31,86 do if t<3 then l[e[d]]=a[e[r]];n=n+1;e=f[n];break;end;if(l[e[d]]~=e[u])then n=n+1;else n=e[r];end;break;end;else if(l[e[d]]~=e[u])then n=n+1;else n=e[r];end;end else if-1<t then for o=10,67 do if t>0 then a[e[r]]=l[e[d]];n=n+1;e=f[n];break;end;l[e[d]]=(e[r]~=0);n=n+1;e=f[n];break;end;else l[e[d]]=(e[r]~=0);n=n+1;e=f[n];end end end else if t<23 then for t=0,6 do if t<3 then if 1>t then a[e[r]]=l[e[d]];n=n+1;e=f[n];else if t>=0 then for o=36,58 do if t>1 then a[e[r]]=l[e[d]];n=n+1;e=f[n];break;end;l(e[d],e[r]);n=n+1;e=f[n];break;end;else a[e[r]]=l[e[d]];n=n+1;e=f[n];end end else if 4<t then if 4<t then repeat if 6>t then l[e[d]]=a[e[r]];n=n+1;e=f[n];break;end;l[e[d]][e[r]]=e[u];until true;else l[e[d]][e[r]]=e[u];end else if t==3 then l[e[d]]=a[e[r]];n=n+1;e=f[n];else l[e[d]][e[r]]=e[u];n=n+1;e=f[n];end end end end else local n=e[d];local d=l[e[r]];l[n+1]=d;l[n]=d[e[u]];end end end end end n=1+n;end;end;return p end;local r=0xff;local a={};local t=(1);local d='';(function(n)local l=n local f=0x00 local e=0x00 l={(function(o)if f>0x2c then return o end f=f+1 e=(e+0x510-o)%0x27 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x26);end return true end)'fXQMq'and l[0x2](0x286+o))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x1c);r[2]=(r[2]*(z(function()a()end,c(d))-z(r[1],c(d))))+1;a[t]={};r=r[2];t=t+r;end return true end)'AlAxa'and l[0x3](o+0x83))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x64);end return true end)'FKfAV'and l[0x1](o+0x3b9))or o end),(function(u)if f>0x2a then return u end f=f+1 e=(e+0xb27-u)%0xf return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb1);end return true end)'kRSBV'and l[0x3](0x16b+u))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3f);d='\37';r={function()r()end};d=d..'\100\43';end return true end)'MijbD'and l[0x2](u+0x3e6))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x5a);d={d..'\58 a',d};a[t]=p();t=t+((not o.wAVDpA_w)and 1 or 0);d[1]='\58'..d[1];r[2]=0xff;end return true end)'TLwvS'and l[0x1](u+0x17b))or u end),(function(d)if f>0x1f then return d end f=f+1 e=(e+0xb4b-d)%0x3a return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x64);end return true end)'kwXCM'and l[0x1](0x1d3+d))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa2);a[t]=y();t=t+r;end return true end)'RHazn'and l[0x3](d+0x1ff))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb5);end return true end)'JEbMT'and l[0x2](d+0x390))or d end)}l[0x2](0x2170)end){};local e=m(c(a));return e(...);end return p((function()local n={}local e=0x01;local l;if o.wAVDpA_w then l=o.wAVDpA_w(p)else l=''end if o.PXsQhcuO(l,o.hhsljLl_)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(l,e,n,r,d,t)local t;if l>=4 then if l>5 then if 7>l then do return d[n]end;else if l>6 then for e=33,78 do if 7~=l then do return n(l,nil,n);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,r,l,d,n)if n then return e[n]elseif d then return e else e[r]=l end end})end break;end;else do return n(l,nil,n);end end end else if l~=4 then local l=r;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;else local l=r;local f,t,o=d(2);do return function()local e,r,d,n=e(n,l(l,l),l(l,l)+3);l(4);return(n*f)+(d*t)+(r*o)+e;end;end;end end else if l>1 then if 0~=l then for t=41,71 do if 3~=l then do return 16777216,65536,256 end;break;end;do return e(1),e(4,d,r,n,e),e(5,d,r,n)end;break;end;else do return e(1),e(4,d,r,n,e),e(5,d,r,n)end;end else if-1<=l then repeat if l~=1 then do return e(1),e(4,d,r,n,e),e(5,d,r,n)end;break;end;do return function(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;end;until true;else do return e(1),e(4,d,r,n,e),e(5,d,r,n)end;end end end end),...)

Raw Paste

Login or Register to edit or fork this paste. It's free.