PHP Decode

([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _T_DiGYSReiwe = a; end)); return(function(h,...)local s;local d;local o;local t;local a;local r;local e=24915;local n=0;local l={};while n<424 do n=n+1;while n<0x345 and e%0x444c<0x2226 do n=n+1 e=(e*771)%29840 local f=n+e if(e%0x18b4)>=0xc5a then e=(e-0xf9)%0x10d3 while n<0x3be and e%0x1404<0xa02 do n=n+1 e=(e+582)%34175 local t=n+e if(e%0x1b8a)<0xdc5 then e=(e-0xf5)%0x3051 local e=27982 if not l[e]then l[e]=0x1 r={};end elseif e%2~=0 then e=(e*0x39)%0xbfb1 local e=39896 if not l[e]then l[e]=0x1 end else e=(e*0x30b)%0x17e1 n=n+1 local e=63476 if not l[e]then l[e]=0x1 end end end elseif e%2~=0 then e=(e+0x386)%0x7589 while n<0x11f and e%0x28fe<0x147f do n=n+1 e=(e-218)%14502 local d=n+e if(e%0x29be)<0x14df then e=(e+0x89)%0x776c local e=54374 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end elseif e%2~=0 then e=(e*0x38e)%0x9307 local e=52536 if not l[e]then l[e]=0x1 o=string;end else e=(e-0x87)%0x45bb n=n+1 local e=15183 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end end end else e=(e*0x3c8)%0x8ab4 n=n+1 while n<0x93 and e%0x31ba<0x18dd do n=n+1 e=(e-978)%11217 local f=n+e if(e%0x1ece)<0xf67 then e=(e*0x110)%0xa6f6 local e=79809 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.mtFPeVmx(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 elseif e%2~=0 then e=(e-0x289)%0x1afb local e=24710 if not l[e]then l[e]=0x1 a="\4\8\116\111\110\117\109\98\101\114\109\116\70\80\101\86\109\120\0\6\115\116\114\105\110\103\4\99\104\97\114\76\80\105\83\68\73\98\104\0\6\115\116\114\105\110\103\3\115\117\98\105\80\83\113\112\73\107\114\0\6\115\116\114\105\110\103\4\98\121\116\101\102\76\113\70\118\119\83\75\0\5\116\97\98\108\101\6\99\111\110\99\97\116\89\113\115\97\106\110\77\107\0\5\116\97\98\108\101\6\105\110\115\101\114\116\66\115\82\107\69\72\118\87\5";end else e=(e-0x1f9)%0x9542 n=n+1 local e=88286 if not l[e]then l[e]=0x1 s=tonumber;end end end end end e=(e+989)%47919 end d(a);local e={};for n=0x0,0xff do local l=r.LPiSDIbh(n);e[n]=l;e[l]=n;end local function c(n)return e[n];end local o=(function(f,d)local a,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local o=f while true do n[0x03][r.iPSqpIkr(d,e,(function()e=a+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#d while e<t+0x01 do n[0x02][l]=r.iPSqpIkr(d,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.BsRkEHvW(n[0x01],(c((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=f+o;end end return r.YqsajnMk(n[0x01])end);d(o(88,"vFJt1* C^?n-KNpjnN"));d(o(63,"pSFUA?Z/narGtC.XtSnnGZ/nU/.XG?ZXtC..t_/aUCCStA?ASnCGrnZaSGar?tnnUtXGt/nnU?.Arrn.FGSnGC/t.ZrGC/ar?FSnCXnUZZ.XGn/AAZFSC/UAXGFa.GrrZFFn.FASZrSXXUrUZaFCXCaA??SUtnaAZltrnXGaZ.AFX/??/CUZXnttn?AXCatrnAAX.Fta/U.FrGCUnZ?ZSetaaaA/SGtanG?ZSKt.aCUZFZ.Sr?AAFa/nUtAtStCGrCZaFCrXGSZwFA.nrU?nS?XLAaYrU..aGF/.S.X?tAZASaCUt/ZaC?a?n.nF?SXStta,AUSArFFF./SACYa??/SZt.aAA._.rrat?.X/GrrFUZG>/ZrZ?ASZ.SaGXCFC./rr?tSX.nn/ZSFS./aaA?UFCFAr3CUCX/GrZtFXXnaU/?UACrGnniFU.??rStAnfGtUna?YXFCUZtAn&/C?aAUCraZtarACS?tXn.Z+SU.?aG?GSFtF/tUtG?/rrA?aFC.FA*ZFFa.Cr./F*/.nrAAGUrXZte/At."));local e=(-7182+(function()local l,n=0,1;(function(n,e,l)l(l(n and l,e,l)and n(n and e,l,e),l(n and e,e,e),n(n,n,e))end)(function(d,e,t)if l>243 then return t end l=l+1 n=(n*880)%30470 if(n%1188)>=594 then return e else return d(e(d,d,e),t(e,d,e),e(e,t and e,t))end return e(d(e,t,e),t(e,e,e)and e(e,t,d),e(t,d,e))end,function(d,e,t)if l>119 then return t end l=l+1 n=(n-696)%3675 if(n%324)>162 then return d(e(d,e,d),e(d,d,e)and t(e,e,t),e(d and t,t,t))else return e end return e end,function(d,e,t)if l>259 then return e end l=l+1 n=(n-901)%10956 if(n%1302)>=651 then return e(e(t,t and d,d and t)and t(e,t,d),d(e,e and t,e),d(t,e,e))else return t end return t end)return n;end)())local c=r.EfdIfmOP or r.IbafWBnM;local ee=(getfenv)or(function()return _ENV end);local t=3;local d=2;local f=4;local j=1;local function g(k,...)local a=o(e,"%u?nZdrV9,zN/T4=/nV9nZ=#z/Vd?Z4f,/NVr9?=T{NuZNu,/=9zd,u,4n9T4Z/Vd/u9TZ4ZNZVunVzcz?ru?cTdZ/d=kdTnn/Z9 rN=9Y?T4VNZruu/,ZzVddu///Z8?,XV/nV4u=4TzV?Eu?zNnZu6z/r9?ZZ9uK//9ZZn/rVVnnnpTTzNr9udT?zuu?ju//99 na9N?nN!9NZz/?4?,,=,4Z,uNrcndT9,Zded,nV=nz4Z=uTTV9=n=u/Tr9,Zz==/Vd9nd4/z9rd?zN,z9rZu4r9?94b,/d9VNnu=,zT0Z/VV/n9=Z=94.,/dZ4V/u9/TZ,zZ/m9/Z4/zNd,u94nzFdzwT/49n4r,ZdUS//99/Z5=/N9VdnC4/z9Vrn/T/,9dZuZ//99ZZu?T9V9nZ=hzTr9?Z4*/?VZuZT-9/Z4QZ/uV/nz=ZNZr/?94ZzOr?u9Td,pZ/ud/Z9tn/=,NZVE?/=zNzrSu/T9,NdLP//9,rZZ=/N,VZnd4/z9rZZ =V,9dduH/T99Zzc_/4V4nZ=nz/rN?Z4v,/d9nuTO9TZ9+V/kV/n9=Z/zr/?94Zzsd/uzTZ,prup9/Z9mnT=9NdVX?/4zzZr}u/T,,Zd{c//99ZZY=/N9");local n=0;r.XFKnJvZX(function()r.SiwVJCvW()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,u=h(0,h,e,a,r.fLqFvwSK);local function o()local l,n=r.fLqFvwSK(a,e(1,3),e(5,6)+2);e(2);return(n*256)+l;end;local b=true;local b=0 local function z()local e=n();local n=n();local d=1;local t=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(t==b)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return r.yBrkuGmV(n,e-1023)*(d+(t/(2^52)));end;local p=n;local function m(n)local l;if(not n)then n=p();if(n==0)then return'';end;end;l=r.iPSqpIkr(a,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+b),#l do e=e..r.iPSqpIkr(l,n,n)end return e;end;local p=#r.fArsKMtG(s('\49.\48'))~=1 local e=n;local function g(...)return{...},r.fwlkaPIH('#',...)end local function _()local s={};local b={};local e={};local h={b,s,nil,e};local e=n()local a={}for t=1,e do local l=u();local n;if(l==2)then n=(u()~=#{});elseif(l==3)then local e=z();if p and r.kzPPMALW(r.fArsKMtG(e),'.(\48+)$')then e=r.FfaGupyl(e);end n=e;elseif(l==0)then n=m();end;a[t]=n;end;for h=1,n()do local e=u();if(l(e,1,1)==0)then local r=l(e,2,3);local c=l(e,4,6);local e={o(),o(),nil,nil};if(r==0)then e[t]=o();e[f]=o();elseif(r==#{1})then e[t]=n();elseif(r==k[2])then e[t]=n()-(2^16)elseif(r==k[3])then e[t]=n()-(2^16)e[f]=o();end;if(l(c,1,1)==1)then e[d]=a[e[d]]end if(l(c,2,2)==1)then e[t]=a[e[t]]end if(l(c,3,3)==1)then e[f]=a[e[f]]end b[h]=e;end end;h[3]=u();for e=1,n()do s[e-(#{1})]=_();end;return h;end;local function y(l,n,e)local t=n;local t=e;return s(r.kzPPMALW(r.kzPPMALW(({r.XFKnJvZX(l)})[2],n),e))end local function ne(p,e,u)local function _(...)local o,y,k,_,s,l,a,z,b,m,ee,n;local e=0;while-1<e do if e>2 then if 5<=e then if 5~=e then e=-2;else n=h(7);end else if e~=1 then for n=14,67 do if 4~=e then z={};b={...};break;end;m=r.fwlkaPIH('#',...)-1;ee={};break;end;else z={};b={...};end end else if e<=0 then o=h(6,95,1,47,p);y=h(6,15,2,12,p);else if 1<e then l=-41;a=-1;else k=h(6,15,3,24,p);s=g _=0;end end end e=e+1;end;for e=0,m do if(e>=k)then z[e-k]=b[e+1];else n[e]=b[e+1];end;end;local e=m-k+1 local e;local r;local function h(...)while true do end end while true do if l<-40 then l=l+42 end e=o[l];r=e[j];if r<12 then if 5>=r then if r<=2 then if r>0 then if r~=-3 then repeat if 2~=r then local r,o,f,a,c;local l=0;while l>-1 do if l<3 then if l<1 then r=e;else if 0<l then for e=19,81 do if 1<l then f=t;break;end;o=d;break;end;else o=d;end end else if 5>l then if 3~=l then c=r[o];else a=r[f];end else if l>=3 then for e=34,75 do if 5~=l then l=-2;break;end;n(c,a);break;end;else l=-2;end end end l=l+1 end break;end;do return end;until true;else do return end;end else l=e[t];end else if 3<r then if r>=2 then repeat if r~=5 then local r,b,k,z,h;n[e[d]]=u[e[t]];l=l+1;e=o[l];r=e[d];b=n[e[t]];n[r+1]=b;n[r]=b[e[f]];l=l+1;e=o[l];n(e[d],e[t]);l=l+1;e=o[l];r=e[d]k,z=s(n[r](c(n,r+1,e[t])))a=z+r-1 h=0;for e=r,a do h=h+1;n[e]=k[h];end;l=l+1;e=o[l];r=e[d]n[r]=n[r](c(n,r+1,a))l=l+1;e=o[l];n[e[d]]();l=l+1;e=o[l];do return end;break;end;local l=e[d]local t,e=s(n[l](c(n,l+1,e[t])))a=e+l-1 local e=0;for l=l,a do e=e+1;n[l]=t[e];end;until true;else local l=e[d]local t,e=s(n[l](c(n,l+1,e[t])))a=e+l-1 local e=0;for l=l,a do e=e+1;n[l]=t[e];end;end else if(n[e[d]]~=e[f])then l=l+1;else l=e[t];end;end end else if r>8 then if 9<r then if 6<=r then for l=45,80 do if r~=11 then local l=e[d]local t,e=s(n[l](c(n,l+1,e[t])))a=e+l-1 local e=0;for l=l,a do e=e+1;n[l]=t[e];end;break;end;local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[f]];break;end;else local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[f]];end else n[e[d]]();end else if r>6 then if r<8 then n[e[d]]=(e[t]~=0);else for r=0,3 do if 2>r then if r>-1 then for a=24,65 do if 1>r then n[e[d]]=(e[t]~=0);l=l+1;e=o[l];break;end;u[e[t]]=n[e[d]];l=l+1;e=o[l];break;end;else n[e[d]]=(e[t]~=0);l=l+1;e=o[l];end else if 1~=r then repeat if 2<r then if(n[e[d]]~=e[f])then l=l+1;else l=e[t];end;break;end;n[e[d]]=u[e[t]];l=l+1;e=o[l];until true;else n[e[d]]=u[e[t]];l=l+1;e=o[l];end end end end else n[e[d]]=(e[t]~=0);end end end else if 17>=r then if 15>r then if r<=12 then local r,o,c,f,a;local l=0;while l>-1 do if l<3 then if l<=0 then r=e;else if l==2 then c=t;else o=d;end end else if l>=5 then if 2~=l then for e=11,69 do if 6>l then n(a,f);break;end;l=-2;break;end;else l=-2;end else if 1<l then for e=46,68 do if 3<l then a=r[o];break;end;f=r[c];break;end;else a=r[o];end end end l=l+1 end else if r>10 then for o=35,74 do if 14~=r then do return end;break;end;if(n[e[d]]~=e[f])then l=l+1;else l=e[t];end;break;end;else do return end;end end else if r<16 then n[e[d]]();else if r>16 then local d=e[d];local l=n[e[t]];n[d+1]=l;n[d]=l[e[f]];else n[e[d]]=u[e[t]];end end end else if 21<=r then if r>21 then if 21~=r then repeat if r~=23 then n[e[d]]=u[e[t]];break;end;u[e[t]]=n[e[d]];until true;else u[e[t]]=n[e[d]];end else local e=e[d]n[e]=n[e](c(n,e+1,a))end else if 18>=r then local e=e[d]n[e]=n[e](c(n,e+1,a))else if r>=18 then repeat if r>19 then u[e[t]]=n[e[d]];break;end;l=e[t];until true;else l=e[t];end end end end end l=1+l;end;end;return _ end;local t=0xff;local u={};local a=(1);local d='';(function(n)local l=n local o=0x00 local e=0x00 l={(function(f)if o>0x31 then return f end o=o+1 e=(e+0xa67-f)%0x3c return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xab);t[2]=(t[2]*(y(function()u()end,c(d))-y(t[1],c(d))))+1;u[a]={};t=t[2];a=a+t;end return true end)'rEDmI'and l[0x3](0x12d+f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6c);end return true end)'ZiBef'and l[0x2](f+0x1b7))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x45);d={d..'\58 a',d};u[a]=_();a=a+((not r.CuDGIUUF)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'emryD'and l[0x1](f+0x216))or f end),(function(r)if o>0x25 then return r end o=o+1 e=(e+0x1100-r)%0x41 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x21);end return true end)'mAwHk'and l[0x3](0xb4+r))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x6);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'WeORn'and l[0x1](r+0x389))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x3b);end return true end)'etZpt'and l[0x2](r+0x1bc))or r end),(function(d)if o>0x2a then return d end o=o+1 e=(e+0x12b1-d)%0x4b return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4d);end return true end)'FWsuC'and l[0x3](0x197+d))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xcf);end return true end)'xGjLh'and l[0x1](d+0x354))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x77);u[a]=ee();a=a+t;end return true end)'PRuKe'and l[0x2](d+0x2ea))or d end)}l[0x2](0x1d53)end){};local e=ne(c(u));return e(...);end return g((function()local n={}local e=0x01;local l;if r.CuDGIUUF then l=r.CuDGIUUF(g)else l=''end if r.kzPPMALW(l,r.WyAIDUod)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(e,l,n,t,d,r)local r;if e<4 then if 1>=e then if e~=-2 then repeat if e>0 then do return function(n,e,l)if l then local e=(n/2^(e-1))%2^((l-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(n%(e+e)>=e)and 1 or 0;end;end;end;break;end;do return l(1),l(4,d,t,n,l),l(5,d,t,n)end;until true;else 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;end else if 3~=e then do return 16777216,65536,256 end;else do return l(1),l(4,d,t,n,l),l(5,d,t,n)end;end end else if 5<e then if 6<e then if 3<=e then for l=46,89 do if e~=8 then do return setmetatable({},{['__\99\97\108\108']=function(e,t,d,l,n)if n then return e[n]elseif l then return e else e[t]=d end end})end break;end;do return n(e,nil,n);end break;end;else do return n(e,nil,n);end end else do return d[n]end;end else if 4<e then local e=t;do return function()local n=l(n,e(e,e),e(e,e));e(1);return n;end;end;else local e=t;local t,d,r=d(2);do return function()local l,o,a,n=l(n,e(e,e),e(e,e)+3);e(4);return(n*t)+(a*d)+(o*r)+l;end;end;end end end end),...)