Just Another, Yet Another Japh..

[defyance]

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"}

PS: ++ To jeffa for the advice

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

[innominate]

Try this oneliner out:

print map chr().$/,($;=ord($;)+46,$^L=ord($^L)*8+1,$=+=20,$^F*=52)

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

[defyance]

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.