-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathc
More file actions
1 lines (1 loc) · 2.85 KB
/
c
File metadata and controls
1 lines (1 loc) · 2.85 KB
1
return(function(...)local O={"\071\099\082\106\069\055\087\061";"\071\099\082\067\053\080\107\100\119\054\061\061","\071\099\082\104\079\075\061\061","\053\099\047\122\055\089\067\108\117\043\068\113\112\089\107\108";"\101\122\107\114\098\122\084\086\077\115\082\056\101\071\112\118\053\076\085\056\077\080\112\088\053\048\082\050\098\102\056\088\120\081\068\083\101\102\082\088\101\076\084\088\084\049\084\087\112\118\117\052\084\051\079\087\112\049\105\052\097\043\111\081\112\043\079\108\112\115\082\067\079\117\052\067\120\118\050\068\119\118\069\104\079\056\085\100\069\100\050\112\068\122\112\071\097\071\078\057\053\102\078\079\048\043\107\088\049\099\068\097\068\089\113\102\097\078\111\076\068\056\067\055\098\078\100\080\053\099\082\106\120\102\117\052\069\071\085\074\048\122\117\113\068\071\117\113\053\078\100\075\097\089\078\122\079\068\050\111\101\054\061\061";"\120\055\052\075\079\055\112\057"}local function r(r)return O[r+18568]end for r,s in ipairs({{1,6},{1;3};{4,6}})do while s[1]<s[2]do O[s[1]],O[s[2]],s[1],s[2]=O[s[2]],O[s[1]],s[1]+1,s[2]-1 end end do local r={C=41;V=58;y=40;o=8;q=45;x=29,c=53;["\054"]=0,K=48,e=26;["\053"]=27,U=9;["\043"]=3;g=16;["\048"]=18;i=32,J=31;Y=4;["\049"]=19,G=23,M=11,["\056"]=36;["\047"]=1;l=49,k=17;W=56,E=25,u=20,O=24;r=52,["\057"]=43,A=59,Z=2;D=21,["\055"]=22,S=34;T=12,t=15,p=13,["\050"]=33;z=7;j=44,Q=54;f=6;F=46,b=28;w=30;["\051"]=51,B=10;N=5;m=60;s=50,n=63;a=14,d=37,["\052"]=57,v=35;H=62,P=38;R=61,h=39;X=47,I=42;L=55}local s=math.floor local I=table.concat local E=string.len local M=string.char local j=string.sub local F=O local g=table.insert local x=type for O=1,#F,1 do local z=F[O]if x(z)=="\115\116\114\105\110\103"then local x=E(z)local i={}local X=1 local Q=0 local U=0 while X<=x do local O=j(z,X,X)local I=r[O]if I then Q=Q+I*64^(3-U)U=U+1 if U==4 then U=0 local O=s(Q/65536)local r=s((Q%65536)/256)local I=Q%256 g(i,M(O,r,I))Q=0 end elseif O=="\061"then g(i,M(s(Q/65536)))if X>=x or j(z,X+1,X+1)~="\061"then g(i,M(s((Q%65536)/256)))end break end X=X+1 end F[O]=I(i)end end end return(function(O,I,E,M,j,F,g,U,i,z,s,Q,X,x,C,o)z,s,o,i,x,Q,X,C,U={},function(s,E,M,j)local g,x while s do x=E s=r(-18566)g={s}s=O[r(-18567)]end s=#j return I(g)end,function(O,r)local I=Q(r)local E=function(...)return s(O,{...},r,I)end return E end,function()X=X+1 z[X]=1 return X end,{},function(O)for r=1,#O,1 do z[O[r]]=z[O[r]]+1 end if E then local s=E(true)local I=j(s)I[r(-18563)],I[r(-18562)],I[r(-18564)]=O,U,function()return 3780608 end return s else return M({},{[r(-18562)]=U;[r(-18563)]=O;[r(-18564)]=function()return 3780608 end})end end,0,function(O)z[O]=z[O]-1 if 0==z[O]then z[O],x[O]=nil,nil end end,function(O)local r,s=1,O[1]while s do z[s],r=z[s]-1,r+1 if 0==z[s]then z[s],x[s]=nil,nil end s=O[r]end end return(o(4508160,{}))(I(g))end)(getfenv and getfenv()or _ENV,unpack or table[r(-18565)],newproxy,setmetatable,getmetatable,select,{...})end)(...)