Hello Hubert! [EMAIL PROTECTED] (Hubert Depesz Lubaczewski) wrote: > best as for now is: > #!perl -l > > ($_=pop).=reverse;s/(.)./$1/g;print unpack"H*",reverse$_ > x1e4&(($q=pop)^~$q)^$q
one char off: -l ($_=pop).=reverse;s/(.)./$1/g;print~reverse~unpack h.2*$-[pop!~/$/],$_ x1e4^$` --- Mtv Europ
