Descriptar código str_rot13 mi Php

[jafp_pe]

Hola amigos, espero que me ayuden a descriptar un codigo php qu eme tiene loco y con miedo, por favor en un theme que tengo esta ecriptado un codigo, si yo saco aquel codigo, el theme no funciona, ayudenme por favor este es el código:

Código:

<?php eval(str_rot13('shapgvba purpx_sbbgre(){
$y=\'Qrfvtarq ol 
<n uers="uggc://jjj.jroubfgvatznfgref.pbz/orfg-erfryyre-ubfgvat/">
orfg erfryyre ubfgvat</n>.
Pbqr ol 
<n uers="uggc://jjj.jroubfgvatznfgref.pbz/orfg-erfryyre-ubfgvat/">
erfryyre ubfgvat</n> | 
<n uers="uggc://jjj.jroubfgvatznfgref.pbz/orfg-erfryyre-ubfgvat/">
purnc erfryyre ubfgvat</n> | 
<n uers="uggc://jjj.jroubfgvatznfgref.pbz/orfg-erfryyre-ubfgvat/">
erfryyre jro ubfgvat</n>.\';
$s=qveanzr(__SVYR__).\'/sbbgre.cuc\';$sq=sbcra($s,\'e\');
$p=sernq($sq,svyrfvmr($s));spybfr($sq);
vs(fgecbf($p,$y)==0){rpub \'Guvf gurzr vf eryrnfrq haqre perngvir pbzzbaf yvprapr, nyy yvaxf va gur sbbgre fubhyq erznva vagnpg\';qvr;}}purpx_sbbgre();'));?>
<?php eval(str_rot13('shapgvba purpx_urnqre(){vs(!(shapgvba_rkvfgf("purpx_shapgvbaf")&&shapgvba_rkvfgf("purpx_s_sbbgre"))){rpub(\'Guvf gurzr vf eryrnfrq haqre perngvir pbzzbaf yvprapr, nyy yvaxf va gur sbbgre fubhyq erznva vagnpg\');qvr;}}'));?>

DECODE!