#!/usr/bin/perl eval "\x24\x5f\x5f\x2e\x3d". "\x20\x63\x68\x72\x20". "\x68\x65\x78\x20\x24". "\x5f\x20\x66\x6f\x72". "\x20\x73\x70\x6c\x69". "\x74\x20\x2f\x5c\x5c". "\x78\x2f\x2c\x27\x5c". "\x78\x34\x61\x5c\x78". "\x37\x35\x5c". "\x78\x37\x33". "\x5c\x78\x37". "\x34\x5c\x78". "\x32\x30\x5c". "\x78\x36\x31". "\x5c\x78\x36\x65\x5c\x78\x36\x66\x5c\x78". "\x37\x34\x5c\x78\x36\x38\x5c\x78\x36\x35". "\x5c\x78\x37\x32\x5c\x78\x32\x30\x5c\x78". "\x35\x30\x5c\x78\x36\x35\x5c\x78\x37\x32". "\x5c\x78\x36". "\x63\x5c\x78". "\x32\x30\x5c". "\x78\x36\x38". "\x5c\x78\x36". "\x31\x5c\x78". "\x36\x33\x5c\x78\x36". "\x62\x5c\x78\x36\x35". "\x5c\x78\x37\x32\x5c". "\x78\x30\x61\x27\x3b". "\x70\x72\x69\x6e\x74". "\x20\x24\x5f\x5f\x3b". "\x0a\x0a\x0a\x0a\x0a". "\x0a\x0a\x0a\x0a\x0a"

Replies are listed 'Best First'.
Re: Uncover Hex
by jdalbec (Deacon) on Mar 22, 2005 at 00:33 UTC
    ObCanonical JAPH version:
    #!/usr/bin/perl eval "\x24\x5f\x5f\x2e\x3d". "\x20\x63\x68\x72\x20". "\x68\x65\x78\x20\x24". "\x5f\x20\x66\x6f\x72". "\x20\x73\x70\x6c\x69". "\x74\x20\x2f\x5c\x5c". "\x78\x2f\x2c\x27\x5c". "\x78\x34\x61\x5c\x78". "\x37\x35\x5c". "\x78\x37\x33". "\x5c\x78\x37". "\x34\x5c\x78". "\x32\x30\x5c". "\x78\x36\x31". "\x5c\x78\x36\x65\x5c\x78\x36\x66\x5c\x78". "\x37\x34\x5c\x78\x36\x38\x5c\x78\x36\x35". "\x5c\x78\x37\x32\x5c\x78\x32\x30\x5c\x78". "\x35\x30\x5c\x78\x36\x35\x5c\x78\x37\x32". "\x5c\x78\x36". "\x63\x5c\x78". "\x32\x30\x5c". "\x78\x36\x38". "\x5c\x78\x36". "\x31\x5c\x78". "\x36\x33\x5c\x78\x36". "\x62\x5c\x78\x36\x35". "\x5c\x78\x37\x32\x5c". "\x78\x32\x63\x27\x3b". "\x70\x72\x69\x6e\x74". "\x20\x24\x5f\x5f\x3b". "\x0a\x0a\x0a\x0a\x0a". "\x0a\x0a\x0a\x0a\x0a"
Re: Uncover Hex
by starbolin (Hermit) on Mar 22, 2005 at 02:14 UTC

    Hey! That't just davido's code. From Clean up and shimmer.

    Clarifier

    perl -lape '' filename

    Oh wise monks i pray you forgive my trespasses. I erred in posting too hastily. I vow to hit myself about the head with a heavy tomb. Any monks who happen upon this may decrement me most justly.

    starbolin

    s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}
      not problem
Re: Uncover Hex
by starbolin (Hermit) on Mar 22, 2005 at 22:25 UTC

    This one liner translates cristian's code from hex:

    perl -ne 's/(x)(..)(\\|\")(?{print chr hex $2})//g' filename

    Is there a shorter way?

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

        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}