From dupe, 8 Months ago, written in Plain Text.
- view diff
Embed
  1. ([[This file was protected with MoonSec V3 by federal9999 on discord]]):gsub('.+', (function(a) _MhxdSlGzPLyE = a; end)); return(function(h,...)local l;local b;local a;local d;local o;local r;local e=24915;local n=0;local t={};while n<822 do n=n+1;while n<0x2e5 and e%0x1212<0x909 do n=n+1 e=(e-420)%7720 local f=n+e if(e%0x113c)<0x89e then e=(e*0xb)%0x8422 while n<0x318 and e%0x1c5e<0xe2f do n=n+1 e=(e*402)%11613 local r=n+e if(e%0x3638)<=0x1b1c then e=(e*0x168)%0x8a6a local e=71787 if not t[e]then t[e]=0x1 d={};end elseif e%2~=0 then e=(e*0x379)%0x8885 local e=19162 if not t[e]then t[e]=0x1 o=function(t)local e=0x01 local function n(n)e=e+n return t:sub(e-n,e-0x01)end while true do local t=n(0x01)if(t=="\5")then break end local e=a.byte(n(0x01))local e=n(e)if t=="\2"then e=d.tioDptCd(e)elseif t=="\3"then e=e~="\0"elseif t=="\6"then l[e]=function(e,n)return h(8,nil,h,n,e)end elseif t=="\4"then e=l[e]elseif t=="\0"then e=l[e][n(a.byte(n(0x01)))];end local n=n(0x08)d[n]=e end end end else e=(e-0x103)%0xa2c0 n=n+1 local e=86353 if not t[e]then t[e]=0x1 a=string;end end end elseif e%2~=0 then e=(e+0x1be)%0xba7 while n<0x309 and e%0x936<0x49b do n=n+1 e=(e-429)%17646 local l=n+e if(e%0x1574)>0xaba then e=(e-0x376)%0x6879 local e=73573 if not t[e]then t[e]=0x1 end elseif e%2~=0 then e=(e*0xc)%0x59b6 local e=87716 if not t[e]then t[e]=0x1 b=tonumber;end else e=(e*0x117)%0x2bfc n=n+1 local e=84448 if not t[e]then t[e]=0x1 end end end else e=(e+0x27e)%0x35e8 n=n+1 while n<0x1c7 and e%0x2606<0x1303 do n=n+1 e=(e-295)%28556 local o=n+e if(e%0x4368)>=0x21b4 then e=(e-0x1c3)%0x7c0c local e=99312 if not t[e]then t[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\116\105\111\68\112\116\67\100\0\6\115\116\114\105\110\103\4\99\104\97\114\119\89\79\118\120\66\99\73\0\6\115\116\114\105\110\103\3\115\117\98\105\79\75\76\70\105\112\122\0\6\115\116\114\105\110\103\4\98\121\116\101\83\122\66\68\116\81\84\73\0\5\116\97\98\108\101\6\99\111\110\99\97\116\107\106\107\102\71\106\98\74\0\5\116\97\98\108\101\6\105\110\115\101\114\116\107\105\99\113\71\109\72\121\5";end elseif e%2~=0 then e=(e-0x24e)%0x6ec3 local e=72034 if not t[e]then t[e]=0x1 l=getfenv and getfenv();end else e=(e*0x328)%0xbfa7 n=n+1 local e=53531 if not t[e]then t[e]=0x1 l=(not l)and _ENV or l;end end end end end e=(e+556)%31847 end o(r);local e={};for n=0x0,0xff do local t=d.wYOvxBcI(n);e[n]=t;e[t]=n;end local function c(n)return e[n];end local a=(function(f,a)local r,t=0x01,0x10 local n={{},{},{}}local l=-0x01 local e=0x01 local o=f while true do n[0x03][d.iOKLFipz(a,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=#a while e<l+0x01 do n[0x02][t]=d.iOKLFipz(a,e,(function()e=r+e return e-0x01 end)())t=t+0x01 if t%0x02==0x00 then t=0x00 d.kicqGmHy(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=f+o;end end return d.kjkfGjbJ(n[0x01])end);o(a(80,"54U%Fz?lfmkvur2*vz"));o(a(59,"G%I/86zARoJu&kTS&6or&IRR8u:Ak%RSS%%zT&JoA%dRkkJ%zuIJT8J6zJSIuRTRJ z///SRo&R%%k*A&Jok8o%SAJ8/A//JSz&*Ru68S6kAR_6oSR&oR&j8&S3%&ARJ8z%7&T/%6T%ATSJ/zkI&)/&IA/8%T6uZR%SIuuToJIAJ//o6&%AT88%&koJazuS&kARJ6%%Rkk6JIA6/VJkTo&6oIkkSuAzoISSTu&oWI&!!kRJ686_ITo8R%{I8SRuuo%6%%ooSAozz%&k%Rk6T/6TT6kII6JLokzJz8S%Tk6JH8S/6S&k/I%T6TIu%oJ8Ah/kRo%A&/JoJz/o868%kT/JzzII&TJoRAzII}TJTAu/Ji%A3/JzTI9Tzu6A/ko-k&uoI8RxSk&JSz&IJ&oJTR68kSRzIIo6k%uTIoR6SI&Su&/R%8/S8&JA%/SuIARJRzSIuS6&PzI8RrJ&SRo66E%TJ/k_8/zTkuoAA/J%PJ6oJITOA&6JuAI/TRo6IR)/o%%&JI&6I%kT6JJAIISZ/&/6o/STzkAJ!SI"));local e=(-436+(function()local l,n=0,1;(function(n,e)e(e(e,e and e),n(n,e and n))end)(function(e,t)if l>238 then return t end l=l+1 n=(n*365)%8036 if(n%1474)<737 then n=(n*226)%15664 return t else return e(e(e,e),t(t,e))end return t(t(e,e),t(t and e,e))end,function(t,e)if l>331 then return e end l=l+1 n=(n+78)%9209 if(n%1862)>=931 then return t(e(t,e),t(t,e))else return t end return e end)return n;end)())local c=d.uxqnZkMV or d.yqjDdvy_;local ee=(getfenv)or(function()return _ENV end);local l=2;local u=4;local ne=1;local o=3;local function m(p,...)local r=a(e,"}B!bAp:CaH5n?tgQ!pb!An:ACtHg5Q?agBAQa:HBnC5?taQtGg?!gAQAWt!:HA?nt:Q?QBBtA!pbbH!fAWp!:naAQABnbBp6CvaHHgA?CBCgHCn-B?A5:Aa:H?aa?#gXmNBHQnBpQpBn!CA/pHtBta=?bpb5A!CA:anA5bnaQggbnCtCgHE!BnC??Bt5gQtQB:bggbCpBp!gAC?agtM:BnbCBC!pbga?55?tt:QnBC!!{ppbCaaQ:5npttgQ?g!Qb:A?:nan5AnHt55Q?5gbQtBA!gAt:!C?HAnl??g+QnBB!gALpgCaan5bn5ggb!A:btp5C:5p?5?dQ?QbZa!/A?AaA5a:H?t??:t?_?BBpHC:CBC:5tn:?A?AB:zabB::CbCBCH5Qtnng!B!5AtAnCBCg5?5ngfQNdCJaF5:BC5:BagHHtpt5?tQQBHpACp:/bBpA:bC?HpB5b:ABptapHQn:?:gAQ:5at5t5Qbk?C!5t?:tgt?cCBgbbAeC5HB5BnQtBQ:gABgb!An:paCCbnQtagQH:Q!?agBQ5Cn5*nH?gg5?5taQBAtppaApA5:?BgpQ!BaBgA5:B:?H!H??BtHQaw!!AAbB::AaH5UCn55gpD:!!b!AtCIaCagCp5?tHQ5B:b:pTp5:QHb5p?n5BQa8p!:AABg:taQ5Bn?t5g5HgnntOgHX!a!Hpn5?nCQtHnB?5gbpLCtHCn5a-tQQnBC!HQt:tCUHn:B?5gpQnBH!bb5:A:ga:pn?nt:Q5-CtaBgpHC!a5aanb?55dgQgpgnA:C:b:Hp5t?ptQ<p,tbBBCb=AH:!:!?5g!5t;5!aAnpACHHp5+pp:gaC5hnHgCgn+ABtb:pC:aaBH5nA??gpQg!HACAH:!CnHt5t?:tQk5BH!5Abp?C5ag5C?(QQJ!,n!Abtp?:QaH5B?:tbQ9v:BgbCp4:Qa!H?nAtBgCQQBabBpB:bCtHp5g?ngjQHB!!?AAptC:5Bnb?Bt5QbBf!pbgpCa!HC5!nntAgg*:BQba:bCpabH?nptpgCqdBHAApg:ACtH:n!?agBQ5!pbDAppgCCHA5H?!tn,:!H!:bQpaCba55bn?gChBuC!jbHp5:naAHt?at:ga+!B5bgA?:pCgnC?B?HgbQnBp!tA?pQa5H555?:t?QQhg!CARpHapan5pnttHgQ(a!Bb5:;:?apHgnCtlgn;!BnpBAt::CQHHnB?ngbQ?BQ!gAC:_C5H!5n?A");local n=0;d.KkBgesZk(function()d.XbTZDegy()n=n+1 end)local function e(t,e)if e then return n end;n=t+n;end local t,n,f=h(0,h,e,r,d.SzBDtQTI);local function a()local t,n=d.SzBDtQTI(r,e(1,3),e(5,6)+2);e(2);return(n*256)+t;end;local g=true;local g=0 local function k()local l=n();local e=n();local o=1;local l=(t(e,1,20)*(2^32))+l;local n=t(e,21,31);local e=((-1)^t(e,32));if(n==0)then if(l==g)then return e*0;else n=1;o=0;end;elseif(n==2047)then return(l==0)and(e*(1/0))or(e*(0/0));end;return d.rxDZHJLL(e,n-1023)*(o+(l/(2^52)));end;local z=n;local function s(n)local t;if(not n)then n=z();if(n==0)then return'';end;end;t=d.iOKLFipz(r,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+g),#t do e=e..d.iOKLFipz(t,n,n)end return e;end;local g=#d.PiPwRZTV(b('\49.\48'))~=1 local e=n;local function j(...)return{...},d.DtCWPqsz('#',...)end local function _()local b={};local e={};local c={};local h={c,b,nil,e};local e=n()local r={}for l=1,e do local t=f();local e;if(t==1)then e=(f()~=#{});elseif(t==3)then local n=k();if g and d.btnZcBHT(d.PiPwRZTV(n),'.(\48+)$')then n=d.jytEfHtx(n);end e=n;elseif(t==0)then e=s();end;r[l]=e;end;h[3]=f();for e=1,n()do b[e-(#{1})]=_();end;for h=1,n()do local e=f();if(t(e,1,1)==0)then local d=t(e,2,3);local f=t(e,4,6);local e={a(),a(),nil,nil};if(d==0)then e[o]=a();e[u]=a();elseif(d==#{1})then e[o]=n();elseif(d==p[2])then e[o]=n()-(2^16)elseif(d==p[3])then e[o]=n()-(2^16)e[u]=a();end;if(t(f,1,1)==1)then e[l]=r[e[l]]end if(t(f,2,2)==1)then e[o]=r[e[o]]end if(t(f,3,3)==1)then e[u]=r[e[u]]end c[h]=e;end end;return h;end;local function y(t,e,n)local l=e;local l=n;return b(d.btnZcBHT(d.btnZcBHT(({d.KkBgesZk(t)})[2],e),n))end local function te(p,e,r)local function ee(...)local a,y,b,_,g,n,f,z,s,k,m,t;local e=0;while-1<e do if e<3 then if 0>=e then a=h(6,96,1,90,p);y=h(6,69,2,94,p);else if e~=-1 then repeat if 1<e then n=-41;f=-1;break;end;b=h(6,5,3,93,p);g=j _=0;until true;else b=h(6,5,3,93,p);g=j _=0;end end else if 4>=e then if 4==e then k=d.DtCWPqsz('#',...)-1;m={};else z={};s={...};end else if e>1 then repeat if e<6 then t=h(7);break;end;e=-2;until true;else t=h(7);end end end e=e+1;end;for e=0,k do if(e>=b)then z[e-b]=s[e+1];else t[e]=s[e+1];end;end;local e=k-b+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[ne];if d>=12 then if 17<d then if d>20 then if 23<=d then if d==23 then t[e[l]]();else local n=e[l]local l,e=g(t[n](c(t,n+1,e[o])))f=e+n-1 local e=0;for n=n,f do e=e+1;t[n]=l[e];end;end else if d~=20 then for n=33,77 do if d~=21 then local n=e[l]local l,e=g(t[n](c(t,n+1,e[o])))f=e+n-1 local e=0;for n=n,f do e=e+1;t[n]=l[e];end;break;end;t[e[l]]=r[e[o]];break;end;else t[e[l]]=r[e[o]];end end else if 18<d then if d>=16 then repeat if 20>d then if(t[e[l]]==e[u])then n=n+1;else n=e[o];end;break;end;local e=e[l]t[e]=t[e](c(t,e+1,f))until true;else local e=e[l]t[e]=t[e](c(t,e+1,f))end else t[e[l]]();end end else if d<15 then if 12<d then if 14>d then t[e[l]]=(e[o]~=0);else for d=0,6 do if 2<d then if 4<d then if 6>d then t[e[l]]=r[e[o]];n=n+1;e=a[n];else t[e[l]]=r[e[o]];end else if d>1 then repeat if d~=3 then r[e[o]]=t[e[l]];n=n+1;e=a[n];break;end;t(e[l],e[o]);n=n+1;e=a[n];until true;else r[e[o]]=t[e[l]];n=n+1;e=a[n];end end else if 1<=d then if d==1 then t(e[l],e[o]);n=n+1;e=a[n];else r[e[o]]=t[e[l]];n=n+1;e=a[n];end else r[e[o]]=t[e[l]];n=n+1;e=a[n];end end end end else r[e[o]]=t[e[l]];end else if d>15 then if d~=13 then for a=40,57 do if 16<d then local n=e[l];local l=t[e[o]];t[n+1]=l;t[n]=l[e[u]];break;end;n=e[o];break;end;else local l=e[l];local n=t[e[o]];t[l+1]=n;t[l]=n[e[u]];end else t[e[l]]=(e[o]~=0);end end end else if d<=5 then if 2>=d then if 1<=d then if d~=2 then n=e[o];else r[e[o]]=t[e[l]];end else local l=e[l];local n=t[e[o]];t[l+1]=n;t[l]=n[e[u]];end else if 4<=d then if d>1 then for e=34,83 do if 4<d then do return end;break;end;do return end;break;end;else do return end;end else if(t[e[l]]==e[u])then n=n+1;else n=e[o];end;end end else if 9<=d then if d>9 then if d~=8 then for n=36,62 do if d~=11 then t[e[l]]=r[e[o]];break;end;t(e[l],e[o]);break;end;else t(e[l],e[o]);end else local d,u,h,r;t(e[l],e[o]);n=n+1;e=a[n];d=e[l]u,h=g(t[d](c(t,d+1,e[o])))f=h+d-1 r=0;for e=d,f do r=r+1;t[e]=u[r];end;n=n+1;e=a[n];d=e[l]t[d]=t[d](c(t,d+1,f))n=n+1;e=a[n];t[e[l]]();n=n+1;e=a[n];do return end;end else if 7<=d then if 8==d then for d=0,3 do if d>1 then if 1<=d then for f=25,67 do if 3~=d then t[e[l]]=r[e[o]];n=n+1;e=a[n];break;end;if(t[e[l]]==e[u])then n=n+1;else n=e[o];end;break;end;else t[e[l]]=r[e[o]];n=n+1;e=a[n];end else if-2<=d then for f=28,68 do if d~=0 then r[e[o]]=t[e[l]];n=n+1;e=a[n];break;end;t[e[l]]=(e[o]~=0);n=n+1;e=a[n];break;end;else t[e[l]]=(e[o]~=0);n=n+1;e=a[n];end end end else local e=e[l]t[e]=t[e](c(t,e+1,f))end else local d,a,c,f,r;local n=0;while n>-1 do if n<=2 then if 1<=n then if n~=-2 then repeat if n~=2 then a=l;break;end;c=o;until true;else a=l;end else d=e;end else if 5<=n then if 3<=n then repeat if n<6 then t(r,f);break;end;n=-2;until true;else t(r,f);end else if n==3 then f=d[c];else r=d[a];end end end n=n+1 end end end end end n=1+n;end;end;return ee end;local l=0xff;local u={};local a=(1);local o='';(function(n)local t=n local r=0x00 local e=0x00 t={(function(f)if r>0x27 then return f end r=r+1 e=(e+0xd14-f)%0xe return(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x47);l[2]=(l[2]*(y(function()u()end,c(o))-y(l[1],c(o))))+1;u[a]={};l=l[2];a=a+l;end return true end)'acheM'and t[0x3](0x255+f))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x93);end return true end)'bTSgY'and t[0x2](f+0x295))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x22);o={o..'\58 a',o};u[a]=_();a=a+((not d.BRQVPEAA)and 1 or 0);o[1]='\58'..o[1];l[2]=0xff;end return true end)'mTpLy'and t[0x1](f+0x35e))or f end),(function(d)if r>0x25 then return d end r=r+1 e=(e+0x1093-d)%0x1c return(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x6b);end return true end)'AEkoX'and t[0x2](0x16a+d))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x7e);o='\37';l={function()l()end};o=o..'\100\43';end return true end)'EqgAz'and t[0x1](d+0x113))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x50);end return true end)'brGyR'and t[0x3](d+0x3c6))or d end),(function(o)if r>0x31 then return o end r=r+1 e=(e+0x675-o)%0x4a return(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x49);end return true end)'rhjQl'and t[0x1](0x1b6+o))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x64);u[a]=ee();a=a+l;end return true end)'Mpcej'and t[0x3](o+0x294))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x87);end return true end)'HKnRT'and t[0x2](o+0x30d))or o end)}t[0x2](0x18a5)end){};local e=te(c(u));return e(...);end return m((function()local n={}local e=0x01;local t;if d.BRQVPEAA then t=d.BRQVPEAA(m)else t=''end if d.btnZcBHT(t,d.xTqUiCOM)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(t,e,n,l,o,d)local d;if 3<t then if 6<=t then if 6<t then if t==7 then do return setmetatable({},{['__\99\97\108\108']=function(e,l,t,o,n)if n then return e[n]elseif o then return e else e[l]=t end end})end else do return n(t,nil,n);end end else do return o[n]end;end else if t>=2 then repeat if 5>t then local t=l;local l,d,o=o(2);do return function()local e,n,r,a=e(n,t(t,t),t(t,t)+3);t(4);return(a*l)+(r*d)+(n*o)+e;end;end;break;end;local t=l;do return function()local e=e(n,t(t,t),t(t,t));t(1);return e;end;end;until true;else local t=l;local r,o,l=o(2);do return function()local n,e,d,a=e(n,t(t,t),t(t,t)+3);t(4);return(a*r)+(d*o)+(e*l)+n;end;end;end end else if 2>t then if-3~=t then for d=12,69 do if t>0 then do return function(t,e,n)if n then local e=(t/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(t%(e+e)>=e)and 1 or 0;end;end;end;break;end;do return e(1),e(4,o,l,n,e),e(5,o,l,n)end;break;end;else do return e(1),e(4,o,l,n,e),e(5,o,l,n)end;end else if t~=2 then do return e(1),e(4,o,l,n,e),e(5,o,l,n)end;else do return 16777216,65536,256 end;end end end end),...)