Not really obfu'd, but its an interesting japh.

My First Attempt, RIP IT UP!

But seriously, I'd like to hear ways that you would improve this, thats a great way for me to learn.. 

#!/usr/bin/perl -w
use strict;
my $a=2*40;
my $b=18.5*4;
my $c=5.2000*20;
my $d=3.8800000*25;
my $e= $c+ $b- $a- $d;
foreach( $b, $d, $a, $c)
{print chr($_) x $e, "\n"}

[download]

PS: ++ To jeffa for the advice

-- Can't never could do anything, so give me and inch, I'll make it a mile.

Replies are listed 'Best First'.
Re: Just Another, Yet Another Japh..
by innominate (Beadle) on Oct 31, 2002 at 21:00 UTC
    Try this oneliner out: 
    print map chr().$/,($;=ord($;)+46,$^L=ord($^L)*8+1,$=+=20,$^F*=52)

    [download]
    Same concept, just ditched the foreach loop and the declared variables. I always muck up internal variables for obfu's. It makes things a tad more hard to decypher.

    -inno
[reply]
[d/l]
      Nicely done, very nice indeed. I never once thought of using internals, will surely consider that next time!

      Thanks for the advice!

      -- Can't never could do anything, so give me and inch, I'll make it a mile.

[reply]

Back to Obfuscated Code