@.=($$_,$+,$,);
         ;$$_=~$$_.+$1;$_='$;
        JustAnotherPerlHacker
      ';s#($/| )##g;$_=reverse;
       chop;chop;($chop,$:)=('
       hack;h...ack!;...$yeah!
       ;$+;......@_;......;$+;
        $a.......','.......$$
        $$$.....$$.$$.....$$$
        "$,==$*?$.:.#i_said
          hack!#..:..#$$$$$
          $_="drinkpoison";
           $$";"$";"$"$"$$
  $$$      $$$$ $ $ $ $$$$       $$$
 $$$$$      $$$$$$$$$$$$$       $$$$$
  $$$$$      "$$$$$$$$$"     $$$$$$$$$
$$$$$$$$$$$$$   """""    $$$$$$$$$$$$');
chomp;hack;$_=reverse;ch0p;$__.='$$#$"
 """    ""$$$$$$$$$$$$$ ""$""")';
       s/([JAPH])/$".lc($&)/ge;#
   $__='#assign JAPH to STDIN ,chop!$$$$$)'
  ;print,'skull           skullskullbone
   skull                      $chop!';

[download]

--
notsoevil
--
Jeremiah 49:32 - And their camels shall be a booty. . .

Replies are listed 'Best First'.
Re: notsogood
by notsoevil (Pilgrim) on Jan 11, 2001 at 08:22 UTC
    This post originally had -w and strict on the top and ran just fine on my windows box, returning absolutely no errors or warnings. Kanji was kind enough to point out (possibly after a healthy smack of a -- vote) that it did not run like that for for him.

    --
    notsoevil
    --
    Jeremiah 49:32 - And their camels shall be a booty. . .

[reply]
      Huh. On my win box -w gets:
      Unquoted string "hack" may clash with future reserved word at skull.pl line 18.
Useless use of concatenation (.) in void context at skull.pl line 2.
Useless use of a constant in void context at skull.pl line 18.
Useless use of a constant in void context at skull.pl line 18.
Useless use of a constant in void context at skull.pl line 22.
Name "main::chop" used only once: possible typo at skull.pl line 5.
Use of uninitialized value in scalar dereference at skull.pl line 1.
Use of uninitialized value in scalar dereference at skull.pl line 2.
Use of uninitialized value in scalar dereference at skull.pl line 2.
Use of uninitialized value in regexp compilation at skull.pl line 2.
Use of uninitialized value in pattern match (m//) at skull.pl line 2.
Use of uninitialized value in concatenation (.) at skull.pl line 2.
 just another perl hacker

      and use strict gets:

      Global symbol "$chop" requires explicit package name at skull.pl line 6.
Global symbol "$__" requires explicit package name at skull.pl line 19.
Global symbol "$__" requires explicit package name at skull.pl line 22.
Bareword "hack" not allowed while "strict subs" in use at skull.pl line 19.
Bareword "ch0p" not allowed while "strict subs" in use at skull.pl line 19.
Execution of skull.pl aborted due to compilation errors.
      May be just my cut'n'pasting ...

      a

[reply]
        UPDATE:
        I posted this after notsoevil removed -w and use strict - heh, I thought that a added them back in. Oh well.

        The one seeking enlightenment
        brings his books with
        him to Tibet.

        He studies from the master

        The master tells him to
        travel far up the mountain
        in the freezing snow

        "Be sure and take your books!" the master reminds

        The one seeking enlightenment
        finds a small hut, not
        even enclosed to protect
        from the freezing wind

        He sits and thinks
        but the cold is getting colder

        Then, he is enlightened!

        He tears the pages from his books
        one
        by
        one
        And burns them to keep from dying

        (from "The Razor's Edge")

        Jeff 

        L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)
[reply]
(zdog) Re: notsogood
by zdog (Priest) on Jan 18, 2001 at 07:22 UTC
    After anylyzing the code, I realized why this is notsogood. The reason is that the actual code in the obfuscation is very simple and most of the "obfuscation" is really ASCII art. If you strip it of the art you get these 7 lines:
    $_='$;JustAnotherPerlHacker'; # assign '$;JustAnotherPerlHacker' to $_

$_=reverse; # reverse it
    
chop; # chop the '$' off
chop; # chop the ';' off

$_=reverse; # unreverse it

s/([JAPH])/$".lc($&)/ge; # put spaces before the letter J,A,P,H and ma
+ke them lowercase

print; # print it

    [download]

    Good obfuscated code should have the code hard to read and not be difficult to read because it is surrounded by a bunch of random characters. This is also the reason why strict and -w don't work here. I don't want to sound insulting or offensive, it's just that I want to show people how to make their obfuscations better.

    Zenon Zabinski | zdog | Zenon.Zabinski03@students.bcp.org

[reply]
[d/l]
Re: notsogood
by ZX (Novice) on Jan 17, 2001 at 04:07 UTC
    This is very good obfuscated code! It looks scary! ++notsoevil!
[reply]

Back to Obfuscated Code