oskaretti1999

MM2

Dec 9th, 2024 (edited)
8
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.62 KB | Gaming | 0 0
  1. ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _QsCJbXHKXlPf = a; end)); return(function(u,...)local o;local d;local c;local r;local a;local t;local e=24915;local n=0;local l={};while n<877 do n=n+1;while n<0x2f2 and e%0x127a<0x93d do n=n+1 e=(e+937)%18320 local f=n+e if(e%0x2276)<0x113b then e=(e*0x117)%0x599e while n<0x140 and e%0x3a7a<0x1d3d do n=n+1 e=(e-238)%11085 local d=n+e if(e%0x210c)<=0x1086 then e=(e+0x142)%0xd2b local e=17164 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e*0x41)%0x4d05 local e=27498 if not l[e]then l[e]=0x1 end else e=(e*0x3c8)%0x5ac0 n=n+1 local e=32840 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end end end elseif e%2~=0 then e=(e-0x3a4)%0x51de while n<0x34b and e%0xfb0<0x7d8 do n=n+1 e=(e+330)%25780 local f=n+e if(e%0x2024)>=0x1012 then e=(e+0x64)%0x8840 local e=93560 if not l[e]then l[e]=0x1 c=tonumber;end elseif e%2~=0 then e=(e+0x2cf)%0xbc80 local e=77554 if not l[e]then l[e]=0x1 a="\4\8\116\111\110\117\109\98\101\114\106\110\66\67\67\76\71\74\0\6\115\116\114\105\110\103\4\99\104\97\114\73\115\100\83\65\107\114\72\0\6\115\116\114\105\110\103\3\115\117\98\114\76\67\89\73\72\66\79\0\6\115\116\114\105\110\103\4\98\121\116\101\79\76\108\104\74\73\84\65\0\5\116\97\98\108\101\6\99\111\110\99\97\116\88\73\114\69\85\100\95\118\0\5\116\97\98\108\101\6\105\110\115\101\114\116\85\67\95\97\79\107\100\98\5";end else e=(e*0x7e)%0x791a n=n+1 local e=85983 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=o.byte(n(0x01))local e=n(e)if l=="\2"then e=r.jnBCCLGJ(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then t[e]=function(n,e)return u(8,nil,u,e,n)end elseif l=="\4"then e=t[e]elseif l=="\0"then e=t[e][n(o.byte(n(0x01)))];end local n=n(0x08)r[n]=e end end end end end else e=(e+0x1fd)%0x4e2c n=n+1 while n<0x1fc and e%0xc6a<0x635 do n=n+1 e=(e*765)%6755 local t=n+e if(e%0x12a4)>=0x952 then e=(e-0x3f1)%0x9227 local e=6193 if not l[e]then l[e]=0x1 r={};end elseif e%2~=0 then e=(e+0x1d3)%0xa36 local e=24431 if not l[e]then l[e]=0x1 o=string;end else e=(e+0x1ef)%0x1e5e n=n+1 local e=92413 if not l[e]then l[e]=0x1 end end end end end e=(e-917)%47391 end d(a);local n={};for e=0x0,0xff do local l=r.IsdSAkrH(e);n[e]=l;n[l]=e;end local function s(e)return n[e];end local a=(function(f,o)local a,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=f while true do n[0x03][r.rLCYIHBO(o,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=#o while e<t+0x01 do n[0x02][l]=r.rLCYIHBO(o,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.UC_aOkdb(n[0x01],(s((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=f+d;end end return r.XIrEUd_v(n[0x01])end);d(a(220,"leVz1qQ>9Mopus!cVM"));d(a(86,"vG^mFpWPs5RCBqc-RRpRPGGBBFWpGFCP-cjsBmWpG^scWqc55-p5cCR5W5R8FCWY-qRppRUFRFp5-C5F^C-RRq^c5mFGpWl^Rmp^f^5B^W-2s5^Cc^5-FBssmsF--RR^Fm-^5pqqc-sqFRcm5^mBcR5^mRcPPCFRc^^Fq^cpsmFaqc^pmWqssmFyc^WBmPqC5^GFcsWUm5P<^^mmB-ss^CBqsWGqqRPGGBqXPm^FRssG&WqWP^GpBRfBC5C^WCGmBcPm^3sCPRGsRmFp-CBeFC3cpW;wGqCGWmGsRGF-GmR-Ws65s-ppREF5^C8mR5pccR5cp^-^RP-n5cCFp5NPC^pR-CRRFqcms5pG-RsG^PcGPBcEs-Rsm-cR5cFGsBRpFs-Fs-mCcq5cF5qFPqGCcss*GRsz^BFpcs5F^-qCsqG/BWsCmWC-spGRcB^ BCc9sB^qqBsBmpC5pR^pqCPp^^CBGWB^q5Pp^WB5PG^BBCp^^FBsWq3qB^W-C^WJPmGGBcWBCmCcWcGCBpP^GsR5pW^^CcW^K-BG--"));local e=(-7935+(function()local d,n=0,1;(function(l,n,t,e)l(e(t,e,e,e),e(t,n,n,n)and e(e and n,n,l and l,l),e(e,l,e,n),n(e,t,n,n))end)(function(t,e,o,l)if d>132 then return e end d=d+1 n=(n+460)%48575 if(n%1880)>=940 then n=(n-677)%22243 return t(e(e,l and t,e,e),o(o,o and l,t,l),e(l,t and t,e,l)and e(l,o and t,e,e and l),t(t,o,e and e,e))else return l end return o end,function(t,o,e,l)if d>463 then return o end d=d+1 n=(n*729)%17114 if(n%802)>=401 then return e(e(e,o,t,t and o),e(t,e,o,l)and l(l,t,o,l and l),l(e and l,e and e,t,l and t),e(l,e,e,t))else return e end return l end,function(l,e,o,t)if d>149 then return e end d=d+1 n=(n+285)%25788 if(n%1210)>605 then return e else return o(e(e,e,e,o)and t(l,t,t,o),e(e,e and t,e,t),o(o and l,e and o,t,e),e(e,l,l,l))end return l(t(e and t,e,t,e)and e(e,l,l,l),l(o,l and o,l,o),e(l,t,t,o),l(t,e,e,o))end,function(l,t,o,e)if d>434 then return o end d=d+1 n=(n+365)%41914 if(n%996)>=498 then n=(n+977)%28419 return e else return o(t(e,l,e,l),o(o,t,o,l),l(t and l,e,t,e),t(l,o,l,t))end return l(l(e and e,t,e and o,t),e(e,e,t,e)and l(e,e,e,e),e(e,o,l,l),o(l,t and t,l,o))end)return n;end)())local s=r.DPklKgRz or r.rsTSGjXH;local le=(getfenv)or(function()return _ENV end);local d=3;local ne=1;local t=2;local h=4;local function k(z,...)local a=a(e,"bVzm;Ux+iX*yPsLJym;PJzXi;VLUi*mIsx*LzUPPxLV;y*P+x+VXy+Jyym;;L*XN*X;VLLismVLi+Jz;yz+yVmyPx+VzyV;mJX*L;+LsXPs+i+zuPxxP+V?XsV;+J;yz;LL;is;vJ*i;;ZimzsPP+zViVUPXxPViPUxyqs;yJyX;m*L&JUXJmssXX7zXsLi;VJiLmzsX+LJ+*;;qLxiPXL;+sJiimsL;iizUs&xJyVUyJ**O;xm;Mx*P;LPyiJ;;+XmXPzxi1LVPPL+;VxyJzPP+xs;iLy*z;VLJiUm*s+i;zLsmm;VJPzUX)V*XVXJs*m#LiUmGPL+;V*VUsX+Vz;PxUJVV*JJm*JmPLzii+y;mLXiLVXsV+UV+yV+iVPyXx;#myUmTJ+XimLLUX;MsLxiPm/x+imy-UxJP%*yPxzf;*sV*yUUymxLVXVz+sXizV*i*xUV+yyzmJyy4;Jyy*XmsL>iPmXsJiVzJXVmXLViUzJs+++zzPXxiVVyPUynU*JUUJ+XP;xL+iXmzJ;XLz+qU*yVxszXxmPL*xmmiPxi*z*y+UyJ**AUAfP+*moJsiVWsL++iVXPx;*JzsxUXJLiUU+JLiPx+PXiyz+JL+JVXysxs5*LzizVP*yxLJPXXxRLV*;UULVXLzx*sXUzJLmVyLUx;<*y^**x;vyyyqLJ**m;PLy;P;XsXXVL;s*izzUs_x+!yPzUXJLxNUsJU*x;}XL+VmXsJi;:JP+xyPL**zs*%;xLPXzmiJzi;z*s#+xzLPzxinLyUU*ZG*xUL^BXimLL;XUm{sx+Pm;PJxLV;y*x;Fx*PUzVLyU;;L*XlmPsPimzisy+;VLs;xxGPyzULJL*U;*JZ*smPLziizJs;+*z>si+yVzyiUL{***UBJx*L;zLiiLm;L;iTzxPPi;moyLx; *yPUxJP*zU*JwX;m*LTiyzPsz+im)sxx*VKyxUs5z*i;LAx*V;HLxiPmUsi+Lz;sPimVxyPxz}J*LU;J*yzUyLPXmmiLqi;z*seXxVLPzxX^LyUU*Ai*xUL.zXi;VL;Xmm7sx+Pzzs xLVUy*xm&x*PUzJiy;;;L*XFmxsPi;ziPL+yV*PwxxIsyzUXJL*;ULJ%XxmPLmiizLs;");local n=0;r.bmeTAfoF(function()r.SWqcriEa()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,f=u(0,u,e,a,r.OLlhJITA);local function o()local l,n=r.OLlhJITA(a,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local m=true;local m=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==m)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 r.PqkxPzHw(n,e-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=r.rLCYIHBO(a,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+m),#l do e=e..r.rLCYIHBO(l,n,n)end return e;end;local m=#r.SOmlIEUF(c('\49.\48'))~=1 local e=n;local function j(...)return{...},r.iFnhcYdg('#',...)end local function _()local u={};local e={};local s={};local c={s,u,nil,e};local e=n()local a={}for t=1,e do local l=f();local n;if(l==2)then n=(f()~=#{});elseif(l==1)then local e=p();if m and r.hljhkUzh(r.SOmlIEUF(e),'.(\48+)$')then e=r.nUXzlfiq(e);end n=e;elseif(l==3)then n=b();end;a[t]=n;end;c[3]=f();for e=1,n()do u[e-(#{1})]=_();end;for c=1,n()do local e=f();if(l(e,1,1)==0)then local r=l(e,2,3);local f=l(e,4,6);local e={o(),o(),nil,nil};if(r==0)then e[d]=o();e[h]=o();elseif(r==#{1})then e[d]=n();elseif(r==z[2])then e[d]=n()-(2^16)elseif(r==z[3])then e[d]=n()-(2^16)e[h]=o();end;if(l(f,1,1)==1)then e[t]=a[e[t]]end if(l(f,2,2)==1)then e[d]=a[e[d]]end if(l(f,3,3)==1)then e[h]=a[e[h]]end s[c]=e;end end;return c;end;local function k(l,n,e)local t=n;local t=e;return c(r.hljhkUzh(r.hljhkUzh(({r.bmeTAfoF(l)})[2],n),e))end local function g(y,e,c)local function ee(...)local a,g,z,_,m,n,f,b,o,p,k,l;local e=0;while-1<e do if 2>=e then if 1>e then a=u(6,29,1,23,y);g=u(6,27,2,68,y);else if e<2 then z=u(6,39,3,82,y);m=j _=0;else n=-41;f=-1;end end else if 4<e then if e~=1 then for n=35,93 do if e~=6 then l=u(7);break;end;e=-2;break;end;else l=u(7);end else if e>1 then repeat if 4~=e then b={};o={...};break;end;p=r.iFnhcYdg('#',...)-1;k={};until true;else b={};o={...};end end end e=e+1;end;for e=0,p do if(e>=z)then b[e-z]=o[e+1];else l[e]=o[e+1];end;end;local e=p-z+1 local e;local o;local function r(...)while true do end end while true do if n<-40 then n=n+42 end e=a[n];o=e[ne];if o>=12 then if o<=17 then if o>=15 then if o<=15 then local r,o,c,a,f;local n=0;while n>-1 do if 3>n then if n>0 then if n>=-1 then for e=49,58 do if n>1 then c=d;break;end;o=t;break;end;else o=t;end else r=e;end else if n>=5 then if n~=2 then repeat if 5~=n then n=-2;break;end;l(f,a);until true;else n=-2;end else if 4>n then a=r[c];else f=r[o];end end end n=n+1 end else if 13<o then repeat if 17~=o then local o,c,h,r;l(e[t],e[d]);n=n+1;e=a[n];o=e[t]c,h=m(l[o](s(l,o+1,e[d])))f=h+o-1 r=0;for e=o,f do r=r+1;l[e]=c[r];end;n=n+1;e=a[n];o=e[t]l[o]=l[o](s(l,o+1,f))n=n+1;e=a[n];l[e[t]]();n=n+1;e=a[n];do return end;break;end;do return end;until true;else local o,h,c,r;l(e[t],e[d]);n=n+1;e=a[n];o=e[t]h,c=m(l[o](s(l,o+1,e[d])))f=c+o-1 r=0;for e=o,f do r=r+1;l[e]=h[r];end;n=n+1;e=a[n];o=e[t]l[o]=l[o](s(l,o+1,f))n=n+1;e=a[n];l[e[t]]();n=n+1;e=a[n];do return end;end end else if o<13 then l[e[t]]();else if 14~=o then if(l[e[t]]~=e[h])then n=n+1;else n=e[d];end;else l[e[t]]=c[e[d]];end end end else if o>=21 then if o>=23 then if o~=20 then repeat if 24~=o then do return end;break;end;local n=e[t]local t,e=m(l[n](s(l,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=t[e];end;until true;else local n=e[t]local t,e=m(l[n](s(l,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=t[e];end;end else if o>=19 then repeat if 21~=o then l[e[t]]=c[e[d]];break;end;l[e[t]]();until true;else l[e[t]]=c[e[d]];end end else if 18<o then if 15<o then for r=16,70 do if 19<o then n=e[d];break;end;local o,c,r,a,f;local n=0;while n>-1 do if n>2 then if 4>=n then if 0<=n then repeat if 3<n then f=o[c];break;end;a=o[r];until true;else a=o[r];end else if 2<=n then repeat if n<6 then l(f,a);break;end;n=-2;until true;else l(f,a);end end else if 1>n then o=e;else if n>-3 then for e=14,86 do if n~=1 then r=d;break;end;c=t;break;end;else r=d;end end end n=n+1 end break;end;else n=e[d];end else for o=0,3 do if 1<o then if o>0 then for r=26,77 do if 2~=o then if(l[e[t]]~=e[h])then n=n+1;else n=e[d];end;break;end;l[e[t]]=c[e[d]];n=n+1;e=a[n];break;end;else if(l[e[t]]~=e[h])then n=n+1;else n=e[d];end;end else if o==0 then l[e[t]]=(e[d]~=0);n=n+1;e=a[n];else c[e[d]]=l[e[t]];n=n+1;e=a[n];end end end end end end else if 6<=o then if o>8 then if o>=10 then if 10==o then local e=e[t]l[e]=l[e](s(l,e+1,f))else if(l[e[t]]~=e[h])then n=n+1;else n=e[d];end;end else local n=e[t];local t=l[e[d]];l[n+1]=t;l[n]=t[e[h]];end else if 7<=o then if 4~=o then repeat if o~=8 then c[e[d]]=l[e[t]];break;end;n=e[d];until true;else n=e[d];end else local n=e[t]local t,e=m(l[n](s(l,n+1,e[d])))f=e+n-1 local e=0;for n=n,f do e=e+1;l[n]=t[e];end;end end else if 2<o then if o>=4 then if o~=0 then repeat if o>4 then c[e[d]]=l[e[t]];break;end;l[e[t]]=(e[d]~=0);until true;else c[e[d]]=l[e[t]];end else local e=e[t]l[e]=l[e](s(l,e+1,f))end else if 0>=o then for o=0,6 do if o<=2 then if 0<o then if o>-1 then repeat if o<2 then l(e[t],e[d]);n=n+1;e=a[n];break;end;c[e[d]]=l[e[t]];n=n+1;e=a[n];until true;else l(e[t],e[d]);n=n+1;e=a[n];end else c[e[d]]=l[e[t]];n=n+1;e=a[n];end else if o>4 then if o==5 then l[e[t]]=c[e[d]];n=n+1;e=a[n];else l[e[t]]=c[e[d]];end else if o~=3 then c[e[d]]=l[e[t]];n=n+1;e=a[n];else l(e[t],e[d]);n=n+1;e=a[n];end end end end else if-3<o then repeat if 2>o then l[e[t]]=(e[d]~=0);break;end;local n=e[t];local t=l[e[d]];l[n+1]=t;l[n]=t[e[h]];until true;else local n=e[t];local t=l[e[d]];l[n+1]=t;l[n]=t[e[h]];end end end end end n=1+n;end;end;return ee end;local d=0xff;local c={};local o=(1);local t='';(function(n)local l=n local a=0x00 local e=0x00 l={(function(f)if a>0x31 then return f end a=a+1 e=(e+0x79c-f)%0x2a return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x44);t={t..'\58 a',t};c[o]=_();o=o+((not r.BwIUeMaw)and 1 or 0);t[1]='\58'..t[1];d[2]=0xff;end return true end)'qptsY'and l[0x2](0x1bd+f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa0);t='\37';d={function()d()end};t=t..'\100\43';end return true end)'HnWZJ'and l[0x1](f+0x2f6))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7a);c[o]=le();o=o+d;end return true end)'KijmW'and l[0x3](f+0x211))or f end),(function(r)if a>0x1f then return r end a=a+1 e=(e+0x9eb-r)%0x48 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x11);d[2]=(d[2]*(k(function()c()end,s(t))-k(d[1],s(t))))+1;c[o]={};d=d[2];o=o+d;end return true end)'fCcMD'and l[0x1](0x3be+r))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf5);end return true end)'tnIFZ'and l[0x3](r+0x369))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf0);end return true end)'mj_fW'and l[0x2](r+0x11a))or r end),(function(t)if a>0x20 then return t end a=a+1 e=(e+0xa23-t)%0x27 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x8);end return true end)'lwdaI'and l[0x1](0xbc+t))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xec);end return true end)'QVqll'and l[0x3](t+0x1d4))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x52);end return true end)'qdJD_'and l[0x2](t+0x143))or t end)}l[0x1](0x22e9)end){};local e=g(s(c));return e(...);end return k((function()local n={}local e=0x01;local l;if r.BwIUeMaw then l=r.BwIUeMaw(k)else l=''end if r.hljhkUzh(l,r.dDdSKXkn)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,d,o)local o;if 3<e then if e>5 then if 6>=e then do return d[l]end;else if e~=3 then for n=22,62 do if 7<e then do return l(e,nil,l);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,d,t,l,n)if n then return e[n]elseif l then return e else e[d]=t end end})end break;end;else 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 end end else if e>0 then for o=30,58 do if 5>e then local e=t;local a,d,t=d(2);do return function()local l,n,o,r=n(l,e(e,e),e(e,e)+3);e(4);return(r*a)+(o*d)+(n*t)+l;end;end;break;end;local e=t;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;break;end;else local e=t;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;end end else if 2>e then if-4<=e then for o=12,58 do 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,d,t,l,n),n(5,d,t,l)end;break;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 repeat if e>2 then do return n(1),n(4,d,t,l,n),n(5,d,t,l)end;break;end;do return 16777216,65536,256 end;until true;else do return 16777216,65536,256 end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment