Advertisement
Domadicoof-28363

Untitled

May 29th, 2023 (edited)
13,299
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.04 KB | None | 0 0
  1. ([[This file was protected with MoonSec V3 by federal9999 on discord]]):gsub('.+', (function(a) _KguX_icXodrO = a; end)); return(function(h,...)local d;local o;local u;local f;local r;local t;local e=24915;local n=0;local l={};while n<218 do n=n+1;while n<0x1d0 and e%0x18b0<0xc58 do n=n+1 e=(e-1011)%12992 local a=n+e if(e%0x289e)<=0x144f then e=(e+0x1dd)%0xa209 while n<0xb4 and e%0x44c6<0x2263 do n=n+1 e=(e+605)%17729 local t=n+e if(e%0x43c4)>=0x21e2 then e=(e+0x3f2)%0x2fa0 local e=37787 if not l[e]then l[e]=0x1 o=getfenv and getfenv();end elseif e%2~=0 then e=(e+0xa1)%0x385e local e=36395 if not l[e]then l[e]=0x1 r=string;end else e=(e-0x14a)%0x48b0 n=n+1 local e=21592 if not l[e]then l[e]=0x1 end end end elseif e%2~=0 then e=(e*0x2d)%0x306e while n<0x211 and e%0x33e2<0x19f1 do n=n+1 e=(e-915)%28531 local a=n+e if(e%0x47e2)<=0x23f1 then e=(e-0x131)%0x64a1 local e=87159 if not l[e]then l[e]=0x1 f="\4\8\116\111\110\117\109\98\101\114\75\111\87\101\95\114\71\75\0\6\115\116\114\105\110\103\4\99\104\97\114\98\110\84\86\99\67\83\77\0\6\115\116\114\105\110\103\3\115\117\98\71\68\106\120\111\117\121\107\0\6\115\116\114\105\110\103\4\98\121\116\101\89\90\100\104\106\101\106\85\0\5\116\97\98\108\101\6\99\111\110\99\97\116\83\75\71\105\95\108\114\84\0\5\116\97\98\108\101\6\105\110\115\101\114\116\103\100\97\67\109\81\106\101\5";end elseif e%2~=0 then e=(e*0x3ca)%0x53d local e=96309 if not l[e]then l[e]=0x1 t=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=r.byte(n(0x01))local e=n(e)if l=="\2"then e=d.KoWe_rGK(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then o[e]=function(n,e)return h(8,nil,h,e,n)end elseif l=="\4"then e=o[e]elseif l=="\0"then e=o[e][n(r.byte(n(0x01)))];end local n=n(0x08)d[n]=e end end end else e=(e+0x42)%0x4e3d n=n+1 local e=95800 if not l[e]then l[e]=0x1 end end end else e=(e*0x2af)%0x8d1d n=n+1 while n<0x269 and e%0xd2e<0x697 do n=n+1 e=(e*489)%30665 local t=n+e if(e%0x283a)<=0x141d then e=(e-0xbf)%0x3a15 local e=73323 if not l[e]then l[e]=0x1 d={};end elseif e%2~=0 then e=(e*0x27b)%0x5cd5 local e=98306 if not l[e]then l[e]=0x1 u=tonumber;end else e=(e+0x9e)%0xa2f6 n=n+1 local e=3096 if not l[e]then l[e]=0x1 o=(not o)and _ENV or o;end end end end end e=(e*405)%33848 end t(f);local e={};for n=0x0,0xff do local l=d.bnTVcCSM(n);e[n]=l;e[l]=n;end local function c(n)return e[n];end local r=(function(f,r)local a,l=0x01,0x10 local n={{},{},{}}local o=-0x01 local e=0x01 local t=f while true do n[0x03][d.GDjxouyk(r,e,(function()e=a+e return e-0x01 end)())]=(function()o=o+0x01 return o end)()if o==(0x0f)then o=""l=0x000 break end end local o=#r while e<o+0x01 do n[0x02][l]=d.GDjxouyk(r,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 d.gdaCmQje(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=f+t;end end return d.SKGi_lrT(n[0x01])end);t(r(191,"O+fSuL2#X(}WYK9_u2"));t(r(253,"}HV;!_NDA=/bXgx2r;QXDXA5AHDbA;D2H2AV=N=H=DDj=;==/gb6A2/gA_!N!/bA/x/2bgXPX!X==xX_XVb=x9XOD*DDx_x/x!xX2_g;xFgNx_g_jN22gx=X/_H_H=H/H!HXHAb=V!Hb;HV;Vb;_;HHD!N;x;b;/!Ngxx__H!A_x__2__2_/_xD!N2DV_AD2D!DbD;DN_bHxV==;AA=/=N=H/;=;/====g///NbA=;=DXH=DX!/bXbNGNNbAX/Xbg2ggx;/Dgx2VxAg=gZgNxV2_=;=NKX2=k!HVxVxN2=HgHb2bE/9Abbbg2AH/;XHIVHHV;XVbV%gxx__!_V_=_g_x_ANI_X!VNA!2N2_cDHD;_/HOHAA/D/DxAbADVb=g===x=V=D/VD2/g/b/Xb/bx=;XN_N_bXgX=XxXVXDgVx!g;gxxVXbbXxDx/ANA/2A2g2D22qA2/<23A2VH/{/dXmLb;bAVAHgVDV;V!;A;XH!VHHV!_VHV/V!g2xN_V!=_2_N2N_/N;N=NXDVN=!D!XDBANAA_DNxVl"));local e=(-8360+(function()local l,n=0,1;(function(e)e(e(e))end)(function(e)if l>216 then return e end l=l+1 n=(n*187)%14806 if(n%1748)<874 then n=(n-729)%16382 return e(e(e))else return e end return e end)return n;end)())local c=d.zfnoUCkk or d.EpkituGw;local p=(getfenv)or(function()return _ENV end);local ee=1;local a=4;local t=3;local o=2;local function j(b,...)local s=r(e,"zY*Kw0sUXot1>dxyxs1xodU>01wwYoyXdU**Twd01Ut0X0s*KXY>yws>wy*tCoxX*xkUy*>owKK1bYxf1yx1x>>1tosd0xK1Ysxoxo>so>X40XwKyUyUdY1momUX*tK>Y1yXs01d*K5*xY*XYKy*>dty00*o_X*tyXxdXKo1U>ssKo*0yYxK>,oYUdwdKXYsy1>11KoXKYw0K-Zdtxt*t>Xo0>Kx**y1xs>0o1wKKUwYYxyYdK1Uo{U10tKIdX1>o1tUX1K1YK*Udo1Xo*t*UxKKKyYxytdxX1sywo0XKXYU>stU1woYKx0Y*xd11y>tUxX1KUYoyKHK1oXyXKXdstKdYy)Kd>Udsowss1TodX>wtYoxoxUo0*w0doyxxY1>*UwUx0>wtKds>otoo*YxwK*0}UdyUotyUXsoy0*wG0xY>0o0U*s*K*YTt1xY1*o>sy.sY*YKy*drowX0s*yxYK>yo11>1*KX0dK1Yoyox01Kodwo*XEUxst>dt1Xwos>0uKo5XyKd0ts*YHUdy1xod>w>ytxXoKyK>*to0XY0KK*YYwyYtY0J*>wttoKs>wBKs.tyU1K0***<YxM1ytwUd0>K1Y1yodX1UtXXd0wKKY*ywd^tyXxUy0K*1Itxo>ytUXss0stKs)*xY>(t0Ux0xK>*;ytdd>YoUUs00KtYKyKdY1woXsxwd*>Y*xt>ttXXUssw0*wVKxK>YtcUyUawwY>y1dt1toXUU0swUYoyKdK1Yo*sywx*d*>yU>tttXXsXws*1Qwy0>wtYXK0yw*Ydy>d11toyUX0XKsYXywdK1*oYU0wy*xldx>>1t>XosXsw*s#0xw>wt*X*s KyKwydd>11o1Uo0XKUYsy0dw1Ko*");local n=0;d.moAe_SwT(function()d.ABRsnKWR()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,f=h(0,h,e,s,d.YZdhjejU);local function r()local l,n=d.YZdhjejU(s,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local y=true;local y=0 local function _()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==y)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.pSwimbbD(n,e-1023)*(t+(o/(2^52)));end;local g=n;local function k(n)local l;if(not n)then n=g();if(n==0)then return'';end;end;l=d.GDjxouyk(s,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+y),#l do e=e..d.GDjxouyk(l,n,n)end return e;end;local y=#d.JmQnLjiM(u('\49.\48'))~=1 local e=n;local function m(...)return{...},d.uJTBrKQH('#',...)end local function j()local s={};local h={};local e={};local u={s,h,nil,e};local e=n()local c={}for o=1,e do local l=f();local e;if(l==3)then e=(f()~=#{});elseif(l==2)then local n=_();if y and d.ohKwlfbk(d.JmQnLjiM(n),'.(\48+)$')then n=d.fACdwvBV(n);end e=n;elseif(l==0)then e=k();end;c[o]=e;end;for u=1,n()do local e=f();if(l(e,1,1)==0)then local d=l(e,2,3);local f=l(e,4,6);local e={r(),r(),nil,nil};if(d==0)then e[t]=r();e[a]=r();elseif(d==#{1})then e[t]=n();elseif(d==b[2])then e[t]=n()-(2^16)elseif(d==b[3])then e[t]=n()-(2^16)e[a]=r();end;if(l(f,1,1)==1)then e[o]=c[e[o]]end if(l(f,2,2)==1)then e[t]=c[e[t]]end if(l(f,3,3)==1)then e[a]=c[e[a]]end s[u]=e;end end;u[3]=f();for e=1,n()do h[e-(#{1})]=j();end;return u;end;local function z(l,n,e)local o=n;local o=e;return u(d.ohKwlfbk(d.ohKwlfbk(({d.moAe_SwT(l)})[2],n),e))end local function ne(y,e,u)local function p(...)local r,z,s,j,b,l,f,k,_,g,p,n;local e=0;while-1<e do if e>2 then if e<5 then if 0<e then repeat if e>3 then g=d.uJTBrKQH('#',...)-1;p={};break;end;k={};_={...};until true;else k={};_={...};end else if e~=6 then n=h(7);else e=-2;end end else if 1<=e then if e>=-2 then for n=12,83 do if e~=1 then l=-41;f=-1;break;end;s=h(6,3,3,37,y);b=m j=0;break;end;else s=h(6,3,3,37,y);b=m j=0;end else r=h(6,82,1,16,y);z=h(6,44,2,95,y);end end e=e+1;end;for e=0,g do if(e>=s)then k[e-s]=_[e+1];else n[e]=_[e+1];end;end;local e=g-s+1 local e;local d;local function h(...)while true do end end while true do if l<-40 then l=l+42 end e=r[l];d=e[ee];if d>11 then if d>=18 then if 20<d then if d>21 then if d==22 then n(e[o],e[t]);else local l=e[o];local o=n[e[t]];n[l+1]=o;n[l]=o[e[a]];end else local o=e[o];local l=n[e[t]];n[o+1]=l;n[o]=l[e[a]];end else if 18<d then if d>=17 then for l=12,86 do if 19~=d then u[e[t]]=n[e[o]];break;end;do return end;break;end;else u[e[t]]=n[e[o]];end else n(e[o],e[t]);end end else if 14<d then if d<16 then n[e[o]]=(e[t]~=0);else if 14<=d then for l=44,69 do if d~=16 then local e=e[o]n[e]=n[e](c(n,e+1,f))break;end;u[e[t]]=n[e[o]];break;end;else local e=e[o]n[e]=n[e](c(n,e+1,f))end end else if 12<d then if 14==d then l=e[t];else n[e[o]]=(e[t]~=0);end else n[e[o]]();end end end else if d>5 then if 8>=d then if d>=7 then if d>5 then repeat if 8~=d then n[e[o]]=u[e[t]];break;end;if(n[e[o]]==e[a])then l=l+1;else l=e[t];end;until true;else n[e[o]]=u[e[t]];end else for d=0,3 do if d>1 then if-2<=d then for f=20,56 do if 2<d then if(n[e[o]]==e[a])then l=l+1;else l=e[t];end;break;end;n[e[o]]=u[e[t]];l=l+1;e=r[l];break;end;else n[e[o]]=u[e[t]];l=l+1;e=r[l];end else if 1~=d then n[e[o]]=(e[t]~=0);l=l+1;e=r[l];else u[e[t]]=n[e[o]];l=l+1;e=r[l];end end end end else if d>9 then if d<11 then local l=e[o]local o,e=b(n[l](c(n,l+1,e[t])))f=e+l-1 local e=0;for l=l,f do e=e+1;n[l]=o[e];end;else n[e[o]]();end else l=e[t];end end else if d<=2 then if 0>=d then do return end;else if-3<d then repeat if d<2 then n[e[o]]=u[e[t]];break;end;local e=e[o]n[e]=n[e](c(n,e+1,f))until true;else local e=e[o]n[e]=n[e](c(n,e+1,f))end end else if d<4 then local l=e[o]local o,e=b(n[l](c(n,l+1,e[t])))f=e+l-1 local e=0;for l=l,f do e=e+1;n[l]=o[e];end;else if d~=3 then for h=25,78 do if 4~=d then local d,s,_,y,h;n[e[o]]=u[e[t]];l=l+1;e=r[l];d=e[o];s=n[e[t]];n[d+1]=s;n[d]=s[e[a]];l=l+1;e=r[l];n(e[o],e[t]);l=l+1;e=r[l];d=e[o]_,y=b(n[d](c(n,d+1,e[t])))f=y+d-1 h=0;for e=d,f do h=h+1;n[e]=_[h];end;l=l+1;e=r[l];d=e[o]n[d]=n[d](c(n,d+1,f))l=l+1;e=r[l];n[e[o]]();l=l+1;e=r[l];do return end;break;end;if(n[e[o]]==e[a])then l=l+1;else l=e[t];end;break;end;else if(n[e[o]]==e[a])then l=l+1;else l=e[t];end;end end end end end l=1+l;end;end;return p end;local t=0xff;local u={};local r=(1);local o='';(function(n)local l=n local f=0x00 local e=0x00 l={(function(o)if f>0x30 then return o end f=f+1 e=(e+0xa58-o)%0x2d return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x5a);end return true end)'LhFtx'and l[0x2](0x322+o))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd0);u[r]=p();r=r+t;end return true end)'taTMH'and l[0x3](o+0x1be))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x1c);end return true end)'ovKdZ'and l[0x1](o+0x3ac))or o end),(function(a)if f>0x1e then return a end f=f+1 e=(e+0x10ff-a)%0x43 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x95);o={o..'\58 a',o};u[r]=j();r=r+((not d.FfizzVqF)and 1 or 0);o[1]='\58'..o[1];t[2]=0xff;end return true end)'TECHk'and l[0x2](0x122+a))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x17);t[2]=(t[2]*(z(function()u()end,c(o))-z(t[1],c(o))))+1;u[r]={};t=t[2];r=r+t;end return true end)'nlXur'and l[0x1](a+0x2d8))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3);end return true end)'qIYpj'and l[0x3](a+0x132))or a end),(function(d)if f>0x21 then return d end f=f+1 e=(e+0xef2-d)%0x1b return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x19);end return true end)'ET_ik'and l[0x1](0xed+d))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x95);o='\37';t={function()t()end};o=o..'\100\43';end return true end)'KCewJ'and l[0x2](d+0x104))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc2);end return true end)'uIvFJ'and l[0x3](d+0x3d8))or d end)}l[0x3](0x25d5)end){};local e=ne(c(u));return e(...);end return j((function()local n={}local e=0x01;local l;if d.FfizzVqF then l=d.FfizzVqF(j)else l=''end if d.ohKwlfbk(l,d.OYLXEsiE)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,o,t,d)local d;if e<=3 then if 1<e then if e>1 then for d=18,90 do if 2~=e then do return n(1),n(4,t,o,l,n),n(5,t,o,l)end;break;end;do return 16777216,65536,256 end;break;end;else do return 16777216,65536,256 end;end else if 1==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;else do return n(1),n(4,t,o,l,n),n(5,t,o,l)end;end end else if 6>e then if e>=1 then repeat if 5~=e then local e=o;local o,d,f=t(2);do return function()local r,l,t,n=n(l,e(e,e),e(e,e)+3);e(4);return(n*o)+(t*d)+(l*f)+r;end;end;break;end;local e=o;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;until true;else local e=o;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;end else if e<=6 then do return t[l]end;else if 4<e then for n=15,56 do 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 break;end;else 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 end end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement