hi all,
this is my first non 4 line obfu. hope you guys like it.
$_="C,9++xS8+5!+xS5!+5!+xS0%/x+++5!S+x755!S+x";s#[^x]#-21+ord$&#eg;s#.
+#0
0$&#g;s#0x#40x#g;$a='$_="072x'.$_.q`072";$a="\$a=q\x60$a\x60;".'$a=~s#
+\s
##g;eval$a';@z=map{$d=0;s#...#($d=!$d|0)x$&#eg;$_=[split//]}split/x/;{
+$b
=reverse$a;print"\ec";map{print$_?chop$b:$"for@$_;print$/;push@$_,shif
+t@
$_}@z;select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a

[download]

This is an updated version - the old one is in here: 

$a=q`$a="\$a=q".($t=chr(96)).$a.$t.';$a=~s#\s##g;eval$a#';$_="73x05100
+50
507070403040320x080407030103060303030203040320x08040603030305030303020
+30
40320x080405110407041020x08040404050403030803040320x020303040304070402
+03
0803040320x03080403090302030803040320x73";@z=map{$d=0;s#..#$d=!$d;($d|
+|0
)x$&#eg;$_=[split//]}split/x/;{$b=reverse$a;print"\ec";$c=0;map{for(@$
+_)
{print$_?(chop$b):$"}print$/;$_=[@$_[0],@$_[70],@$_[1..69],@$_[71]];}@
+z;
select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a##########################
+##

[download]

it's a bit cheesy, but i quite like it.
update: Sorry meant to say - it does require vt100 ness (it uses \ec to clear the screen).
update2: i've compressed it a bit, and put original in readmore

al

Replies are listed 'Best First'.
Re: whitespace evil?
by BrowserUk (Patriarch) on Feb 12, 2004 at 18:05 UTC

    Cute! Real cute ++

    Swapping print"\ec" with system'cls' makes it work on win32.

    That meant saving a char somewhere to maintain the formatting, so chr(96) became chr+96, and a little shuffling gives 

    $a=q`$a="\$a=q".($t=chr+96).$a.$t.';$a=~s#\s##g;eval$a#';$_="73x051005
+05
07070403040320x080407030103060303030203040320x080406030303050303030203
+04
0320x080405110407041020x08040404050403030803040320x0203030403040704020
+30
803040320x03080403090302030803040320x73";@z=map{$d=0;s#..#$d=!$d;($d||
+0)
x$&#eg;$_=[split//]}split/x/;{$b=reverse$a;system'cls';$c=0;map{for(@$
+_)
{print$_?(chop$b):$"}print$/;$_=[@$_[0],@$_[70],@$_[1..69],@$_[71]];}@
+z;
select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a##########################
+##

    [download]
    Examine what is said, not who speaks.
    "Efficiency is intelligent laziness." -David Dunham
    "Think for yourself!" - Abigail
    Timing (and a little luck) are everything!
[reply]
[d/l]
Re: whitespace evil?
by wulvrine (Friar) on May 08, 2006 at 11:57 UTC
    Very Nice!! ++!

    If thats 'cheesy' as you put it, heres some expensive wine to go with it

[reply]
Re: whitespace evil?
by zentara (Cardinal) on Feb 12, 2004 at 16:18 UTC
    I like it. I must say the output is quite innovative, or at least I havn't seen it before. :-)
[reply]
Re: whitespace evil?
by flyingmoose (Priest) on Feb 17, 2004 at 14:30 UTC
    Nice. I wasn't expecting anything nearly that cool from that code. Great job!
[reply]

Back to Obfuscated Code