#!/usr/bin/perl
;$_=q;kvtu bopuifs qfsm ibdlfs
;;;tr;b-v;a-u;;s;(\w+);\u$1;g;
print;s;a;f;e;;m;i;x;;tr-e-n-d

[download]

Replies are listed 'Best First'.
RE: Ceasar was JAPH!
by BooK (Curate) on Sep 27, 2000 at 17:28 UTC

    Sorry to ask it this way, but where is the obfuscation? Without executing it, without using -MO=Deparse on it, here is what I can say:

    • It prints "Just Another Perl Hacker\n"
    • The white space in the ;-quoted string gives it away instantly
    • You shifted the alphabet one step to the right to "encode" this
    • The next s/// (or s;;;) capitalize the words
    • Everything after the print is cosmetic and has no particular use
    You are not using many tricks, apart from special quotes...

[reply]
      Good job. You can install yourself as /usr/bin/perl!


      :)


      Sorry if you didn't like the script... for me it was fun to write. (If memory serves, letter-shifting is known as Ceasar encryption and thus the name)

      If you have any suggestions, i'll be happy to hear.
[reply]

Back to Obfuscated Code