#!/usr/bin/perl
$a="cdfh";printf(join("",map{chr(ord)}map({$_^=(split //,$a)[$i++%
length$a]}(map{chr(eval"0x$_")}(("4617460110442c1d101046090d0b120"
."00616463806160a482b05050306166c")=~/../g)))),$a)#GPL:Colin Horne

##</code><code>##

#!/usr/bin/perl
map{print chr ord}map{$_^=qw{c d f h}[$a++%4]}map{eval"chr 0x$_
"}"2911151c43050807170c031a4334031a0f442e09000f031a4f6e"=~/../g