whitelist

return(function(a,e,n,T,l,b,o,f,a)local A=table.concat;local r=string.sub;local Z=select;local L=getfenv or function()return _ENV end;local u=string.char;local E=unpack or table.unpack;local h=string.byte;local o=o;local t=tonumber;local o=setmetatable;local i={}for l=0,255 do i[l]=u(l)end;local function s(a)local e,n,o=e,e,{}local c=f;local l=1;local function d()local e=t(r(a,l,l),36)l=l+1;local n=t(r(a,l,l+e-1),36)l=l+e;return n end;e=u(d())o[1]=e;while l<#a do local l=d()if i[l]then n=i[l]else n=e..r(e,1,1)end;i[c]=e..r(n,1,1)o[#o+1],e,c=n,n,c+1 end;return A(o)end;local u=s('24E24F27424B24E27826M26K26V26O26I24F26D27824E25Z26W25A26F26P26J25A26K27326O25A26I26U26V26L24Y27L27N25526K26Z25A26T27C26Y27325A26Y26Z27A26Z26L26L27C26X24W25A25M27V26L25A26H27326L26O25526I25A26Z26G26Z27S27R26F27U28G27T26P28929426H26V27U27T26U28326H26Q25A25Z25A26S26J26L28T26Q26V26T29C28P26I29226M26Z26P26M26Q28D27T26V26R29Y26Q26P26Q27H24E24A27H23W24924E23126H27827527823W24C2AC26H2752AJ27H2752AD2782AJ2AG2482AK2AF2A6');local t=(bit or bit32)and(bit or bit32).bxor or function(e,n)local o,a=1,0 while e>0 and n>0 do local c,t=e%l,n%l if c~=t then a=a+o end e,n,o=(e-c)/l,(n-t)/l,o*l end if e<n then e=n end while e>0 do local n=e%l if n>0 then a=a+o end e,o=(e-n)/l,o*l end return a end local function a(n,e,o)if o then local l=(n/l^(e-1))%l^((o-1)-(e-1)+1);return l-l%1;else local l=l^(e-1);return(n%(l+l)>=l)and 1 or 0;end;end;local e=1;local function c()local a,o,n,l=h(u,e,e+n);a=t(a,158)o=t(o,158)n=t(n,158)l=t(l,158)e=e+4;return(l*16777216)+(n*b)+(o*f)+a;end;local function d()local n,o=h(u,e,e+l);n=t(n,158)o=t(o,158)e=e+l;return(o*f)+n;end;local function f()local l=t(h(u,e,e),158);e=e+1;return l;end;local function F(...)return{...},Z('#',...)end local function V()local H={};local k={};local o={};local s={[7]=nil,[l]=o,[6]=H,[8]=nil,[n]=k,};local o={}local A={}local o={}for d=1,f()==0 and d()*l or c()do local o=f();while true do if(o==0)then o=(f()~=0);break;end if(o==n)then local n,e=c(),c();local c,n,e,a=1,(a(e,1,20)*(l^32))+n,a(e,21,31),((-1)^a(e,32));if e==0 then if n==0 then o=a*0 break;else e=1;c=0;end;elseif(e==2047)then o=(a*((n==0 and 1 or 0)/0))break;end;o=(a*(l^(e-1023)))*(c+(n/(l^52)));break;end if(o==1)then local l,a,n='',c();if(a==0)then o=l;break;end;n=r(u,e,e+a-1);e=e+a;for e=1,#n do l=l..i[t(h(r(n,e,e)),158)]end o=l break;end o=nil break;end A[d]=o;end;for l=1,c()do k[l-1]=V();end;for u=1,c()do local e=f();if(a(e,1,1)==0)then local o=a(e,l,n);local f,r,i=d(),d(),d();local t=a(e,4,6);local e={[l]=i,[4]=r,[n]=f,[6]=nil,};if(o==n)then e[4],e[6]=c()-b,d()end if(o==0)then e[4],e[6]=d(),d()end if(o==1)then e[4]=c()end if(o==l)then e[4]=c()-b end if(a(t,l,l)==1)then e[4]=A[e[4]]end if(a(t,1,1)==1)then e[l]=A[e[l]]end if(a(t,n,n)==1)then e[6]=A[e[6]]end H[u]=e;end end;s[7]=f();return s;end;local function r(e,o,t)local i=e[7];local r=e[6];local a=e[n];local e=e[8];return function(...)local e={};local e=F local e=-1;local o={};local c=1;local f={};local d=Z('#',...)-1;local r=r;local e=i;local a=a;local a={...};for l=0,d do if(l>=e)then f[l-e]=a[l+1];else o[l]=a[l+1];end;end;local e=d-e+1 local e;local a;while true do e=r[c];a=e[n];if a<=n then if a<=1 then if a==0 then o[e[l]]=e[4];else local l=e[l]o[l](o[l+1])end;elseif a>l then local l=e[l]o[l](o[l+1])else o[e[l]]=e[4];end;elseif a<=T then if a==4 then o[e[l]]=t[e[4]];else do return end;end;elseif a>6 then o[e[l]]=t[e[4]];else do return end;end;c=c+1;end;end;end;return E({r(V(),{},L())()})or nil;end)(({1})[1],"",3,5,2,65536,table.insert,256,"#")