PHP Decode

<?  do local v0=tonumber;local v1=string.byte;local v2=string.char;local v3=string.sub;local v4=string.gsub;local v5=string.rep;local v6=table.concat;local v7=table.insert;local v8=math.ldexp;local v9=getfenv or function()return _ENV;end ;local v10=setmetatable;local v11=pcall;local v12=select;local v13=unpack or table.unpack ;local v14=tonumber;local function v15(v16,v17,...)local v18=1;local v19;v16=v4(v3(v16,5),"..",function(v30)if (v1(v30,2)==79) then local v66=0;while true do if (v66==0) then v19=v0(v3(v30,1,1));return "";end end else local v67=v2(v0(v30,16));if v19 then local v74=0;local v75;while true do if (v74==0) then v75=v5(v67,v19);v19=nil;v74=1;end if (1==v74) then return v75;end end else return v67;end end end);local function v20(v31,v32,v33)if v33 then local v68=(0 -0) -0 ;local v69;while true do if (v68==(0 + 0)) then v69=(v31/((1992 -(1953 + 37))^(v32-(1 + 0))))%((2 -0)^(((v33-(1 + 0)) -(v32-(1 -0))) + 1 + 0)) ;return v69-(v69%((1 + 0) -0)) ;end end else local v70=2^(v32-(1585 -(1269 + 315))) ;return (((v31%(v70 + v70))>=v70) and (740 -((2051 -(873 + 1121)) + 682))) or (0 -0) ;end end local function v21()local v34=v1(v16,v18,v18);v18=v18 + 1 ;return v34;end local function v22()local v35,v36=v1(v16,v18,v18 + 2 + 0 );v18=v18 + (1953 -(166 + 1785)) ;return (v36 * (747 -491)) + v35 ;end local function v23()local v37,v38,v39,v40=v1(v16,v18,v18 + (1235 -(1105 + 127)) );v18=v18 + (17 -13) ;return (v40 * (11686737 + 5090479)) + (v39 * (270132 -204596)) + (v38 * ((1441 -(1047 + 222)) + 84)) + v37 ;end local function v24()local v41=v23();local v42=v23();local v43=4 -3 ;local v44=(v20(v42,1 -0 ,11 + 9 ) * (((1 -0) + (1 -0))^32)) + v41 ;local v45=v20(v42,1981 -(182 + 1778) ,255 -(213 + 11) );local v46=((v20(v42,89 -57 )==(1 + 0 + 0)) and  -((4 -2) -1)) or (109 -(94 + 14)) ;if (v45==(1203 -(514 + 689))) then if (v44==((0 -0) + 0)) then return v46 * (458 -(90 + 368)) ;else local v76=0;while true do if (v76==(0 -0)) then v45=1 -0 ;v43=(0 -0) -0 ;break;end end end elseif (v45==(3517 -(41 + 1429))) then return ((v44==(0 + 0)) and (v46 * (1/(0 + 0)))) or (v46 * NaN) ;end return v8(v46,v45-1023 ) * (v43 + (v44/((4 -(2 + 0))^((113 -82) + 21)))) ;end local function v25(v47)local v48=101 -(35 + 66) ;local v49;local v50;while true do if (v48==(0 -0)) then v49=nil;if  not v47 then v47=v23();if (v47==(0 + 0)) then return "";end end v48=1;end if (v48==(2 -1)) then v49=v3(v16,v18,(v18 + v47) -(957 -(130 + 826)) );v18=v18 + v47 ;v48=4 -2 ;end if (v48==(212 -(66 + 144))) then v50={};for v77=1 -0 , ?>