PHP Decode

([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _EzjLcydRVXnX = a; end)); return(function(h,...)local r;local o;local u;local t;local d;local c;local e=24915;local n=0;local l={};while n<356 do n=n+1;while n<0x230 and e%0x27c6<0x13e3 do n=n+1 e=(e+550)%37380 local a=n+e if(e%0xac2)>=0x561 then e=(e*0x17d)%0x2564 while n<0x222 and e%0x1178<0x8bc do n=n+1 e=(e*842)%12027 local a=n+e if(e%0x1fee)<0xff7 then e=(e+0x205)%0x3e7e local e=61910 if not l[e]then l[e]=0x1 o=string;end elseif e%2~=0 then e=(e*0x1c3)%0x2c57 local e=83844 if not l[e]then l[e]=0x1 c="\4\8\116\111\110\117\109\98\101\114\67\85\122\108\99\102\115\69\0\6\115\116\114\105\110\103\4\99\104\97\114\85\82\66\112\117\74\75\103\0\6\115\116\114\105\110\103\3\115\117\98\98\113\100\103\97\81\98\105\0\6\115\116\114\105\110\103\4\98\121\116\101\75\73\68\86\107\87\88\102\0\5\116\97\98\108\101\6\99\111\110\99\97\116\120\121\86\105\87\108\119\111\0\5\116\97\98\108\101\6\105\110\115\101\114\116\98\108\118\81\73\95\70\95\5";end else e=(e+0x1a0)%0x1d98 n=n+1 local e=25122 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,e-0x01)end while true do local n=l(0x01)if(n=="\5")then break end local e=o.byte(l(0x01))local e=l(e)if n=="\2"then e=r.CUzlcfsE(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then t[e]=function(e,n)return h(8,nil,h,n,e)end elseif n=="\4"then e=t[e]elseif n=="\0"then e=t[e][l(o.byte(l(0x01)))];end local n=l(0x08)r[n]=e end end end end end elseif e%2~=0 then e=(e*0x262)%0x8784 while n<0x8b and e%0x1952<0xca9 do n=n+1 e=(e-268)%20192 local t=n+e if(e%0xe98)>0x74c then e=(e-0x228)%0x7c5c local e=53370 if not l[e]then l[e]=0x1 r={};end elseif e%2~=0 then e=(e*0x238)%0xb6e5 local e=23849 if not l[e]then l[e]=0x1 end else e=(e-0x184)%0x59ad n=n+1 local e=52432 if not l[e]then l[e]=0x1 u=tonumber;end end end else e=(e+0x287)%0x34ea n=n+1 while n<0xc5 and e%0x2110<0x1088 do n=n+1 e=(e*738)%44442 local d=n+e if(e%0xac6)<=0x563 then e=(e-0x345)%0x88a local e=45155 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end elseif e%2~=0 then e=(e-0x18e)%0xad96 local e=38213 if not l[e]then l[e]=0x1 end else e=(e-0xe7)%0x1746 n=n+1 local e=89522 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end end end end end e=(e-104)%16445 end d(c);local n={};for e=0x0,0xff do local l=r.URBpuJKg(e);n[e]=l;n[l]=e;end local function f(e)return n[e];end local o=(function(a,o)local c,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local d=a while true do n[0x03][r.bqdgaQbi(o,e,(function()e=c+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#o while e<t+0x01 do n[0x02][l]=r.bqdgaQbi(o,e,(function()e=c+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.blvQI_F_(n[0x01],(f((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+d)%0x100)));d=a+d;end end return r.xyViWlwo(n[0x01])end);d(o(151,"DG3(+.IM4N_^>xzBIz"));d(o(119,"_PkM6:DuNLcaIgV,NLPN1VLNP,L,kgc,g:aV:NgLD:VP:P-:NcVgNc=uN6Ic:66NI66ag,DNIguagLNaVVcuPVacIV:a6,gc:cVNuuV6N,JguuPMNkPkaVg6DM:LVMDcVcuN,ckPPkN,kacMMPIM6ggIMIgcuM,q:VLckuPLLDMkc,g:I:6Dg0DIVguD,kDN,cLgk6u,MD:kVMgM6VVDDNVLNP,uLMbLLMkDcNA,ccP,a66MIN:aIIPNc6uIP6LaM:aL6:N,Mggk6MIa:DVIuV,IMPacaDkLac6VccMgVVDkgVNP,INIcgM:,DL:kPak6NIM::I,uaLkP,P6LNk:c,MDaD66ID6aakukg6:6{PDu,6MAaVaDkIaD6LIa,:VgD,,cu6,,LSkrNu{LIM6Lck6uaV,cN:ug,,Nc*6N,k{cgMVINMac::MV96kNcP6nNLMPMcPM(Lg6zaIMDaNDDVI6DLPPIPkNgPgL,kDIAM6gM:aVN6cgD:kzNPgccLIPLa:Mk:N6kgP:gVDukVVDL,gL6kucuMMNVgD"));local e=(-23041+(function()local l,n=0,1;(function(e)e(e(e))end)(function(e)if l>195 then return e end l=l+1 n=(n*552)%38398 if(n%1654)>=827 then return e(e(e and e)and e(e))else return e end return e end)return n;end)())local z=(getfenv)or(function()return _ENV end);local f=r.owxbChlE or r.rPIzwGcQ;local t=2;local j=1;local d=3;local c=4;local function b(s,...)local g=o(e,"Mygvlm=J/p?r8_{:lp/g8vnll/?_8JD/lp_{vvJm8+?{vmJpr_:J:v/rr=Bp:J//8rbpl:/y8oygll/l/yypl8p/8_8=vlpJ_/y/v{py_w8{lm=vJl8r:vvlJmKv==?J{J^_=;p:_8yyJvrg{?vX=?rJ8_g:=r?8{{v/l887Uyl,ygm?py_gyv8<qlvJJr8r^_l8/l8?9l{yg8=>?y{g/g?py:mLJv8rggl{J_8gbmm8/JJvrm:gvvJly8mJ?l__r8vJvrJ8r_==rv:lvyJmJ_rv:lJ/?/:::JJyrlZ;vm/vryUmllJJ8m:Jll/l8r:_lJ/{/p::l8/r/{{/g/=rrg{/yl={r8{:g{Jy88ypmg?y{g_:m{pv_8ggglp{{5g8=_?_J{8v:_v{J:k/Jmr=:vRr=?r?/?Pvzpl?/rvl/y8g::lvlr/y8gl=J=8_8mv:/g8{ivmyJ:_vyglmpv8mygmgpp8rymm8mJ8_y?mpm8r=:=vp/7r={gm/p=_?y/=rp_?pg/m_?={8{{=/r={?v/=8r?{{8Jy{lp/?8rW8l:/{8:ytmgpg_vyl=J?g_Jy/mpp8_ry8m_r1{?go=y?g{Jgl=m?=#_lX=p??{rvg=_?:{:vyJyr=^vvlJmr=:_v/J?r?::l8J_r{::lJ/y8v7vllpv8=EJl//?8?Hrl8p:_?3:m;py_myvmlpm{/grm/p?_?g4m8p__{v:Jm?y{vgv=m?m{_gJJ?rv{?g{=8rm{{g:J.ry:rvvJmrm:pvJJ/rp:?mJJ8r_:{v:/E8v}glvp/8mR=lJ/p8p}rlrp{{l!{l:p6_lygmvpl{JggmJpp_py:mrp8__v{=/?!{ggg=l?l{8g=Jpr?{pg_=rrg{_g{=:r3:JvgJlrl:/v=JJr/:pl:Jrr8:_v{J:8gdylg/{8lcml=//8/B?l?/r8{S_l{/:_yyymgpv_lymm=pJ");local n=0;r.HmBkEucv(function()r.GQydWqcj()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,g,r.KIDVkWXf);local function o()local l,n=r.KIDVkWXf(g,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local _=true;local _=0 local function p()local t=n();local e=n();local d=1;local t=(l(e,1,20)*(2^32))+t;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(t==_)then return e*0;else n=1;d=0;end;elseif(n==2047)then return(t==0)and(e*(1/0))or(e*(0/0));end;return r.pcPYsqCq(e,n-1023)*(d+(t/(2^52)));end;local m=n;local function k(n)local l;if(not n)then n=m();if(n==0)then return'';end;end;l=r.bqdgaQbi(g,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+_),#l do e=e..r.bqdgaQbi(l,n,n)end return e;end;local _=#r.cAxQHlIM(u('\49.\48'))~=1 local e=n;local function ee(...)return{...},r._utxQTGt('#',...)end local function y()local e={};local u={};local g={};local h={u,g,nil,e};local e=n()local f={}for t=1,e do local l=a();local e;if(l==1)then e=(a()~=#{});elseif(l==0)then local n=p();if _ and r.qrxOdthM(r.cAxQHlIM(n),'.(\48+)$')then n=r.eWbpzqtF(n);end e=n;elseif(l==3)then e=k();end;f[t]=e;end;h[3]=a();for h=1,n()do local e=a();if(l(e,1,1)==0)then local r=l(e,2,3);local a=l(e,4,6);local e={o(),o(),nil,nil};if(r==0)then e[d]=o();e[c]=o();elseif(r==#{1})then e[d]=n();elseif(r==s[2])then e[d]=n()-(2^16)elseif(r==s[3])then e[d]=n()-(2^16)e[c]=o();end;if(l(a,1,1)==1)then e[t]=f[e[t]]end if(l(a,2,2)==1)then e[d]=f[e[d]]end if(l(a,3,3)==1)then e[c]=f[e[c]]end u[h]=e;end end;for e=1,n()do g[e-(#{1})]=y();end;return h;end;local function b(l,e,n)local t=e;local t=n;return u(r.qrxOdthM(r.qrxOdthM(({r.HmBkEucv(l)})[2],e),n))end local function ne(p,e,u)local function z(...)local o,z,_,b,g,n,a,y,k,s,m,l;local e=0;while-1<e do if e<3 then if e<=0 then o=h(6,78,1,11,p);z=h(6,37,2,26,p);else if e<2 then _=h(6,48,3,26,p);g=ee b=0;else n=-41;a=-1;end end else if e>=5 then if e>=4 then repeat if 5~=e then e=-2;break;end;l=h(7);until true;else l=h(7);end else if e>-1 then repeat if 4~=e then y={};k={...};break;end;s=r._utxQTGt('#',...)-1;m={};until true;else s=r._utxQTGt('#',...)-1;m={};end end end e=e+1;end;for e=0,s do if(e>=_)then y[e-_]=k[e+1];else l[e]=k[e+1];end;end;local e=s-_+1 local e;local r;local function h(...)while true do end end while true do if n<-40 then n=n+42 end e=o[n];r=e[j];if r<=11 then if r>5 then if 8>=r then if r<=6 then n=e[d];else if r>6 then for n=25,94 do if r~=7 then l[e[t]]();break;end;local t=e[t];local n=l[e[d]];l[t+1]=n;l[t]=n[e[c]];break;end;else l[e[t]]();end end else if r>=10 then if 10==r then l[e[t]]();else u[e[d]]=l[e[t]];end else local r,h,_,s,u;r=e[t];h=l[e[d]];l[r+1]=h;l[r]=h[e[c]];n=n+1;e=o[n];l(e[t],e[d]);n=n+1;e=o[n];r=e[t]_,s=g(l[r](f(l,r+1,e[d])))a=s+r-1 u=0;for e=r,a do u=u+1;l[e]=_[u];end;n=n+1;e=o[n];r=e[t]l[r]=l[r](f(l,r+1,a))n=n+1;e=o[n];l[e[t]]();n=n+1;e=o[n];do return end;end end else if r>=3 then if r>=4 then if 2<=r then repeat if r<5 then l[e[t]]=u[e[d]];break;end;u[e[d]]=l[e[t]];until true;else u[e[d]]=l[e[t]];end else local n=e[t]local t,e=g(l[n](f(l,n+1,e[d])))a=e+n-1 local e=0;for n=n,a do e=e+1;l[n]=t[e];end;end else if r<=0 then l[e[t]]=(e[d]~=0);else if r>-1 then repeat if r>1 then for r=0,3 do if 1<r then if r~=1 then for a=34,80 do if r>2 then if(l[e[t]]==e[c])then n=n+1;else n=e[d];end;break;end;l[e[t]]=u[e[d]];n=n+1;e=o[n];break;end;else if(l[e[t]]==e[c])then n=n+1;else n=e[d];end;end else if r~=1 then l[e[t]]=(e[d]~=0);n=n+1;e=o[n];else u[e[d]]=l[e[t]];n=n+1;e=o[n];end end end break;end;l(e[t],e[d]);until true;else for r=0,3 do if 1<r then if r~=1 then for a=34,80 do if r>2 then if(l[e[t]]==e[c])then n=n+1;else n=e[d];end;break;end;l[e[t]]=u[e[d]];n=n+1;e=o[n];break;end;else if(l[e[t]]==e[c])then n=n+1;else n=e[d];end;end else if r~=1 then l[e[t]]=(e[d]~=0);n=n+1;e=o[n];else u[e[d]]=l[e[t]];n=n+1;e=o[n];end end end end end end end else if r>=18 then if r<21 then if 18>=r then if(l[e[t]]==e[c])then n=n+1;else n=e[d];end;else if r~=16 then for h=46,52 do if 19<r then local r,_,k,p,s;for h=0,6 do if 2<h then if h<=4 then if 2~=h then repeat if 4>h then r=e[t]k,p=g(l[r](f(l,r+1,e[d])))a=p+r-1 s=0;for e=r,a do s=s+1;l[e]=k[s];end;n=n+1;e=o[n];break;end;r=e[t]l[r]=l[r](f(l,r+1,a))n=n+1;e=o[n];until true;else r=e[t]l[r]=l[r](f(l,r+1,a))n=n+1;e=o[n];end else if h~=3 then repeat if 6>h then l[e[t]]();n=n+1;e=o[n];break;end;l[e[t]]=u[e[d]];until true;else l[e[t]]=u[e[d]];end end else if h<1 then l[e[t]]=u[e[d]];n=n+1;e=o[n];else if h~=-2 then for a=41,60 do if 1~=h then l(e[t],e[d]);n=n+1;e=o[n];break;end;r=e[t];_=l[e[d]];l[r+1]=_;l[r]=_[e[c]];n=n+1;e=o[n];break;end;else l(e[t],e[d]);n=n+1;e=o[n];end end end end break;end;l[e[t]]=(e[d]~=0);break;end;else l[e[t]]=(e[d]~=0);end end else if r<=22 then if r==21 then local n=e[t]local t,e=g(l[n](f(l,n+1,e[d])))a=e+n-1 local e=0;for n=n,a do e=e+1;l[n]=t[e];end;else local e=e[t]l[e]=l[e](f(l,e+1,a))end else if r~=20 then repeat if 23~=r then l(e[t],e[d]);break;end;do return end;until true;else l(e[t],e[d]);end end end else if r>14 then if r>15 then if 16<r then local n=e[t];local t=l[e[d]];l[n+1]=t;l[n]=t[e[c]];else n=e[d];end else local e=e[t]l[e]=l[e](f(l,e+1,a))end else if 13>r then l[e[t]]=u[e[d]];else if r==14 then do return end;else if(l[e[t]]==e[c])then n=n+1;else n=e[d];end;end end end end end n=1+n;end;end;return z end;local t=0xff;local u={};local o=(1);local d='';(function(n)local l=n local c=0x00 local e=0x00 l={(function(a)if c>0x30 then return a end c=c+1 e=(e+0xcc4-a)%0x4e return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa5);end return true end)'OVSbQ'and l[0x3](0x316+a))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x32);d={d..'\58 a',d};u[o]=y();o=o+((not r.cJuqK_SG)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'JoBCQ'and l[0x2](a+0x266))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'CEBkw'and l[0x1](a+0x28a))or a end),(function(r)if c>0x25 then return r end c=c+1 e=(e+0x49b-r)%0x4c return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x8f);end return true end)'fObAQ'and l[0x2](0x2a9+r))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x95);t[2]=(t[2]*(b(function()u()end,f(d))-b(t[1],f(d))))+1;u[o]={};t=t[2];o=o+t;end return true end)'bX_xD'and l[0x3](r+0xdb))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbd);end return true end)'vkjEA'and l[0x1](r+0x2c9))or r end),(function(d)if c>0x1e then return d end c=c+1 e=(e+0x111e-d)%0x2d return(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3a);end return true end)'GggjE'and l[0x1](0x3a7+d))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xf8);u[o]=z();o=o+t;end return true end)'TUkTZ'and l[0x3](d+0x1c3))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xc2);end return true end)'DXEqH'and l[0x2](d+0x1e4))or d end)}l[0x1](0x845)end){};local e=ne(f(u));return e(...);end return b((function()local n={}local e=0x01;local l;if r.cJuqK_SG then l=r.cJuqK_SG(b)else l=''end if r.qrxOdthM(l,r.XzoPcIPs)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(n,e,l,t,d,r)local r;if n<4 then if n>1 then if n>2 then do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;else do return 16777216,65536,256 end;end else if n>-2 then for r=32,70 do if 1~=n then do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;break;end;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;break;end;else do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;end end else if n<=5 then if 2<n then repeat if n>4 then local n=t;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;break;end;local n=t;local r,t,d=d(2);do return function()local l,o,c,e=e(l,n(n,n),n(n,n)+3);n(4);return(e*r)+(c*t)+(o*d)+l;end;end;until true;else local n=t;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;end else if n>6 then if 3<=n then repeat if 7~=n then do return l(n,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,t,l,d,n)if n then return e[n]elseif d then return e else e[t]=l end end})end end else do return d[l]end;end end end end),...)