-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpaidversion.v1
1 lines (1 loc) · 12.6 KB
/
paidversion.v1
1
([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _cgVYttBmSJkO = a; end)); return(function(c,...)local a;local r;local d;local l;local o;local h;local e=24915;local n=0;local t={};while n<427 do n=n+1;while n<0x294 and e%0x4076<0x203b do n=n+1 e=(e*357)%20775 local f=n+e if(e%0x3362)<=0x19b1 then e=(e-0x267)%0x492d while n<0x12b and e%0x2fba<0x17dd do n=n+1 e=(e*785)%23957 local d=n+e if(e%0xa62)<0x531 then e=(e*0xb8)%0xada3 local e=86239 if not t[e]then t[e]=0x1 o={};end elseif e%2~=0 then e=(e*0x3cb)%0x79da local e=6871 if not t[e]then t[e]=0x1 l=getfenv and getfenv();end else e=(e+0x35a)%0xc290 n=n+1 local e=56145 if not t[e]then t[e]=0x1 a=string;end end end elseif e%2~=0 then e=(e+0x95)%0x95c4 while n<0x356 and e%0x3a50<0x1d28 do n=n+1 e=(e+1011)%10493 local r=n+e if(e%0x33ca)<=0x19e5 then e=(e-0x2ea)%0xa31a local e=98789 if not t[e]then t[e]=0x1 end elseif e%2~=0 then e=(e-0x3b9)%0x7d0f local e=4977 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=a.byte(t(0x01))local e=t(e)if n=="\2"then e=o.WfEGssAp(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then l[e]=function(e,n)return c(8,nil,c,n,e)end elseif n=="\4"then e=l[e]elseif n=="\0"then e=l[e][t(a.byte(t(0x01)))];end local n=t(0x08)o[n]=e end end end else e=(e*0x180)%0x402 n=n+1 local e=57603 if not t[e]then t[e]=0x1 end end end else e=(e-0xea)%0xb260 n=n+1 while n<0x291 and e%0x458a<0x22c5 do n=n+1 e=(e*526)%45875 local d=n+e if(e%0x42da)<0x216d then e=(e*0x3fc)%0x363c local e=25934 if not t[e]then t[e]=0x1 l=(not l)and _ENV or l;end elseif e%2~=0 then e=(e*0x169)%0xa91d local e=28031 if not t[e]then t[e]=0x1 r="\4\8\116\111\110\117\109\98\101\114\87\102\69\71\115\115\65\112\0\6\115\116\114\105\110\103\4\99\104\97\114\110\112\77\85\66\75\72\101\0\6\115\116\114\105\110\103\3\115\117\98\117\77\89\68\70\100\109\108\0\6\115\116\114\105\110\103\4\98\121\116\101\68\115\106\68\79\100\79\79\0\5\116\97\98\108\101\6\99\111\110\99\97\116\73\68\69\114\68\73\119\70\0\5\116\97\98\108\101\6\105\110\115\101\114\116\76\115\79\87\104\110\120\84\5";end else e=(e+0x1f9)%0xabc2 n=n+1 local e=84238 if not t[e]then t[e]=0x1 h=tonumber;end end end end end e=(e*749)%22488 end d(r);local n={};for e=0x0,0xff do local t=o.npMUBKHe(e);n[e]=t;n[t]=e;end local function u(e)return n[e];end local a=(function(r,d)local f,t=0x01,0x10 local n={{},{},{}}local l=-0x01 local e=0x01 local a=r while true do n[0x03][o.uMYDFdml(d,e,(function()e=f+e return e-0x01 end)())]=(function()l=l+0x01 return l end)()if l==(0x0f)then l=""t=0x000 break end end local l=#d while e<l+0x01 do n[0x02][t]=o.uMYDFdml(d,e,(function()e=f+e return e-0x01 end)())t=t+0x01 if t%0x02==0x00 then t=0x00 o.LsOWhnxT(n[0x01],(u((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+a)%0x100)));a=r+a;end end return o.IDErDIwF(n[0x01])end);d(a(160," 8q{d+!_6CIn4jFO!+"));d(a(135,"NgMqCLR_e2TXtG}a_2aeG}LetaqaXGMaCLg}Teg22LgCeCGT_eGT_7t2RLRT}CteqCTXMaTeMX2e}T2qjTeq}M_q_}aXGaLTtTCet_^}X_MmeaaTeagRRM2Cgqa2_q}TLTGeCTRgCMTaqXTqMg2XaM_}BCR%a}_LaMaT__L2tRLMXaGLXLMRT^Mt2GgV2RGX_2aaR_G}Rg_MaqGqq}tRqeT2qg2_Mqe2PqeRae_gtRRatTRTttMRTaGeLLqTT}MXTLgtet{T_ta}_ZtMR}GtMaXqMRLRGCXtMM2tga2gTX2q?Le3}TRL}RRgGRqtTeMX2qMG2#tDqXMq2Lg(_TaL_RtTCqttqeXMMetgCCLxtTT}M222g_2R}TR}}=RXGL_gG_LeR_}MteqqXqML2tMRRtgqe!}tLLaqCT}eaq_ALMXaCXXet}TeM_Tqgt2eWaR}aZRMG2LqGCRRRt"));local e=(-45395+(function()local t,n=0,1;(function(e)e(e(e))end)(function(e)if t>254 then return e end t=t+1 n=(n-181)%47935 if(n%388)<194 then return e else return e(e(e))end return e(e(e and e)and e(e))end)return n;end)())local p=o.FFVIJGgq or o.miVISBcM;local m=(getfenv)or(function()return _ENV end);local d=3;local ee=1;local f=4;local l=2;local function y(s,...)local r=a(e,";y^E1Fz.wH?<jKpxcEx^p<p1KxK?jxjwjyyyy1yFyH?D<pHawHw^jxKjKzKH.x<p<?<z?wFj?jwxH?1)wHw1.?.wz^FHzE1K1Fx?1?EFEH^zK.xKywyy3Hp.x^pHHxjp?1z<zEFjFF1p1.1:EH.^^j^1yKyz,x wMyp?E^ppxwKpK.Kf^pEd^^^)yzyH).<wc xj?EpxpFjxKFjHjj<?w?1z1.Ez^x^wH?wHww.p^Fz^zzFp1pXpKKx^jKjz<x^jyHuxjEC^xp5)x?x1HHpyKHjH.Kj?<pzw?KHxH1?^w?Epw:wE^HzHFjzKy<pwp1KwKyj?EE^pypyjy<?^?zH^w<w1KjKHKz<p<?jpj.wp<^HywyH<.w^1E1y1LKDz1jz.z%FwEz1yEw^Ky?E1^<y<yHo<ykKpxwpjpFKxpy?KKHK^jHzz1H1^E<E1Ex^zyxywy^8?TExjO.fzp.p*KHKjj<j1<Kjwj<?w?yH?HjwjwF.pHK..zHz^F<F?1K1.ExE?Ey^p^xyjyFNpCKo9x?x^p<pFKKKzjxjHjy<?<E<p??HpH.H{Hyw^.<.1.x.yFxFHFy1x1EEjEF^p11^QyHy^dK-1xpxzDyx)pyK?KEjKjF<p<.j^jE?^HjH1H5wz.x.w.yzKzEFjFFFP1.1yEH11^j^1yKyzy.=wRyx?CFx<pFKxK.KzjHj^<<<1<<?zHxHwHEw?w1.jw..dz.zqFHFE1<11EK1wEE^w^^y?y.VjbFxpx.xEpHp^K<KzjKj.<xj?jw???EHjHKwpw.w9w<wpz<zFFKFK1x1w1yE?1Y^j^FypyHyt-?4^x<&.pKpzKxKHKyj?jE<j<F?p?.?0");local n=0;o.vjCsqqWo(function()n=n+1 end)local function e(t,e)if e then return n end;n=t+n;end local t,n,u=c(0,c,e,r,o.DsjDOdOO);local function a()local t,n=o.DsjDOdOO(r,e(1,3),e(5,6)+2);e(2);return(n*256)+t;end;local j=true;local j=0 local function b()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==j)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 o.jwChudbl(n,e-1023)*(d+(l/(2^52)));end;local y=n;local function _(n)local t;if(not n)then n=y();if(n==0)then return'';end;end;t=o.uMYDFdml(r,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+j),#t do e=e..o.uMYDFdml(t,n,n)end return e;end;local y=#o.piBujDOI(h('\49.\48'))~=1 local e=n;local function z(...)return{...},o.AocVFkIn('#',...)end local function k()local p={};local h={};local e={};local j={p,h,nil,e};local e=n()local r={}for l=1,e do local t=u();local n;if(t==0)then n=(u()~=#{});elseif(t==1)then local e=b();if y and o.iGZgJomq(o.piBujDOI(e),'.(\48+)$')then e=o.pV_XVW_x(e);end n=e;elseif(t==2)then n=_();end;r[l]=n;end;for h=1,n()do local e=u();if(t(e,1,1)==0)then local o=t(e,2,3);local c=t(e,4,6);local e={a(),a(),nil,nil};if(o==0)then e[d]=a();e[f]=a();elseif(o==#{1})then e[d]=n();elseif(o==s[2])then e[d]=n()-(2^16)elseif(o==s[3])then e[d]=n()-(2^16)e[f]=a();end;if(t(c,1,1)==1)then e[l]=r[e[l]]end if(t(c,2,2)==1)then e[d]=r[e[d]]end if(t(c,3,3)==1)then e[f]=r[e[f]]end p[h]=e;end end;for e=1,n()do h[e-(#{1})]=k();end;j[3]=u();return j;end;local function b(t,e,n)local l=e;local l=n;return h(o.iGZgJomq(o.iGZgJomq(({o.vjCsqqWo(t)})[2],e),n))end local function g(h,e,r)local function _(...)local a,_,u,b,k,n,g,y,j,s,p,t;local e=0;while-1<e do if e>=3 then if e>4 then if e~=3 then for n=36,63 do if 6~=e then t=c(7);break;end;e=-2;break;end;else e=-2;end else if e>-1 then repeat if 4~=e then y={};j={...};break;end;s=o.AocVFkIn('#',...)-1;p={};until true;else s=o.AocVFkIn('#',...)-1;p={};end end else if 0<e then if-3<=e then repeat if e>1 then n=-41;g=-1;break;end;u=c(6,41,3,51,h);k=z b=0;until true;else u=c(6,41,3,51,h);k=z b=0;end else a=c(6,16,1,21,h);_=c(6,52,2,72,h);end end e=e+1;end;for e=0,s do if(e>=u)then y[e-u]=j[e+1];else t[e]=j[e+1];end;end;local e=s-u+1 local e;local o;local function c(...)while true do end end while true do if n<-40 then n=n+42 end e=a[n];o=e[ee];if o>8 then if 14<=o then if o>15 then if 17<=o then if 16~=o then repeat if o<18 then if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;break;end;for o=0,3 do if 2>o then if o~=-3 then repeat if o<1 then t[e[l]]=(e[d]~=0);n=n+1;e=a[n];break;end;r[e[d]]=t[e[l]];n=n+1;e=a[n];until true;else t[e[l]]=(e[d]~=0);n=n+1;e=a[n];end else if o>=-1 then repeat if 3>o then t[e[l]]=r[e[d]];n=n+1;e=a[n];break;end;if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;until true;else if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;end end end until true;else for o=0,3 do if 2>o then if o~=-3 then repeat if o<1 then t[e[l]]=(e[d]~=0);n=n+1;e=a[n];break;end;r[e[d]]=t[e[l]];n=n+1;e=a[n];until true;else t[e[l]]=(e[d]~=0);n=n+1;e=a[n];end else if o>=-1 then repeat if 3>o then t[e[l]]=r[e[d]];n=n+1;e=a[n];break;end;if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;until true;else if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;end end end end else r[e[d]]=t[e[l]];end else if o~=13 then repeat if o~=15 then local e=e[l]t[e](t[e+1])break;end;n=e[d];until true;else n=e[d];end end else if 11<=o then if 12<=o then if 8<=o then for a=37,53 do if 12~=o then t(e[l],e[d]);break;end;n=e[d];break;end;else t(e[l],e[d]);end else local o;for f=0,6 do if f>2 then if 4<f then if 5~=f then t(e[l],e[d]);else t[e[l]]=r[e[d]];n=n+1;e=a[n];end else if f>=-1 then repeat if 3<f then o=e[l]t[o](t[o+1])n=n+1;e=a[n];break;end;t(e[l],e[d]);n=n+1;e=a[n];until true;else o=e[l]t[o](t[o+1])n=n+1;e=a[n];end end else if 1<=f then if f==2 then t[e[l]]=r[e[d]];n=n+1;e=a[n];else o=e[l]t[o](t[o+1])n=n+1;e=a[n];end else t(e[l],e[d]);n=n+1;e=a[n];end end end end else if o>5 then for a=12,59 do if 10>o then do return end;break;end;if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;break;end;else if(t[e[l]]~=e[f])then n=n+1;else n=e[d];end;end end end else if 3<o then if 6>o then if 4<o then t[e[l]]=r[e[d]];else r[e[d]]=t[e[l]];end else if o<7 then t[e[l]]=(e[d]~=0);else if 4<o then for n=21,89 do if 8>o then t(e[l],e[d]);break;end;local e=e[l]t[e](t[e+1])break;end;else local e=e[l]t[e](t[e+1])end end end else if 1<o then if 0~=o then for f=10,91 do if o<3 then local f,c,j,h,u,s,o;t[e[l]]=r[e[d]];n=n+1;e=a[n];t(e[l],e[d]);n=n+1;e=a[n];f=e[l]t[f](t[f+1])n=n+1;e=a[n];t[e[l]]=r[e[d]];n=n+1;e=a[n];o=0;while o>-1 do if o<3 then if o>0 then if o~=-2 then for e=18,63 do if 2~=o then j=l;break;end;h=d;break;end;else h=d;end else c=e;end else if o>=5 then if o>2 then for e=22,81 do if 6~=o then t(s,u);break;end;o=-2;break;end;else t(s,u);end else if o==4 then s=c[j];else u=c[h];end end end o=o+1 end n=n+1;e=a[n];f=e[l]t[f](t[f+1])n=n+1;e=a[n];do return end;break;end;t[e[l]]=r[e[d]];break;end;else t[e[l]]=r[e[d]];end else if 0~=o then do return end;else t[e[l]]=(e[d]~=0);end end end end n=1+n;end;end;return _ end;local l=0xff;local f={};local a=(1);local d='';(function(n)local t=n local o=0x00 local e=0x00 t={(function(r)if o>0x2a then return r end o=o+1 e=(e+0x464-r)%0x36 return(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x23);d={d..'\58 a',d};f[a]=k();a=a+(1);d[1]='\58'..d[1];l[2]=0xff;end return true end)'wTYZf'and t[0x2](0x218+r))or(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x9d);d='\37';l={function()l()end};d=d..'\100\43';end return true end)'rGzkm'and t[0x1](r+0x86))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xf1);end return true end)'VZYRh'and t[0x3](r+0x329))or r end),(function(r)if o>0x24 then return r end o=o+1 e=(e+0x1358-r)%0x3b return(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x69);l[2]=(l[2]*(b(function()f()end,p(d))-b(l[1],p(d))))+1;f[a]={};l=l[2];a=a+l;end return true end)'VQ_pH'and t[0x2](0x318+r))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0xe6);end return true end)'HQKAU'and t[0x1](r+0x36e))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x82);f[a]=m();a=a+l;end return true end)'derCk'and t[0x3](r+0x39c))or r end),(function(l)if o>0x2d then return l end o=o+1 e=(e+0x11cb-l)%0x4b return(e%0x03==0x2 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x4d);end return true end)'oaWYo'and t[0x1](0x32d+l))or(e%0x03==0x0 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x53);end return true end)'OLuHS'and t[0x3](l+0x37b))or(e%0x03==0x1 and(function(t)if not n[t]then e=e+0x01 n[t]=(0x35);end return true end)'jKJFa'and t[0x2](l+0x3d3))or l end)}t[0x1](0xcb4)end){};local e=g(p(f));return e(...);end return y((function()local n={}local e=0x01;local t;if o.vmJoXuUx then t=o.vmJoXuUx(y)else t=''end if o.iGZgJomq(t,o.BrbXJftG)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,l,d,o)local o;if e>3 then if 6<=e then if e>=7 then if 6~=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,d,l,t,n)if n then return e[n]elseif t then return e else e[d]=l end end})end until true;else do return n(e,nil,n);end end else do return d[n]end;end else if 0<e then for o=17,78 do if 5>e then local e=l;local l,d,o=d(2);do return function()local a,t,n,r=t(n,e(e,e),e(e,e)+3);e(4);return(r*l)+(n*d)+(t*o)+a;end;end;break;end;local e=l;do return function()local n=t(n,e(e,e),e(e,e));e(1);return n;end;end;break;end;else local e=l;do return function()local n=t(n,e(e,e),e(e,e));e(1);return n;end;end;end end else if e<2 then if-3<e then for o=44,85 do if e~=1 then do return t(1),t(4,d,l,n,t),t(5,d,l,n)end;break;end;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;else 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;end else if e==2 then do return 16777216,65536,256 end;else do return t(1),t(4,d,l,n,t),t(5,d,l,n)end;end end end end),...)