Advertisement
Domadicoof-28363

Untitled

Dec 11th, 2023 (edited)
1,188,579
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.27 KB | None | 0 0
  1. ([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _tiaLdjmMFKOX = a; end)); return(function(h,...)local d;local l;local u;local f;local r;local o;local e=24915;local n=0;local t={};while n<119 do n=n+1;while n<0x143 and e%0x18e4<0xc72 do n=n+1 e=(e-463)%39346 local c=n+e if(e%0x3116)>0x188b then e=(e+0xd5)%0x1946 while n<0x2d9 and e%0x3e98<0x1f4c do n=n+1 e=(e+106)%38966 local d=n+e if(e%0x2ff8)>=0x17fc then e=(e*0x209)%0xa0f2 local e=28492 if not t[e]then t[e]=0x1 o=string;end elseif e%2~=0 then e=(e-0x28a)%0x4db3 local e=16584 if not t[e]then t[e]=0x1 f={};end else e=(e+0x226)%0x2615 n=n+1 local e=61000 if not t[e]then t[e]=0x1 l=getfenv and getfenv();end end end elseif e%2~=0 then e=(e*0x2e8)%0x497c while n<0x386 and e%0x3e1e<0x1f0f do n=n+1 e=(e*99)%43195 local d=n+e if(e%0x492c)>0x2496 then e=(e+0x35e)%0xa8a local e=27277 if not t[e]then t[e]=0x1 l=(not l)and _ENV or l;end elseif e%2~=0 then e=(e-0x3dd)%0x112 local e=88168 if not t[e]then t[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\75\119\67\75\70\101\112\73\0\6\115\116\114\105\110\103\4\99\104\97\114\105\65\68\105\105\102\87\122\0\6\115\116\114\105\110\103\3\115\117\98\76\80\89\115\67\82\83\103\0\6\115\116\114\105\110\103\4\98\121\116\101\121\114\72\73\105\65\88\68\0\5\116\97\98\108\101\6\99\111\110\99\97\116\113\108\95\120\101\81\67\113\0\5\116\97\98\108\101\6\105\110\115\101\114\116\111\113\66\117\76\90\88\89\5";end else e=(e*0x10b)%0xa43f n=n+1 local e=88870 if not t[e]then t[e]=0x1 u=tonumber;end end end else e=(e+0x1da)%0x825e n=n+1 while n<0x131 and e%0x1f30<0xf98 do n=n+1 e=(e+48)%33847 local r=n+e if(e%0x1320)>=0x990 then e=(e+0xcb)%0x7c4c local e=27449 if not t[e]then t[e]=0x1 end elseif e%2~=0 then e=(e+0x10b)%0x1504 local e=23609 if not t[e]then t[e]=0x1 end else e=(e+0x3ed)%0x53ec n=n+1 local e=91476 if not t[e]then t[e]=0x1 d=function(d)local e=0x01 local function t(n)e=e+n return d:sub(e-n,e-0x01)end while true do local n=t(0x01)if(n=="\5")then break end local e=o.byte(t(0x01))local e=t(e)if n=="\2"then e=f.KwCKFepI(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then l[e]=function(e,n)return h(8,nil,h,n,e)end elseif n=="\4"then e=l[e]elseif n=="\0"then e=l[e][t(o.byte(t(0x01)))];end local n=t(0x08)f[n]=e end end end end end end end e=(e-910)%42897 end d(r);local n={};for e=0x0,0xff do local t=f.iADiifWz(e);n[e]=t;n[t]=e;end local function a(e)return n[e];end local r=(function(c,o)local r,t=0x01,0x10 local n={{},{},{}}local l=-0x01 local e=0x01 local d=c while true do n[0x03][f.LPYsCRSg(o,e,(function()e=r+e return e-0x01 end)())]=(function()l=l+0x01 return l end)()if l==(0x0f)then l=""t=0x000 break end end local l=#o while e<l+0x01 do n[0x02][t]=f.LPYsCRSg(o,e,(function()e=r+e return e-0x01 end)())t=t+0x01 if t%0x02==0x00 then t=0x00 f.oqBuLZXY(n[0x01],(a((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=c+d;end end return f.ql_xeQCq(n[0x01])end);d(r(236,"aFo_{*suI-n3zO:9F-"));d(r(37,"WYm*^<xKfA8;ep_}p;;eI^_=;Af;x;*};K}mp_;Yf}x^^_}^}fpY;^f;<}px;m}fexA}f<xTmxymeAp^A_fK<<Yp8ffKep88Ke<e*pYJ_p8_8pfY*KY;.^Ke<p8<fY<8me+e_=<AAex;<Am*h*;;efK}<A*8}}_*ep^_mpKY^=m_}pK<;Kf8xx<^mK}}e*;eK1x*mAuxpmx_<YA*xD^8Y_}Yp;8*AY<A*<Y8__p<8^K^^K*_S<p;pA^gY_^f*m+;}Kep8;^K<Ymeip_*;mKKxL*Ae;8x}^;AAefm^pmK_x_}8BKf<f^Ke*Ap;B;}fe<;^mYYsKeT;Ym_vp<^m8.A_<;_AwKG^^mm#eemA8K8xp*mmYA9Kv;8fm<_^*YKA*pp;Yf_<8*KY82^exAxf*^}*pYKpAxx^*fpxY*_48_Ke8fAx^*<oerAeK8<8*Yx}m*fY<_KeK8fK7xm*K_}_*8_83^__;efYopp;}A*xe<fLfY^ee8*f7<K^^}}AKKx;8fAKK^x;_}8p;;AA^Km^}}f};e^8lK;^m*y;f"));local e=(-4598+(function()local d,t=0,1;(function(n,e,t)t(e(n,e,e),e(e,e,t and n),e(e,e,n))end)(function(e,l,n)if d>443 then return e end d=d+1 t=(t*154)%38613 if(t%1056)>=528 then t=(t-407)%10777 return n else return l(e(e,n,e),e(l,n,n),e(n and n,n,e))end return l(e(n,n,n)and l(n,l,e),n(e,e,l)and e(l,n,l),l(e and e,n,l))end,function(l,n,e)if d>269 then return n end d=d+1 t=(t+985)%2322 if(t%218)<=109 then t=(t*1020)%16586 return n(e(n,l,e)and l(e,e,l),l(l,n,e),e(l and e,n,e))else return n end return n end,function(l,n,e)if d>288 then return e end d=d+1 t=(t+763)%26313 if(t%872)>436 then return n(l(e,e and n,e),e(l,e,e)and e(e,n,n),n(l and n,e and n,n))else return e end return n end)return t;end)())local a=f.OOEAcFIl or f.zaVhYlkR;local j=(getfenv)or(function()return _ENV end);local d=3;local z=1;local o=4;local l=2;local function g(b,...)local s=r(e,"lf5_q1sRudbtHD^cfu55__qq1suDRRuuddc^5__11F!^s1RduDdRs_HtHs^dbR)uft5d_cqf1LR5Rquq1ftdtHDuDDbs^qfR5u_u5^1fso5^R1s_q5sts_Rqu1^_fs5R_R5D1;1csHRfb_t5tbD!DbcRDDEcft5H_^1u_Hu7dfbkqU1bsfR5u_v;fqfR5tqt1DsHRqubdq_cHfs>Rfu5ctfu5d_sqb555u_duDuDtqRHHsDdc1cbfufs_bqdqHsbsHudddtit5HH^_b^cqff5Zc_fd11sqsdRDd_d^ttHHDqb^Dqf9fc5q_uq^1dRsuRucsduqH4d^tsc_D_^qctOsq15D_sqdsIsdRDtHHctfHRDv^&c1Y1q15D_sqc1tddR^ucd^bHc_Ds^Rc1_5qR55quuqd_dubHH5HDbSt^HDcs_q_5NcssRtuu5s_bqR1usdHf^Hrdf5tcDt^8cfn51tdubdtsd^HD^DHt?^515t_f^*cD:ff55_d_tdtcHuHq^Drqfumdf_5d_^1uff55__qqsqssRRuuddtfttHHDD^cccfT5fqq1D1qs1RsuddubdtbDD^d^Dc^Qc5R_fq51_ubuRusdRbutcHbDH^Hc^Q^5___qf15s_Rbu1dRbRtHHHDb^tcHfqf^_rqI1fRqR_uqd1bRtRHuDdcHWqeHfD5^q51ysfR5d1ddb1tRHRDD^dcbOt_Hq1_^1hs0R5u5ddbqHRD_DR^tcd2^ft5H_Dq^sbRgu5d5bstqH1Ds^Rffwdfb5t_HqDs-scuKdbb5t_HqDs^scuGufd5^_tqH1DscRcdYbft5");local n=0;f.WXDtcqdQ(function()f.dcGuKHMa()n=n+1 end)local function e(e,t)if t then return n end;n=e+n;end local t,n,c=h(0,h,e,s,f.yrHIiAXD);local function r()local t,n=f.yrHIiAXD(s,e(1,3),e(5,6)+2);e(2);return(n*256)+t;end;local _=true;local _=0 local function p()local e=n();local n=n();local d=1;local l=(t(n,1,20)*(2^32))+e;local e=t(n,21,31);local n=((-1)^t(n,32));if(e==0)then if(l==_)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(l==0)and(n*(1/0))or(n*(0/0));end;return f.mVtMePRC(n,e-1023)*(d+(l/(2^52)));end;local k=n;local function m(n)local t;if(not n)then n=k();if(n==0)then return'';end;end;t=f.LPYsCRSg(s,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+_),#t do e=e..f.LPYsCRSg(t,n,n)end return e;end;local _=#f.jyTQVnXl(u('\49.\48'))~=1 local e=n;local function ee(...)return{...},f.IzWSUQcC('#',...)end local function y()local s={};local e={};local h={};local u={h,s,nil,e};local e=n()local a={}for l=1,e do local t=c();local n;if(t==3)then n=(c()~=#{});elseif(t==2)then local e=p();if _ and f.EwSRXBKZ(f.jyTQVnXl(e),'.(\48+)$')then e=f.tBjXYYEX(e);end n=e;elseif(t==1)then n=m();end;a[l]=n;end;for e=1,n()do s[e-(#{1})]=y();end;for u=1,n()do local e=c();if(t(e,1,1)==0)then local f=t(e,2,3);local c=t(e,4,6);local e={r(),r(),nil,nil};if(f==0)then e[d]=r();e[o]=r();elseif(f==#{1})then e[d]=n();elseif(f==b[2])then e[d]=n()-(2^16)elseif(f==b[3])then e[d]=n()-(2^16)e[o]=r();end;if(t(c,1,1)==1)then e[l]=a[e[l]]end if(t(c,2,2)==1)then e[d]=a[e[d]]end if(t(c,3,3)==1)then e[o]=a[e[o]]end h[u]=e;end end;u[3]=c();return u;end;local function k(t,e,n)local l=e;local l=n;return u(f.EwSRXBKZ(f.EwSRXBKZ(({f.WXDtcqdQ(t)})[2],e),n))end local function g(p,e,u)local function j(...)local c,j,_,g,s,n,r,k,m,b,y,t;local e=0;while-1<e do if e>2 then if 4>=e then if 2<=e then repeat if 4~=e then k={};m={...};break;end;b=f.IzWSUQcC('#',...)-1;y={};until true;else b=f.IzWSUQcC('#',...)-1;y={};end else if 4~=e then repeat if e~=6 then t=h(7);break;end;e=-2;until true;else e=-2;end end else if e<1 then c=h(6,55,1,18,p);j=h(6,42,2,51,p);else if e>=0 then repeat if 2~=e then _=h(6,60,3,79,p);s=ee g=0;break;end;n=-41;r=-1;until true;else n=-41;r=-1;end end end e=e+1;end;for e=0,b do if(e>=_)then k[e-_]=m[e+1];else t[e]=m[e+1];end;end;local e=b-_+1 local e;local f;local function h(...)while true do end end while true do if n<-40 then n=n+42 end e=c[n];f=e[z];if f>11 then if 17>=f then if f<=14 then if 13<=f then if f~=9 then for n=24,75 do if f~=14 then t[e[l]]();break;end;local e=e[l]t[e]=t[e](a(t,e+1,r))break;end;else t[e[l]]();end else local f,o,r,c,a;local n=0;while n>-1 do if n<=2 then if n<1 then f=e;else if n>=-3 then for e=18,94 do if n~=2 then o=l;break;end;r=d;break;end;else o=l;end end else if 4<n then if n~=1 then for e=37,54 do if n<6 then t(a,c);break;end;n=-2;break;end;else n=-2;end else if 1<n then for e=39,80 do if n~=4 then c=f[r];break;end;a=f[o];break;end;else c=f[r];end end end n=n+1 end end else if f<16 then local n=e[l]local l,e=s(t[n](a(t,n+1,e[d])))r=e+n-1 local e=0;for n=n,r do e=e+1;t[n]=l[e];end;else if f>12 then repeat if f~=17 then local n=e[l]local l,e=s(t[n](a(t,n+1,e[d])))r=e+n-1 local e=0;for n=n,r do e=e+1;t[n]=l[e];end;break;end;t[e[l]]=(e[d]~=0);until true;else local n=e[l]local l,e=s(t[n](a(t,n+1,e[d])))r=e+n-1 local e=0;for n=n,r do e=e+1;t[n]=l[e];end;end end end else if 21>f then if 19<=f then if f~=15 then repeat if 19<f then local f,a,o,r,c;local n=0;while n>-1 do if 2>=n then if n>0 then if-1<=n then repeat if 2>n then a=l;break;end;o=d;until true;else o=d;end else f=e;end else if n<=4 then if n~=3 then c=f[a];else r=f[o];end else if n>=3 then repeat if n~=6 then t(c,r);break;end;n=-2;until true;else t(c,r);end end end n=n+1 end break;end;t[e[l]]();until true;else t[e[l]]();end else do return end;end else if f<=21 then local l=e[l];local n=t[e[d]];t[l+1]=n;t[l]=n[e[o]];else if 23~=f then do return end;else if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;end end end end else if 5<f then if 9>f then if 7<=f then if f>=3 then repeat if 7~=f then t[e[l]]=u[e[d]];break;end;for f=0,3 do if 2>f then if 0<f then u[e[d]]=t[e[l]];n=n+1;e=c[n];else t[e[l]]=(e[d]~=0);n=n+1;e=c[n];end else if f>1 then repeat if f<3 then t[e[l]]=u[e[d]];n=n+1;e=c[n];break;end;if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;until true;else if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;end end end until true;else for f=0,3 do if 2>f then if 0<f then u[e[d]]=t[e[l]];n=n+1;e=c[n];else t[e[l]]=(e[d]~=0);n=n+1;e=c[n];end else if f>1 then repeat if f<3 then t[e[l]]=u[e[d]];n=n+1;e=c[n];break;end;if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;until true;else if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;end end end end else t[e[l]]=(e[d]~=0);end else if f>9 then if 6<f then repeat if f<11 then u[e[d]]=t[e[l]];break;end;if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;until true;else if(t[e[l]]==e[o])then n=n+1;else n=e[d];end;end else t[e[l]]=u[e[d]];end end else if f>=3 then if f<4 then n=e[d];else if 2<=f then repeat if 4<f then local f,_,b,p,h;t[e[l]]=u[e[d]];n=n+1;e=c[n];f=e[l];_=t[e[d]];t[f+1]=_;t[f]=_[e[o]];n=n+1;e=c[n];t(e[l],e[d]);n=n+1;e=c[n];f=e[l]b,p=s(t[f](a(t,f+1,e[d])))r=p+f-1 h=0;for e=f,r do h=h+1;t[e]=b[h];end;n=n+1;e=c[n];f=e[l]t[f]=t[f](a(t,f+1,r))n=n+1;e=c[n];t[e[l]]();n=n+1;e=c[n];do return end;break;end;local e=e[l]t[e]=t[e](a(t,e+1,r))until true;else local e=e[l]t[e]=t[e](a(t,e+1,r))end end else if 0>=f then n=e[d];else if-2~=f then repeat if f~=2 then u[e[d]]=t[e[l]];break;end;local n=e[l];local l=t[e[d]];t[n+1]=l;t[n]=l[e[o]];until true;else local n=e[l];local l=t[e[d]];t[n+1]=l;t[n]=l[e[o]];end end end end end n=1+n;end;end;return j end;local l=0xff;local u={};local r=(1);local d='';(function(n)local t=n local o=0x00 local e=0x00 t={(function(l)if o>0x2d then return l end o=o+1 e=(e+0x5f6-l)%0x16 return(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x63);end return true end)'ALLWP'and t[0x1](0x2f6+l))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xb3);end return true end)'pcmKm'and t[0x2](l+0x1d9))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x64);end return true end)'FKxsm'and t[0x3](l+0x141))or l end),(function(c)if o>0x23 then return c end o=o+1 e=(e+0x1336-c)%0x49 return(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xa4);end return true end)'YgPaH'and t[0x1](0x27b+c))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x95);d={d..'\58 a',d};u[r]=y();r=r+((not f.jyDmksoh)and 1 or 0);d[1]='\58'..d[1];l[2]=0xff;end return true end)'SgUHh'and t[0x3](c+0x316))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xdc);d='\37';l={function()l()end};d=d..'\100\43';end return true end)'XFk_O'and t[0x2](c+0x19f))or c end),(function(f)if o>0x21 then return f end o=o+1 e=(e+0x535-f)%0x40 return(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x20);end return true end)'KLAnM'and t[0x3](0x373+f))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x72);l[2]=(l[2]*(k(function()u()end,a(d))-k(l[1],a(d))))+1;u[r]={};l=l[2];r=r+l;end return true end)'IYtoZ'and t[0x2](f+0xa1))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xf3);u[r]=j();r=r+l;end return true end)'DyWkR'and t[0x1](f+0x1b6))or f end)}t[0x2](0xf23)end){};local e=g(a(u));return e(...);end return g((function()local n={}local e=0x01;local t;if f.jyDmksoh then t=f.jyDmksoh(g)else t=''end if f.EwSRXBKZ(t,f.lnTxqLUc)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,t,n,d,l,f)local f;if e<4 then if e>=2 then if 3==e then do return t(1),t(4,l,d,n,t),t(5,l,d,n)end;else do return 16777216,65536,256 end;end else if 1==e then do return function(n,e,t)if t then local e=(n/2^(e-1))%2^((t-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 t(1),t(4,l,d,n,t),t(5,l,d,n)end;end end else if 6>e then if e<5 then local e=d;local l,d,f=l(2);do return function()local n,o,r,t=t(n,e(e,e),e(e,e)+3);e(4);return(t*l)+(r*d)+(o*f)+n;end;end;else local e=d;do return function()local n=t(n,e(e,e),e(e,e));e(1);return n;end;end;end else if e>6 then if 4<=e then repeat if 7<e then do return n(e,nil,n);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 n(e,nil,n);end end else do return l[n]end;end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement