Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) _gluUgqjkeuJR = a; end)); return(function(d,...)local a;local r;local f;local t;local o;local c;local e=24915;local n=0;local l={};while n<913 do n=n+1;while n<0x176 and e%0x4016<0x200b do n=n+1 e=(e*243)%15466 local h=n+e if(e%0x3446)>0x1a23 then e=(e*0x319)%0x4c07 while n<0x34a and e%0x2952<0x14a9 do n=n+1 e=(e*951)%24539 local o=n+e if(e%0x1122)>0x891 then e=(e-0x182)%0x8a1a local e=75775 if not l[e]then l[e]=0x1 f=string;end elseif e%2~=0 then e=(e*0x2a4)%0x5643 local e=65350 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end else e=(e+0xa)%0x75e5 n=n+1 local e=20780 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end end end elseif e%2~=0 then e=(e-0x105)%0x8281 while n<0x2e0 and e%0x264c<0x1326 do n=n+1 e=(e-514)%16797 local t=n+e if(e%0x3d16)>=0x1e8b then e=(e+0x39f)%0x53cd local e=35616 if not l[e]then l[e]=0x1 r={};end elseif e%2~=0 then e=(e*0x15a)%0x59d1 local e=9043 if not l[e]then l[e]=0x1 end else e=(e-0x36c)%0x85db n=n+1 local e=2716 if not l[e]then l[e]=0x1 a="\4\8\116\111\110\117\109\98\101\114\117\106\100\74\100\87\67\97\0\6\115\116\114\105\110\103\4\99\104\97\114\97\121\117\101\74\110\101\75\0\6\115\116\114\105\110\103\3\115\117\98\119\72\115\112\72\95\120\113\0\6\115\116\114\105\110\103\4\98\121\116\101\86\95\87\105\118\67\72\74\0\5\116\97\98\108\101\6\99\111\110\99\97\116\115\88\121\112\71\77\115\85\0\5\116\97\98\108\101\6\105\110\115\101\114\116\120\69\69\120\98\82\84\108\5";end end end else e=(e+0x1b7)%0x4a20 n=n+1 while n<0x1f2 and e%0x1cd4<0xe6a do n=n+1 e=(e*306)%5831 local a=n+e if(e%0x148e)>0xa47 then e=(e-0xcc)%0xa6ba local e=22603 if not l[e]then l[e]=0x1 c=tonumber;end elseif e%2~=0 then e=(e*0x286)%0x1d0a local e=99517 if not l[e]then l[e]=0x1 end else e=(e*0x24)%0x427a n=n+1 local e=57237 if not l[e]then l[e]=0x1 o=function(o)local e=0x01 local function l(n)e=e+n return o:sub(e-n,e-0x01)end while true do local n=l(0x01)if(n=="\5")then break end local e=f.byte(l(0x01))local e=l(e)if n=="\2"then e=r.ujdJdWCa(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then t[e]=function(n,e)return d(8,nil,d,e,n)end elseif n=="\4"then e=t[e]elseif n=="\0"then e=t[e][l(f.byte(l(0x01)))];end local n=l(0x08)r[n]=e end end end end end end end e=(e+790)%2116 end o(a);local n={};for e=0x0,0xff do local l=r.ayueJneK(e);n[e]=l;n[l]=e;end local function h(e)return n[e];end local f=(function(f,d)local a,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local o=f while true do n[0x03][r.wHspH_xq(d,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=#d while e<t+0x01 do n[0x02][l]=r.wHspH_xq(d,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.xEExbRTl(n[0x01],(h((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=f+o;end end return r.sXypGMsU(n[0x01])end);o(f(143,"=Gg-xPZY!M.m pVSYZ"));o(f(127,"(IkUsZTyeo)KOitSeI<eSTyeSyTSSZTSeiTt3qyoSieZ_ZTsfkyetOyZSeI)oOeeSOyK1yeeITyeIkTKI)eeSKoy)TkKIyo)IkoeISosIs)yko)aSeeIzeUsKK)okK))kk)ekksIk)oSUU)UkoookSeeIsKIIiKKAOs)OSKoktOkUyZZUiKTUeOOsZKyktoSUOOOssOWsyTktKiUsTiTZVOoZoOyZKOosKiTZ5OrZsK_ZiiiUOKis)yeSOOOZOiKTitoTi)SysOKsSO)sTtUZiiUuoe)yttoykStyotSTUi)THnyeZiSIZoZstt)yTiOy)tKeUSkZt)kkyIsodIZoyITetIsetSOysYooytSotkTe+K!UTkTosIT)IIKUiki)yk)oOIS)eUZKZxkoIkteoIZ)eO)siUiKyU))OkSKeskKZsoKKkZO)sT))i)ZOseOKsUOoZ=OIZsKtso))UkK^UoTotOi)siiZsSOtTRKUUyOEUoO)sTtKUSyZS)tsZotiTkeDTktoTittykSZZkSZsiSiTtOtTket"));local e=(-9146+(function()local t,n=0,1;(function(e,n)e(n(e,e)and e(e,n),e(n,e))end)(function(l,e)if t>391 then return e end t=t+1 n=(n+414)%27145 if(n%510)<=255 then n=(n+191)%39155 return e(e(e,e),e(e,e))else return l end return e end,function(e,l)if t>420 then return e end t=t+1 n=(n-284)%9577 if(n%372)>=186 then n=(n+619)%30313 return e else return l(e(l and e,l),e(e,e))end return l(l(e,l),e(l and l,e)and e(e,e and l))end)return n;end)())local j=(getfenv)or(function()return _ENV end);local s=r.tfyjSwrU or r.wvBPlFQc;local u=4;local t=2;local m=1;local o=3;local function _(z,...)local h=f(e,"Ae+)6&x:BKfh5z<g+B)B&6:QB<f556<vg5:gK&hzzeBffh5Oz5gB&5f65#zB5hT&)ZzfPee,+56B5)<:cB+z+K&::zK+fg5&ge<+oxz+^&jB+66sfK<:F)e<eg6zx::gBg55<xgKef+g&:6BB&K5hBz&gf<K)B&6x<ef)<&Sx5BBe7+g)z&5B:f6h<zeg+r:h<eBg6eX+5h-zBg6#5+hW<eg)hKff&z:ffggez66&6:zBxh&5gzz=xe))h&x:BB&ff55f+g)eh)&e)6B:zffhBh:<ze&+K))xg6:B6f)56h:ee+e6&xx6)B)fgzf<ze8)dtxxoB&Bz6fxhBSK5hB+e&&:fK5fz5g<fKfh5z^<5YB:Kh)5e<f<+ee)K6zUxKK)5&B:6gB+P)5&6:)&xx:B)z6g&eh+:6gx<:5x+h)zhg&z)+e65xe6)f:he5f<5Dg+h6)x:)g&z:BKKhtz6<zpK+&6r&z:fKefg5B<fNxe<)5&6xgz&hhz&<:ggx+6B&,fmhff&D+g5q<&exxxff+hx5B5<ehg&e&x+:hK&5)z)<yg&+))z6zBzx:56Kfg&<+g<)f&5&+:xh:5)g+e89<jx6K)KKhBzfzheze++w++e)BxhBzBK5&z&ez5<<gF6+d)5fgzKg+g6):&)xhe<6I&6:^B58h+&65:xK+KK5K<&Bfzh5uz5gBxBKBh&zhf6jx+&66&K)Xf)fKz:fOY5+f6)x6:eBhhB5&<JhB+h)Kxl:o66Bz5h<:!+l))e6h+6:xxg:Bzx0K55!<6Kx6Beffh&z5fg<egzeK)&+<)6&Ux5BBfx5=z5gBe&)V65xBKxf5h5zBg6e6+56Bx6K+fhhBz6gt9g+B66x7f+ffh6zR<5><+66e&5B6K6h6<)<B96+!6+&B:&K2h_zg<6?ce5)g&6:eB5fBz5<_g5eB)&&(x5BBhx5)z5gBe6)h65xBB6h+56zBg6er)66Bx6BLf<z+z6g#w5)e66x0:5ffhBzn<5sB+<6l&5:BK6hz55<B.6+e)5&B:6f+fg5B<6S!+))B&6:HK<h+56<Tg5ez)6&?x5Kfhh5SzzgBe&)n65xBf6feh5zKg6ee+56fx6K+h+hBz:gqe++B66xW:5Khh6z6<5GK+66k&5:BKghH5z<B;B+I)5&B:6f5f55B<6o3e5)f&6:=KKfB56<;gzeB)&&Wx5Khf65lz5gKe6)>65xBB6f^h5zB");local n=0;r.yZsKyfXs(function()r.ncVLQwtM()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,a=d(0,d,e,h,r.V_WivCHJ);local function f()local l,n=r.V_WivCHJ(h,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local k=true;local k=0 local function b()local e=n();local n=n();local o=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==k)then return n*0;else e=1;o=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return r.aWGcridj(n,e-1023)*(o+(t/(2^52)));end;local g=n;local function p(n)local l;if(not n)then n=g();if(n==0)then return'';end;end;l=r.wHspH_xq(h,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+k),#l do e=e..r.wHspH_xq(l,n,n)end return e;end;local g=#r.TK_lCqxQ(c('\49.\48'))~=1 local e=n;local function _(...)return{...},r.FIQIYTxK('#',...)end local function y()local k={};local s={};local e={};local c={k,s,nil,e};local e=n()local h={}for t=1,e do local l=a();local e;if(l==1)then e=(a()~=#{});elseif(l==3)then local n=b();if g and r.WlDOkVsC(r.TK_lCqxQ(n),'.(\48+)$')then n=r.tPrIxhGZ(n);end e=n;elseif(l==2)then e=p();end;h[t]=e;end;for c=1,n()do local e=a();if(l(e,1,1)==0)then local d=l(e,2,3);local r=l(e,4,6);local e={f(),f(),nil,nil};if(d==0)then e[o]=f();e[u]=f();elseif(d==#{1})then e[o]=n();elseif(d==z[2])then e[o]=n()-(2^16)elseif(d==z[3])then e[o]=n()-(2^16)e[u]=f();end;if(l(r,1,1)==1)then e[t]=h[e[t]]end if(l(r,2,2)==1)then e[o]=h[e[o]]end if(l(r,3,3)==1)then e[u]=h[e[u]]end k[c]=e;end end;for e=1,n()do s[e-(#{1})]=y();end;c[3]=a();return c;end;local function p(l,n,e)local t=n;local t=e;return c(r.WlDOkVsC(r.WlDOkVsC(({r.yZsKyfXs(l)})[2],n),e))end local function ne(k,e,h)local function j(...)local a,ee,f,y,z,n,c,p,g,b,j,l;local e=0;while-1<e do if 3<=e then if e<=4 then if 3~=e then b=r.FIQIYTxK('#',...)-1;j={};else p={};g={...};end else if 6==e then e=-2;else l=d(7);end end else if 0>=e then a=d(6,97,1,23,k);ee=d(6,77,2,63,k);else if e>=-3 then repeat if 2>e then f=d(6,56,3,36,k);z=_ y=0;break;end;n=-41;c=-1;until true;else f=d(6,56,3,36,k);z=_ y=0;end end end e=e+1;end;for e=0,b do if(e>=f)then p[e-f]=g[e+1];else l[e]=g[e+1];end;end;local e=b-f+1 local e;local f;local function d(...)while true do end end while true do if n<-40 then n=n+42 end e=a[n];f=e[m];if f>=12 then if f<=17 then if f<15 then if 12>=f then l[e[t]]();else if 13<f then l[e[t]]=(e[o]~=0);else do return end;end end else if 16<=f then if f>14 then for n=11,70 do if f>16 then local n=e[t]local t,e=z(l[n](s(l,n+1,e[o])))c=e+n-1 local e=0;for n=n,c do e=e+1;l[n]=t[e];end;break;end;l[e[t]]=(e[o]~=0);break;end;else l[e[t]]=(e[o]~=0);end else n=e[o];end end else if 20<f then if 23<=f then if f==24 then do return end;else n=e[o];end else if f>17 then repeat if f~=22 then l[e[t]]=h[e[o]];break;end;local d,h,r,f;l(e[t],e[o]);n=n+1;e=a[n];l[e[t]]=(e[o]~=0);n=n+1;e=a[n];d=e[t]h,r=z(l[d](s(l,d+1,e[o])))c=r+d-1 f=0;for e=d,c do f=f+1;l[e]=h[f];end;n=n+1;e=a[n];d=e[t]l[d]=l[d](s(l,d+1,c))n=n+1;e=a[n];l[e[t]]();n=n+1;e=a[n];do return end;until true;else l[e[t]]=h[e[o]];end end else if f>=19 then if f~=17 then repeat if 19~=f then l(e[t],e[o]);break;end;h[e[o]]=l[e[t]];until true;else l(e[t],e[o]);end else local e=e[t]l[e]=l[e](s(l,e+1,c))end end end else if 6>f then if 3<=f then if f>3 then if f~=2 then for n=41,79 do if f<5 then l[e[t]]();break;end;l[e[t]]=h[e[o]];break;end;else l[e[t]]();end else l(e[t],e[o]);end else if f<1 then h[e[o]]=l[e[t]];else if f>0 then repeat if 2>f then local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[u]];break;end;for d=0,3 do if d>=2 then if d~=2 then if(l[e[t]]==e[u])then n=n+1;else n=e[o];end;else l[e[t]]=h[e[o]];n=n+1;e=a[n];end else if-4<d then for f=15,63 do if 0~=d then h[e[o]]=l[e[t]];n=n+1;e=a[n];break;end;l[e[t]]=(e[o]~=0);n=n+1;e=a[n];break;end;else l[e[t]]=(e[o]~=0);n=n+1;e=a[n];end end end until true;else local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[u]];end end end else if 9>f then if f>6 then if f>4 then for d=43,76 do if f~=8 then local n=e[t]local t,e=z(l[n](s(l,n+1,e[o])))c=e+n-1 local e=0;for n=n,c do e=e+1;l[n]=t[e];end;break;end;local f,r,s,u,c,d;for d=0,6 do if 3>d then if 1>d then h[e[o]]=l[e[t]];n=n+1;e=a[n];else if d>=-3 then for z=36,67 do if d~=2 then d=0;while d>-1 do if d<3 then if 1<=d then if 0~=d then for e=26,79 do if d~=1 then s=o;break;end;r=t;break;end;else r=t;end else f=e;end else if 5<=d then if 3<=d then repeat if d>5 then d=-2;break;end;l(c,u);until true;else d=-2;end else if 2~=d then repeat if d<4 then u=f[s];break;end;c=f[r];until true;else c=f[r];end end end d=d+1 end n=n+1;e=a[n];break;end;h[e[o]]=l[e[t]];n=n+1;e=a[n];break;end;else d=0;while d>-1 do if d<3 then if 1<=d then if 0~=d then for e=26,79 do if d~=1 then s=o;break;end;r=t;break;end;else r=t;end else f=e;end else if 5<=d then if 3<=d then repeat if d>5 then d=-2;break;end;l(c,u);until true;else d=-2;end else if 2~=d then repeat if d<4 then u=f[s];break;end;c=f[r];until true;else c=f[r];end end end d=d+1 end n=n+1;e=a[n];end end else if 4<d then if d~=2 then repeat if d<6 then l[e[t]]=h[e[o]];n=n+1;e=a[n];break;end;l[e[t]]=h[e[o]];until true;else l[e[t]]=h[e[o]];end else if-1<=d then repeat if d~=4 then l[e[t]]=(e[o]~=0);n=n+1;e=a[n];break;end;h[e[o]]=l[e[t]];n=n+1;e=a[n];until true;else h[e[o]]=l[e[t]];n=n+1;e=a[n];end end end end break;end;else local n=e[t]local t,e=z(l[n](s(l,n+1,e[o])))c=e+n-1 local e=0;for n=n,c do e=e+1;l[n]=t[e];end;end else if(l[e[t]]==e[u])then n=n+1;else n=e[o];end;end else if 10>f then if(l[e[t]]==e[u])then n=n+1;else n=e[o];end;else if 11~=f then local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[u]];else local e=e[t]l[e]=l[e](s(l,e+1,c))end end end end end n=1+n;end;end;return j end;local t=0xff;local h={};local d=(1);local o='';(function(n)local l=n local f=0x00 local e=0x00 l={(function(a)if f>0x2d then return a end f=f+1 e=(e+0x10a3-a)%0x1c return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd6);end return true end)'ZHlmR'and l[0x2](0x3db+a))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3);o={o..'\58 a',o};h[d]=y();d=d+((not r.wvTqfYac)and 1 or 0);o[1]='\58'..o[1];t[2]=0xff;end return true end)'XWObH'and l[0x1](a+0x1e3))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb1);t[2]=(t[2]*(p(function()h()end,s(o))-p(t[1],s(o))))+1;h[d]={};t=t[2];d=d+t;end return true end)'LuSGd'and l[0x3](a+0x332))or a end),(function(d)if f>0x2a then return d end f=f+1 e=(e+0xb25-d)%0x3a return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x5d);end return true end)'dVhEG'and l[0x2](0x2cb+d))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xca);end return true end)'FpoEZ'and l[0x3](d+0x25f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x98);o='\37';t={function()t()end};o=o..'\100\43';end return true end)'eLIEX'and l[0x1](d+0x223))or d end),(function(o)if f>0x2e then return o end f=f+1 e=(e+0x800-o)%0x2c return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf8);h[d]=j();d=d+t;end return true end)'LSlll'and l[0x2](0x30b+o))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4b);end return true end)'MHiBw'and l[0x3](o+0x1f1))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xee);end return true end)'iAGWq'and l[0x1](o+0x87))or o end)}l[0x2](0x1b7b)end){};local e=ne(s(h));return e(...);end return _((function()local n={}local e=0x01;local l;if r.wvTqfYac then l=r.wvTqfYac(_)else l=''end if r.WlDOkVsC(l,r.hgyzpGOU)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,o,d)local d;if 4<=l then if 5>=l then if 1<l then for d=13,63 do if 5~=l then local l=t;local t,d,o=o(2);do return function()local r,e,f,n=e(n,l(l,l),l(l,l)+3);l(4);return(n*t)+(f*d)+(e*o)+r;end;end;break;end;local l=t;do return function()local e=e(n,l(l,l),l(l,l));l(1);return e;end;end;break;end;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 7<=l then if l>=5 then repeat if l~=8 then do return setmetatable({},{['__\99\97\108\108']=function(e,o,t,l,n)if n then return e[n]elseif l then return e else e[o]=t end end})end break;end;do return n(l,nil,n);end until true;else do return n(l,nil,n);end end else do return o[n]end;end end else if l>1 then if 0<l then repeat if l>2 then do return e(1),e(4,o,t,n,e),e(5,o,t,n)end;break;end;do return 16777216,65536,256 end;until true;else do return e(1),e(4,o,t,n,e),e(5,o,t,n)end;end else if-4<=l then repeat if 1>l then do return e(1),e(4,o,t,n,e),e(5,o,t,n)end;break;end;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;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 end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement