Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _iiHGWxmunOd_ = a; end)); return(function(o,...)local d;local c;local t;local f;local r;local a;local e=24915;local n=0;local l={};while n<580 do n=n+1;while n<0x139 and e%0x3e9e<0x1f4f do n=n+1 e=(e*965)%23556 local k=n+e if(e%0x2a9e)<=0x154f then e=(e-0x1c4)%0x61b6 while n<0x101 and e%0x4cec<0x2676 do n=n+1 e=(e*513)%43337 local r=n+e if(e%0x2c54)<=0x162a then e=(e-0x317)%0x1e4 local e=21920 if not l[e]then l[e]=0x1 a={};end elseif e%2~=0 then e=(e-0x3f4)%0x5f71 local e=86107 if not l[e]then l[e]=0x1 d=function(d)local e=0x01 local function l(n)e=e+n return d:sub(e-n,e-0x01)end while true do local n=l(0x01)if(n=="\5")then break end local e=c.byte(l(0x01))local e=l(e)if n=="\2"then e=a.ynfkpBoh(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then t[e]=function(n,e)return o(8,nil,o,e,n)end elseif n=="\4"then e=t[e]elseif n=="\0"then e=t[e][l(c.byte(l(0x01)))];end local n=l(0x08)a[n]=e end end end else e=(e-0x27c)%0x7a12 n=n+1 local e=75478 if not l[e]then l[e]=0x1 c=string;end end end elseif e%2~=0 then e=(e+0xc2)%0x68fc while n<0x132 and e%0x3744<0x1ba2 do n=n+1 e=(e-771)%46440 local d=n+e if(e%0x38d2)>=0x1c69 then e=(e-0x2f3)%0x5330 local e=49386 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e*0x146)%0x391a local e=88944 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\121\110\102\107\112\66\111\104\0\6\115\116\114\105\110\103\4\99\104\97\114\107\113\118\120\73\114\115\99\0\6\115\116\114\105\110\103\3\115\117\98\82\79\73\77\88\71\107\114\0\6\115\116\114\105\110\103\4\98\121\116\101\77\79\69\122\116\104\110\119\0\5\116\97\98\108\101\6\99\111\110\99\97\116\90\100\105\116\77\85\102\110\0\5\116\97\98\108\101\6\105\110\115\101\114\116\109\100\82\99\79\89\75\89\5";end else e=(e*0x193)%0xa0b5 n=n+1 local e=13651 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end end end else e=(e+0x154)%0xd92 n=n+1 while n<0x7a and e%0x1784<0xbc2 do n=n+1 e=(e*658)%14058 local d=n+e if(e%0x1724)>0xb92 then e=(e*0x11)%0xad7 local e=44113 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e+0x14c)%0xb4e5 local e=58475 if not l[e]then l[e]=0x1 end else e=(e-0x257)%0x94d5 n=n+1 local e=84600 if not l[e]then l[e]=0x1 f=tonumber;end end end end end e=(e*773)%12191 end d(r);local n={};for e=0x0,0xff do local l=a.kqvxIrsc(e);n[e]=l;n[l]=e;end local function k(e)return n[e];end local c=(function(r,o)local c,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=r while true do n[0x03][a.ROIMXGkr(o,e,(function()e=c+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#o while e<t+0x01 do n[0x02][l]=a.ROIMXGkr(o,e,(function()e=c+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 a.mdRcOYKY(n[0x01],(k((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=r+d;end end return a.ZditMUfn(n[0x01])end);d(c(164,"Y)UR:7?Hr6ySp(zQ?)"));d(c(40,"IOJ^KoWpLg0c#3&j3LcWjc3K00pgoWJpg#3Kc3L3WL^Kj33^00g3o&^j=ogKW3c8pcoO^K}#&JcWLOpOo*kK#&cK^gOooL^J:O3&c#gLWoK0&33^#WpjW&&Sc&8^3#cJLOo&Jj0o&ocOg#W^KmOJjO3K0pWj^^BgjJpeK#L3ogKKONLo#KgKW3oLJL*W300oWjKJKJ&#&0oK^Kp^^3JKjo#o0#pOo#JOj03#03Lg^0O#jJ#0#p0JWO&Kcj&W#30^L#oj^03^#^cWLjpoo:JOjO#j^#OKojJOvO&KgOLKK^JLjo&c0^0OD0&OjOvg3^00pj^gKJjj#joK^BpKKpJ^j#3J0Op&KjzoAg33c&LOWcK^OgLro30KWgKJJKjoW&coLWWMJg5^&^cpLOo^K&JWjc#pLgOK&&^o6W&}0gL^W^Ogj^&^0ppcp3^(OJgKW3cbL0og^WOK&3gcLJpLK0JJ&O#j^#OWocJoGK3o0cgKK0KL&gjK3Og0p0^0cLgK3o0OL#oL#3_W&KcjgppJ^#jKj^03cOpcK.Ggg3"));local e=(-812+(function()local t,l=0,1;(function(n,e)e(n(e,e),e(n,n)and e(e and n,n))end)(function(e,n)if t>457 then return n end t=t+1 l=(l*47)%16010 if(l%1812)>906 then return e else return e(n(e and n,n)and n(e,e),n(n and e,e))end return n(e(e,n),n(e,e))end,function(e,n)if t>197 then return e end t=t+1 l=(l*849)%13287 if(l%494)<=247 then l=(l-726)%16436 return e(e(e,e)and n(n,e and n),e(e,n))else return e end return e end)return l;end)())local ee=(getfenv)or(function()return _ENV end);local h=a.IKcOKuPZ or a.gYSvvsgQ;local k=4;local t=2;local d=3;local ne=1;local function g(s,...)local u=c(e,"Il#ViNJ6*D,vkcaXXik*,kDp6iNaVk#YAiNvVllVQVaJkoid#DQ*akc_#* uaNc#,*#*l*X5civ*aXci,D*D6*NNiJV6e*aDc#vVikViliX*ck#6fNXNclN;i#l*Xka9KJllXVv*vc,k*XN6iD#,liXXaVkVVkVEUia*kkZV9lcDk*,kJk6lJFiV^vXccak*vVD666X^icv*Dk*pkkvk,L*nJ6l#avkXa*clvXDV*VJ,i(aan6X6cD6XDN**JNxXVvbcaac*kV,6*66VlVXDcXki,i*vJXN*V*l*U_a6k6,kDl6VNvillcn#aVcRvckN6J*6JVVDivXH8NXiDDv6DX6kVcK,EiXVkvvi,J,#Jii*iM#XavX,DaDl*vJJJ(lDX,XakVc,,,Dk*cNJi6laXi%Na#,,D#JXVlVJs#l6kJkVva6iN,6iiXlc#la6aVkXD,#*#kXOciv*tiXic*v*DXi,#V}6#flLaNcvk9DNi#Nviv#ccVkc,iDi6NJiVa#VrJX,v,aikk,klk#6aik*,kaickkl,Xi_J,NlV*lNviaXvcvVii6*NaVX#*XccXci,D*k#kJ6Vc#kBi,-vlv6Dv6ai6VclXkFc,DvikV6liX*ck.*l*XkckD6DD*kXkNDki,**kc*k*,k*k6VlaX6cvXicckvDX*X6JikX,lVUVaN*v,lDi6llvi6lDX,aikXvVDV6XlXYNavc!vnD*6cNai##cllX-cJvNDk*NJJic#*)XaXaJvX,#,iJJJ*6#V,XDU#kN,V*D,XiaNDNi#l1#ckkkkc6VDY6,VX#J#FXvaNk66*6#V,NXil#V_,aDDJv6DXVkJDVXuv%6Xi,cv6*aNci6iDXcalaXD*Da*6JNi6ViXNavvkkN6cVi#lXka=kiXcXXcNkJ,J6cJciDVv,kDc6iN*Vk6XJcNlliX6avXmkDvND#N6N0#Xvi,N6kJ iiJvJcJiV6#0lNalcDv,*cNDVc#lvkvD*iJ*ik6c*VJ6i,lV(Davkv,V,**,JNia#vlvcicDv*Dk*lJa#NVk#)z#6iJ#Vk#joiNiVvllX*avcLv#*c6JNVakviD*6kJzNc#*okX=cNv*Dk*M6Jia#kluXia6vk,C*i6,JDV_liX*aDkA,i**D#NVVil*XkaJki,D*k6DNiVk#apEaik*v#D:6NN*i5V#xia*kkv6Di6DNkir#kH*akc=vND*6kJdNJVJ+kX=cik{Dk*YJiN,iilBXic*vX,P*iJ*ikVXliX*ckkV,i**JkJ#icl*Xca_c#,**k6?JJVDlke#aikD,kD_6iJ,NJ#B46a*kav%Di6*NkNN#iG*akcVviDD6k6#iv#*okXjatv*Dk*26JN6#klAXicXvk, *i6,JVV/liX*alk&,i**6aN#Vil*Xkavki,**k*#JVV*lk({a,k*,kD4*JJlVk#:diX*kkv-Di*,J6id#NA*X(cWviD*DkJVii#D:kXlcik#DkD#6li*#XlUX6c*vk,H*i*VikViliXDckkm,i**6DNdVNl*4Ba_ki,**k6aNiV*lkq;aik,,kD46JN*Vk#.1Na*kcvHDi*,NkiT#i=Dakc?viD*6kJ(ii#*");local n=0;a.jfYqxTFT(function()a.IdKXMkKq()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,r=o(0,o,e,u,a.MOEzthnw);local function c()local n,l=a.MOEzthnw(u,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local b=true;local b=0 local function p()local e=n();local n=n();local d=1;local t=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(t==b)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return a.vreWRzLr(n,e-1023)*(d+(t/(2^52)));end;local g=n;local function j(n)local l;if(not n)then n=g();if(n==0)then return'';end;end;l=a.ROIMXGkr(u,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+b),#l do e=e..a.ROIMXGkr(l,n,n)end return e;end;local b=#a.Eqmvassq(f('\49.\48'))~=1 local e=n;local function y(...)return{...},a.RxAtyjrZ('#',...)end local function _()local e={};local h={};local f={};local u={f,h,nil,e};local e=n()local o={}for t=1,e do local l=r();local n;if(l==3)then n=(r()~=#{});elseif(l==1)then local e=p();if b and a.bito_KIZ(a.Eqmvassq(e),'.(\48+)$')then e=a.dDkMykXI(e);end n=e;elseif(l==0)then n=j();end;o[t]=n;end;for h=1,n()do local e=r();if(l(e,1,1)==0)then local a=l(e,2,3);local r=l(e,4,6);local e={c(),c(),nil,nil};if(a==0)then e[d]=c();e[k]=c();elseif(a==#{1})then e[d]=n();elseif(a==s[2])then e[d]=n()-(2^16)elseif(a==s[3])then e[d]=n()-(2^16)e[k]=c();end;if(l(r,1,1)==1)then e[t]=o[e[t]]end if(l(r,2,2)==1)then e[d]=o[e[d]]end if(l(r,3,3)==1)then e[k]=o[e[k]]end f[h]=e;end end;for e=1,n()do h[e-(#{1})]=_();end;u[3]=r();return u;end;local function g(l,e,n)local t=e;local t=n;return f(a.bito_KIZ(a.bito_KIZ(({a.jfYqxTFT(l)})[2],e),n))end local function z(b,e,r)local function m(...)local c,_,u,m,s,n,f,g,j,p,z,l;local e=0;while-1<e do if 3>e then if 1<=e then if-1<e then repeat if e<2 then u=o(6,1,3,33,b);s=y m=0;break;end;n=-41;f=-1;until true;else n=-41;f=-1;end else c=o(6,71,1,42,b);_=o(6,41,2,93,b);end else if e>=5 then if 1~=e then repeat if e~=5 then e=-2;break;end;l=o(7);until true;else e=-2;end else if 4==e then p=a.RxAtyjrZ('#',...)-1;z={};else g={};j={...};end end end e=e+1;end;for e=0,p do if(e>=u)then g[e-u]=j[e+1];else l[e]=j[e+1];end;end;local e=p-u+1 local e;local o;local function u(...)while true do end end while true do if n<-40 then n=n+42 end e=c[n];o=e[ne];if o<=14 then if o<=6 then if 3>o then if 1<=o then if-1<o then repeat if o~=1 then do return end;break;end;l[e[t]]();until true;else do return end;end else local a,f,c,o,r;local n=0;while n>-1 do if n>2 then if 4>=n then if n>=1 then repeat if n~=4 then o=a[c];break;end;r=a[f];until true;else o=a[c];end else if 1~=n then for e=19,53 do if 6>n then l(r,o);break;end;n=-2;break;end;else l(r,o);end end else if 0>=n then a=e;else if n>=0 then for e=12,70 do if 1<n then c=d;break;end;f=t;break;end;else c=d;end end end n=n+1 end end else if o<=4 then if 2~=o then repeat if 4>o then local e=e[t]l[e]=l[e](h(l,e+1,f))break;end;l[e[t]]=(e[d]~=0);until true;else l[e[t]]=(e[d]~=0);end else if o==6 then local n=e[t]local t,e=s(l[n](h(l,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=t[e];end;else r[e[d]]=l[e[t]];end end end else if 11<=o then if o>=13 then if o~=11 then repeat if 14~=o then l[e[t]]=r[e[d]];break;end;l(e[t],e[d]);until true;else l(e[t],e[d]);end else if o>=9 then for a=36,97 do if 11~=o then if(l[e[t]]==e[k])then n=n+1;else n=e[d];end;break;end;l[e[t]]();break;end;else if(l[e[t]]==e[k])then n=n+1;else n=e[d];end;end end else if 9<=o then if o>=7 then repeat if 10>o then n=e[d];break;end;local t=e[t];local n=l[e[d]];l[t+1]=n;l[t]=n[e[k]];until true;else n=e[d];end else if 4~=o then repeat if 8>o then r[e[d]]=l[e[t]];break;end;do return end;until true;else do return end;end end end end else if 22<=o then if 26<=o then if o>=28 then if o>28 then local n=e[t]local t,e=s(l[n](h(l,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=t[e];end;else if(l[e[t]]==e[k])then n=n+1;else n=e[d];end;end else if 22~=o then repeat if 27~=o then l[e[t]]=r[e[d]];break;end;local o,k,r,a;l[e[t]]=(e[d]~=0);n=n+1;e=c[n];o=e[t]k,r=s(l[o](h(l,o+1,e[d])))f=r+o-1 a=0;for e=o,f do a=a+1;l[e]=k[a];end;n=n+1;e=c[n];o=e[t]l[o]=l[o](h(l,o+1,f))n=n+1;e=c[n];l[e[t]]();n=n+1;e=c[n];do return end;until true;else l[e[t]]=r[e[d]];end end else if 24<=o then if 22<o then repeat if o>24 then for o=0,3 do if 1<o then if o~=3 then l[e[t]]=r[e[d]];n=n+1;e=c[n];else if(l[e[t]]==e[k])then n=n+1;else n=e[d];end;end else if o~=1 then l[e[t]]=(e[d]~=0);n=n+1;e=c[n];else r[e[d]]=l[e[t]];n=n+1;e=c[n];end end end break;end;local f,k;for o=0,5 do if 3>o then if o<1 then r[e[d]]=l[e[t]];n=n+1;e=c[n];else if o>=-2 then for a=22,96 do if o>1 then l(e[t],e[d]);n=n+1;e=c[n];break;end;l[e[t]]={};n=n+1;e=c[n];break;end;else l(e[t],e[d]);n=n+1;e=c[n];end end else if 4<=o then if 2<=o then for r=11,86 do if o<5 then l(e[t],e[d]);n=n+1;e=c[n];break;end;f=e[t];k=l[f];for e=f+1,e[d]do a.mdRcOYKY(k,l[e])end;break;end;else l(e[t],e[d]);n=n+1;e=c[n];end else l(e[t],e[d]);n=n+1;e=c[n];end end end until true;else for o=0,3 do if 1<o then if o~=3 then l[e[t]]=r[e[d]];n=n+1;e=c[n];else if(l[e[t]]==e[k])then n=n+1;else n=e[d];end;end else if o~=1 then l[e[t]]=(e[d]~=0);n=n+1;e=c[n];else r[e[d]]=l[e[t]];n=n+1;e=c[n];end end end end else if o>=20 then for n=20,62 do if 22<o then l[e[t]]={};break;end;local e=e[t]l[e]=l[e](h(l,e+1,f))break;end;else local e=e[t]l[e]=l[e](h(l,e+1,f))end end end else if o>17 then if 20<=o then if o>=16 then for n=10,57 do if o>20 then l[e[t]]={};break;end;local n=e[t];local t=l[n];for e=n+1,e[d]do a.mdRcOYKY(t,l[e])end;break;end;else l[e[t]]={};end else if o>17 then for c=41,82 do if 19~=o then n=e[d];break;end;local n=e[t];local t=l[n];for e=n+1,e[d]do a.mdRcOYKY(t,l[e])end;break;end;else local n=e[t];local t=l[n];for e=n+1,e[d]do a.mdRcOYKY(t,l[e])end;end end else if 15>=o then local a,h,f,p,b,o,u,s;for o=0,6 do if o<=2 then if 0>=o then l(e[t],e[d]);n=n+1;e=c[n];else if o>-2 then repeat if o~=2 then r[e[d]]=l[e[t]];n=n+1;e=c[n];break;end;o=0;while o>-1 do if o<3 then if o>=1 then if o~=-1 then for e=48,55 do if o<2 then h=t;break;end;f=d;break;end;else f=d;end else a=e;end else if o<=4 then if 1~=o then repeat if 3<o then b=a[h];break;end;p=a[f];until true;else b=a[h];end else if o>1 then for e=29,76 do if o>5 then o=-2;break;end;l(b,p);break;end;else o=-2;end end end o=o+1 end n=n+1;e=c[n];until true;else r[e[d]]=l[e[t]];n=n+1;e=c[n];end end else if o<=4 then if o==3 then r[e[d]]=l[e[t]];n=n+1;e=c[n];else l[e[t]]=r[e[d]];n=n+1;e=c[n];end else if 5<o then u=e[t];s=l[e[d]];l[u+1]=s;l[u]=s[e[k]];else l[e[t]]=r[e[d]];n=n+1;e=c[n];end end end end else if 15<o then repeat if 16<o then local t=e[t];local n=l[e[d]];l[t+1]=n;l[t]=n[e[k]];break;end;l[e[t]]=(e[d]~=0);until true;else l[e[t]]=(e[d]~=0);end end end end end n=1+n;end;end;return m end;local d=0xff;local f={};local o=(1);local t='';(function(n)local l=n local c=0x00 local e=0x00 l={(function(o)if c>0x2a then return o end c=c+1 e=(e+0x4a8-o)%0x2e return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd8);end return true end)'jgPtG'and l[0x1](0x350+o))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb7);t='\37';d={function()d()end};t=t..'\100\43';end return true end)'RwYtP'and l[0x2](o+0x1d9))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x85);end return true end)'ARWGj'and l[0x3](o+0xc6))or o end),(function(r)if c>0x1e then return r end c=c+1 e=(e+0xf20-r)%0x1b return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa2);end return true end)'laVFc'and l[0x1](0x17d+r))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x63);d[2]=(d[2]*(g(function()f()end,h(t))-g(d[1],h(t))))+1;f[o]={};d=d[2];o=o+d;end return true end)'axWox'and l[0x3](r+0x2d4))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbf);t={t..'\58 a',t};f[o]=_();o=o+((not a.dUSRmV_M)and 1 or 0);t[1]='\58'..t[1];d[2]=0xff;end return true end)'PCnmt'and l[0x2](r+0xa2))or r end),(function(t)if c>0x27 then return t end c=c+1 e=(e+0x11a0-t)%0x1a return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x19);end return true end)'CEvfE'and l[0x2](0x1e3+t))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe);f[o]=ee();o=o+d;end return true end)'xyWaF'and l[0x3](t+0x1d4))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa7);end return true end)'__IZO'and l[0x1](t+0x30d))or t end)}l[0x1](0x2135)end){};local e=z(h(f));return e(...);end return g((function()local n={}local e=0x01;local l;if a.dUSRmV_M then l=a.dUSRmV_M(g)else l=''end if a.bito_KIZ(l,a.xmzESnOf)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,t,d,o)local o;if 4>l then if l<=1 then if l>-4 then repeat if 0<l then 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;break;end;do return e(1),e(4,d,t,n,e),e(5,d,t,n)end;until true;else do return e(1),e(4,d,t,n,e),e(5,d,t,n)end;end else if l<3 then do return 16777216,65536,256 end;else do return e(1),e(4,d,t,n,e),e(5,d,t,n)end;end end else if l<=5 then if 2~=l then repeat if 4~=l then local l=t;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;break;end;local l=t;local t,d,a=d(2);do return function()local o,c,e,n=e(n,l(l,l),l(l,l)+3);l(4);return(n*t)+(e*d)+(c*a)+o;end;end;until true;else local l=t;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;end else if 6<l then if 5<=l then for e=19,53 do if l~=8 then do return setmetatable({},{['__\99\97\108\108']=function(e,d,t,l,n)if n then return e[n]elseif l then return e else e[d]=t end end})end break;end;do return n(l,nil,n);end break;end;else do return setmetatable({},{['__\99\97\108\108']=function(e,t,d,l,n)if n then return e[n]elseif l then return e else e[t]=d end end})end end else do return d[n]end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement