We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 3
([[This file was protected with MoonSec V3]]):gsub('.
+', (function(a) _kARVukRYmITZ
= a; end)); return(function(h,...)local d;local t;local o;local f;local r;local s;local e=24915;local n=0;local l={};while n<673 do n=n+1;while n<0x1b2 and e %0x1294<0x94a do n=n+1 e=(e-899)%26050 local a=n+e if(e%0x8f4)>=0x47a then e=(e*0x30d)%0xab9f while n<0x263 and e%0x4828<0x2414 do n=n+1 e=(e*191)%4253 local d=n+e if(e%0x2b98)>0x15cc then e=(e-0x8a)%0x61be local e=21392 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e-0x244)%0x21a3 local e=86762 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end else e=(e-0x2d8)%0x8124 n=n+1 local e=85238 if not l[e]then l[e]=0x1 f=string;end end end elseif e%2~=0 then e=(e-0x73)%0x5f27 while n<0x112 and e%0xaf8<0x57c do n=n+1 e=(e*691)%29248 local d=n+e if(e %0x35f2)>0x1af9 then e=(e+0x28e)%0x2003 local e=90394 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e*0x35e)%0xb6f3 local e=81857 if not l[e]then l[e]=0x1 end else e=(e*0x29b)%0xa887 n=n+1 local e=41794 if not l[e]then l[e]=0x1 s=tonumber;end end end else e=(e*0x18b)%0xb7d3 n=n+1 while n<0xc2 and e%0x1392<0x9c9 do n=n+1 e=(e+605)%19269 local a=n+e if(e%0x12c8)<=0x964 then e=(e+0x363)%0x482b local e=1723 if not l[e]then l[e]=0x1 r="\ 4\8\116\111\110\117\109\98\101\114\107\120\68\106\83\66\122\67\0\6\115\116\114\105\ 110\103\4\99\104\97\114\100\119\79\75\80\101\89\82\0\6\115\116\114\105\110\103\3\11 5\117\98\86\76\120\108\115\90\75\68\0\6\115\116\114\105\110\103\4\98\121\116\101\12 2\84\122\87\107\103\100\71\0\5\116\97\98\108\101\6\99\111\110\99\97\116\114\74\112\ 65\110\89\120\106\0\5\116\97\98\108\101\6\105\110\115\101\114\116\85\111\69\89\115\ 109\99\74\5";end elseif e%2~=0 then e=(e+0xe5)%0x5d95 local e=54953 if not l[e]then l[e]=0x1 o={};end else e=(e*0xe0)%0x8bdd n=n+1 local e=24633 if not l[e]then l[e]=0x1 d=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.kxDjSBzC(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then t[e]=function(e,n)return h(8,nil,h,n,e)end elseif l=="\ 4"then e=t[e]elseif l=="\0"then e=t[e][n(f.byte(n(0x01)))];end local n=n(0x08)o[n]=e end end end end end end end e=(e-742)%38156 end d(r);local e={};for n=0x0,0xff do local l=o.dwOKPeYR(n);e[n]=l;e[l]=n;end local function u(n)return e[n];end local f=(function(r,f)local a,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=r while true do n[0x03][o.VLxlsZKD(f,e,(function()e=a+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#f while e<t+0x01 do n[0x02][l]=o.VLxlsZKD(f,e, (function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.UoEYsmcJ(n[0x01],(u((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02] [0x01]]or 0x00)+d)%0x100)));d=r+d;end end return o.rJpAnYxj(n[0x01])end);d(f(149,">^!-bMUF_l4T8LBeFC"));d(f(249,"2./ Weyg&fqJoF3uhl&.effqtqyqWqhqheWJJF/F.FoJFo/FfFghWFuY}5equJg.f./.&/qW%e./FyW/W/ JeyWJyube}hf.fJffqeJ.&3qeJyoFqqouoh3FgF&qu3hyhJhfRe+eJq.f.W/3/W/ hWN/.WkWWyqyFyugfTg..f.&Fqgq.WyJWJ/JJFeFWoFJeo/Fgug3Wh&hgqgJy.WlF/////.W&/ oeyWqe.y/y/guy3ghyJ&W&f&eghW:WJq=JgJoFWFyFhq&3hu&oFue3q3JuquhJ&Ju/f.q/fWJWF.yyjy/ WWgJg&gud&Y3eF&eq.fJqoJeJWquo&ygg.3e3gu.uquuuFhfhfK...Cyhu/gz3Wf/f3O3Fy/ egeuyhyhj&&3&3fg&uf&qg&yfqoeofFWquogF&gu&&u3u3hguuh&ague.Fho/u/yWB.o// 3uugyfg.yhgo&fghyqgJfhf1qJ&goye&ySFeo3FoFo3:uf3/FJFohu3u.eYuhuoWou/u/qeWWuu/ eJy&g.gf&/y>&.&ef.&J&oquJeee"));local e=(-6065+(function()local d,n=0,1; (function(n,e,t,l)t(e(e and n,t and n,l and n,e),e(e,n,e,e),e(l,e,n,e),e(l,e,e,e)and e(l,t,n,e))end)(function(t,e,o,l)if d>363 then return l end d=d+1 n=(n-890)%14089 if(n%494)>247 then n=(n-962)%9500 return l else return e(l(e,t,o,o),t(e,t,o,e),e(t and l,e,l,t),e(o,e,o and e,e))end return l(e(l,e,t and l,t),t(t,l,e,o),o(t,l,l,t),l(t,e,l,t))end,function(t,l,o,e)if d>338 then return l end d=d+1 n=(n*999)%5849 if(n%918)>459 then n=(n-180)%17980 return l(o(e and e,o,e,t),t(e,t,e,l),l(o,o,e,e),t(t and e,l,t,l))else return o end return e end,function(t,o,l,e)if d>175 then return e end d=d+1 n=(n-816)%24343 if(n %902)>451 then return l else return t(t(o,t,o,l and e),t(e,l,e,l),o(e,l,l,l),t(e,e,o and e,t))end return t(t(o,e,e and t,e)and l(e,e,t,e and e),e(l and e,e,t and o,l and l),l(o,l,o,t and e)and e(e and l,o,t,t),t(l,l and t,l,o))end,function(l,o,t,e)if d>320 then return t end d=d+1 n=(n*894)%40001 if(n%834)<417 then n=(n*315)%1907 return t(l(o,e,t,l)and e(e,o,e,t and l),t(e,o,e,o)and o(t,t,l,l),l(e,e,e,e),l(l and o,t,e,l))else return e end return l end)return n;end)())local u=o.BsKwgkOO or o.CPtquIZd;local j=(getfenv)or(function()return _ENV end);local t=3;local _=1;local a=4;local d=2;local function y(p,...)local r=f(e,"u#,t&zxM}85pwP.KtPxw5,P}##&}M5pQ.x}tptKz,tKMMpx08xwwx55w.,#&&P&5Mz5p,&&88z}, K#,8x58&PMK5&tMM8K.,/8&p} (pw.t,,z.&.p8Kp,K,MM5P8Kp&,Mt5p.&P8#O&MM8.t,zz8}KwPKw,Px.588tKzKKz)8tpxP8z,Mpp,Kz.M zx}8ppK&t8,p8Kw8*M&,t88MwzK.,P#pzp}&p5K{}zwMPt#5z&58PzK,,KM8}pwwn}.M,#zU}xpwt58wP,V &##xz55xK5wP}!.&&.x#K&M}iwzKwt3zP8}wM88Ktb,t}x.K}&,M8p88w#}z#}5p855tMzM8K},G}&LMt5. PzC8zvMM5w8.,pzt8&p.5w>KxM8PP,.Ptzx8zww}Pp.#,P&5}spxt88#wMKw#MzK8twz.K&xM55M.,##ztz .pz.x#wzt8,8pZ&t5x.t,x}8.P&oMx5w.,#8&.}&p5K#,xzw8,P5#8t&x55IPP(w&,M}w7Kw#5z }xpK K,,}z.p5.G(Atxxw5}P}hK&&}9p1.5tUz,}}p.K5,5x#8xPc#xt}x.5&.##b&MMwp,Kp#.z&}5w#Kx,wx,5 5P&f&t5M(5pPw#,&}8qwj.5,#zx}Pw,K},.}&8.PFjMtwMt5}.,#&zw}#px.K,,z5}.w&K5tDx}8wPtl}&# M&55.V#xzw},p}..,&z58,wxKwttx}8.P&ip&ZMM5w.,#5&.}&p5K#,xzw8,w}");local n=0;o.vZzCCWEb(function()o.oAupJzpp()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,c=h(0,h,e,r,o.zTzWkgdG);local function f()local n,l=o.zTzWkgdG(r,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local z=true;local z=0 local function g()local t=n();local e=n();local d=1;local t=(l(e,1,20)*(2^32)) +t;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(t==z)then return e*0;else n=1;d=0;end;elseif(n==2047)then return(t==0)and(e*(1/0))or(e*(0/0));end;return o.bCJWpVsk(e,n-1023)*(d+(t/(2^52)));end;local y=n;local function b(n)local l;if(not n)then n=y();if(n==0)then return'';end;end;l=o.VLxlsZKD(r,e(1,3),e(5,6)+n- 1);e(n)local e=""for n=(1+z),#l do e=e..o.VLxlsZKD(l,n,n)end return e;end;local z=#o.ir_QrRv_(s('\49.\48'))~=1 local e=n;local function m(...)return{...},o.WHBnGviR('#',...)end local function k()local e={};local u={};local h={};local s={h,u,nil,e};local e=n()local r={}for t=1,e do local l=c();local n;if(l==2)then n=(c()~=#{});elseif(l==1)then local e=g();if z and o.bLTPokfi(o.ir_QrRv_(e),'.(\48+)$')then e=o.Ic_eWQml(e);end n=e;elseif(l==3)then n=b();end;r[t]=n;end;for e=1,n()do u[e-(#{1})]=k();end;for s=1,n()do local e=c();if(l(e,1,1)==0)then local o=l(e,2,3);local u=l(e,4,6);local e={f(),f(),nil,nil};if(o==0)then e[t]=f();e[a]=f();elseif(o==#{1})then e[t]=n();elseif(o==p[2])then e[t]=n()-(2^16)elseif(o==p[3])then e[t]=n()- (2^16)e[a]=f();end;if(l(u,1,1)==1)then e[d]=r[e[d]]end if(l(u,2,2)==1)then e[t]=r[e[t]]end if(l(u,3,3)==1)then e[a]=r[e[a]]end h[s]=e;end end;s[3]=c();return s;end;local function y(l,n,e)local t=n;local t=e;return s(o.bLTPokfi(o.bLTPokfi(({o.vZzCCWEb(l)})[2],n),e))end local function ne(b,e,c)local function ee(...)local r,ee,z,j,s,l,f,y,g,p,k,n;local e=0;while-1<e do if e<3 then if e<=0 then r=h(6,3,1,33,b);ee=h(6,80,2,91,b);else if-3<e then for n=28,71 do if e~=2 then z=h(6,75,3,5,b);s=m j=0;break;end;l=-41;f=-1;break;end;else l=-41;f=-1;end end else if 4>=e then if e>=-1 then repeat if 3<e then p=o.WHBnGviR('#',...)-1;k={};break;end;y={};g={...};until true;else p=o.WHBnGviR('#',...)-1;k={};end else if e==5 then n=h(7);else e=-2;end end end e=e+1;end;for e=0,p do if(e>=z)then y[e-z]=g[e+1];else n[e]=g[e+1];end;end;local e=p-z+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=r[l];o=e[_];if 12<=o then if 17<o then if o<21 then if o>=19 then if 20==o then l=e[t];else do return end;end else local o,u,a,r,f;local l=0;while l>-1 do if l>=3 then if 4>=l then if 2~=l then for e=19,54 do if 4>l then r=o[a];break;end;f=o[u];break;end;else f=o[u];end else if l~=1 then repeat if l>5 then l=-2;break;end;n(f,r);until true;else n(f,r);end end else if 1<=l then if-3<=l then repeat if l<2 then u=d;break;end;a=t;until true;else a=t;end else o=e;end end l=l+1 end end else if o>=22 then if 21<=o then repeat if o~=23 then local l=e[d]local t,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]=t[e];end;break;end;local e=e[d]n[e]=n[e](u(n,e+1,f))until true;else local e=e[d]n[e]=n[e](u(n,e+1,f))end else c[e[t]]=n[e[d]];end end else if o<15 then if o<13 then local o,p,z,g,h;n[e[d]]=c[e[t]];l=l+1;e=r[l];o=e[d];p=n[e[t]];n[o+1]=p;n[o]=p[e[a]];l=l+1 ;e=r[l];n(e[d],e[t]);l=l+1;e=r[l];o=e[d]z,g=s(n[o](u(n,o+1,e[t])))f=g+o-1 h=0;for e=o,f do h=h+1;n[e]=z[h];end;l=l+1;e=r[l];o=e[d]n[o]=n[o] (u(n,o+1,f))l=l+1;e=r[l];n[e[d]]();l=l+1;e=r[l];do return end;else if o~=14 then n[e[d]]();else n[e[d]]=(e[t]~=0);end end else if 16>o then if(n[e[d]]==e[a])then l=l+1;else l=e[t];end;else if 14~=o then repeat if 16~=o then do return end;break;end;local l=e[d]local t,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]=t[e];end;until true;else do return end;end end end end else if o>5 then if o>8 then if 9<o then if 7<=o then repeat if o>10 then n[e[d]]=(e[t]~=0);break;end;n[e[d]]=c[e[t]];until true;else n[e[d]]=(e[t]~=0);end else if(n[e[d]]==e[a])then l=l+1;else l=e[t];end;end else if o>6 then if 4<o then repeat if 7<o then local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[a]];break;end;n(e[d],e[t]);until true;else local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[a]];end else n[e[d]]=c[e[t]];end end else if o<=2 then if o<=0 then local l=e[d];local t=n[e[t]];n[l+1]=t;n[l]=t[e[a]];else if 2==o then n[e[d]]();else for o=0,3 do if o>1 then if o==3 then if(n[e[d]]==e[a])then l=l+1;else l=e[t];end;else n[e[d]]=c[e[t]];l=l+1;e=r[l];end else if o~=-3 then repeat if o~=1 then n[e[d]]=(e[t]~=0);l=l+1;e=r[l];break;end;c[e[t]]=n[e[d]];l=l+1;e=r[l];until true;else n[e[d]]=(e[t]~=0);l=l+1;e=r[l];end end end end end else if o>3 then if 2<o then repeat if o<5 then local e=e[d]n[e]=n[e] (u(n,e+1,f))break;end;c[e[t]]=n[e[d]];until true;else c[e[t]]=n[e[d]];end else l=e[t];end end end end l=1+l;end;end;return ee end;local t=0xff;local c={};local f=(1);local d='';(function(n)local l=n local r=0x00 local e=0x00 l={(function(a)if r>0x1f then return a end r=r+1 e=(e+0x1349-a)%0x1c return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf4);end return true end)'IJbId'and l[0x1](0x193+a))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4d);t[2]=(t[2]*(y(function()c()end,u(d))-y(t[1],u(d)))) +1;c[f]={};t=t[2];f=f+t;end return true end)'lDpqB'and l[0x3](a+0x186))or(e %0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb3);d={d..'\58 a',d};c[f]=k();f=f+((not o.JIXOuItq)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'yDnMO'and l[0x2](a+0x311))or a end),(function(o)if r>0x28 then return o end r=r+1 e=(e+0x121a-o)%0x1c return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x66);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'lzyez'and l[0x1](0x3c1+o))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x74);end return true end)'ggMMZ'and l[0x2](o+0x267))or(e %0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x55);end return true end)'MaPnw'and l[0x3](o+0x144))or o end),(function(d)if r>0x28 then return d end r=r+1 e=(e+0x4aa-d)%0x33 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x35);c[f]=j();f=f+t;end return true end)'qwHax'and l[0x2](0x137+d))or(e %0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x56);end return true end)'tpaUB'and l[0x1](d+0x268))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x81);end return true end)'xBfpL'and l[0x3](d+0x15d))or d end)}l[0x2](0x1253)end){};local e=ne(u(c));return e(...);end return y((function()local n={}local e=0x01;local l;if o.JIXOuItq then l=o.JIXOuItq(y)else l=''end if o.bLTPokfi(l,o.IYcsIgaw)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 4<=e then if e<=5 then if 2<e then repeat if e<5 then local e=t;local d,r,t=d(2);do return function()local o,f,l,n=l(n,e(e,e),e(e,e)+3);e(4);return(n*d)+(l*r)+(f*t) +o;end;end;break;end;local e=t;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;until true;else local e=t;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;end else if 7<=e then if 5<=e then repeat if 8~=e then 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 break;end;do return n(e,nil,n);end until true;else do return n(e,nil,n);end end else do return d[n]end;end end else if 1>=e then if e<1 then do return l(1),l(4,d,t,n,l),l(5,d,t,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 e>1 then for o=12,87 do if 2~=e then do return l(1),l(4,d,t,n,l),l(5,d,t,n)end;break;end;do return 16777216,65536,256 end;break;end;else do return 16777216,65536,256 end;end end end end),...)