This is my very first obfuscated code. 
#!/usr/bin/perl
use Time::HiRes usleep;

$|=1;@_=(65,108,108,32,121,111,117,114,32,98,
97,115,101,115,040,97,114,101,040,98,101,108,
111,110,103,32,116,111,32,117,115,97,76,42,69
,24,29,85,6,72,07,65,35,04,29,68,00,82,53,69,
16,9,76,39,15,04,75,17,29,83,85,83);print(map
{chr}(@_[0..$#_/2],13));_:{print(($_!=0?chr(8
):"").chr($_[$_]^$_[$_+($#_/2)+1]))&&usleep((
1<<18)/$.)for(0..++$.-1);$.>$#_>>1||redo _;};

[download]

Replies are listed 'Best First'.
Re: JAPPH?
by ghenry (Vicar) on May 18, 2005 at 13:57 UTC

    I think you have a spelling and grammer mistake ;-)

    I don't want to reveal your secrets here, but if you want me to I will ;-)

    Gavin.

    Walking the road to enlightenment... I found a penguin and a camel on the way.....
    Fancy a yourname@perl.me.uk? Just ask!!!
[reply]
      I think its more or less as intended. But I didn't write it, so I don't really know.

      Spem Successus Alit
[reply]

        Ah yes.

        But when I run it, I am missing the capital A. Maybe it's just too quick to be seen?

        This is on a W2k 5.8.6 box.

        Walking the road to enlightenment... I found a penguin and a camel on the way.....
        Fancy a yourname@perl.me.uk? Just ask!!!
[reply]
        Probably...haven't looked too closely, but the first 65 in the array should be that missing 'A'.

        Spem Successus Alit
[reply]

Back to Obfuscated Code