in reply to Re^2: Uncover Hex
in thread Just another Perl hacker

Thanks for the help. This is simpler.

 perl -pe 's/eval/print/' filename.pl|perl

Thank you cristian.

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

Replies are listed 'Best First'.
Re^4: Uncover Hex
by cristian (Hermit) on Mar 23, 2005 at 19:19 UTC
    Yes , exactly. 
    $__.= chr hex $_ for split /\\x/,'\x4a\x75\x73\x74\x20\x61\x6e\x6f\x74
+\x68\x65\x72\x20\x50\x65\x72\x6c\x20\x68\x61\x63\x6b\x65\x72\x0a';pri
+nt $__;


or

perl -pe 's/eval/print/' filename.pl|perl|perl

    [download]
    ja ja ja fun
[reply]
[d/l]

In Section Obfuscated Code