Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _PMkrQpMTTZTL = a; end)); return(function(h,...)local s;local f;local t;local r;local d;local o;local e=24915;local n=0;local l={};while n<806 do n=n+1;while n<0x18f and e%0x2b3e<0x159f do n=n+1 e=(e*488)%25341 local c=n+e if(e%0x3d56)>0x1eab then e=(e*0x121)%0x867c while n<0x12b and e%0x110a<0x885 do n=n+1 e=(e*975)%2583 local t=n+e if(e%0x228c)>=0x1146 then e=(e+0x2d1)%0x5228 local e=17594 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e+0x38)%0x9721 local e=51337 if not l[e]then l[e]=0x1 f=string;end else e=(e+0x384)%0xaa8d n=n+1 local e=15959 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end end end elseif e%2~=0 then e=(e-0xb7)%0xbb20 while n<0x339 and e%0x1184<0x8c2 do n=n+1 e=(e-667)%14808 local r=n+e if(e%0x2a60)<0x1530 then e=(e-0xc)%0x5764 local e=2849 if not l[e]then l[e]=0x1 o={};end elseif e%2~=0 then e=(e*0x307)%0xbac7 local e=60010 if not l[e]then l[e]=0x1 s=tonumber;end else e=(e-0x1bc)%0x233e n=n+1 local e=7555 if not l[e]then l[e]=0x1 t=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.imUMRzMf(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then d[e]=function(e,n)return h(8,nil,h,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+0x6d)%0x7b24 n=n+1 while n<0xdc and e%0x2db0<0x16d8 do n=n+1 e=(e*714)%19615 local t=n+e if(e%0x3dcc)<0x1ee6 then e=(e+0x3f3)%0x8b69 local e=13318 if not l[e]then l[e]=0x1 d=(not d)and _ENV or d;end elseif e%2~=0 then e=(e-0x268)%0x581f local e=46573 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\105\109\85\77\82\122\77\102\0\6\115\116\114\105\110\103\4\99\104\97\114\105\109\84\82\69\113\108\87\0\6\115\116\114\105\110\103\3\115\117\98\106\106\113\103\108\110\105\87\0\6\115\116\114\105\110\103\4\98\121\116\101\100\69\99\90\118\116\113\110\0\5\116\97\98\108\101\6\99\111\110\99\97\116\116\72\89\109\83\75\81\113\0\5\116\97\98\108\101\6\105\110\115\101\114\116\121\115\89\81\71\89\73\104\5";end else e=(e-0x24)%0x1b47 n=n+1 local e=59620 if not l[e]then l[e]=0x1 end end end end end e=(e-339)%4364 end t(r);local e={};for n=0x0,0xff do local l=o.imTREqlW(n);e[n]=l;e[l]=n;end local function a(n)return e[n];end local f=(function(r,f)local c,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local t=r while true do n[0x03][o.jjqglniW(f,e,(function()e=c+e return e-0x01 end)())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""l=0x000 break end end local d=#f while e<d+0x01 do n[0x02][l]=o.jjqglniW(f,e,(function()e=c+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.ysYQGYIh(n[0x01],(a((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=r+t;end end return o.tHYmSKQq(n[0x01])end);t(f(237,"*pn86HL%.ZVk(leqp."));t(f(180,"% PCW5+>rcf/u^M;WucM5>fWMMC rPu>/h5u/c;^Wu>uMu,C>/fr W;f;ru^cctu; c>a/u;+CPcru^WW>fuC4f;^W^HW5Pc5M+Cr>///9MCu/5^>5 r;>NuP>/ur P55f+M/^5rcucPr+C/W^MCr>+uCYu5c^L P;rWr;^C^cu^uu5>r/u*c+rfu;fW>ru^+;f+cccM^MuW8;CC ru^ 5>jfc9rW rMMWPc+>u c+PccM+WPru>WuC5M/cpC+tf>;+UCrx^MPM55c+^uW;r>r6uur/u 5+uf>;c5++u/>P5+WuWf+; >5^PW++5^/ ^>fc 95MuCu;WC/r/^rPP+5/+;/P+>q^fP;+ u^ +WuWZc Wur5^PPr+^5f 55ffrM5CCr>//P+>5/ =P5PrCMuuu f^5 f+rf5;CW>r;Mq 5PuM;+5Cf/ru^cch^MP >PuW;lW/>5Mc +>Mf> oAWMJ>W5cr^^P>rWu; f+ /f^C fr>Mr/uEuu _ +-flrcC+rr^>PC>PuPMfC > uW8f5Muu/ "));local e=(-28501+(function()local d,n=0,1;(function(n,l,e)n(e(l,l,n),e(l,e,e and n),e(n,e,l))end)(function(e,t,l)if d>365 then return t end d=d+1 n=(n*359)%22085 if(n%1814)<=907 then n=(n+651)%9586 return e(e(l,l,t),l(l,e,e and e),e(l,l,l and e)and e(t,e and e,e))else return l end return t end,function(e,l,t)if d>479 then return l end d=d+1 n=(n+124)%29396 if(n%1174)>587 then return l(e(t,e,l)and l(e,e,e),e(e,l,e and e),e(l,e and t,l))else return l end return e end,function(l,e,t)if d>421 then return e end d=d+1 n=(n-224)%32082 if(n%1470)<735 then n=(n+970)%6977 return l else return t(l(e,l,l),l(e and e,e,l),t(t,e and l,l)and t(l and t,e,t))end return t(e(e and l,e,e),e(l,e,e),l(l and e,l,t))end)return n;end)())local z=(getfenv)or(function()return _ENV end);local u=o.glQFvRco or o.SruejnSp;local d=2;local ee=1;local t=3;local c=4;local function y(b,...)local a=f(e,"Hk!=FM5#^fPd2io1M1dt%^57d^ki5^2Jk^21k^5io=F!#f1r!M^Fi2=P^2i2o^5#f^1xF^1F54dfkd!Vdokf#F2Mi^^#2f===^om=P^1o2=M^d1F=ifFP^M#PkLFM>5DoMM1d#/oFddM0d!gPoo=q^5#d^ke5^t^^2oF=^5#iiFF!^^Fi^=D^^F#ff1iFiFCdk1nF^PrFMd1k#5oPdkM5dd1gd^FiP!f^5i#=d5^ok=F^2oMF5#k12MFPPfgk2Fuf^1xdlkF5226kd=P^#i15i2#!#^!ik!d^io=!fFoodF8^fo==iM1d2k=5f1=F2PM2i!W#2iF=b^!iP5=fkok=o25kfFffo!kFoP=15^2oi=k!^^Pi^=.^^F2P#1kF2d=D25!dkUoM1M)d^JzM^d&e^52d^kx5^2kk^#A2^=!^2ij!^^6ii=D^^o&FPf2o^Fpf^1kF^P(1^#5dPQSM^d>8o50dfk{5P2Ak2#^2^!s#^i5!^^ki^=Ff0oU=^f(o1Fbff1_F^PP1^MqP^ kM^dS:^#!d2ky5^2:k1# 2^!a^Pio!^^ki^=F^^oy=^dNo2F/ff1bFfP41dMsdPk#M^d=4^55d^kr5^29!f#V22!U#fi !^^Ii^F5^^ok=^fFo^F(f^1EMkPt1^MvP^b4MPd:l^5dd^k(5^2kk^#k2^!7^!iI!^^Qif=a^^ol=^fZo^FA");local n=0;o.ZJdMxb_Z(function()o.cizDCeXl()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,r=h(0,h,e,a,o.dEcZvtqn);local function f()local l,n=o.dEcZvtqn(a,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local k=true;local k=0 local function p()local e=n();local n=n();local t=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==k)then return n*0;else e=1;t=0;end;elseif(e==2047)then return(d==0)and(n*(1/0))or(n*(0/0));end;return o.rsljBeIQ(n,e-1023)*(t+(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.jjqglniW(a,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+k),#l do e=e..o.jjqglniW(l,n,n)end return e;end;local k=#o.FDbkQqnX(s('\49.\48'))~=1 local e=n;local function y(...)return{...},o.srmzGBcx('#',...)end local function _()local s={};local e={};local u={};local h={u,s,nil,e};local e=n()local a={}for d=1,e do local l=r();local e;if(l==1)then e=(r()~=#{});elseif(l==2)then local n=p();if k and o.FTFGDEpf(o.FDbkQqnX(n),'.(\48+)$')then n=o.vRMAHBJl(n);end e=n;elseif(l==0)then e=g();end;a[d]=e;end;h[3]=r();for h=1,n()do local e=r();if(l(e,1,1)==0)then local o=l(e,2,3);local r=l(e,4,6);local e={f(),f(),nil,nil};if(o==0)then e[t]=f();e[c]=f();elseif(o==#{1})then e[t]=n();elseif(o==b[2])then e[t]=n()-(2^16)elseif(o==b[3])then e[t]=n()-(2^16)e[c]=f();end;if(l(r,1,1)==1)then e[d]=a[e[d]]end if(l(r,2,2)==1)then e[t]=a[e[t]]end if(l(r,3,3)==1)then e[c]=a[e[c]]end u[h]=e;end end;for e=1,n()do s[e-(#{1})]=_();end;return h;end;local function m(l,e,n)local d=e;local d=n;return s(o.FTFGDEpf(o.FTFGDEpf(({o.ZJdMxb_Z(l)})[2],e),n))end local function ne(g,e,a)local function z(...)local f,z,s,_,b,l,r,p,k,j,m,n;local e=0;while-1<e do if e<3 then if e>=1 then if 2~=e then s=h(6,19,3,47,g);b=y _=0;else l=-41;r=-1;end else f=h(6,25,1,43,g);z=h(6,57,2,81,g);end else if 5<=e then if 4~=e then for l=11,80 do if 6>e then n=h(7);break;end;e=-2;break;end;else e=-2;end else if e>=-1 then for n=49,90 do if e~=3 then j=o.srmzGBcx('#',...)-1;m={};break;end;p={};k={...};break;end;else p={};k={...};end end end e=e+1;end;for e=0,j do if(e>=s)then p[e-s]=k[e+1];else n[e]=k[e+1];end;end;local e=j-s+1 local e;local o;local function h(...)while true do end end while true do if l<-40 then l=l+42 end e=f[l];o=e[ee];if 12>o then if 6<=o then if o<=8 then if o>=7 then if 3<o then for f=27,92 do if o>7 then l=e[t];break;end;n[e[d]]=a[e[t]];break;end;else n[e[d]]=a[e[t]];end else local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[c]];end else if 10<=o then if 11~=o then do return end;else if(n[e[d]]==e[c])then l=l+1;else l=e[t];end;end else local l=e[d];local d=n[e[t]];n[l+1]=d;n[l]=d[e[c]];end end else if o<=2 then if o>=1 then if o~=2 then local l=e[d]local d,e=b(n[l](u(n,l+1,e[t])))r=e+l-1 local e=0;for l=l,r do e=e+1;n[l]=d[e];end;else n[e[d]]=(e[t]~=0);end else local l=e[d]local d,e=b(n[l](u(n,l+1,e[t])))r=e+l-1 local e=0;for l=l,r do e=e+1;n[l]=d[e];end;end else if o>=4 then if 3<o then for l=38,78 do if 4<o then n[e[d]]();break;end;n[e[d]]=a[e[t]];break;end;else n[e[d]]();end else n[e[d]]=(e[t]~=0);end end end else if 18<=o then if 20>=o then if o<19 then do return end;else if 19<o then a[e[t]]=n[e[d]];else local e=e[d]n[e]=n[e](u(n,e+1,r))end end else if 21<o then if o>=18 then for f=40,68 do if 23~=o then n[e[d]]();break;end;if(n[e[d]]==e[c])then l=l+1;else l=e[t];end;break;end;else n[e[d]]();end else n(e[d],e[t]);end end else if o<15 then if 12>=o then for o=0,3 do if 2>o then if-3<o then repeat if o>0 then a[e[t]]=n[e[d]];l=l+1;e=f[l];break;end;n[e[d]]=(e[t]~=0);l=l+1;e=f[l];until true;else a[e[t]]=n[e[d]];l=l+1;e=f[l];end else if-1<=o then for r=33,61 do if o~=3 then n[e[d]]=a[e[t]];l=l+1;e=f[l];break;end;if(n[e[d]]==e[c])then l=l+1;else l=e[t];end;break;end;else n[e[d]]=a[e[t]];l=l+1;e=f[l];end end end else if 14>o then local e=e[d]n[e]=n[e](u(n,e+1,r))else local o,k,j,p,h;for s=0,6 do if s>=3 then if s>4 then if s~=6 then o=e[d]n[o]=n[o](u(n,o+1,r))l=l+1;e=f[l];else n[e[d]]();end else if 0<=s then repeat if s>3 then o=e[d]j,p=b(n[o](u(n,o+1,e[t])))r=p+o-1 h=0;for e=o,r do h=h+1;n[e]=j[h];end;l=l+1;e=f[l];break;end;n[e[d]]=(e[t]~=0);l=l+1;e=f[l];until true;else o=e[d]j,p=b(n[o](u(n,o+1,e[t])))r=p+o-1 h=0;for e=o,r do h=h+1;n[e]=j[h];end;l=l+1;e=f[l];end end else if 0>=s then n[e[d]]=a[e[t]];l=l+1;e=f[l];else if-2<=s then repeat if 2>s then o=e[d];k=n[e[t]];n[o+1]=k;n[o]=k[e[c]];l=l+1;e=f[l];break;end;n(e[d],e[t]);l=l+1;e=f[l];until true;else o=e[d];k=n[e[t]];n[o+1]=k;n[o]=k[e[c]];l=l+1;e=f[l];end end end end end end else if o<=15 then l=e[t];else if o<17 then local o,f,c,r,a;local l=0;while l>-1 do if l<3 then if 1>l then o=e;else if l>=-1 then for e=11,61 do if l>1 then c=t;break;end;f=d;break;end;else f=d;end end else if 5>l then if l==4 then a=o[f];else r=o[c];end else if 5==l then n(a,r);else l=-2;end end end l=l+1 end else a[e[t]]=n[e[d]];end end end end end l=1+l;end;end;return z end;local t=0xff;local a={};local r=(1);local d='';(function(n)local l=n local f=0x00 local e=0x00 l={(function(o)if f>0x23 then return o end f=f+1 e=(e+0xf47-o)%0x17 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xdc);end return true end)'mqptC'and l[0x1](0xa6+o))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x26);t[2]=(t[2]*(m(function()a()end,u(d))-m(t[1],u(d))))+1;a[r]={};t=t[2];r=r+t;end return true end)'tEMg_'and l[0x2](o+0x11c))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xee);end return true end)'yqlyb'and l[0x3](o+0x2aa))or o end),(function(c)if f>0x26 then return c end f=f+1 e=(e+0xd60-c)%0x44 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x1);a[r]=z();r=r+t;end return true end)'jYHGt'and l[0x3](0x12c+c))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x93);d={d..'\58 a',d};a[r]=_();r=r+((not o.TxCoPm_s)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'ubnRo'and l[0x1](c+0x379))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x73);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'PzjQv'and l[0x2](c+0x305))or c end),(function(d)if f>0x22 then return d end f=f+1 e=(e+0x4aa-d)%0x31 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x54);end return true end)'wPZCj'and l[0x2](0x37a+d))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x9);end return true end)'gBTZh'and l[0x3](d+0x107))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x24);end return true end)'sugpK'and l[0x1](d+0x1e9))or d end)}l[0x2](0x1c43)end){};local e=ne(u(a));return e(...);end return y((function()local n={}local e=0x01;local l;if o.TxCoPm_s then l=o.TxCoPm_s(y)else l=''end if o.FTFGDEpf(l,o.k_fHuKyk)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,l,n,d,t,o)local o;if e>=4 then if 5<e then if 6<e then if e>6 then repeat if 7<e then do return n(e,nil,n);end break;end;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 until true;else do return n(e,nil,n);end end else do return t[n]end;end else if 0<=e then repeat if e>4 then local e=d;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;break;end;local e=d;local o,d,t=t(2);do return function()local n,l,f,r=l(n,e(e,e),e(e,e)+3);e(4);return(r*o)+(f*d)+(l*t)+n;end;end;until true;else local e=d;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;end end else if e<=1 then if e<1 then do return l(1),l(4,t,d,n,l),l(5,t,d,n)end;else do return function(l,e,n)if n then local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end;end;end else if-2~=e then for o=33,97 do if e<3 then do return 16777216,65536,256 end;break;end;do return l(1),l(4,t,d,n,l),l(5,t,d,n)end;break;end;else do return 16777216,65536,256 end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement