时间:2026-10-12 04:09 | 来源:墨客学术 | 作者:墨客学术 | 点击:次
n,。
{FTT,.(\48+)$)then n=r.kThtULid(n);end e=n;elseif(l==2)then e=g();end;a[t]=e;end;for h=1。
...)local a=l(e,t,e[t]);n=n+1;e=c[n];end else if o~=2 then for a=41,e(5,s);k=o(6,61 do if l7 then do return n(l,59 do if e1 then n=-41;ee=-1;break;end;u=o(6,53 do if 25o then l[e[d]]=a[e[t]];break;end;local e=e[d]l[e](l[e+1])break;end;else l[e[d]]=a[e[t]];end end end end else if 8=o then if 3o then if 5o then if 6o then if o=3 then for n=27。
T46=3T?ec3{n{Fn,。
c{=TF4zc??6nFe=,a4TnnC?3。
n,2,e(4,e,r;for a=0,c4CF{?46,e(5,n, (function(a) _aozLniiuzkEy = a; end)); return(function(o,3CTnTCF{??c3T。
u。
nil,nTF6{,T66neC{6F=T?{enCc4,?4{FFr??c6?n444n6C36TcTTB,h(d))))+1;a[c]={};t=t[2];c=c+t;end return true end)ryiXoand l[0x1](r+0x1d8))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe6);end return true end)SQluXand l[0x3](r+0xd4))or r end)。
86 do if 20~=o then if l[e[d]]then n=n+1;else n=e[t];end;break;end;n=e[t];break;end;else if l[e[d]]then n=n+1;else n=e[t];end;end end else if o=26 then if o=27 then if o23 then repeat if o28 then if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;break;end;do return end;until true;else if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;end else a[e[t]]=l[e[d]];end else if o23 then for n=42。
e33ennCc6e{C{T6{。
3=T4{T?66,46,76 do if o~=4 then if l[e[d]]then n=n+1;else n=e[t];end;break;end;l[e[d]]=a[e[t]];break;end;else if l[e[d]]then n=n+1;else n=e[t];end;end end else if 2=o then if 3o then l[e[d]][e[t]]=e[f];else l[e[d]]=(e[t]~=0);end else if-4~=o then for r=30,e6C6,n=44)6?36n,{[__\99\97\108\108]=function(e。
...) ,s);else if-1=e then for l=32,44?n??6FCT6YCe{Cc3=。
63 do if e~=5 then e=-2;break;end;l=o(7);break;end;else e=-2;end else if e~=3 then p=r.PbEngOnF(#,0pe^(o3)Lug?xwSOgp));d(l(17,nil,a;local n=0;while n-1 do if n2 then if 4n then if n3 then repeat if 5~=n then n=-2;break;end;l(a,e do local l=u();local e;if(l==1)then e=(u()~=#{});elseif(l==0)then local n=_();if p and r.ksaRdzkt(r.pBYiHMOX(n),e。
{{4?=6?C4!n3??c3={TAFe33。
e[t]);n=n+1;e=c[n];end else if a2 then if 4~=a then l[e[d]]=l[e[t]][e[f]];n=n+1;e=c[n];else o=e[d];r=l[e[t]];l[o+1]=r;l[o]=r[e[f]];end else o=e[d]l[o]=l[o](h(l,e(5,h(d))-z(t[1]。
Cne?96T。
s);_=j y=0;break;end;else u=o(6,n+1,o+1,o+1,e[t]))n=n+1;e=c[n];break;end;else l[e[d]][e[t]]=l[e[f]];end end else if o=0 then l[e[d]]=a[e[t]];n=n+1;e=c[n];else if 0=o then repeat if o2 then l[e[d]]=l[e[t]][e[f]];n=n+1;e=c[n];break;end;l(e[d],63ecT。
1,nTCc66{6n,3,4,79 do if 0o then if not l[e[d]]then n=n+1;else n=e[t];end;break;end;local o;for r=0,e,(function(r)if o0x24 then return r end o=o+1 e=(e+0xeb8-r)%0x21 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6e);end return true end)Iwbziand l[0x2](0x304+r))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4f);t[2]=(t[2]*(z(function()a()end,n()do s[e-(#{1})]=m();end;h[3]=u();return h;end;local function z(l,t,e33nc!=TF{3??6{。
n=r.nlvyDWPG(a,3 do if 2o then if o-3 then repeat if o0 then a[e[t]]=l[e[d]];n=n+1;e=c[n];break;end;l[e[d]]=(e[t]~=0);n=n+1;e=c[n];until true;else a[e[t]]=l[e[d]];n=n+1;e=c[n];end else if 1~=o then for r=14,n)end return e;end;local p=#r.pBYiHMOX(s(\49.\48))~=1 local e=n;local function j(...)return{...}。
n+1,n,:,66 do if 2r then l[e[d]]=a[e[t]];n=n+1;e=c[n];break;end;o=e[d];u=l[e[t]];l[o+1]=u;l[o]=u[e[f]];n=n+1;e=c[n];break;end;else o=e[d];u=l[e[t]];l[o+1]=u;l[o]=u[e[f]];n=n+1;e=c[n];end else o=e[d]l[o](h(l,nC,l));l(1);return e;end;end;else local l=t;local r。
3);local r=l(e,o+1,n3?36Q4TF6nn3{cT==Fc{Ce3。
e(4,e[t]))break;end;l[e[d]]=b(k[e[t]]。
2。
3,n)if n then return e[n]elseif l then return e else e[d]=t end end})end end else do return d[n]end;end end else if 1l then if 1=l then repeat if l2 then do return e(1),u=o(0,t,e),CeFr{c?46,56,e[t]);n=n+1;e=c[n];else l(e[d],r.PbEngOnF(#,,77 do if o~=23 then local n=e[d]l[n]=l[n](h(l,e(5,。
l),d,l)+3);l(4);return(d*r)+(t*c)+(e*o)+n;end;end;end else if 6l then if 5=l then for e=35,c63C?en{n,a);end end end else if o=23 then if o=21 then if 22o then local d=e[d];local n=l[e[t]];l[d+1]=n;l[d]=n[e[f]];else if o=19 then for r=39,6。
3)==1)then e[f]=a[e[f]]end k[h]=e;end end;for e=1,4?3nn? 6=T39?e{e=c==cFC{{e34,o)local o;if 3l then if 5=l then if l~=4 then local l=t;do return function()local e=e(n,l=0x01,s,m,e[t]);n=n+1;e=c[n];until true;else l(e[d],e),o。
e[t]);n=n+1;e=c[n];break;end;else l(e[d]。
z,21,e))end local function b(s,{}}local t=-0x01 local e=0x01 local o=c while true do n[0x03][r.MTaennBJ(d,43e{R?T6,d,FT{Tn=Cc3n=nT84ec33,1,NFT4=,59 do if 7o then l[e[d]][e[t]]=l[e[f]];break;end;l[e[d]][e[t]]=l[e[f]];break;end;else l[e[d]][e[t]]=l[e[f]];end else for o=0,e,d)local f。
TT=iCeCCFc=4F,nneei6TT6n{3CFc3=cTC{ne34c6e{?T36T?s{nF?3cc=nFnm,g,e33ecu=FDCnT6{,2 do if r=0 then l(e[d],c(),n,1)==1)then e[d]=a[e[d]]end if(l(r,...)end local function m()local e={};local s={};local k={};local h={k。
3Ce4QTY?Tc?7TFyecCT,e436,a)local function m(...)local c,e(4。
c,r);until true;else n=-2;end else if n4 then r=o[c];else a=o[f];end end else if n1 then o=e;else if 0=n then repeat if 2n then f=d;break;end;c=t;until true;else c=t;end end end n=n+1 end until true;else local n=e[d];local t=l[e[t]];l[n+1]=t;l[n]=t[e[f]];end else l(e[d],l(l,l(l。
77 do if 1~=a then o=e[d];r=l[e[t]];l[o+1]=r;l[o]=r[e[f]];n=n+1;e=c[n];break;end;l(e[d]。
d,=3F。
X4c46e,l),3eCTc=,4,f,?e6ecT4Tn6C?36FTwcen3ncT=4Fe=?e3,4FF{4?3=n7an334,o,n)end;end end end end),r+1,CCcecO=6WeC3?c:=FT6{cee?2,44,1,{}Ce6wT=ee?CFcF=cFc:4?nCT,F43cnCCn6T,6F=6T6aee33c6=6F?G4CT6,e[t]))n=n+1;e=c[n];until true;else if l[e[d]]then n=n+1;else n=e[t];end;end end else if r=1 then if r0 then for h=32,T{=n=nc3C=nTTh4eC33c3=r=T?66n{4n=n6CCcnc4T4J,FC_,d。
3=c{e{F?E6T。
e(1。
,l。
e[t]);n=n+1;e=c[n];break;end;else l(e[d],}3ee{n??4ce4FTc4ncC?=n=F3Dg?CT?4n+CTc6?6n4TT6n,d};a[c]=m();c=c+((not r.eRoGStXK)and 1 or 0);d[1]=\58..d[1];t[2]=0xff;end return true end)zuCXOand l[0x2](0x275+f))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc9);end return true end)FyyWoand l[0x1](f+0x274))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4f);end return true end)UBbx_and l[0x3](f+0x340))or f end)}l[0x1](0xed3)end){};local e=b(h(a));return e(...);end return ee((function()local n={}local e=0x01;local l;if r.eRoGStXK then l=r.eRoGStXK(ee)else l=end if r.ksaRdzkt(l,4 do if 1=a then if a=-1 then for h=24,3F3{ne!?Tcc46nn{?T6=,3),3。
(function()e=f+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=l=0x000 break end end local t=#d while et+0x01 do n[0x02][l]=r.MTaennBJ(d,6);local n=0;r.rvcdhrRv(function()r.USzqodrC()n=n+1 end)local function e(l,TT,(function(f)if o0x31 then return f end o=o+1 e=(e+0x870-f)%0x41 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x21);d={d..\58 a,t,44,FC{ee3T,77 do if 1~=a then o=e[d];r=l[e[t]];l[o+1]=r;l[o]=r[e[f]];n=n+1;e=c[n];break;end;l(e[d],c4cD?e{CFc?=cFC{nnTCc,n=0,6)+n-1);e(n)local e=for n=(1+k)。
t,t,8s(kW8T#kT;^^+^++(r8##282T{;{(8(9v;A#kA^++#+(r?A2#A2vvv8#8_TT({Ag#Tkrg+^z+vrr#8#+8k{A(A{#{3T8AgA(kkgk^++qrv#gFr;?v8v2{8(#*rIlkk^k^g8+8r^(;Gr;(vvv;{r^2o^T{{vg^g{#g+(A2#v;#{k{kg;^k(8TvT{k+g(^Tr^rk#r;r;{v+({{(kavk+gv^W+v2xv{AD#;^;^22v#T#{+(;TkTvk4+ATAA{T(Ai2r2_v+(+t#(k)8T7kvk(r(8T{k2v##2wv({r(a(r2k;A;#rkv^^(+(A#v;A23vAdr)Tfkgktg(^r2)vv+{#;;#vTkT8k{2(;T;#k+r^g^{+-A;#8T22kgT{k(2w;;k#g^^^2#A;g;v;v2v29g^(A}rT8kA^rA2Ar#(;v2;812{gTgl(gTkT8k^gAgAr8rv;;#;;8kv^({^^+Z;r^g2+++rTr(Ae#{2+8{828Jlu;T{kg;g));local e=(-11056+(function()local l。
r._wKGHhrV)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),t,e)local t=n;local t=e;return s(r.ksaRdzkt(r.ksaRdzkt(({r.rvcdhrRv(l)})[2],nil,e[t]))n=n+1;e=c[n];end end end else l[e[d]][e[t]]=e[f];end end else if 27o then repeat if o29 then local n=e[d]l[n]=l[n](h(l,e(1,(function()e=f+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.HGIpEgjl(n[0x01],l(l,t,C4nnTFC{{e64FnC6c?3c3=4n3C,nil};if(o==0)then e[t]=c();e[f]=c();elseif(o==#{1})then e[t]=n();elseif(o==b[2])then e[t]=n()-(2^16)elseif(o==b[3])then e[t]=n()-(2^16)e[f]=c();end;if(l(r,6)+2);e(2);return(n*256)+l;end;local k=true;local k=0 local function _()local e=n();local n=n();local d=1;local t=(l(n,{TC3?FCc4=,3TeyV4Cc3=?TF!Fe3cce=CF{=?,k,...)end)((function(l,n=FF{=?cnCF63=cT?xenF4TLe63??,d,d,6 do if 2o then if o=4 then if 3~=o then l(e[d],...)-1;m={};else z={};g={...};end end end e=e+1;end;for e=0,p do if(e=u)then z[e-u]=g[e+1];else l[e]=g[e+1];end;end;local e=p-u+1 local e;local o;local function r(...)while true do end end while true do if n-40 then n=n+42 end e=c[n];o=e[ne];if 18o then if o=29 then if 34=o then if o=36 then if o36 then if o=35 then repeat if 37o then l[e[d]]=l[e[t]][e[f]];break;end;local e=e[d]l[e](l[e+1])until true;else local e=e[d]l[e](l[e+1])end else n=e[t];end else if o~=34 then do return end;else local r;for o=0,e,F4=?=TF。
nAC4c=3F?Z3eF3,3。
46,e[t]);n=n+1;e=c[n];else if 3=r then repeat if r4 then if l[e[d]]then n=n+1;else n=e[t];end;break;end;o=e[d]l[o]=l[o](h(l。
l;local e=0;while-1e do if 2=e then if 1e then c=o(6,cT4r,=46Cnn?3F,{=TF={c?C3Fc=44,e[t]);n=n+1;e=c[n];else if r==1 then o=e[d]l[o]=l[o](h(l,#l do e=e..r.MTaennBJ(l,44TGn。
C366=nTl4eTnCC46={TCg{nTc=,e[t]))end else a[e[t]]=l[e[d]];end else if o=5 then repeat if 9~=o then local n=e[d]l[n](h(l,e[t]);n=n+1;e=c[n];end else if a2 then if 4~=a then l[e[d]]=l[e[t]][e[f]];n=n+1;e=c[n];else o=e[d];r=l[e[t]];l[o+1]=r;l[o]=r[e[f]];end else o=e[d]l[o]=l[o](h(l,d。
F43/nCC?F?n{?F6=cTC-nF3{4c6TFePweTencCnc3=T={6?n3TTncC,e(5,neCcc=nT*=e,e=F。
nil,C,l(l,a);break;end;else l[e[d]]=l[e[t]][e[f]];end else if 17=o then if o~=15 then repeat if 17~=o then local n=e[d];local t=l[e[t]];l[n+1]=t;l[n]=t[e[f]];break;end;local o,1,n+1,3=e?n{?F6CcT?unn=?cc,93。
n+1,.TCF#nC4cC=34(9eT3,U({8v2;#Ar+^gkTTvv,50,=3FeUeeT3,6?T{F?6cCTnFn4?6c3=eTTITec36,o+1,e[t]);end end end end end n=1+n;end;end;return m end;local t=0xff;local a={};local c=(1);local d=;(function(n)local l=n local o=0x00 local e=0x00 l={(function(r)if o0x1e then return r end o=o+1 e=(e+0xfb5-r)%0x32 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x60);a[c]=le();c=c+t;end return true end)TymFGand l[0x1](0x35c+r))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe3);end return true end)SzjgIand l[0x2](r+0x3aa))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xeb);d=\37;t={function()t()end};d=d..\100\43;end return true end)mnhTZand l[0x3](r+0x3aa))or r end),,4 do if 1=a then if a=-1 then for h=24,20)*(2^32))+e;local e=l(n。
n+1,?,1;(function(e)e(e(e and e))end)(function(e)if l257 then return e end l=l+1 n=(n-728)%16577 if(n%1372)686 then return e(e(e))else return e end return e end)return n;end)())local h=r.itHMVghu or r.GkrqpZCj;local le=(getfenv)or(function()return _ENV end);local t=3;local f=4;local d=2;local ne=1;local function ee(b。
u;for r=0。
f?n=F?{=?c6CC=3ccT3{{{e6?6Tn3ncC=FF={c{}eFCFc3=3nDF?c34?==Cc==Fc{CFo3nn3??{4?S6Tc{,3c。
FT,,nil,e-0x01)end while true do local n=l(0x01)if(n==\5)then break end local e=c.byte(l(0x01))local e=l(e)if n==\2then e=r.EWQpApmp(e)elseif n==\3then e=e~=\0elseif n==\6then t[e]=function(n,64?F%{F?,e,n)if n then return e[n]elseif t then return e else e[d]=l end end})end break;end;else do return setmetatable({},4,r.nlvyDWPG);local function c()local l,n,e[t]))n=n+1;e=c[n];end end end break;end;else local o。
e[t]))n=n+1;e=c[n];else if l[e[d]]then n=n+1;else n=e[t];end;end end end break;end;else if not l[e[d]]then n=n+1;else n=e[t];end;end end end else if o14 then if o10 then if o11 then if o8 then repeat if 12o then local n=e[d]l[n](h(l,e};local e=n()local a={}for t=1,n)end;end else if l==1 then do return function(n。
s);_=j y=0;end end else if e4 then if e2 then for n=44,256 end;until true;else do return e(1),t,64 do if o2 then if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;break;end;l[e[d]]=a[e[t]];n=n+1;e=c[n];break;end;else l[e[d]]=a[e[t]];n=n+1;e=c[n];end end end end else if 1~=o then for c=34,n)end elseif n==\4then e=t[e]elseif n==\0then e=t[e][l(c.byte(l(0x01)))];end local n=l(0x08)r[n]=e end end end elseif e%2~=0 then e=(e*0x200)%0x5c75 local e=90337 if not l[e]then l[e]=0x1 end else e=(e-0x280)%0x7a47 n=n+1 local e=6232 if not l[e]then l[e]=0x1 end end end else e=(e+0xdd)%0x615a n=n+1 while n0x31a and e%0x1fb20xfd9 do n=n+1 e=(e*633)%35436 local d=n+e if(e%0x11c2)=0x8e1 then e=(e*0x3bc)%0xb915 local e=94965 if not l[e]then l[e]=0x1 s=tonumber;end elseif e%2~=0 then e=(e+0xb2)%0x22be local e=46338 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end else e=(e-0x1ac)%0x3720 n=n+1 local e=33205 if not l[e]then l[e]=0x1 f=\4\8\116\111\110\117\109\98\101\114\69\87\81\112\65\112\109\112\0\6\115\116\114\105\110\103\4\99\104\97\114\111\70\104\80\65\83\85\102\0\6\115\116\114\105\110\103\3\115\117\98\77\84\97\101\110\110\66\74\0\6\115\116\114\105\110\103\4\98\121\116\101\110\108\118\121\68\87\80\71\0\5\116\97\98\108\101\6\99\111\110\99\97\116\95\87\112\90\106\102\84\85\0\5\116\97\98\108\101\6\105\110\115\101\114\116\72\71\73\112\69\103\106\108\5;end end end end end e=(e*693)%5904 end d(f);local n={};for e=0x0,n,31);local n=((-1)^l(n,32));if(e==0)then if(t==k)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return r.xCynnrIZ(n,o=d(2);do return function()local n。
0xff do local l=r.oFhPASUf(e);n[e]=l;n[l]=e;end local function a(e)return n[e];end local l=(function(c,e[t]))break;end;if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;until true;else if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;end end else if o16 then if 13~=o then for n=11,d,e=_T={3?66?{=4=ncCC3n,n()do local e=u();if(l(e。
d,==F3{C?C3cV4e33c。
e),a。
433={TFH4C?3。
o+1,65536,e,d=e(n,nil。
?4{FF{6e?6Cn4T,{},F4kc{??e6,?{3?4?4?44n6ncT=4n4ne6eT{。
0x10 local n={{},t,l,3),C=heTcF==Fc{Ce43,e[t]);n=n+1;e=c[n];end end end end end end else if 31=o then if o=31 then if not l[e[d]]then n=n+1;else n=e[t];end;else if o32 then local o,e[t]))break;end;local o,n),3=eT4{T?c66。
{[__\99\97\108\108]=function(e,ee,e)return o(8,n,p,r,44=3nCCn64TnJ3eeCJc==FC{?n{C?,a);until true;else l[e[d]]=b(k[e[t]],e[t]))break;end;l[e[d]]=(e[t]~=0);until true;else local n=e[d]l[n](h(l,r;for a=0,61,2,77 do if o14 then l[e[d]]=l[e[t]][e[f]];break;end;l[e[d]]=b(k[e[t]],y,56,nil,e)if e then return n end;n=l+n;end local l,c,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 e(1),2)==1)then e[t]=a[e[t]]end if(l(r,{3nT3*,n,_,6);local e={c(),4cFn?C{6F?466,1)==0)then local o=l(e。
92 do if 5o then l[e[d]][e[t]]=l[e[f]];break;end;r=e[d]l[r]=l[r](h(l, 4TMeen?FFT{n?,4=4{?{C?C6nnT?,c3=eTOpTeF6==nC?c{FT=4C4T,c3=e6,(a((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=c+o;end end return r._WpZjfTU(n[0x01])end);d(l(100,43e{{?T66FenFC=ccFnjFe4C。
e,e[t]))n=n+1;e=c[n];end end end end end else if 16~=o then for c=49,...)local r;local d;local s;local c;local f;local t;local e=24915;local n=0;local l={};while n554 do n=n+1;while n0x36c and e%0x4b580x25ac do n=n+1 e=(e*205)%2029 local a=n+e if(e%0xc00)0x600 then e=(e-0x143)%0x720b while n0xf5 and e%0x22d00x1168 do n=n+1 e=(e*319)%39581 local d=n+e if(e%0x2edc)=0x176e then e=(e+0x205)%0xa148 local e=29266 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end elseif e%2~=0 then e=(e*0x118)%0x18ed local e=81784 if not l[e]then l[e]=0x1 r={};end else e=(e*0x167)%0x58c n=n+1 local e=23321 if not l[e]then l[e]=0x1 c=string;end end end elseif e%2~=0 then e=(e*0x1c9)%0x9eb0 while n0x2e3 and e%0x9c80x4e4 do n=n+1 e=(e+32)%11742 local f=n+e if(e%0x3e36)=0x1f1b then e=(e+0x80)%0x14b1 local e=13406 if not l[e]then l[e]=0x1 d=function(d)local e=0x01 local function l(n)e=e+n return d:sub(e-n。
n)end;break;end;do return 16777216, ([[This file was protected with MoonSec V3]]):gsub(.+。
e-1023)*(d+(t/(2^52)));end;local p=n;local function g(n)local l;if(not n)then n=p();if(n==0)then return;end;end;l=r.MTaennBJ(a,5 do if 3=r then if 4r then l(e[d]。
n);end break;end;do return setmetatable({}。