1 line
2.5 KiB
Lua
1 line
2.5 KiB
Lua
return(function(...)local x={"\055\074\106\099\043\049\072\077\109\103\115\057","\043\078\083\121\076\099\061\061","\055\074\106\099\043\122\081\114\100\074\072\057\072\111\061\061","\076\122\083\116\090\049\115\081\055\121\115\120";"\043\078\083\118\109\074\080\061";"\072\074\066\099\076\074\117\087","\117\067\078\078\090\108\072\052\053\120\101\080\055\067\115\049\102\074\050\061","\072\112\114\118\109\101\083\120\100\043\077\114";"\043\078\083\077\055\069\115\114\089\111\061\061"}for W,E in ipairs({{1,9},{1;7};{8,9}})do while E[1]<E[2]do x[E[1]],x[E[2]],E[1],E[2]=x[E[2]],x[E[1]],E[1]+1,E[2]-1 end end local function W(W)return x[W+55989]end do local W=table.insert local E=string.len local d={F=62;M=41;D=60,s=17;X=45,d=26,i=11;J=22,Q=33;["\052"]=19;I=15,y=39;T=50;n=34;U=42;l=3;m=25,["\047"]=35;k=18,V=4;z=54,N=53,t=46;["\049"]=55;u=13,["\055"]=27,["\051"]=47;A=12,["\050"]=8;v=44,g=7,L=24;b=63;W=43;H=29,["\057"]=40,Z=28,Y=30;j=5,f=14;o=0;["\054"]=31,h=1;w=9,x=51;c=48;P=56;["\043"]=23,["\048"]=49,R=2,E=38,r=37;["\056"]=20,C=52;e=21;p=6;q=58,K=36,a=10;G=32;["\053"]=16;O=59;B=57,S=61}local k=math.floor local J=table.concat local B=string.char local O=x local D=string.sub local r=type for x=1,#O,1 do local F=O[x]if r(F)=="\115\116\114\105\110\103"then local r=E(F)local T={}local s=1 local j=0 local y=0 while s<=r do local x=D(F,s,s)local E=d[x]if E then j=j+E*64^(3-y)y=y+1 if y==4 then y=0 local x=k(j/65536)local E=k((j%65536)/256)local d=j%256 W(T,B(x,E,d))j=0 end elseif x=="\061"then W(T,B(k(j/65536)))if s>=r or D(F,s+1,s+1)~="\061"then W(T,B(k((j%65536)/256)))end break end s=s+1 end O[x]=J(T)end end end return(function(x,d,k,J,B,O,D,h,j,F,r,T,E,s,y,u)h,T,F,r,E,u,j,y,s=function(x,W)local d=j(W)local k=function(...)return E(x,{...},W,d)end return k end,function()s=s+1 F[s]=1 return s end,{},{},function(E,k,J,B)local j,y,T,D,s,F,r while E do j=W(-55988)y=16 s=25 F=24 r=k D=W(-55983)T=W(-55981)E={[D]=F;[T]=s,[j]=y}D=W(-55987)x[D]=E D={}E=x[W(-55984)]end E=#B return d(D)end,function(x)F[x]=F[x]-1 if 0==F[x]then F[x],r[x]=nil,nil end end,function(x)for W=1,#x,1 do F[x[W]]=1+F[x[W]]end if k then local E=k(true)local d=B(E)d[W(-55982)],d[W(-55980)],d[W(-55986)]=x,y,function()return 3218582 end return E else return J({},{[W(-55980)]=y;[W(-55982)]=x;[W(-55986)]=function()return 3218582 end})end end,function(x)local W,E=1,x[1]while E do F[E],W=F[E]-1,1+W if 0==F[E]then F[E],r[E]=nil,nil end E=x[W]end end,0 return(h(13863633,{}))(d(D))end)(getfenv and getfenv()or _ENV,unpack or table[W(-55985)],newproxy,setmetatable,getmetatable,select,{...})end)(...) |