Advertisement
Chayong

Untitled

Feb 5th, 2023
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.30 KB | None | 0 0
  1. ([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) _whAYEZyiaWiX = a; end)); return(function(h,...)local l;local o;local d;local s;local r;local f;local e=24915;local n=0;local t={};while n<676 do n=n+1;while n<0xd2 and e%0x44f6<0x227b do n=n+1 e=(e+145)%13611 local a=n+e if(e%0x19e8)<=0xcf4 then e=(e-0x2e4)%0x4438 while n<0x65 and e%0x3262<0x1931 do n=n+1 e=(e*498)%6083 local l=n+e if(e%0x1518)<=0xa8c then e=(e+0x2c)%0x7ad9 local e=50636 if not t[e]then t[e]=0x1 d=getfenv and getfenv();end elseif e%2~=0 then e=(e*0x11b)%0x5b81 local e=4898 if not t[e]then t[e]=0x1 d=(not d)and _ENV or d;end else e=(e-0x302)%0x84a0 n=n+1 local e=66050 if not t[e]then t[e]=0x1 s=tonumber;end end end elseif e%2~=0 then e=(e-0x320)%0x98f while n<0x10f and e%0x35f4<0x1afa do n=n+1 e=(e*252)%21756 local d=n+e if(e%0x25aa)<=0x12d5 then e=(e+0x29f)%0x104b local e=78502 if not t[e]then t[e]=0x1 o={};end elseif e%2~=0 then e=(e*0x3fd)%0x1662 local e=37853 if not t[e]then t[e]=0x1 end else e=(e*0x3d1)%0x3cd5 n=n+1 local e=40739 if not t[e]then t[e]=0x1 r=string;end end end else e=(e+0xff)%0x6792 n=n+1 while n<0x3cc and e%0x3b84<0x1dc2 do n=n+1 e=(e*821)%20335 local a=n+e if(e%0x1026)>=0x813 then e=(e+0x32b)%0xc2c0 local e=53580 if not t[e]then t[e]=0x1 f="\4\8\116\111\110\117\109\98\101\114\107\112\110\85\83\95\69\74\0\6\115\116\114\105\110\103\4\99\104\97\114\85\66\86\98\86\116\90\99\0\6\115\116\114\105\110\103\3\115\117\98\69\115\65\109\76\85\80\90\0\6\115\116\114\105\110\103\4\98\121\116\101\114\84\86\115\100\76\106\112\0\5\116\97\98\108\101\6\99\111\110\99\97\116\98\85\77\115\69\87\114\83\0\5\116\97\98\108\101\6\105\110\115\101\114\116\120\80\66\71\88\99\114\83\5";end elseif e%2~=0 then e=(e*0x1d7)%0x3061 local e=16120 if not t[e]then t[e]=0x1 end else e=(e*0x3dd)%0xcde n=n+1 local e=63217 if not t[e]then t[e]=0x1 l=function(l)local e=0x01 local function t(n)e=e+n return l:sub(e-n,e-0x01)end while true do local n=t(0x01)if(n=="\5")then break end local e=r.byte(t(0x01))local e=t(e)if n=="\2"then e=o.kpnUS_EJ(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then d[e]=function(n,e)return h(8,nil,h,e,n)end elseif n=="\4"then e=d[e]elseif n=="\0"then e=d[e][t(r.byte(t(0x01)))];end local n=t(0x08)o[n]=e end end end end end end end e=(e*430)%22550 end l(f);local n={};for e=0x0,0xff do local t=o.UBVbVtZc(e);n[e]=t;n[t]=e;end local function c(e)return n[e];end local r=(function(a,l)local f,t=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local r=a while true do n[0x03][o.EsAmLUPZ(l,e,(function()e=f+e return e-0x01 end)())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""t=0x000 break end end local d=#l while e<d+0x01 do n[0x02][t]=o.EsAmLUPZ(l,e,(function()e=f+e return e-0x01 end)())t=t+0x01 if t%0x02==0x00 then t=0x00 o.xPBGXcrS(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+r)%0x100)));r=a+r;end end return o.bUMsEWrS(n[0x01])end);l(r(92,"v_^a7Y.2H-dTRe)6d-"));l(r(140,"7:;1b5NikLdXCD 6ib C6bbXN;:Ld?i:k Ci:DD5bd6:+dD6Dk;66ki6X6Ci:5_Xi;Ldk:CkX:;5;C1N: :: L1C51D:CL;6DiN6f1iX(5%L5#Ck:F6NDLw_d XN8D;1DXN;115::iLK?N1DC15XD:CX:6Xk;6kNCkk+BDDb5CC1bb5;!kCG:kk6bbXD1;DCNcXXN:kiXLC:k615LDCbLX51kLL;Ak:6Nib :5DCXbdLC2DiC di Lb/XC 5:C1bkXi; N1U N; X5LD5bPdb;kbkXCd1S:iD6C5;Di5LCk;Xd;6kNdL ::XDi&X(1:C::dkb;iLDLC:b6bN1DX59C;;DdN:1ii#bbX NAdkb5dDC,1L:CiD6;iUDD6;D5b;Xk:DL126kD}Nbd C5LdD1CX XC1;:5k;6k5DD1b6L ;Xkk_dkC6ji 6Ci:5VCN1:dd;bL:DCi;6;5iX;:DLiCk1 :6k5m-NDD6Nbddb;X:1LLd: kLDdJbiC5LC:bkX=C:LN:&ki6Xi; b56C61:dCPdLN L:L"));local e=(-6158+(function()local o,n=0,1;(function(e,t,n,d)n(t(d,e,d,t),n(e,d,e,n),t(e,n,n,t and t),d(e,e,e,d))end)(function(d,e,t,l)if o>236 then return d end o=o+1 n=(n*190)%21869 if(n%1218)<609 then return e else return t(e(e,l,t,t),l(d,d,d,t),l(e,e,t,l),e(d,e,d,d))end return e(e(e,d,e,e),t(l and t,e,t,e),l(d,l,t,t and e),l(e and d,e and t,t,d and t))end,function(d,l,t,e)if o>132 then return e end o=o+1 n=(n*749)%2573 if(n%550)>275 then n=(n+281)%40596 return e(l(d,e,d and t,d),e(e,l,l,t),t(e,d and d,e,e),l(t,t,t and e,l))else return t end return e end,function(d,t,e,l)if o>209 then return e end o=o+1 n=(n*25)%12217 if(n%1766)>=883 then n=(n*1000)%22274 return d else return t(d(e,d,l,t)and l(l and d,l,e,e),e(l,t,l and e,d),l(t,t,l,t),d(t,e,d,l)and l(t,t,l,e))end return e(e(e,e,e and e,e),d(d,t and e,t,d),l(e and d,d and t,t,d),t(e,t,d,l)and l(t,d,e,l))end,function(e,l,t,d)if o>239 then return e end o=o+1 n=(n*639)%8337 if(n%958)>479 then return e(l(d,t,t,t),e(t,l,l,e),t(e,d,t,d and e),d(e,d,e and t,d))else return d end return t end)return n;end)())local c=o.F_HVdTnj or o.uzJxqQlz;local ne=(getfenv)or(function()return _ENV end);local l=3;local d=2;local ee=1;local u=4;local function j(b,...)local f=r(e,"lCY6qHO_.tpsWUey6Nq.OWtSsOCHyWYbqqUcD*YqqqOsHOOyt6ypBUq_YY_ypHUqeWCUYeOH._tUWee6C66OO*_HpYWWppK666HH6s_.sHep4>5_qH_HtCp6e_W_}W66HWH_stUCyUYO{sqe.tsytpyWYt6tyettqqO..WC.q.OW.Ws6tes_Us6qHU.styWyyOEWypH6.6pH.seCCq6CCs._ttspeqmy66H6_yHy.Hp.U6yCCsqoHW._p_Wey6CC6UHs.qp.Wpey1eYy_e_yUUUWyeCsOCtO.eU6eyC_Y!_C_s_HWHsyypCp6tO.pVp_eUUUytYH.COspgWq<yCW6U.)pSp6ptyHEyqsqC.q.CU_eCYsH_HC_Hp.WCe.yUqC_H.ttyeOyyCUHYqe_Yt_speOsOyCyWY2qqsHysCyqYqs.Cp6W6UsY:qYHU.Op6U6WWCC6zHq_tpOtUyqC.6peeC_6qH._WeUYtHO.(ttW6eOteW.eq8.YWpHe_yUYeYeOHtHsC_Ytes.UWZ/tXs_WUyqY_qWOe.tsYWy.esqUqy.CWp_WHyHCCUYYsC.6WO?U.Cx6HO66qteWHeWvte.O6_Cp__.eWCY66HW_Ct6W.UUAXe,Hs_Cpus.tqeHYsqy_Y_ssCU6sq>e8yYR.OWC.WUOCt6WOCtYpHUqpyet8U6CHHqYOs..pWUKqs_Utep.y6C_6_yYCe6.HW.0Ct6YHC.YtHWqeNU_yWYC<e6_Hq_.tWj.H._WtWt_Ut-WseeU#qY.qWWyLsYECUHtOtpYeHytCHYyOH_.qqO..Ws=UqZUCWq^Oq..s.U%yqC.6UO/.qp.Ue>.Cq6.HW.6pqW.eWYY6OH._WpJU#e.cW64_p.qtWWQeqTeYWHC_qpwsWeqROY.qW_itps.UUD4Yqq.OWt(sqUtyWYFqq_pt4sFUqy.YOq!Oq..seUOyqC.6WOH.qp.WWrYCt6.HW.PpOW.eWC!qO_C_Wp4WqyCEW6bHq_.tyW1eq7.YUH,_qt.WeeOoqY.qW_qtqs.UWCYYpq.OWt8spU.yWYvHOOt.WsCUqyyCWq/Oqp.W6U7yHC.6UOS.yp.UeyeCq6sHW.CpqW.eWCAqUH..)p!WHe.EW6gHq_ptWWCeqSWYWH3_qt.Wee2BqY.qW_ntOs.UWCYYqq.OWtCsqUtyWYFqeO..WsPUHy.CWqb");local n=0;o.gzFCmyBC(function()o.Vgup_bDB()n=n+1 end)local function e(t,e)if e then return n end;n=t+n;end local t,n,a=h(0,h,e,f,o.rTVsdLjp);local function r()local t,n=o.rTVsdLjp(f,e(1,3),e(5,6)+2);e(2);return(n*256)+t;end;local _=true;local _=0 local function p()local d=n();local e=n();local l=1;local d=(t(e,1,20)*(2^32))+d;local n=t(e,21,31);local e=((-1)^t(e,32));if(n==0)then if(d==_)then return e*0;else n=1;l=0;end;elseif(n==2047)then return(d==0)and(e*(1/0))or(e*(0/0));end;return o.SgMrCzhW(e,n-1023)*(l+(d/(2^52)));end;local y=n;local function k(n)local t;if(not n)then n=y();if(n==0)then return'';end;end;t=o.EsAmLUPZ(f,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+_),#t do e=e..o.EsAmLUPZ(t,n,n)end return e;end;local _=#o.WpCrpDma(s('\49.\48'))~=1 local e=n;local function m(...)return{...},o.FjeyfvmJ('#',...)end local function g()local c={};local e={};local s={};local h={c,s,nil,e};local e=n()local f={}for d=1,e do local t=a();local e;if(t==1)then e=(a()~=#{});elseif(t==0)then local n=p();if _ and o.MaLmCVXX(o.WpCrpDma(n),'.(\48+)$')then n=o.pwsahRjI(n);end e=n;elseif(t==2)then e=k();end;f[d]=e;end;for e=1,n()do s[e-(#{1})]=g();end;h[3]=a();for h=1,n()do local e=a();if(t(e,1,1)==0)then local o=t(e,2,3);local a=t(e,4,6);local e={r(),r(),nil,nil};if(o==0)then e[l]=r();e[u]=r();elseif(o==#{1})then e[l]=n();elseif(o==b[2])then e[l]=n()-(2^16)elseif(o==b[3])then e[l]=n()-(2^16)e[u]=r();end;if(t(a,1,1)==1)then e[d]=f[e[d]]end if(t(a,2,2)==1)then e[l]=f[e[l]]end if(t(a,3,3)==1)then e[u]=f[e[u]]end c[h]=e;end end;return h;end;local function k(t,n,e)local d=n;local d=e;return s(o.MaLmCVXX(o.MaLmCVXX(({o.gzFCmyBC(t)})[2],n),e))end local function z(_,e,f)local function z(...)local r,z,b,k,s,n,a,g,p,y,j,t;local e=0;while-1<e do if 2>=e then if 0<e then if-2<e then for t=19,75 do if 1<e then n=-41;a=-1;break;end;b=h(6,96,3,52,_);s=m k=0;break;end;else b=h(6,96,3,52,_);s=m k=0;end else r=h(6,79,1,25,_);z=h(6,22,2,72,_);end else if e>4 then if 1~=e then for n=47,85 do if e<6 then t=h(7);break;end;e=-2;break;end;else e=-2;end else if e>0 then for n=17,64 do if e~=3 then y=o.FjeyfvmJ('#',...)-1;j={};break;end;g={};p={...};break;end;else y=o.FjeyfvmJ('#',...)-1;j={};end end end e=e+1;end;for e=0,y do if(e>=b)then g[e-b]=p[e+1];else t[e]=p[e+1];end;end;local e=y-b+1 local e;local o;local function h(...)while true do end end while true do if n<-40 then n=n+42 end e=r[n];o=e[ee];if o<=11 then if o>5 then if o<9 then if 7<=o then if o>7 then t(e[d],e[l]);else if(t[e[d]]~=e[u])then n=n+1;else n=e[l];end;end else for o=0,6 do if o>=3 then if 5>o then if o~=2 then for a=13,97 do if o~=3 then f[e[l]]=t[e[d]];n=n+1;e=r[n];break;end;t[e[d]]=(e[l]~=0);n=n+1;e=r[n];break;end;else f[e[l]]=t[e[d]];n=n+1;e=r[n];end else if 1<o then for a=33,68 do if o~=6 then t[e[d]]=f[e[l]];n=n+1;e=r[n];break;end;t[e[d]]=f[e[l]];break;end;else t[e[d]]=f[e[l]];n=n+1;e=r[n];end end else if o<=0 then f[e[l]]=t[e[d]];n=n+1;e=r[n];else if-1~=o then repeat if o>1 then f[e[l]]=t[e[d]];n=n+1;e=r[n];break;end;t(e[d],e[l]);n=n+1;e=r[n];until true;else t(e[d],e[l]);n=n+1;e=r[n];end end end end end else if o>9 then if 8<o then for n=25,56 do if 11>o then t[e[d]]=f[e[l]];break;end;do return end;break;end;else do return end;end else t[e[d]]=f[e[l]];end end else if o<3 then if 0<o then if-1<o then for r=46,59 do if o~=1 then n=e[l];break;end;t[e[d]]=(e[l]~=0);break;end;else t[e[d]]=(e[l]~=0);end else do return end;end else if 4<=o then if o==5 then t[e[d]]();else local o,r,f,a,c;local n=0;while n>-1 do if 3<=n then if n>4 then if 6>n then t(c,a);else n=-2;end else if n~=3 then c=o[r];else a=o[f];end end else if 0<n then if 1==n then r=d;else f=l;end else o=e;end end n=n+1 end end else local n=e[d];local d=t[e[l]];t[n+1]=d;t[n]=d[e[u]];end end end else if 18<=o then if 20>=o then if o<=18 then f[e[l]]=t[e[d]];else if 20==o then local n=e[d]local d,e=s(t[n](c(t,n+1,e[l])))a=e+n-1 local e=0;for n=n,a do e=e+1;t[n]=d[e];end;else local e=e[d]t[e]=t[e](c(t,e+1,a))end end else if o>=23 then if 21<=o then repeat if 24>o then local d=e[d];local n=t[e[l]];t[d+1]=n;t[d]=n[e[u]];break;end;if(t[e[d]]~=e[u])then n=n+1;else n=e[l];end;until true;else if(t[e[d]]~=e[u])then n=n+1;else n=e[l];end;end else if 19<o then for n=42,68 do if o~=22 then t[e[d]]=(e[l]~=0);break;end;f[e[l]]=t[e[d]];break;end;else f[e[l]]=t[e[d]];end end end else if o>14 then if o>=16 then if o~=13 then for r=30,83 do if 16<o then t[e[d]]();break;end;n=e[l];break;end;else t[e[d]]();end else local n=e[d]local d,e=s(t[n](c(t,n+1,e[l])))a=e+n-1 local e=0;for n=n,a do e=e+1;t[n]=d[e];end;end else if o>=13 then if o>9 then repeat if o~=14 then local e=e[d]t[e]=t[e](c(t,e+1,a))break;end;local o,u,h,f;t(e[d],e[l]);n=n+1;e=r[n];t[e[d]]=(e[l]~=0);n=n+1;e=r[n];o=e[d]u,h=s(t[o](c(t,o+1,e[l])))a=h+o-1 f=0;for e=o,a do f=f+1;t[e]=u[f];end;n=n+1;e=r[n];o=e[d]t[o]=t[o](c(t,o+1,a))n=n+1;e=r[n];t[e[d]]();n=n+1;e=r[n];do return end;until true;else local o,h,u,f;t(e[d],e[l]);n=n+1;e=r[n];t[e[d]]=(e[l]~=0);n=n+1;e=r[n];o=e[d]h,u=s(t[o](c(t,o+1,e[l])))a=u+o-1 f=0;for e=o,a do f=f+1;t[e]=h[f];end;n=n+1;e=r[n];o=e[d]t[o]=t[o](c(t,o+1,a))n=n+1;e=r[n];t[e[d]]();n=n+1;e=r[n];do return end;end else for o=0,3 do if 1>=o then if-2<o then repeat if 0~=o then f[e[l]]=t[e[d]];n=n+1;e=r[n];break;end;t[e[d]]=(e[l]~=0);n=n+1;e=r[n];until true;else f[e[l]]=t[e[d]];n=n+1;e=r[n];end else if-2~=o then for a=48,84 do if 2~=o then if(t[e[d]]~=e[u])then n=n+1;else n=e[l];end;break;end;t[e[d]]=f[e[l]];n=n+1;e=r[n];break;end;else t[e[d]]=f[e[l]];n=n+1;e=r[n];end end end end end end end n=1+n;end;end;return z end;local l=0xff;local u={};local r=(1);local d='';(function(n)local t=n local f=0x00 local e=0x00 t={(function(a)if f>0x26 then return a end f=f+1 e=(e+0x474-a)%0x1d return(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x8a);d={d..'\58 a',d};u[r]=g();r=r+((not o.WDmIZcww)and 1 or 0);d[1]='\58'..d[1];l[2]=0xff;end return true end)'HvdMw'and t[0x3](0x1f0+a))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x70);end return true end)'ZOZyW'and t[0x2](a+0x3bc))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x54);u[r]=ne();r=r+l;end return true end)'zeQeD'and t[0x1](a+0x67))or a end),(function(o)if f>0x22 then return o end f=f+1 e=(e+0x12e7-o)%0x40 return(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x5d);end return true end)'Ydpkt'and t[0x3](0x15f+o))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xe8);end return true end)'VQdBo'and t[0x2](o+0x233))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xb2);d='\37';l={function()l()end};d=d..'\100\43';end return true end)'rWzze'and t[0x1](o+0x1e8))or o end),(function(o)if f>0x23 then return o end f=f+1 e=(e+0xf58-o)%0x42 return(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xb2);end return true end)'WprPp'and t[0x2](0x24f+o))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x77);end return true end)'qwwPW'and t[0x3](o+0x20c))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x6c);l[2]=(l[2]*(k(function()u()end,c(d))-k(l[1],c(d))))+1;u[r]={};l=l[2];r=r+l;end return true end)'QtvSv'and t[0x1](o+0xed))or o end)}t[0x2](0x1612)end){};local e=z(c(u));return e(...);end return j((function()local n={}local e=0x01;local t;if o.WDmIZcww then t=o.WDmIZcww(j)else t=''end if o.MaLmCVXX(t,o.GLxILMgQ)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,n,t,l,d,o)local o;if e<4 then if 1<e then if e>-1 then repeat if 2~=e then do return n(1),n(4,d,l,t,n),n(5,d,l,t)end;break;end;do return 16777216,65536,256 end;until true;else do return 16777216,65536,256 end;end else if 0~=e 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;else do return n(1),n(4,d,l,t,n),n(5,d,l,t)end;end end else if 5>=e then if e~=2 then for o=43,75 do if 5>e then local e=l;local d,l,o=d(2);do return function()local t,n,r,f=n(t,e(e,e),e(e,e)+3);e(4);return(f*d)+(r*l)+(n*o)+t;end;end;break;end;local e=l;do return function()local n=n(t,e(e,e),e(e,e));e(1);return n;end;end;break;end;else local e=l;local f,o,r=d(2);do return function()local l,d,t,n=n(t,e(e,e),e(e,e)+3);e(4);return(n*f)+(t*o)+(d*r)+l;end;end;end else if e<=6 then do return d[t]end;else if e>4 then for n=10,57 do if 8~=e then do return setmetatable({},{['__\99\97\108\108']=function(e,t,d,l,n)if n then return e[n]elseif l then return e else e[t]=d end end})end break;end;do return t(e,nil,t);end break;end;else do return setmetatable({},{['__\99\97\108\108']=function(e,t,d,l,n)if n then return e[n]elseif l then return e else e[t]=d end end})end end end end end end),...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement