Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _mLBA_LbgdlGb = a; end)); return(function(h,...)local s;local r;local t;local d;local o;local c;local e=24915;local n=0;local l={};while n<588 do n=n+1;while n<0x232 and e%0x3668<0x1b34 do n=n+1 e=(e+282)%2898 local f=n+e if(e%0x132a)<=0x995 then e=(e+0xb7)%0x9cd9 while n<0xf4 and e%0x15fa<0xafd do n=n+1 e=(e-37)%7962 local t=n+e if(e%0x1100)>=0x880 then e=(e+0x339)%0x549c local e=87272 if not l[e]then l[e]=0x1 c=string;end elseif e%2~=0 then e=(e*0x12)%0x39c3 local e=13610 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end else e=(e+0x9f)%0x41d8 n=n+1 local e=54318 if not l[e]then l[e]=0x1 o={};end end end elseif e%2~=0 then e=(e-0x13d)%0xe39 while n<0x2fe and e%0x4bd8<0x25ec do n=n+1 e=(e+129)%6288 local t=n+e if(e%0x3614)<=0x1b0a then e=(e*0x2f5)%0xab72 local e=57134 if not l[e]then l[e]=0x1 d=(not d)and _ENV or d;end elseif e%2~=0 then e=(e*0x7c)%0xaf41 local e=16459 if not l[e]then l[e]=0x1 end else e=(e-0x142)%0x9b04 n=n+1 local e=4513 if not l[e]then l[e]=0x1 end end end else e=(e-0x3ba)%0x318c n=n+1 while n<0x316 and e%0x2662<0x1331 do n=n+1 e=(e-879)%47531 local f=n+e if(e%0x1afa)>=0xd7d then e=(e+0x379)%0xad95 local e=34690 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\75\82\119\112\104\107\99\73\0\6\115\116\114\105\110\103\4\99\104\97\114\82\70\68\72\99\73\65\86\0\6\115\116\114\105\110\103\3\115\117\98\69\110\72\70\85\73\105\109\0\6\115\116\114\105\110\103\4\98\121\116\101\103\89\104\111\88\70\67\85\0\5\116\97\98\108\101\6\99\111\110\99\97\116\101\71\113\105\73\114\114\121\0\5\116\97\98\108\101\6\105\110\115\101\114\116\115\83\114\109\76\100\73\71\5";end elseif e%2~=0 then e=(e-0x3bc)%0xa23a local e=57767 if not l[e]then l[e]=0x1 s=tonumber;end else e=(e+0x116)%0x280b n=n+1 local e=1075 if not l[e]then l[e]=0x1 t=function(t)local e=0x01 local function l(n)e=e+n return t: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=o.KRwphkcI(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then d[e]=function(e,n)return h(8,nil,h,n,e)end elseif n=="\4"then e=d[e]elseif n=="\0"then e=d[e][l(c.byte(l(0x01)))];end local n=l(0x08)o[n]=e end end end end end end end e=(e-477)%29590 end t(r);local n={};for e=0x0,0xff do local l=o.RFDHcIAV(e);n[e]=l;n[l]=e;end local function a(e)return n[e];end local l=(function(f,c)local r,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local t=f while true do n[0x03][o.EnHFUIim(c,e,(function()e=r+e return e-0x01 end)())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""l=0x000 break end end local d=#c while e<d+0x01 do n[0x02][l]=o.EnHFUIim(c,e,(function()e=r+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.sSrmLdIG(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.eGqiIrry(n[0x01])end);t(l(237,"<0(_5LZ1 MPsjH6R0 "));t(l(101," NSJc/T1;u?6vQzYu6Jvcczr1u#6?6JY111SNz6NcYQv1;N/vNJ/YuTvSN/TYSY;;TNYv/T_YN1JSc611SYY11S/T;E15Q??JvQv1Q21?6/JQTToN1?zJ/1vNQS/vN/?zv;vSI/u/vz6uuSJvJT6YY1JNzvc//YSu1vzTQ1NnP?zJQ1/11h??T/cz1TvNSuJ/;QT1vS;6czzuNuJS)v?/zYNu6SJQN/uY/u?Sz?Yc6^Q;cc1QN1Hz1c>Qzv;1S8661cQz6c1Y;61SvYJ/vNv61/S;6STJc6u/vwS1vN;vJcYzSuzJIQv:JuQ1}cSQT11z?;;czz1/c?zcQ/cz?;uS/6z/MYr;cYzv?J;Qv1uNT?Q/vuoJrJ?vS/zaJu1QJQQ1Nqzu?J1Q?//zv6/Sv61/?Yuu1zT;J;QSN6zc?z1;?#c?;JNY1T?S16NJuuTJSJ;Q/T1_1?;JTQQTuN;;SSTv?1S?6c;/9QQ1YNJ?v/;YTTvne6zJ1vvT1NN/1YTY?;uJ1vTYzY?u6JuQc1SYS1YJ/vS/1N?6ScY1;"));local e=(115+(function()local l,n=0,1;(function(e)e(e(e and e))end)(function(e)if l>248 then return e end l=l+1 n=(n*988)%16020 if(n%890)>=445 then n=(n*854)%3104 return e(e(e)and e(e))else return e end return e end)return n;end)())local ee=(getfenv)or(function()return _ENV end);local u=o.JSAlDfUB or o.KGuQAIMP;local ne=1;local d=2;local r=4;local t=3;local function _(z,...)local a=l(e,"aI}84#Ld*A1%-6lPA4I11d84-8#*6%L*P#lldlP6*6}A%d4}-L#*6leLAlIl1%8*}4%P}%1l81l##P9}A4Il%8I%-8PZdP7*A#}}ILA68L%%l#AdP6*1IdP*AA}d%lP*-%#%l%dI%AA6I4%8l6-1#Al8d#P8dlI-A1}LLP#86}L1l%8jl1AA}L%}}4-84lA*#%-#}I%88A-L#8}*lILlPd#%iL1}%6d-6#L}lPl4d6h1A8}8ddPA*L4A6*L6P6*II91d8}16Td6AL8lId7PP#Ll*1}/}%lI*618*P}*76-Ad}#%#8lA1#*ld41SI#lIAd*Q8A*I1l#d%P4}}-L81-d#4}l66L1PLL*wdA}I%A-416##Al%dI>1L-I11}}P%6#8%8d8Mu*%1L88-v4661dLP4*I,lA%8*%#4}-P#6lAdLk81}8}118d-4#*6lL%P*Ad}%AP}-%A4*68LEl61(I4A4}I1l4I-*#Ll}d8P-*6I-188g%6#w6dL#PIdl}sA*}#%}47--#AlL*#II*6I11d8#-I4l6%d1nA*}IfA-}-%L486Od6WGddU#AIIP1%86-#L4l*L-P-*LIA1c}6%14dPBLIP}d%YAA#}}1P8-64#Ll4dtjI*1Id148I-)4%6*L#P}dPolAA}L-%4K-6#1l*d4v}*lI%%68#-}4P66LAPL*8");local n=0;o.bI_WwiFY(function()o.STdUMnev()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,f=h(0,h,e,a,o.gYhoXFCU);local function c()local l,n=o.gYhoXFCU(a,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local b=true;local b=0 local function g()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==b)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.ZeKuXcte(n,e-1023)*(t+(d/(2^52)));end;local k=n;local function p(n)local l;if(not n)then n=k();if(n==0)then return'';end;end;l=o.EnHFUIim(a,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+b),#l do e=e..o.EnHFUIim(l,n,n)end return e;end;local b=#o.FwJSUWSg(s('\49.\48'))~=1 local e=n;local function j(...)return{...},o.wRKnLFFU('#',...)end local function _()local e={};local u={};local s={};local h={s,u,nil,e};local e=n()local a={}for d=1,e do local l=f();local e;if(l==0)then e=(f()~=#{});elseif(l==1)then local n=g();if b and o.unGWbXZd(o.FwJSUWSg(n),'.(\48+)$')then n=o.WIdVPxuw(n);end e=n;elseif(l==2)then e=p();end;a[d]=e;end;for e=1,n()do u[e-(#{1})]=_();end;h[3]=f();for u=1,n()do local e=f();if(l(e,1,1)==0)then local o=l(e,2,3);local f=l(e,4,6);local e={c(),c(),nil,nil};if(o==0)then e[t]=c();e[r]=c();elseif(o==#{1})then e[t]=n();elseif(o==z[2])then e[t]=n()-(2^16)elseif(o==z[3])then e[t]=n()-(2^16)e[r]=c();end;if(l(f,1,1)==1)then e[d]=a[e[d]]end if(l(f,2,2)==1)then e[t]=a[e[t]]end if(l(f,3,3)==1)then e[r]=a[e[r]]end s[u]=e;end end;return h;end;local function m(l,e,n)local d=e;local d=n;return s(o.unGWbXZd(o.unGWbXZd(({o.bI_WwiFY(l)})[2],e),n))end local function y(k,e,a)local function y(...)local c,m,b,y,s,l,f,p,z,g,_,n;local e=0;while-1<e do if e<=2 then if 1<=e then if 1==e then b=h(6,19,3,59,k);s=j y=0;else l=-41;f=-1;end else c=h(6,54,1,29,k);m=h(6,74,2,29,k);end else if e<=4 then if e~=2 then repeat if e>3 then g=o.wRKnLFFU('#',...)-1;_={};break;end;p={};z={...};until true;else p={};z={...};end else if e~=6 then n=h(7);else e=-2;end end end e=e+1;end;for e=0,g do if(e>=b)then p[e-b]=z[e+1];else n[e]=z[e+1];end;end;local e=g-b+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=c[l];o=e[ne];if o>=12 then if 17>=o then if 14>=o then if o<=12 then if(n[e[d]]~=e[r])then l=l+1;else l=e[t];end;else if 9<o then for l=15,63 do if o~=14 then local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[r]];break;end;local e=e[d]n[e]=n[e](u(n,e+1,f))break;end;else local l=e[d];local d=n[e[t]];n[l+1]=d;n[l]=d[e[r]];end end else if 15>=o then do return end;else if 13~=o then repeat if o~=17 then for o=0,3 do if 2<=o then if 3~=o then n[e[d]]=a[e[t]];l=l+1;e=c[l];else if(n[e[d]]~=e[r])then l=l+1;else l=e[t];end;end else if 0~=o then a[e[t]]=n[e[d]];l=l+1;e=c[l];else n[e[d]]=(e[t]~=0);l=l+1;e=c[l];end end end break;end;n[e[d]]=a[e[t]];until true;else for o=0,3 do if 2<=o then if 3~=o then n[e[d]]=a[e[t]];l=l+1;e=c[l];else if(n[e[d]]~=e[r])then l=l+1;else l=e[t];end;end else if 0~=o then a[e[t]]=n[e[d]];l=l+1;e=c[l];else n[e[d]]=(e[t]~=0);l=l+1;e=c[l];end end end end end end else if o>=21 then if 21<o then if 22<o then l=e[t];else n(e[d],e[t]);end else do return end;end else if 18<o then if o~=19 then local o,z,k,p,b;for h=0,6 do if 3<=h then if 5<=h then if 4<h then repeat if h>5 then n[e[d]]();break;end;o=e[d]n[o]=n[o](u(n,o+1,f))l=l+1;e=c[l];until true;else n[e[d]]();end else if 1<=h then repeat if 3<h then o=e[d]k,p=s(n[o](u(n,o+1,e[t])))f=p+o-1 b=0;for e=o,f do b=b+1;n[e]=k[b];end;l=l+1;e=c[l];break;end;n[e[d]]=(e[t]~=0);l=l+1;e=c[l];until true;else n[e[d]]=(e[t]~=0);l=l+1;e=c[l];end end else if h<1 then n[e[d]]=a[e[t]];l=l+1;e=c[l];else if h~=1 then n(e[d],e[t]);l=l+1;e=c[l];else o=e[d];z=n[e[t]];n[o+1]=z;n[o]=z[e[r]];l=l+1;e=c[l];end end end end else n[e[d]]();end else a[e[t]]=n[e[d]];end end end else if 5<o then if o<9 then if 7<=o then if o>=3 then repeat if o~=8 then n[e[d]]=(e[t]~=0);break;end;local e=e[d]n[e]=n[e](u(n,e+1,f))until true;else n[e[d]]=(e[t]~=0);end else l=e[t];end else if 9>=o then if(n[e[d]]~=e[r])then l=l+1;else l=e[t];end;else if o>=6 then for l=43,82 do if 11>o then local l=e[d];local d=n[e[t]];n[l+1]=d;n[l]=d[e[r]];break;end;n[e[d]]=a[e[t]];break;end;else n[e[d]]=a[e[t]];end end end else if o<3 then if o>=1 then if-3<o then for l=38,56 do if o~=2 then n[e[d]]=(e[t]~=0);break;end;local l=e[d]local d,e=s(n[l](u(n,l+1,e[t])))f=e+l-1 local e=0;for l=l,f do e=e+1;n[l]=d[e];end;break;end;else local l=e[d]local d,e=s(n[l](u(n,l+1,e[t])))f=e+l-1 local e=0;for l=l,f do e=e+1;n[l]=d[e];end;end else a[e[t]]=n[e[d]];end else if 4<=o then if o==4 then local l=e[d]local d,e=s(n[l](u(n,l+1,e[t])))f=e+l-1 local e=0;for l=l,f do e=e+1;n[l]=d[e];end;else local c,a,r,o,f;local l=0;while l>-1 do if l<=2 then if 1<=l then if-1<=l then for e=23,66 do if 1<l then r=t;break;end;a=d;break;end;else a=d;end else c=e;end else if 5<=l then if 2<l then for e=13,86 do if l<6 then n(f,o);break;end;l=-2;break;end;else n(f,o);end else if l>=-1 then repeat if 4>l then o=c[r];break;end;f=c[a];until true;else o=c[r];end end end l=l+1 end end else n[e[d]]();end end end end l=1+l;end;end;return y end;local d=0xff;local a={};local c=(1);local t='';(function(n)local l=n local r=0x00 local e=0x00 l={(function(d)if r>0x27 then return d end r=r+1 e=(e+0x1046-d)%0x42 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xef);end return true end)'lboyi'and l[0x2](0x299+d))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x2e);end return true end)'JqOhS'and l[0x3](d+0x3a6))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xcd);end return true end)'VdUIp'and l[0x1](d+0x225))or d end),(function(o)if r>0x2f then return o end r=r+1 e=(e+0xe60-o)%0x1d return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf7);end return true end)'nU_uG'and l[0x1](0x3c1+o))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x44);end return true end)'GBJru'and l[0x2](o+0x2c8))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xdf);d[2]=(d[2]*(m(function()a()end,u(t))-m(d[1],u(t))))+1;a[c]={};d=d[2];c=c+d;end return true end)'IDAQe'and l[0x3](o+0x358))or o end),(function(f)if r>0x21 then return f end r=r+1 e=(e+0x1286-f)%0x35 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbc);t='\37';d={function()d()end};t=t..'\100\43';end return true end)'XgDxs'and l[0x3](0x220+f))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x21);t={t..'\58 a',t};a[c]=_();c=c+((not o.bcevOxPj)and 1 or 0);t[1]='\58'..t[1];d[2]=0xff;end return true end)'nwVbZ'and l[0x2](f+0x1e9))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6e);a[c]=ee();c=c+d;end return true end)'qbGXG'and l[0x1](f+0x1e5))or f end)}l[0x3](0x144a)end){};local e=y(u(a));return e(...);end return _((function()local n={}local e=0x01;local l;if o.bcevOxPj then l=o.bcevOxPj(_)else l=''end if o.unGWbXZd(l,o.clyaPlhT)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,t,d,o)local o;if e>=4 then if e<6 then if 1<e then repeat if 4<e then local e=t;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;break;end;local e=t;local t,d,o=d(2);do return function()local n,c,r,l=l(n,e(e,e),e(e,e)+3);e(4);return(l*t)+(r*d)+(c*o)+n;end;end;until true;else local e=t;local r,c,t=d(2);do return function()local d,l,n,o=l(n,e(e,e),e(e,e)+3);e(4);return(o*r)+(n*c)+(l*t)+d;end;end;end else if 7>e then do return d[n]end;else if 5~=e 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,l,t,n)if n then return e[n]elseif t then return e else e[d]=l end end})end until true;else do return n(e,nil,n);end end end end else if e<=1 then if e>-3 then repeat if e~=0 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 l(1),l(4,d,t,n,l),l(5,d,t,n)end;until true;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 do return l(1),l(4,d,t,n,l),l(5,d,t,n)end;else do return 16777216,65536,256 end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement