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

Yes , is a shorter way. But , my idea. 3 Layer and oposition hex , into the hex (H) code . idea: into the H exist code to decrypt H and finaly Japh in hex. probe change eval to print; Thanks for you comment. It do risk perl comunity

Replies are listed 'Best First'.
Re^3: Uncover Hex
by starbolin (Hermit) on Mar 23, 2005 at 04:23 UTC

    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}
[reply]
[d/l]
      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