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) _VABcrJDxsWHs = a; end)); return(function(u,...)local s;local d;local t;local o;local r;local c;local e=24915;local n=0;local l={};while n<822 do n=n+1;while n<0x379 and e%0x28cc<0x1466 do n=n+1 e=(e*785)%44414 local f=n+e if(e%0x18c6)>=0xc63 then e=(e-0x28c)%0x5f8a while n<0x1f4 and e%0x211e<0x108f do n=n+1 e=(e-744)%47488 local t=n+e if(e%0x343a)<0x1a1d then e=(e-0x12)%0x8876 local e=17829 if not l[e]then l[e]=0x1 o=string;end elseif e%2~=0 then e=(e+0x19c)%0x8dff local e=86883 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\77\66\81\101\77\69\66\81\0\6\115\116\114\105\110\103\4\99\104\97\114\85\104\67\119\120\106\119\68\0\6\115\116\114\105\110\103\3\115\117\98\88\118\66\99\76\121\84\114\0\6\115\116\114\105\110\103\4\98\121\116\101\102\80\89\98\107\84\108\97\0\5\116\97\98\108\101\6\99\111\110\99\97\116\110\72\110\75\104\86\65\90\0\5\116\97\98\108\101\6\105\110\115\101\114\116\87\66\121\101\67\115\104\111\5";end else e=(e-0xdb)%0x5800 n=n+1 local e=88601 if not l[e]then l[e]=0x1 s=tonumber;end end end elseif e%2~=0 then e=(e-0x350)%0x936b while n<0x292 and e%0x4756<0x23ab do n=n+1 e=(e-425)%8424 local r=n+e if(e%0x23de)<=0x11ef then e=(e*0xa)%0xa9e0 local e=52513 if not l[e]then l[e]=0x1 c={};end elseif e%2~=0 then e=(e*0x66)%0xae55 local e=88570 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=o.byte(l(0x01))local e=l(e)if n=="\2"then e=c.MBQeMEBQ(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then t[e]=function(e,n)return u(8,nil,u,n,e)end elseif n=="\4"then e=t[e]elseif n=="\0"then e=t[e][l(o.byte(l(0x01)))];end local n=l(0x08)c[n]=e end end end else e=(e*0x3e8)%0x15ad n=n+1 local e=61336 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end end end else e=(e-0x37)%0x44f2 n=n+1 while n<0x9a and e%0x291e<0x148f do n=n+1 e=(e+680)%8765 local d=n+e if(e%0x39dc)<0x1cee then e=(e-0x214)%0xaa12 local e=1593 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end elseif e%2~=0 then e=(e+0x14a)%0x8351 local e=40875 if not l[e]then l[e]=0x1 end else e=(e-0x242)%0x8eae n=n+1 local e=70562 if not l[e]then l[e]=0x1 end end end end end e=(e-760)%25096 end d(r);local e={};for n=0x0,0xff do local l=c.UhCwxjwD(n);e[n]=l;e[l]=n;end local function a(n)return e[n];end local l=(function(f,o)local r,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=f while true do n[0x03][c.XvBcLyTr(o,e,(function()e=r+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]=c.XvBcLyTr(o,e,(function()e=r+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 c.WByeCsho(n[0x01],(a((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=f+d;end end return c.nHnKhVAZ(n[0x01])end);d(l(29,"IPg_;-W{m>YnB6SESm"));d(l(219,"Wr9sM8tpdzc_i.LI988kL90d9_MpprdI8r.tZi9z8rMLzL_iLd._9L8tp9s98dLd)69s8spdp9___III!LML8zdi8cdsrssc8td?c_itL_riss8ppdzi_sdMcIMrtpdcct.vLL_rsL8pdIcsi..t+drtM9d_d._#.z_9._tzd9_c.sz89rsLtMzi_z_,Lss9s{pAtzcsL9zcip8stczL_i.z}.rI8ptzdI_L.ir899ss8tdti9LiLcidIftMzd__IrrrszrItcdLiM.3Ic9LMrdgs.t9IcgzstttdrcpcMI.9M9zM.dpMrt8i9ri9_tIdId._.Itrc.c+szM_M..as9tM9tidcc__pIzsrMzMitpc)p1zc9LM!ttz8_spzk.9_89tddI_i..rrrs8I8pc9izIDc9iz8.p_c9_d.IxiFdtsd8pLcsL.IdX_I9rdcdiIL_r8MgM_pidZ.c.MrtMMMpr.MM.tL.rzsp8czoct.p%8rL9ztdtszdtzz99XszprdcMi.9I.98Mcp9dz_ILsL7KtM8tLpi89"));local e=(-27+(function()local l,n=0,1;(function(e)e(e(e))end)(function(e)if l>138 then return e end l=l+1 n=(n+58)%30359 if(n%414)<207 then return e else return e(e(e))end return e(e(e))end)return n;end)())local j=(getfenv)or(function()return _ENV end);local h=c.BxuIInTB or c.gvSzMsuw;local t=3;local d=2;local f=4;local ne=1;local function y(_,...)local r=l(e,"al}vG0OcZDwXJ V%XGGJ%}DZvVVVZwv6 OVZDl}D }Zc}V }O%lwXD%Zw0GGVwD?Z GlVGDtv VvZ0JyOZWJX}0Z0 VXGwODDOvJV}%_w}GZVwDvHIDXGllJJcccT X%OZU-cRGX% wliDVlDOv0wlZ%}vJOc}l%J0Ocl0ccl%JGcllGXc0JRXwDG%%wD%GkVODRvG wZ0}0 ?O%0VXJZc}XJlDl7XXvcn3+wXOV%GJXv} GDDvv 0OV}V%DcJlcVZG }DXOcJ%DwwcG=%cDvwJ0wXvcVlZOG0V}0Dl}w%GO%JJVcu}vwOv%VDDJGlKOZO0OV%Dl} JOcX} J0c%%JXc%V XGw%<DODNGw%lwl%GVAZDv} lv}}%X%ccJwJ{OZ3XXOG %lwZv%VGGOGv XZJ}OZG0cl%J0Ow%0w 0lXGD{lvwOZVGXDZOG}DJVc0}ZX OVJXZc} vcDVOD v} ZcVcRvD lcw}0 bO%JVwc0 l}w%0J9OOO8JX}}wVDcOlJJ}X0c }vJZ0vBXw%0lVXX}0O%vDVv V%Owvl }cZl%JVGc}SJOOwDV0lVwDgvOvX ZODl6 cZJTwwwZG}0w%GOlcGX%^DOlJlcDV%QX0XX}yJ OJl}XZwOcZlVJ_v ?lXOVZDDvG wZMc}vX vcJ}c }cl4GXXcGlOGZ%}DGvwV7V Z v% lVl Owl(XOJGcOlJXVOc GO%l0%VDvG%wJZXvvVGcVvlJGc }lXDOJ9vX00w=OD GJ%Z0ZvvV0ZD%lXccwl lODdXXVvX*XD}0OEvcZvcVVZO%cX}ZD}wJ00DE%JGOlKVXZvwVvZVpXV%ZDvcV}GDlYJ%cwl Dw0%l}X0GvFwwlGv%GDvGOwZZJvXJ l}XV0VpGwww0OD&lXGvl%}vG wZ6}OJJZZlZXVOGMwJw0O%Jw}GDVVDGvw%}D0}J }cZ}0JGOwlTJZOXF}wZGV%JDwG3VOX}GR ZcV}G zc8lcXJOc(ZX}OJ%wwCGO%}D}vD VZZG} rcOlJJDOZA%XG0wF%wOGJ%}DDvVVGZwG} wcJ}}JZcllGXwOBvOXO0}%ZDVGOVwDGvOVVZD}ZJVcGl JHOOKJV}0X%VwGGw%XDOG}V}DwGO Gcw}:JDOJl}XZZVlcww0T%OwwG}%lZVGOVZZ*}OJJcvlZXVOGlJXw0O% w}0GVVDGvw*KDZ}J vcZl%JGcGl)JZOZ&}wXGVylDwGPVOZJvX ZZ}}GJXcFlOXJO}}}wV00%wwGGOVJD}vZ%}ZG}w >cOlJJGOZBVXD0wImwOG %}DDvVVGDOv8 OcJ}vJZOVlG");local n=0;c.AeD_IdJX(function()c.jkCwyYXm()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,a=u(0,u,e,r,c.fPYbkTla);local function o()local l,n=c.fPYbkTla(r,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local z=true;local z=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==z)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 c.BPzSnBWq(n,e-1023)*(d+(t/(2^52)));end;local k=n;local function b(n)local l;if(not n)then n=k();if(n==0)then return'';end;end;l=c.XvBcLyTr(r,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+z),#l do e=e..c.XvBcLyTr(l,n,n)end return e;end;local z=#c.cJgzmKAU(s('\49.\48'))~=1 local e=n;local function y(...)return{...},c.eqznTnDT('#',...)end local function m()local h={};local e={};local u={};local s={h,u,nil,e};local e=n()local r={}for t=1,e do local l=a();local e;if(l==3)then e=(a()~=#{});elseif(l==1)then local n=p();if z and c.LYBImJHL(c.cJgzmKAU(n),'.(\48+)$')then n=c.dutLMgkT(n);end e=n;elseif(l==0)then e=b();end;r[t]=e;end;for e=1,n()do u[e-(#{1})]=m();end;s[3]=a();for u=1,n()do local e=a();if(l(e,1,1)==0)then local c=l(e,2,3);local a=l(e,4,6);local e={o(),o(),nil,nil};if(c==0)then e[t]=o();e[f]=o();elseif(c==#{1})then e[t]=n();elseif(c==_[2])then e[t]=n()-(2^16)elseif(c==_[3])then e[t]=n()-(2^16)e[f]=o();end;if(l(a,1,1)==1)then e[d]=r[e[d]]end if(l(a,2,2)==1)then e[t]=r[e[t]]end if(l(a,3,3)==1)then e[f]=r[e[f]]end h[u]=e;end end;return s;end;local function g(l,e,n)local t=e;local t=n;return s(c.LYBImJHL(c.LYBImJHL(({c.AeD_IdJX(l)})[2],e),n))end local function ee(k,e,r)local function j(...)local o,j,s,m,_,n,a,p,z,b,g,l;local e=0;while-1<e do if 3>e then if 1>e then o=u(6,86,1,93,k);j=u(6,49,2,93,k);else if 0~=e then repeat if e>1 then n=-41;a=-1;break;end;s=u(6,69,3,34,k);_=y m=0;until true;else n=-41;a=-1;end end else if 5<=e then if 6~=e then l=u(7);else e=-2;end else if e>0 then repeat if e>3 then b=c.eqznTnDT('#',...)-1;g={};break;end;p={};z={...};until true;else p={};z={...};end end end e=e+1;end;for e=0,b do if(e>=s)then p[e-s]=z[e+1];else l[e]=z[e+1];end;end;local e=b-s+1 local e;local c;local function u(...)while true do end end while true do if n<-40 then n=n+42 end e=o[n];c=e[ne];if 12<c then if 20<=c then if c>22 then if 25>c then if c>21 then for l=40,65 do if 24>c then do return end;break;end;n=e[t];break;end;else do return end;end else if c==26 then for c=0,3 do if c<=1 then if c>-3 then for f=30,98 do if c~=0 then r[e[t]]=l[e[d]];n=n+1;e=o[n];break;end;l[e[d]]=(e[t]~=0);n=n+1;e=o[n];break;end;else r[e[t]]=l[e[d]];n=n+1;e=o[n];end else if 0<c then repeat if c<3 then l[e[d]]=r[e[t]];n=n+1;e=o[n];break;end;if(l[e[d]]==e[f])then n=n+1;else n=e[t];end;until true;else if(l[e[d]]==e[f])then n=n+1;else n=e[t];end;end end end else l[e[d]]=(e[t]~=0);end end else if c<21 then local o,a,c,r,f;local n=0;while n>-1 do if n>=3 then if 4<n then if n>5 then n=-2;else l(f,r);end else if n>1 then repeat if 4~=n then r=o[c];break;end;f=o[a];until true;else r=o[c];end end else if 0>=n then o=e;else if 0<n then for e=36,98 do if 1~=n then c=t;break;end;a=d;break;end;else c=t;end end end n=n+1 end else if c<22 then l[e[d]]();else l[e[d]]=r[e[t]];end end end else if 16<=c then if 17>=c then if c~=17 then local e=e[d]l[e]=l[e](h(l,e+1,a))else l(e[d],e[t]);end else if c==18 then local n=e[d];local t=l[e[t]];l[n+1]=t;l[n]=t[e[f]];else local e=e[d]l[e]=l[e](h(l,e+1,a))end end else if c>=14 then if c~=15 then local d=e[d];local n=l[e[t]];l[d+1]=n;l[d]=n[e[f]];else do return end;end else local n=e[d]local t,e=_(l[n](h(l,n+1,e[t])))a=e+n-1 local e=0;for n=n,a do e=e+1;l[n]=t[e];end;end end end else if c>5 then if 9<=c then if 11<=c then if 12~=c then local n=e[d]local t,e=_(l[n](h(l,n+1,e[t])))a=e+n-1 local e=0;for n=n,a do e=e+1;l[n]=t[e];end;else local c,f,u,r;l(e[d],e[t]);n=n+1;e=o[n];l[e[d]]=(e[t]~=0);n=n+1;e=o[n];c=e[d]f,u=_(l[c](h(l,c+1,e[t])))a=u+c-1 r=0;for e=c,a do r=r+1;l[e]=f[r];end;n=n+1;e=o[n];c=e[d]l[c]=l[c](h(l,c+1,a))n=n+1;e=o[n];l[e[d]]();n=n+1;e=o[n];do return end;end else if c~=6 then repeat if c>9 then for c=0,6 do if c>2 then if c<5 then if 0<c then for a=13,62 do if 4>c then l[e[d]]=r[e[t]];n=n+1;e=o[n];break;end;l[e[d]][e[t]]=e[f];n=n+1;e=o[n];break;end;else l[e[d]]=r[e[t]];n=n+1;e=o[n];end else if c~=1 then for f=31,92 do if c~=6 then l[e[d]]=r[e[t]];n=n+1;e=o[n];break;end;l[e[d]]=r[e[t]];break;end;else l[e[d]]=r[e[t]];n=n+1;e=o[n];end end else if 0>=c then l[e[d]][e[t]]=e[f];n=n+1;e=o[n];else if 1==c then l[e[d]]=r[e[t]];n=n+1;e=o[n];else l[e[d]][e[t]]=e[f];n=n+1;e=o[n];end end end end break;end;r[e[t]]=l[e[d]];until true;else r[e[t]]=l[e[d]];end end else if 6>=c then l[e[d]][e[t]]=e[f];else if c~=8 then l[e[d]]=(e[t]~=0);else r[e[t]]=l[e[d]];end end end else if c<3 then if 0>=c then l[e[d]]();else if c~=1 then n=e[t];else if(l[e[d]]==e[f])then n=n+1;else n=e[t];end;end end else if 3>=c then if(l[e[d]]==e[f])then n=n+1;else n=e[t];end;else if c>=1 then for n=11,74 do if c~=5 then l[e[d]]=r[e[t]];break;end;l[e[d]][e[t]]=e[f];break;end;else l[e[d]]=r[e[t]];end end end end end n=1+n;end;end;return j end;local d=0xff;local a={};local o=(1);local t='';(function(n)local l=n local r=0x00 local e=0x00 l={(function(t)if r>0x1f then return t end r=r+1 e=(e+0xfac-t)%0xb return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x1c);end return true end)'DlIZX'and l[0x3](0xa0+t))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd1);end return true end)'CHlrE'and l[0x1](t+0x30d))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x93);end return true end)'iCxCa'and l[0x2](t+0xd4))or t end),(function(f)if r>0x25 then return f end r=r+1 e=(e+0x989-f)%0x4f return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6a);t={t..'\58 a',t};a[o]=m();o=o+((not c.HslsAori)and 1 or 0);t[1]='\58'..t[1];d[2]=0xff;end return true end)'iKwMx'and l[0x2](0x146+f))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb8);d[2]=(d[2]*(g(function()a()end,h(t))-g(d[1],h(t))))+1;a[o]={};d=d[2];o=o+d;end return true end)'SguBu'and l[0x3](f+0x19a))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x61);end return true end)'beESX'and l[0x1](f+0x3c4))or f end),(function(c)if r>0x2a then return c end r=r+1 e=(e+0xb71-c)%0x1e return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xcb);t='\37';d={function()d()end};t=t..'\100\43';end return true end)'YqyoO'and l[0x2](0x1a0+c))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa7);end return true end)'xegxQ'and l[0x1](c+0x275))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x9);a[o]=j();o=o+d;end return true end)'zjhWB'and l[0x3](c+0x3aa))or c end)}l[0x3](0xd07)end){};local e=ee(h(a));return e(...);end return y((function()local n={}local e=0x01;local l;if c.HslsAori then l=c.HslsAori(y)else l=''end if c.LYBImJHL(l,c.jjvhgcbT)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(n,e,l,t,d,c)local c;if n>3 then if n>=6 then if 7<=n then if 6<=n then repeat if 7<n then do return l(n,nil,l);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,l,d,t,n)if n then return e[n]elseif t then return e else e[l]=d end end})end until true;else do return setmetatable({},{['__\99\97\108\108']=function(e,l,d,t,n)if n then return e[n]elseif t then return e else e[l]=d end end})end end else do return d[l]end;end else if 0<=n then repeat if n<5 then local n=t;local r,o,d=d(2);do return function()local c,t,l,e=e(l,n(n,n),n(n,n)+3);n(4);return(e*r)+(l*o)+(t*d)+c;end;end;break;end;local n=t;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;until true;else local n=t;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;end end else if 2<=n then if 1<=n then for c=10,59 do if n<3 then do return 16777216,65536,256 end;break;end;do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;break;end;else do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;end else if n==1 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;else do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement