Any way you slice it, it's still hacked up Perl.

die''||(unpack'a'x25,' .JPacehklnorstu')[unpack'c'x25,,pack
'H*',,'0'.join'0',,split//,,'2FDE04ABE76C036C9074586C1'],$/
[download]