PHP Decode

([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _keAQAMpFOazh = a; end)); return(function(h,...)local f;local d;local t;local o;local u;local a;local e=24915;local n=0;local l={};while n<691 do n=n+1;while n<0x1c9 and e%0x1276<0x93b do n=n+1 e=(e*183)%48039 local r=n+e if(e%0x2836)<0x141b then e=(e*0x339)%0x9ce7 while n<0x1eb and e%0xdfa<0x6fd do n=n+1 e=(e*862)%28169 local t=n+e if(e%0xf96)>0x7cb then e=(e*0x17a)%0x9893 local e=1561 if not l[e]then l[e]=0x1 o={};end elseif e%2~=0 then e=(e*0x396)%0x1c93 local e=59858 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end else e=(e*0x152)%0x4f3a n=n+1 local e=77781 if not l[e]then l[e]=0x1 f=string;end end end elseif e%2~=0 then e=(e*0x259)%0xa9d1 while n<0x1fa and e%0x2de8<0x16f4 do n=n+1 e=(e*542)%49863 local a=n+e if(e%0x26b0)>=0x1358 then e=(e*0x348)%0x5668 local e=13902 if not l[e]then l[e]=0x1 t=function(l)local e=0x01 local function n(n)e=e+n return l:sub(e-n,e-0x01)end while true do local l=n(0x01)if(l=="\5")then break end local e=f.byte(n(0x01))local e=n(e)if l=="\2"then e=o.dywLVYyK(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then d[e]=function(e,n)return h(8,nil,h,n,e)end elseif l=="\4"then e=d[e]elseif l=="\0"then e=d[e][n(f.byte(n(0x01)))];end local n=n(0x08)o[n]=e end end end elseif e%2~=0 then e=(e+0x226)%0x6bf1 local e=67278 if not l[e]then l[e]=0x1 d=(not d)and _ENV or d;end else e=(e*0x366)%0x986a n=n+1 local e=91492 if not l[e]then l[e]=0x1 u=tonumber;end end end else e=(e*0x1f0)%0xaff8 n=n+1 while n<0x167 and e%0x3338<0x199c do n=n+1 e=(e*122)%16115 local d=n+e if(e%0x117e)<=0x8bf then e=(e-0x14a)%0x5e77 local e=69441 if not l[e]then l[e]=0x1 a="\4\8\116\111\110\117\109\98\101\114\100\121\119\76\86\89\121\75\0\6\115\116\114\105\110\103\4\99\104\97\114\88\111\83\70\65\106\70\112\0\6\115\116\114\105\110\103\3\115\117\98\103\105\98\108\119\119\71\121\0\6\115\116\114\105\110\103\4\98\121\116\101\67\76\108\105\80\72\90\104\0\5\116\97\98\108\101\6\99\111\110\99\97\116\101\82\107\87\79\119\97\95\0\5\116\97\98\108\101\6\105\110\115\101\114\116\79\76\89\104\87\111\112\86\5";end elseif e%2~=0 then e=(e+0x313)%0xb92 local e=63691 if not l[e]then l[e]=0x1 end else e=(e*0x5b)%0x339f n=n+1 local e=56455 if not l[e]then l[e]=0x1 end end end end end e=(e+655)%11938 end t(a);local e={};for n=0x0,0xff do local l=o.XoSFAjFp(n);e[n]=l;e[l]=n;end local function c(n)return e[n];end local f=(function(r,f)local a,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local t=r while true do n[0x03][o.giblwwGy(f,e,(function()e=a+e return e-0x01 end)())]=(function()d=d+0x01 return d end)()if d==(0x0f)then d=""l=0x000 break end end local d=#f while e<d+0x01 do n[0x02][l]=o.giblwwGy(f,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 o.OLYhWopV(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+t)%0x100)));t=r+t;end end return o.eRkWOwa_(n[0x01])end);t(f(90,"fTs5EzHJ.Q0,:bXi0,"));t(f(198,"=/8D(9vLm*RTilVZDRLR8/9i*(i9;(DL-VRmZD89v8*9RTVv/l9**Zi*4D^kDTV#+l(9mRi(V8&Z9v*(V*d(9RL(vDR/(vm8TDZ8D8vZmmT9Vl89mlT9Z9imBmRZVR889D*8i9*lDZvlTRVD88(mLmll)R(l9LT9Vli(a8R9lD8q(V89ivZmDDmST8iT8(9ZmiRm//(Rv*9n*8DD9ZRmlTal9vLliRZ/8iLBRDTi8L9sLliiZ 8l9v(im*/89T*DlV/D9>(TRRl//RvT*ilL/V9T8vvA,lD/LDTmZDWlvimZiTZv9/LV90m*ZTvLmVTR/(8ZvTilVLlxdVT(V*8Lv8*RiTnRDlm9TRl*clDT*Zlv//V7/ZimVZ8RvVR/Li899m*(TZZTDl(lRZi*/i9VL*l(#/V_/ii9ZmD(9Z*Tll/9(im9*TbL/Rv*RVmuTTvk*iil{i(iLlT9VRDm9lRDlL/TVv88i*Z9Dvv*R/Vi/9D1*liRS*(*9TRRm8i,vD*/lVPiVDLVTVZTD9L8*DV8ZZDL*9TDZR(RdZ"));local e=(-508+(function()local t,l=0,1;(function(d,n,e,l)e(n(e and l,e,d,l),n(e,n and e,d,l and n),d(l,l and d,n,e),n(e,e,l,d))end)(function(d,o,n,e)if t>138 then return e end t=t+1 l=(l-600)%46216 if(l%908)>454 then l=(l*267)%28965 return o(e(n,o,n,n)and d(n and e,n,e,d),d(d,e,d,o),n(d,n,e,n and e)and e(d,d,o,d),o(n,e,e,n)and e(e,n,e,n and o))else return e end return o end,function(e,o,d,n)if t>304 then return e end t=t+1 l=(l*662)%5647 if(l%1916)>958 then l=(l*228)%23850 return e(o(n,e,e,n)and e(o and e,e,e and e,o),e(n,d and n,n,o),d(d and e,e,d,n and d),e(o,e,e and n,n))else return n end return d end,function(e,d,o,n)if t>193 then return n end t=t+1 l=(l+528)%25525 if(l%1950)<975 then return e else return o(n(e and d,n,d,d)and e(d,n,e,n and e),o(d and e,o,d,d and n),e(n,e,o,e),e(n and e,e and n,e,e))end return d(n(d,n,e,e),n(o and n,n,e,e),e(n,n,d and e,n),e(e,d,e,o)and n(e,e,n,d))end,function(d,o,e,n)if t>262 then return e end t=t+1 l=(l*694)%33415 if(l%666)<333 then return e(e(e and n,e,d,e and e),e(d,o,o,e),n(n and d,n,o,o),e(n,o,e,d))else return n end return d end)return l;end)())local ee=(getfenv)or(function()return _ENV end);local c=o.ifeAsLal or o.AiIbjKl_;local r=4;local d=3;local t=2;local z=1;local function j(b,...)local s=f(e,"-}7Cf#1bVqUyIS?dyS1I77SVVdfVdUyH11VCCCd#UCd#S}1B}1IIS1UW#b}bbUb17d?VqbRV}#y#bS?H?1q?#}XIyC1b7?S#VUdIiqy}b7}IVU1Sf#dyyKfy}CIbCU71yqCSddUV#?}f7q?yqy7SdCqq#yCfI=bdfb}1yU^qSbbf7U?n?Cyyb}71I}VqCS?dqqbo7fS}VICydSVV#d}cI1bSCII#U?1f}V#S}qIVb?CfC7}fIUbI=qSSU7?#? #K=1yISUqI#7ifySCU?#qyqfCq8#b71}}qSUVffb?UyC1bEdS7bqCydYUI#C}7I?C?7q?yqd}b}}y#b17S?qVSf?a#bdC1?Sqdq?##:II71f71IdV#CUO}y7#SSSS}byCqdf1y#dDqS}VV7dd7Cbd1U7#V2?CQ?qq}fUEdI1bU7b?7q}?Gq1fI;7yVbI7fSUqYf1}}y71V}?S#VUfPd1y?bI}VI?VfC?d)U1#I7f?jb?Cf?UUC#1MII7q?C>?fqU#(wIyIbC7V?mqff?}by11I77S?V?f#dUyA1V}IS7VVCddfUU1H7VSCV7CV??Uy#U}oI1V?fC?Vqd#fGyI=b17IM7UIf?s#yUb}71?}q7#Ukdyf1S7WSIVIf7dVU?1q}US}V1Cdd7UV#?}fSyVxC1?IU7#V}lIfbUfI?1qI#7Zqy?b#7U?>U#fI87yV1d7fSUqe");local n=0;o.PCPToPlL(function()o.uUzceVwj()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,a=h(0,h,e,s,o.CLliPHZh);local function f()local n,l=o.CLliPHZh(s,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local y=true;local y=0 local function m()local e=n();local n=n();local t=1;local d=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(d==y)then return n*0;else e=1;t=0;end;elseif(e==2047)then return(d==0)and(n*(1/0))or(n*(0/0));end;return o.OnobDsrW(n,e-1023)*(t+(d/(2^52)));end;local k=n;local function g(n)local l;if(not n)then n=k();if(n==0)then return'';end;end;l=o.giblwwGy(s,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+y),#l do e=e..o.giblwwGy(l,n,n)end return e;end;local y=#o.upUOCmjk(u('\49.\48'))~=1 local e=n;local function ne(...)return{...},o.cDwjouMb('#',...)end local function p()local h={};local e={};local s={};local u={h,s,nil,e};local e=n()local c={}for d=1,e do local l=a();local e;if(l==3)then e=(a()~=#{});elseif(l==0)then local n=m();if y and o.TJuhqAec(o.upUOCmjk(n),'.(\48+)$')then n=o.YnQOsWdz(n);end e=n;elseif(l==1)then e=g();end;c[d]=e;end;for e=1,n()do s[e-(#{1})]=p();end;u[3]=a();for u=1,n()do local e=a();if(l(e,1,1)==0)then local o=l(e,2,3);local a=l(e,4,6);local e={f(),f(),nil,nil};if(o==0)then e[d]=f();e[r]=f();elseif(o==#{1})then e[d]=n();elseif(o==b[2])then e[d]=n()-(2^16)elseif(o==b[3])then e[d]=n()-(2^16)e[r]=f();end;if(l(a,1,1)==1)then e[t]=c[e[t]]end if(l(a,2,2)==1)then e[d]=c[e[d]]end if(l(a,3,3)==1)then e[r]=c[e[r]]end h[u]=e;end end;return u;end;local function _(l,n,e)local d=n;local d=e;return u(o.TJuhqAec(o.TJuhqAec(({o.PCPToPlL(l)})[2],n),e))end local function j(g,e,u)local function p(...)local f,j,b,p,y,l,a,k,s,m,_,n;local e=0;while-1<e do if e>2 then if 5>e then if e>2 then repeat if 3~=e then m=o.cDwjouMb('#',...)-1;_={};break;end;k={};s={...};until true;else k={};s={...};end else if 5~=e then e=-2;else n=h(7);end end else if 0<e then if e~=-2 then for n=44,66 do if e>1 then l=-41;a=-1;break;end;b=h(6,82,3,32,g);y=ne p=0;break;end;else l=-41;a=-1;end else f=h(6,61,1,19,g);j=h(6,69,2,34,g);end end e=e+1;end;for e=0,m do if(e>=b)then k[e-b]=s[e+1];else n[e]=s[e+1];end;end;local e=m-b+1 local e;local o;local function h(...)while true do end end while true do if l<-40 then l=l+42 end e=f[l];o=e[z];if 11<o then if 17<o then if 21>o then if o<19 then local o,c,f,r,a;local l=0;while l>-1 do if l>=3 then if 4<l then if 3~=l then for e=43,87 do if l~=6 then n(a,r);break;end;l=-2;break;end;else l=-2;end else if 3==l then r=o[f];else a=o[c];end end else if 0<l then if l~=0 then for e=14,74 do if l<2 then c=t;break;end;f=d;break;end;else f=d;end else o=e;end end l=l+1 end else if o==20 then local l=e[t]local d,e=y(n[l](c(n,l+1,e[d])))a=e+l-1 local e=0;for l=l,a do e=e+1;n[l]=d[e];end;else local e=e[t]n[e]=n[e](c(n,e+1,a))end end else if 21<o then if o~=22 then l=e[d];else n[e[t]]=u[e[d]];end else for o=0,3 do if o<2 then if o>=-2 then for a=31,60 do if 0<o then u[e[d]]=n[e[t]];l=l+1;e=f[l];break;end;n[e[t]]=(e[d]~=0);l=l+1;e=f[l];break;end;else n[e[t]]=(e[d]~=0);l=l+1;e=f[l];end else if 3~=o then n[e[t]]=u[e[d]];l=l+1;e=f[l];else if(n[e[t]]~=e[r])then l=l+1;else l=e[d];end;end end end end end else if 15<=o then if o>=16 then if o~=17 then local e=e[t]n[e]=n[e](c(n,e+1,a))else local o,s,b,m,h;n[e[t]]=u[e[d]];l=l+1;e=f[l];o=e[t];s=n[e[d]];n[o+1]=s;n[o]=s[e[r]];l=l+1;e=f[l];n(e[t],e[d]);l=l+1;e=f[l];o=e[t]b,m=y(n[o](c(n,o+1,e[d])))a=m+o-1 h=0;for e=o,a do h=h+1;n[e]=b[h];end;l=l+1;e=f[l];o=e[t]n[o]=n[o](c(n,o+1,a))l=l+1;e=f[l];n[e[t]]();l=l+1;e=f[l];do return end;end else if(n[e[t]]~=e[r])then l=l+1;else l=e[d];end;end else if o>=13 then if o~=9 then for l=12,57 do if 14~=o then local f,r,o,c,a;local l=0;while l>-1 do if l>=3 then if l>=5 then if l<6 then n(a,c);else l=-2;end else if l~=3 then a=f[r];else c=f[o];end end else if l>0 then if 0<=l then repeat if 1<l then o=d;break;end;r=t;until true;else o=d;end else f=e;end end l=l+1 end break;end;n[e[t]]=(e[d]~=0);break;end;else local o,c,f,r,a;local l=0;while l>-1 do if l>=3 then if l>=5 then if l<6 then n(a,r);else l=-2;end else if l~=3 then a=o[c];else r=o[f];end end else if l>0 then if 0<=l then repeat if 1<l then f=d;break;end;c=t;until true;else f=d;end else o=e;end end l=l+1 end end else local l=e[t];local d=n[e[d]];n[l+1]=d;n[l]=d[e[r]];end end end else if o>=6 then if o<=8 then if o<7 then local t=e[t];local l=n[e[d]];n[t+1]=l;n[t]=l[e[r]];else if o>5 then for l=46,56 do if o<8 then n[e[t]]=u[e[d]];break;end;u[e[d]]=n[e[t]];break;end;else u[e[d]]=n[e[t]];end end else if o>=10 then if 6<=o then repeat if o>10 then l=e[d];break;end;do return end;until true;else do return end;end else n[e[t]]();end end else if o>=3 then if 3<o then if 2<o then repeat if 4~=o then local l=e[t]local d,e=y(n[l](c(n,l+1,e[d])))a=e+l-1 local e=0;for l=l,a do e=e+1;n[l]=d[e];end;break;end;n[e[t]]();until true;else n[e[t]]();end else if(n[e[t]]~=e[r])then l=l+1;else l=e[d];end;end else if o<1 then u[e[d]]=n[e[t]];else if o~=1 then do return end;else n[e[t]]=(e[d]~=0);end end end end end l=1+l;end;end;return p end;local d=0xff;local h={};local f=(1);local t='';(function(n)local l=n local a=0x00 local e=0x00 l={(function(r)if a>0x29 then return r end a=a+1 e=(e+0x129e-r)%0xa return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6a);t={t..'\58 a',t};h[f]=p();f=f+((not o.iEFCEQAA)and 1 or 0);t[1]='\58'..t[1];d[2]=0xff;end return true end)'mboDU'and l[0x1](0x353+r))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf7);d[2]=(d[2]*(_(function()h()end,c(t))-_(d[1],c(t))))+1;h[f]={};d=d[2];f=f+d;end return true end)'RsOBg'and l[0x2](r+0x2eb))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x81);end return true end)'zeiXt'and l[0x3](r+0x18b))or r end),(function(o)if a>0x22 then return o end a=a+1 e=(e+0x47e-o)%0x1d return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc2);end return true end)'qVpsO'and l[0x3](0x3d6+o))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x85);h[f]=ee();f=f+d;end return true end)'_XaMl'and l[0x2](o+0x386))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x21);t='\37';d={function()d()end};t=t..'\100\43';end return true end)'BSzwE'and l[0x1](o+0x203))or o end),(function(d)if a>0x26 then return d end a=a+1 e=(e+0x8ae-d)%0x38 return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd6);end return true end)'vegfB'and l[0x3](0x319+d))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xe9);end return true end)'EYgxc'and l[0x2](d+0x1bb))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x87);end return true end)'_Poqs'and l[0x1](d+0x282))or d end)}l[0x2](0x1875)end){};local e=j(c(h));return e(...);end return j((function()local n={}local e=0x01;local l;if o.iEFCEQAA then l=o.iEFCEQAA(j)else l=''end if o.TJuhqAec(l,o.wVIGEsag)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,n,l,d,t,o)local o;if 3>=e then if 1>=e then if 1==e then do return function(l,e,n)if n then local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end;end;else do return n(1),n(4,t,d,l,n),n(5,t,d,l)end;end else if e>2 then do return n(1),n(4,t,d,l,n),n(5,t,d,l)end;else do return 16777216,65536,256 end;end end else if e>=6 then if e>=7 then if e~=3 then repeat if 7~=e then do return l(e,nil,l);end break;end;do return setmetatable({},{['__\99\97\108\108']=function(e,l,t,d,n)if n then return e[n]elseif d then return e else e[l]=t end end})end until true;else do return setmetatable({},{['__\99\97\108\108']=function(e,d,t,l,n)if n then return e[n]elseif l then return e else e[d]=t end end})end end else do return t[l]end;end else if 4~=e then local e=d;do return function()local n=n(l,e(e,e),e(e,e));e(1);return n;end;end;else local e=d;local t,d,o=t(2);do return function()local l,n,a,f=n(l,e(e,e),e(e,e)+3);e(4);return(f*t)+(a*d)+(n*o)+l;end;end;end end end end),...)