Advertisement
Guest User

Untitled

a guest
Jul 13th, 2024
2,659
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.08 KB | None | 0 0
  1. ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _yDwZqMEQkZRv = a; end)); return(function(h,...)local r;local d;local o;local t;local a;local s;local e=24915;local n=0;local l={};while n<414 do n=n+1;while n<0x170 and e%0x2b44<0x15a2 do n=n+1 e=(e-947)%17037 local f=n+e if(e%0x3034)>=0x181a then e=(e+0x3e1)%0x9847 while n<0x384 and e%0x13dc<0x9ee do n=n+1 e=(e*724)%19335 local o=n+e if(e%0x1f5e)>0xfaf then e=(e*0x369)%0xbf42 local e=76197 if not l[e]then l[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\90\115\99\83\87\99\82\83\0\6\115\116\114\105\110\103\4\99\104\97\114\72\110\105\65\114\67\106\100\0\6\115\116\114\105\110\103\3\115\117\98\72\106\68\102\71\69\66\83\0\6\115\116\114\105\110\103\4\98\121\116\101\114\106\90\107\116\95\100\67\0\5\116\97\98\108\101\6\99\111\110\99\97\116\122\115\116\103\98\109\67\103\0\5\116\97\98\108\101\6\105\110\115\101\114\116\115\106\100\69\83\79\81\83\5";end elseif e%2~=0 then e=(e-0x86)%0xaed8 local e=51732 if not l[e]then l[e]=0x1 s=tonumber;end else e=(e*0x118)%0x15d0 n=n+1 local e=99971 if not l[e]then l[e]=0x1 d={};end end end elseif e%2~=0 then e=(e-0x1a0)%0x9c49 while n<0xd9 and e%0x1c72<0xe39 do n=n+1 e=(e-291)%9070 local t=n+e if(e%0xc26)<=0x613 then e=(e*0x35)%0xaae7 local e=97141 if not l[e]then l[e]=0x1 a=string;end elseif e%2~=0 then e=(e-0x2f3)%0xbc5b local e=19973 if not l[e]then l[e]=0x1 o=(not o)and _ENV or o;end else e=(e*0x1e0)%0x2c96 n=n+1 local e=83269 if not l[e]then l[e]=0x1 o=getfenv and getfenv();end end end else e=(e*0x3fd)%0x2881 n=n+1 while n<0xd7 and e%0x25c2<0x12e1 do n=n+1 e=(e-493)%39717 local r=n+e if(e%0xade)<0x56f then e=(e+0x2bb)%0x7295 local e=98061 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=a.byte(l(0x01))local e=l(e)if n=="\2"then e=d.ZscSWcRS(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then o[e]=function(n,e)return h(8,nil,h,e,n)end elseif n=="\4"then e=o[e]elseif n=="\0"then e=o[e][l(a.byte(l(0x01)))];end local n=l(0x08)d[n]=e end end end elseif e%2~=0 then e=(e*0x344)%0x1bba local e=39293 if not l[e]then l[e]=0x1 end else e=(e+0x2b7)%0x844f n=n+1 local e=24746 if not l[e]then l[e]=0x1 end end end end end e=(e*51)%15703 end t(r);local n={};for e=0x0,0xff do local l=d.HniArCjd(e);n[e]=l;n[l]=e;end local function u(e)return n[e];end local a=(function(f,a)local r,l=0x01,0x10 local n={{},{},{}}local o=-0x01 local e=0x01 local t=f while true do n[0x03][d.HjDfGEBS(a,e,(function()e=r+e return e-0x01 end)())]=(function()o=o+0x01 return o end)()if o==(0x0f)then o=""l=0x000 break end end local o=#a while e<o+0x01 do n[0x02][l]=d.HjDfGEBS(a,e,(function()e=r+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 d.sjdESOQS(n[0x01],(u((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=f+t;end end return d.zstgbmCg(n[0x01])end);t(a(245,"iSGV2prWA6Y{?=n_S>"));t(a(83,"Jm+e.wFx#S6;yAL<6AFUx6+#Aexx+Sy<mS+FL.#SeSL+F6+6ATx+eFy#xxL+SG6#.#<e6;w#pxSLe.LSSWFF<xS<}+;ey;x6mLAI#e_.A;w;e6L.S+N;ye+.Ax<mS<.6LL6Q.FSm6F.x=x6ewwmeSAe6<5S;.Nm<y<Q+;eySF6+6y;mw+SyLxyeyLm#+e+L+Se.Sy+xx.m#6e<we<+6Lw.<S;w.<K<6SwxDL;..+<};xFS+SAwxA+FF#m#m.AYx;eSLmSm<<;<6a.;Lex<+.Lm66LwS+;+.S<L;FF#j6;AFL_;;wwF+.wSawL6;Fx;m<6;we++A<xmy6x;S.eyLAS;.FL6Sy.+<m6Ae+<m6Fe#LSSA<>6+;Lw#NF;AFe;myAxe++yXF<+.y1#F+LLexy+;;AFeA+#mSA.e<+S_e<<.#A+<AA;memu+Se.m6+w_F#mx;;FA+byS.A1e6ewxeeAywLywx.#L+ALm#xe+<b#ew%yx#w+LAwSSw6Sm.+w#<S;Sw66.;+Fwmwy+x+<F6.w6mxA#w6<<6Am6"));local e=(-1278+(function()local t,l=0,1;(function(e,l,n)e(e(n,l,e),n(n,e,l and n),n(l,e,e and l))end)(function(e,n,o)if t>197 then return n end t=t+1 l=(l-447)%24314 if(l%1472)<=736 then return o(o(e,n,e),e(e,e,e),n(n,n,e)and e(e,n,e and o))else return o end return e end,function(o,n,e)if t>121 then return n end t=t+1 l=(l-51)%35160 if(l%1728)>864 then l=(l-704)%15060 return n else return e(n(o,e,e),o(e,e and n,n),e(e,n,o))end return o(n(e,e,o),n(n,o,e),n(n and e,n,e))end,function(e,o,n)if t>181 then return e end t=t+1 l=(l*186)%22256 if(l%1666)<=833 then return o else return o(e(o,n,o)and o(e,n,n),e(n,e,o),e(e,n,n))end return o(e(e,e,e),e(n and o,e,o),n(n and o,n,n))end)return l;end)())local p=(getfenv)or(function()return _ENV end);local c=d.WLMtGkOP or d.ZsnvbdIB;local g=1;local o=3;local t=2;local f=4;local function k(b,...)local r=a(e,"^x*W36uMB<5soazH*<WB63MhBHsWo3zOHou6<6s<aBa6=<WW3H6<Ms<63HuHB35,so*H6<M*<3sMaWzs<Ho6a3HqIoBMsa53HWH**6xaWx6<BH<55zzz<MoWoozBm3<l5zoMauH6xcWH36M*BH5Bo}ax.6KH*63auxB5WM65uoBB53*o3s6<MB5WoCa5zaGz*Waslax+*o3BsxzHhs*u*M66uHBM<Ma3zzXx**WM6H6)Ba53oFaal*Hx396oMu*W3W6BM3<yH3Wo6BMbuW<aoBMW5M5Bo3z&M3BM5us6aMHoxWW>Ho6<B*<3uooazs,H*z3x6HB6<H5<B3z*yx*s3BHWB6*B33u=z3Co*B3L6H3*6WuHo}zx+MxWWs65uB3z<HoMzxsH:aWB3a*H<W<asuaBHsxM*H6W*s3<uuB65Wo%a5HWx**B3uuBB*<5sBa*HAk<*M366ssza5oWzo*sWuWHuaua<za3zWx*AWW5u*6x<<5s<zzHHag5W3W5MouWs3os5sox*x*axs3BMQs*ss5xauHuH6W3MWu3uxs*z2H5aBxH*o3xuu5W<Woxo<a3Hz3x6MMs<s<*aWzoHzssaBHIpo*B5soxz<HasMaBzolB*3<6oHaa:uxz*a66u<*WuW6BM3<d,JWr3aMWWo<zsaaoHxoBWs3xuHWB53o*asHoD<*W6 6aMB6foWaxHB-Bao*6uWMH<5<so<zWsofzVMHW*M*B33utz3co*B3I6H3*6WuHoxaHtW**W66WM<<W<aBuzMyKia*s3<*H<m5osBMX5x5Bo3zbHoxaW367uoB<53o/ao_5*/WS3ouBB55PsoaBZu*a*o3Bu3BW<osBa3xu*M*B33umB*<Bs6aRHBKB*B636oMB<3suooz<!3*36{6BM3<:sWoBz6QIxo3u63M;Bo5<o3zQHo*53x61uoBB5BojaoHB*u3C3ouBB35ssoaBH3***H3Bu3Bk53sBa3H0xz3W33uYMo<<s3agzox5W*3D6oMB<asdoozBxu*6Wo6BM3<*5ooBz3x*WBWB63M+<x5Bo3zY9zx<W36xuo<*53o-aoxB*MW=3auBB659oWaBJu*x*o3su3Ba<osBa3H-*W*B36u{MH<Bs3aPzo*x*33k6oMB<3s*oozBxx*%Wo6BM6<J5aoBz38axoWB63MxBo5Bo3znHoxBW3");local n=0;d.nXAIClPK(function()d.yntxheYz()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,u=h(0,h,e,r,d.rjZkt_dC);local function a()local n,l=d.rjZkt_dC(r,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local z=true;local z=0 local function y()local e=n();local n=n();local t=1;local o=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(o==z)then return n*0;else e=1;t=0;end;elseif(e==2047)then return(o==0)and(n*(1/0))or(n*(0/0));end;return d.dgjnwCKh(n,e-1023)*(t+(o/(2^52)));end;local k=n;local function m(n)local l;if(not n)then n=k();if(n==0)then return'';end;end;l=d.HjDfGEBS(r,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+z),#l do e=e..d.HjDfGEBS(l,n,n)end return e;end;local z=#d.ixPbjOSZ(s('\49.\48'))~=1 local e=n;local function ne(...)return{...},d.ZzDUQKbv('#',...)end local function j()local h={};local c={};local e={};local s={h,c,nil,e};local e=n()local r={}for o=1,e do local l=u();local n;if(l==2)then n=(u()~=#{});elseif(l==1)then local e=y();if z and d.yVFOMEwz(d.ixPbjOSZ(e),'.(\48+)$')then e=d.IJScwLDE(e);end n=e;elseif(l==3)then n=m();end;r[o]=n;end;s[3]=u();for c=1,n()do local e=u();if(l(e,1,1)==0)then local d=l(e,2,3);local u=l(e,4,6);local e={a(),a(),nil,nil};if(d==0)then e[o]=a();e[f]=a();elseif(d==#{1})then e[o]=n();elseif(d==b[2])then e[o]=n()-(2^16)elseif(d==b[3])then e[o]=n()-(2^16)e[f]=a();end;if(l(u,1,1)==1)then e[t]=r[e[t]]end if(l(u,2,2)==1)then e[o]=r[e[o]]end if(l(u,3,3)==1)then e[f]=r[e[f]]end h[c]=e;end end;for e=1,n()do c[e-(#{1})]=j();end;return s;end;local function _(l,n,e)local o=n;local o=e;return s(d.yVFOMEwz(d.yVFOMEwz(({d.nXAIClPK(l)})[2],n),e))end local function ee(m,e,r)local function ee(...)local a,j,z,p,b,n,u,_,y,s,k,l;local e=0;while-1<e do if e>2 then if 4<e then if e>=3 then for n=48,82 do if 6>e then l=h(7);break;end;e=-2;break;end;else l=h(7);end else if e~=0 then repeat if 4~=e then _={};y={...};break;end;s=d.ZzDUQKbv('#',...)-1;k={};until true;else s=d.ZzDUQKbv('#',...)-1;k={};end end else if e>0 then if e>-3 then for l=31,71 do if 1~=e then n=-41;u=-1;break;end;z=h(6,96,3,95,m);b=ne p=0;break;end;else n=-41;u=-1;end else a=h(6,44,1,28,m);j=h(6,57,2,64,m);end end e=e+1;end;for e=0,s do if(e>=z)then _[e-z]=y[e+1];else l[e]=y[e+1];end;end;local e=s-z+1 local e;local d;local function h(...)while true do end end while true do if n<-40 then n=n+42 end e=a[n];d=e[g];if d>=12 then if 18<=d then if d<=20 then if 19>d then local n=e[t]local o,e=b(l[n](c(l,n+1,e[o])))u=e+n-1 local e=0;for n=n,u do e=e+1;l[n]=o[e];end;else if 18~=d then repeat if d~=19 then n=e[o];break;end;local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[f]];until true;else n=e[o];end end else if 23>d then if d<22 then local e=e[t]l[e]=l[e](c(l,e+1,u))else n=e[o];end else if 21<=d then for n=48,98 do if d>23 then local n=e[t]local o,e=b(l[n](c(l,n+1,e[o])))u=e+n-1 local e=0;for n=n,u do e=e+1;l[n]=o[e];end;break;end;l[e[t]]=(e[o]~=0);break;end;else l[e[t]]=(e[o]~=0);end end end else if d<=14 then if 12<d then if 13<d then do return end;else local d,f,r,a,u;local n=0;while n>-1 do if 2>=n then if 0<n then if 1~=n then r=o;else f=t;end else d=e;end else if 4>=n then if n>=-1 then for e=13,72 do if n>3 then u=d[f];break;end;a=d[r];break;end;else a=d[r];end else if n~=1 then repeat if n>5 then n=-2;break;end;l(u,a);until true;else n=-2;end end end n=n+1 end end else r[e[o]]=l[e[t]];end else if d<=15 then l[e[t]]();else if d>13 then for f=19,59 do if 17>d then for d=0,6 do if 3<=d then if 4<d then if d>5 then l[e[t]]=r[e[o]];else l[e[t]]=r[e[o]];n=n+1;e=a[n];end else if d>=0 then repeat if d>3 then r[e[o]]=l[e[t]];n=n+1;e=a[n];break;end;l(e[t],e[o]);n=n+1;e=a[n];until true;else l(e[t],e[o]);n=n+1;e=a[n];end end else if 0>=d then r[e[o]]=l[e[t]];n=n+1;e=a[n];else if 2~=d then l(e[t],e[o]);n=n+1;e=a[n];else r[e[o]]=l[e[t]];n=n+1;e=a[n];end end end end break;end;local d,f,h,r;l(e[t],e[o]);n=n+1;e=a[n];d=e[t]f,h=b(l[d](c(l,d+1,e[o])))u=h+d-1 r=0;for e=d,u do r=r+1;l[e]=f[r];end;n=n+1;e=a[n];d=e[t]l[d]=l[d](c(l,d+1,u))n=n+1;e=a[n];l[e[t]]();n=n+1;e=a[n];do return end;break;end;else for d=0,6 do if 3<=d then if 4<d then if d>5 then l[e[t]]=r[e[o]];else l[e[t]]=r[e[o]];n=n+1;e=a[n];end else if d>=0 then repeat if d>3 then r[e[o]]=l[e[t]];n=n+1;e=a[n];break;end;l(e[t],e[o]);n=n+1;e=a[n];until true;else l(e[t],e[o]);n=n+1;e=a[n];end end else if 0>=d then r[e[o]]=l[e[t]];n=n+1;e=a[n];else if 2~=d then l(e[t],e[o]);n=n+1;e=a[n];else r[e[o]]=l[e[t]];n=n+1;e=a[n];end end end end end end end end else if 5>=d then if d<3 then if d<=0 then local e=e[t]l[e]=l[e](c(l,e+1,u))else if d>=-2 then for a=13,71 do if d<2 then if(l[e[t]]==e[f])then n=n+1;else n=e[o];end;break;end;l[e[t]]=r[e[o]];break;end;else if(l[e[t]]==e[f])then n=n+1;else n=e[o];end;end end else if d<4 then l[e[t]]=r[e[o]];else if d==4 then l(e[t],e[o]);else for d=0,3 do if 1<d then if-1<=d then repeat if 2~=d then if(l[e[t]]==e[f])then n=n+1;else n=e[o];end;break;end;l[e[t]]=r[e[o]];n=n+1;e=a[n];until true;else if(l[e[t]]==e[f])then n=n+1;else n=e[o];end;end else if-1~=d then repeat if d>0 then r[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];until true;else r[e[o]]=l[e[t]];n=n+1;e=a[n];end end end end end end else if d>=9 then if d<=9 then l[e[t]]();else if 6<=d then for n=29,83 do if d<11 then local t=e[t];local n=l[e[o]];l[t+1]=n;l[t]=n[e[f]];break;end;do return end;break;end;else do return end;end end else if 6<d then if 5<=d then for n=36,65 do if 7<d then l[e[t]]=(e[o]~=0);break;end;r[e[o]]=l[e[t]];break;end;else r[e[o]]=l[e[t]];end else if(l[e[t]]==e[f])then n=n+1;else n=e[o];end;end end end end n=1+n;end;end;return ee end;local o=0xff;local u={};local a=(1);local t='';(function(n)local l=n local r=0x00 local e=0x00 l={(function(d)if r>0x31 then return d end r=r+1 e=(e+0x12a7-d)%0x3a return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7b);t='\37';o={function()o()end};t=t..'\100\43';end return true end)'Sftlw'and l[0x2](0x174+d))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x76);o[2]=(o[2]*(_(function()u()end,c(t))-_(o[1],c(t))))+1;u[a]={};o=o[2];a=a+o;end return true end)'xSdaX'and l[0x3](d+0x2ac))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x28);end return true end)'ZI_yM'and l[0x1](d+0xb7))or d end),(function(f)if r>0x1e then return f end r=r+1 e=(e+0x1063-f)%0x3d return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe5);end return true end)'hXQcF'and l[0x3](0x318+f))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x35);end return true end)'HUYJI'and l[0x2](f+0x87))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbb);t={t..'\58 a',t};u[a]=j();a=a+((not d.lGZSH_DF)and 1 or 0);t[1]='\58'..t[1];o[2]=0xff;end return true end)'sbyjZ'and l[0x1](f+0x12d))or f end),(function(t)if r>0x20 then return t end r=r+1 e=(e+0xf76-t)%0x30 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x2);end return true end)'zfzSw'and l[0x1](0x105+t))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xed);end return true end)'jwhAv'and l[0x3](t+0x34a))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xda);u[a]=p();a=a+o;end return true end)'VipcR'and l[0x2](t+0xac))or t end)}l[0x1](0x13d)end){};local e=ee(c(u));return e(...);end return k((function()local n={}local e=0x01;local l;if d.lGZSH_DF then l=d.lGZSH_DF(k)else l=''end if d.yVFOMEwz(l,d.HrEwtuAL)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,n,l,t,o,d)local d;if e<4 then if e>=2 then if e~=2 then do return n(1),n(4,o,t,l,n),n(5,o,t,l)end;else do return 16777216,65536,256 end;end else if e~=-4 then repeat if 0<e 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 n(1),n(4,o,t,l,n),n(5,o,t,l)end;until true;else 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;end end else if 6>e then if 1<=e then for d=45,95 do if e>4 then local e=t;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;break;end;local e=t;local o,d,t=o(2);do return function()local n,l,r,a=n(l,e(e,e),e(e,e)+3);e(4);return(a*o)+(r*d)+(l*t)+n;end;end;break;end;else local e=t;local r,d,a=o(2);do return function()local t,o,l,n=n(l,e(e,e),e(e,e)+3);e(4);return(n*r)+(l*d)+(o*a)+t;end;end;end else if 7>e then do return o[l]end;else if e>=3 then repeat if 7<e then do return l(e,nil,l);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,l,o,t,n)if n then return e[n]elseif t then return e else e[l]=o end end})end until true;else do return setmetatable({},{['__\99\97\108\108']=function(e,o,l,t,n)if n then return e[n]elseif t then return e else e[o]=l end end})end end end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement