PHP Decode

([[This file was protected with MoonSec V3]]):gsub('.+', (function(a) _BVZ_pSioFgFo = a; end)); return(function(u,...)local r;local a;local o;local d;local b;local t;local e=24915;local n=0;local l={};while n<983 do n=n+1;while n<0xf7 and e%0x315e<0x18af do n=n+1 e=(e*114)%32039 local f=n+e if(e%0x1b1c)<=0xd8e then e=(e*0x16b)%0x266c while n<0x182 and e%0x1148<0x8a4 do n=n+1 e=(e*509)%15136 local f=n+e if(e%0x27dc)>0x13ee then e=(e-0x12e)%0xafc9 local e=68144 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=o.byte(n(0x01))local e=n(e)if l=="\2"then e=r.eoHHeQHy(e)elseif l=="\3"then e=e~="\0"elseif l=="\6"then d[e]=function(n,e)return u(8,nil,u,e,n)end elseif l=="\4"then e=d[e]elseif l=="\0"then e=d[e][n(o.byte(n(0x01)))];end local n=n(0x08)r[n]=e end end end elseif e%2~=0 then e=(e-0x94)%0x5ca1 local e=52425 if not l[e]then l[e]=0x1 a="\4\8\116\111\110\117\109\98\101\114\101\111\72\72\101\81\72\121\0\6\115\116\114\105\110\103\4\99\104\97\114\76\67\83\106\117\97\109\79\0\6\115\116\114\105\110\103\3\115\117\98\72\118\66\106\98\68\89\95\0\6\115\116\114\105\110\103\4\98\121\116\101\104\120\100\121\104\119\76\122\0\5\116\97\98\108\101\6\99\111\110\99\97\116\95\103\76\104\99\103\71\97\0\5\116\97\98\108\101\6\105\110\115\101\114\116\102\82\81\115\106\106\83\97\5";end else e=(e-0x8f)%0x8230 n=n+1 local e=9440 if not l[e]then l[e]=0x1 r={};end end end elseif e%2~=0 then e=(e+0x31e)%0x29b8 while n<0x1e7 and e%0x307c<0x183e do n=n+1 e=(e*362)%12989 local t=n+e if(e%0x164a)<0xb25 then e=(e*0x49)%0x5dbe local e=63847 if not l[e]then l[e]=0x1 b=tonumber;end elseif e%2~=0 then e=(e*0x323)%0x2e50 local e=81221 if not l[e]then l[e]=0x1 end else e=(e+0x2e7)%0xb387 n=n+1 local e=43401 if not l[e]then l[e]=0x1 d=(not d)and _ENV or d;end end end else e=(e+0x365)%0x23b5 n=n+1 while n<0x1e8 and e%0x2658<0x132c do n=n+1 e=(e*986)%38486 local t=n+e if(e%0x3e06)>=0x1f03 then e=(e+0x336)%0xb995 local e=25247 if not l[e]then l[e]=0x1 o=string;end elseif e%2~=0 then e=(e+0x1c4)%0xbec3 local e=17360 if not l[e]then l[e]=0x1 end else e=(e*0x22d)%0x9665 n=n+1 local e=75823 if not l[e]then l[e]=0x1 d=getfenv and getfenv();end end end end end e=(e*723)%27051 end t(a);local e={};for n=0x0,0xff do local l=r.LCSjuamO(n);e[n]=l;e[l]=n;end local function h(n)return e[n];end local o=(function(f,t)local a,l=0x01,0x10 local n={{},{},{}}local d=-0x01 local e=0x01 local o=f while true do n[0x03][r.HvBjbDY_(t,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=#t while e<d+0x01 do n[0x02][l]=r.HvBjbDY_(t,e,(function()e=a+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 r.fRQsjjSa(n[0x01],(h((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=f+o;end end return r._gLhcgGa(n[0x01])end);t(o(98,"6wO_C%fE0V}/yY78}_"));t(o(6,"x0kr,*83CQh)4pwddhdh80*4*,,*,,r34wkCrrk*kk0(0,00p4w3d)w_wpC;3)wK4p4*4h4,hQ)4QCC)hhCrQQhmkrk0C8Ck3r3k3k838h8*k)rCk)khrC4C4Ckdkhkk0r0kV*Qpddwpdhwrwkpp)Q)rp,4p)3hsh,,,,kh*QrhzCwk*C83C3rCM3k,),*8Qr8r8rr,r,hp1pkrr0dkC0)(p08dp_hd0w4d(wrwp484w4w4)p,hwQ0,4,QQkQ)QrQwQrQ?,)*,Ck3d**,3rd,Ak4w8wM,pr0rrrCk4S0k*0dd)0*ddH,QfCQ))wr)p),p8p1)*Qp)h*g,w),hQh3hkQhC)Ch3p3w338r3**4rp*d*;wupd,Ckdkhkwk0)4k*0C0,ddd)dpw9p)4*)pw)pp404r8y*44*)C),QdQ)QpQrC)8kC38p3),)8dy.d)8P*4,p,4,40Qr30hr000kHdk wh8hk&Qd*d8wQw0w4),)ppC)3hp)C)ph0,k,;hrQ0QwC4kr3w3w3)3*3k84*pr3k),)rm,30*4d"));local e=(-12872+(function()local t,l=0,1;(function(l,d,e,n)e(n(n,e,e,l),n(n,e,n,e),l(e and d,e,n,n),d(e,n,e,l))end)(function(d,e,r,n)if t>337 then return r end t=t+1 l=(l-483)%40946 if(l%1838)<919 then return e(e(e,r,r,e),r(n,d,n and e,d),r(n,d and d,r,e)and d(e,n,n and n,r),n(d,e,n,e))else return d end return e end,function(n,r,e,d)if t>269 then return r end t=t+1 l=(l+615)%7698 if(l%748)>374 then l=(l*432)%43857 return n(d(n,e,n,e),e(d,n,d,d),r(r and e,e,n and e,d),n(n,d,e and e,e))else return e end return n end,function(e,d,n,r)if t>208 then return n end t=t+1 l=(l*928)%19617 if(l%324)>=162 then return d else return e(e(e and n,r,e,r),e(n and n,n,d,d),n(d,e,e,n),n(e,r,r,r and e))end return d(d(n,e,e,d),n(r,e,e,r),n(e,d,n,d)and e(r,n and n,e,r),d(e,e and e,d,d)and e(e,n,n and n,e))end,function(n,r,d,e)if t>369 then return e end t=t+1 l=(l+236)%26171 if(l%412)<=206 then return e else return e(n(e,n,r and d,d)and e(n,r,r,r),d(e and e,d,e,d),n(d,d,n,n),r(e,e,e,d))end return e(e(r,d and d,e and n,e and n),n(n,n,e,r),n(e,r and e,d,n),d(d,r,r,r))end)return l;end)())local ne=(getfenv)or(function()return _ENV end);local c=r.geBmYmCm or r.TUECwoYa;local t=3;local ee=1;local d=2;local f=4;local function y(z,...)local a=o(e,"cCP7BbzIY+>MXZ5{5C>BIzBYC>{7M5+pzP>Cz{BzL+55>{+;{PZC+zzY7>zMPKNzZXM7+zBM772MMB>IbYb7Mz+Cb>PX{5PbCbZ+MYYzBMP+{7+P7PB5Zz>YI>MB+PzB7PLI>6zI7+B5S{{IY3YMb{7XJP5C>UYbbbC+{YMM++z>BP.b5%MYBBBMP+{+YZY7IP7+l>5CMS+bCZ7r#b+Zz{7b75PC55MbB{zIP+0>Z7>XYP_{C{5bM{+zP+7YAZZC>zI+bY5z{zZCY{n Z+>BIzBYzPz_7P#6>+++I>ZYMPIXB5PgBI7I{MZ>>YzZBMCbYPIMPz{YX>{aZz>+Yb-BCX{CXz+CC5BIR75IzzYYbXPMoPXb+bIY7MsX+>X7YIzBP>MBM7>II+B>nC5bMbBBBX{M+>Yb75Cv5P4C{bXI+YB{77%7ZC+IY>b>P7{>Xb>7B>7Zn>ZX>{Y>P{7B9zZz7zYCZ>>XI5MY+zzY7z(M>BzM7ZBBCM{IM++IzX7KXXZ7MCYCCbC+{>XbbZII7I.zZ5MIY+bI7CM{+7zz7YCCZX>{Y7b3PI{+XX+Zz>Bw2{5_MIYZb{PI7bZbZ7>XBbP+{5ZXZPz5zXGb5+>bMBYzC>/B?C+b>Xz{P7{zMP>{zM7IPbZ{XIYBbzCZ{+X>+BY{BC{>q75BMBbXPICM5>>X+PzM77ZBMbMCzIb7P7XCM7+PbPBXPkMXM++#7Y,M+Pz57z8YZ>CY5ZMCYzzI7>.>Z7>>Ib5TM+YBbzPYbC7C)KZYMCY7bCMY+>bXP5qSBCG{ZIXCIXb5PZ_+ZC>+IY75C{5>MX++{bXB+zzY7>rXM+>>XPbB7b{YX>+XXCMuIIBIC{5+Xzz{zz7+e5ZYI+BXC{MX+Pz)7PuB7Z9+5IMC7B{UXP+BzzB+_>ZX>5YCbPPB{zZ>>{zX75CR5>MBYzbY7XCYX5>oIPBzCz5YM>MPIB748PZB>XIYBMCX{bXm+zIB7z#YZ>MPI5bCPP{BZC+Yz>7XF{5jMPYBzYP>{>XX+5I5BPCB5zX>Y5bXP5:eZY>BIzBYPX{{M5+hzPBjHzZY>>Y5zYPl{PXB++zY7>HX{HMCYPbBPzkCX>+Xz5bPCZ5BMzYYzbPX{5ZlMBIMBzCY5>X+Y5zE7PCzZI>YI>BXC{{#XP+BIY75p>ZX>5Y>bPPB{zZ>>{zX7{Cu{CMBYzbYB>CbX5>CIPBbCz5ZM>+5zB7jQbZB>>IYB>CX55X{+Pzb7zuMZ>>XI5b-7P{BXz+Yz>7XC&5=MP+{bzPY{>XZ+5ICBPCB{+MYY>bXP{ iZP>BIzBYC>5XM5");local n=0;r.WpRKpOkx(function()r.nIssUuep()n=n+1 end)local function e(e,l)if l then return n end;n=e+n;end local l,n,h=u(0,u,e,a,r.hxdyhwLz);local function o()local n,l=r.hxdyhwLz(a,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local s=true;local s=0 local function _()local d=n();local e=n();local t=1;local d=(l(e,1,20)*(2^32))+d;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(d==s)then return e*0;else n=1;t=0;end;elseif(n==2047)then return(d==0)and(e*(1/0))or(e*(0/0));end;return r.OOyLRUkx(e,n-1023)*(t+(d/(2^52)));end;local p=n;local function k(n)local l;if(not n)then n=p();if(n==0)then return'';end;end;l=r.HvBjbDY_(a,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+s),#l do e=e..r.HvBjbDY_(l,n,n)end return e;end;local s=#r.nm_wdKsj(b('\49.\48'))~=1 local e=n;local function j(...)return{...},r.BQrWSdoY('#',...)end local function m()local e={};local c={};local u={};local b={c,u,nil,e};local e=n()local a={}for d=1,e do local l=h();local e;if(l==2)then e=(h()~=#{});elseif(l==3)then local n=_();if s and r.iKKrqaPZ(r.nm_wdKsj(n),'.(\48+)$')then n=r.riICiTqE(n);end e=n;elseif(l==0)then e=k();end;a[d]=e;end;for u=1,n()do local e=h();if(l(e,1,1)==0)then local r=l(e,2,3);local h=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==z[2])then e[t]=n()-(2^16)elseif(r==z[3])then e[t]=n()-(2^16)e[f]=o();end;if(l(h,1,1)==1)then e[d]=a[e[d]]end if(l(h,2,2)==1)then e[t]=a[e[t]]end if(l(h,3,3)==1)then e[f]=a[e[f]]end c[u]=e;end end;b[3]=h();for e=1,n()do u[e-(#{1})]=m();end;return b;end;local function y(l,e,n)local d=e;local d=n;return b(r.iKKrqaPZ(r.iKKrqaPZ(({r.WpRKpOkx(l)})[2],e),n))end local function le(k,e,a)local function g(...)local o,y,b,m,s,n,h,p,z,_,g,l;local e=0;while-1<e do if e>2 then if 4>=e then if-1<=e then for n=47,71 do if 3<e then _=r.BQrWSdoY('#',...)-1;g={};break;end;p={};z={...};break;end;else p={};z={...};end else if e>1 then for n=29,85 do if e~=6 then l=u(7);break;end;e=-2;break;end;else e=-2;end end else if e<=0 then o=u(6,38,1,89,k);y=u(6,83,2,82,k);else if e~=0 then for l=23,81 do if e~=2 then b=u(6,53,3,95,k);s=j m=0;break;end;n=-41;h=-1;break;end;else b=u(6,53,3,95,k);s=j m=0;end end end e=e+1;end;for e=0,_ do if(e>=b)then p[e-b]=z[e+1];else l[e]=z[e+1];end;end;local e=_-b+1 local e;local r;local function u(...)while true do end end while true do if n<-40 then n=n+42 end e=o[n];r=e[ee];if 11<r then if r<18 then if 15>r then if r>12 then if r==13 then a[e[t]]=l[e[d]];else local n=e[d]local d,e=s(l[n](c(l,n+1,e[t])))h=e+n-1 local e=0;for n=n,h do e=e+1;l[n]=d[e];end;end else n=e[t];end else if 16<=r then if 16<r then for r=0,3 do if r>=2 then if 1<r then repeat if r<3 then l[e[d]]=a[e[t]];n=n+1;e=o[n];break;end;if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;until true;else l[e[d]]=a[e[t]];n=n+1;e=o[n];end else if-1~=r then repeat if r~=1 then l[e[d]]=(e[t]~=0);n=n+1;e=o[n];break;end;a[e[t]]=l[e[d]];n=n+1;e=o[n];until true;else a[e[t]]=l[e[d]];n=n+1;e=o[n];end end end else n=e[t];end else l[e[d]]();end end else if r<=20 then if 19>r then local n=e[d]local d,e=s(l[n](c(l,n+1,e[t])))h=e+n-1 local e=0;for n=n,h do e=e+1;l[n]=d[e];end;else if 17<=r then for n=27,71 do if r>19 then local o,f,h,a,r;local n=0;while n>-1 do if n<=2 then if 1>n then o=e;else if n~=2 then f=d;else h=t;end end else if n>4 then if 2<=n then for e=13,55 do if 6>n then l(r,a);break;end;n=-2;break;end;else l(r,a);end else if n~=0 then repeat if 3~=n then r=o[f];break;end;a=o[h];until true;else r=o[f];end end end n=n+1 end break;end;local e=e[d]l[e]=l[e](c(l,e+1,h))break;end;else local e=e[d]l[e]=l[e](c(l,e+1,h))end end else if r>=23 then if 21~=r then for n=42,78 do if 23~=r then l[e[d]]=a[e[t]];break;end;l[e[d]]=(e[t]~=0);break;end;else l[e[d]]=a[e[t]];end else if 17<r then repeat if r>21 then l[e[d]]();break;end;local r,b,z,k,u;l[e[d]]=a[e[t]];n=n+1;e=o[n];r=e[d];b=l[e[t]];l[r+1]=b;l[r]=b[e[f]];n=n+1;e=o[n];l(e[d],e[t]);n=n+1;e=o[n];r=e[d]z,k=s(l[r](c(l,r+1,e[t])))h=k+r-1 u=0;for e=r,h do u=u+1;l[e]=z[u];end;n=n+1;e=o[n];r=e[d]l[r]=l[r](c(l,r+1,h))n=n+1;e=o[n];l[e[d]]();n=n+1;e=o[n];do return end;until true;else l[e[d]]();end end end end else if r<=5 then if 3<=r then if r>3 then if r~=4 then local d=e[d];local n=l[e[t]];l[d+1]=n;l[d]=n[e[f]];else for r=0,6 do if 3<=r then if r<5 then if 4==r then a[e[t]]=l[e[d]];n=n+1;e=o[n];else l(e[d],e[t]);n=n+1;e=o[n];end else if r>=2 then for f=32,54 do if 5~=r then a[e[t]]=l[e[d]];break;end;l(e[d],e[t]);n=n+1;e=o[n];break;end;else a[e[t]]=l[e[d]];end end else if r>=1 then if r~=1 then a[e[t]]=l[e[d]];n=n+1;e=o[n];else l(e[d],e[t]);n=n+1;e=o[n];end else a[e[t]]=l[e[d]];n=n+1;e=o[n];end end end end else a[e[t]]=l[e[d]];end else if 1<=r then if r==2 then local r,o,f,h,a;local n=0;while n>-1 do if n<3 then if n<1 then r=e;else if n==2 then f=t;else o=d;end end else if n>4 then if n>=4 then for e=32,69 do if 5~=n then n=-2;break;end;l(a,h);break;end;else n=-2;end else if-1~=n then for e=45,56 do if 4>n then h=r[f];break;end;a=r[o];break;end;else a=r[o];end end end n=n+1 end else do return end;end else if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;end end else if r<=8 then if r<7 then l[e[d]]=a[e[t]];else if r>3 then repeat if 7~=r then l[e[d]]=(e[t]~=0);break;end;local d=e[d];local n=l[e[t]];l[d+1]=n;l[d]=n[e[f]];until true;else local n=e[d];local d=l[e[t]];l[n+1]=d;l[n]=d[e[f]];end end else if 9>=r then local e=e[d]l[e]=l[e](c(l,e+1,h))else if 11==r then do return end;else if(l[e[d]]~=e[f])then n=n+1;else n=e[t];end;end end end end end n=1+n;end;end;return g end;local t=0xff;local h={};local o=(1);local d='';(function(n)local l=n local a=0x00 local e=0x00 l={(function(d)if a>0x21 then return d end a=a+1 e=(e+0x1216-d)%0x16 return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x0);end return true end)'EUpWF'and l[0x2](0x315+d))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x73);end return true end)'hoQEe'and l[0x3](d+0x20c))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x86);end return true end)'crXnv'and l[0x1](d+0x1c9))or d end),(function(f)if a>0x2d then return f end a=a+1 e=(e+0x4f0-f)%0xf return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xb1);d={d..'\58 a',d};h[o]=m();o=o+((not r.dnqBSmXk)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'mIbVE'and l[0x2](0x3e2+f))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xbc);t[2]=(t[2]*(y(function()h()end,c(d))-y(t[1],c(d))))+1;h[o]={};t=t[2];o=o+t;end return true end)'GiiBe'and l[0x3](f+0x99))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd1);end return true end)'yJWPI'and l[0x1](f+0x390))or f end),(function(r)if a>0x26 then return r end a=a+1 e=(e+0x1089-r)%0x14 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x26);end return true end)'CYxAJ'and l[0x3](0x1de+r))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xa3);h[o]=ne();o=o+t;end return true end)'qQbsD'and l[0x1](r+0x196))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x11);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'SyKIM'and l[0x2](r+0x24c))or r end)}l[0x3](0x1389)end){};local e=le(c(h));return e(...);end return y((function()local n={}local e=0x01;local l;if r.dnqBSmXk then l=r.dnqBSmXk(y)else l=''end if r.iKKrqaPZ(l,r.oxyEXQVj)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,d,t,r)local r;if 4>n then if n>1 then if-1<=n then repeat if n<3 then do return 16777216,65536,256 end;break;end;do return e(1),e(4,t,d,l,e),e(5,t,d,l)end;until true;else do return e(1),e(4,t,d,l,e),e(5,t,d,l)end;end else if-3<=n then repeat if n~=0 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;break;end;do return e(1),e(4,t,d,l,e),e(5,t,d,l)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 end else if n<=5 then if 3<n then for r=28,74 do if 5~=n then local n=d;local t,d,r=t(2);do return function()local e,l,a,o=e(l,n(n,n),n(n,n)+3);n(4);return(o*t)+(a*d)+(l*r)+e;end;end;break;end;local n=d;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;break;end;else local n=d;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;end else if n>=7 then if n>5 then repeat if 8~=n then do return setmetatable({},{['__\99\97\108\108']=function(e,d,l,t,n)if n then return e[n]elseif t then return e else e[d]=l end end})end break;end;do return l(n,nil,l);end until true;else 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 end else do return t[l]end;end end end end),...)