use 
                         strict
                        ;s++303 
         3320          130101301
        0130101       30130130101
       3010  10      101010101012           0101
       0101    0    1010  101  333        ++s$3$2
       01$g;        my$m= q&2 B15A       3F1F1F16
        A3C1D      15D5A1F9A17A1A7     A21D1  E6
         E4F1B    13B1C4B    1E5F6F    2F9F2   F
          6C1C5A7A1D9D1D7A1A5D12F1C1  2C1A 
           5D11C3A11B1B5F4F1E15F1F4C1A5D5A
            1E1E1F1A1B1A1B1A1B1A1B1A1B1A
             1C5C1F6F5D1D1D1D1D1D1D1D1D1
              D1D1D1D1F5A1C7C21E1E9E17A
               2A10C1&;@_=grep/[210]/,
               split//;$m=~s/\s//g;my@m
               =split/\D/,$m;s$.|\s$$g
               ;for my$i(0..$#_){ $_
                .= $_[$i] x $m[$i];}
                 s/$/a33y01a44ow55n/;
                  +y+0-5+ H\nple+d;
                   y=x=z=?split/s+/,
                   map++$$,@_:print;
                      #By CubicSpline

[download]

Replies are listed 'Best First'.
Re: Boo!
by Caillte (Friar) on Oct 18, 2001 at 15:53 UTC

    Line 20 has: for my$i, should read for my $i but ++ for the fun ;)

    Update: I'm running perl 5.005_03 on redhat 7. The reason may be because of the antique version of perl I'm running.

    Still, I would say that the space there also makes readbility sense.

    $japh->{'Caillte'} = $me;

[reply]
[d/l]
[select]
      Did that cause you to be unable to run the script? I tested it under Windows and Linux and it ran the same under both. Is that not handled by older versions of Perl? Is it bad obfu form or something?

      Just curious why the comment. =)

      Update: "Still, I would say that the space there also makes readbility sense."
      They don't call it obfuscated code for nothing! =)

[reply]

Back to Obfuscated Code