HaeckerChecker

$p='chr';$h=$p(80).sprintf('%c',72).$p(80);$r=ord('R')+1;$h=$h.
chr(strlen($h)+42).strtoupper(chr($r+hexdec('f')+1+(14&$r)+13))
.'O';$o=$h.chr(round((100<<7/65))-33).chr(intval((4742>>5)/2*.5
+39)).'!';print$h.substr($o,6,2).chr((26^$r)+10).substr($o,-1);​