Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Sparkling Japh

by liverpole (Monsignor)
on Aug 17, 2005 at 19:05 UTC ( #484536=obfuscated: print w/ replies, xml ) Need Help??

Try running this in an xterm window!


#!/usr/bin/perl -w
sub d($){defined($        _[             0])}sub p(        $){print    @_}sub r
         ($$)            {int            $_[0]+rand($_     [1]-$_[0    ]+1)}$|=
         016;            my$a            =2;sub c{p"\e"    ."[H";;p    "\e[J";}
         open           (Y,$0)            ;my(    @y,$y)     ;for        (;;)
         {&d(          $y=(<Y>)           ) or    last;;     push        @y ,
         $y.(         ' '   x80           )} $SIG{INT}=      sub{c;exit};c;my
         $b=0        ;;;    for(;         ;){my($r,$c)       =(r(1,@y),r(1,80
         ));;       my$k=(substr($        y[$r-              1],$        c-1,
 1));;   ;;;;      printf"\e[%d;".        "%d".              "H".        "\e"
 ."[1"   .";"     ."7;"       ."%s"       ."m".              "%s"        ."".
 "\e[0m",$r,    $c,r(30,    37),$k if   $k ne" ";          }return;   ;__END__;
    __Just_    _Another_    PerlHacker  by_John_C          _Norton_   8/17/2005


Downloadable code:
#!/usr/bin/perl -w sub d($){defined($ _[ 0])}sub p( $){print + @_}sub r ($$) {int $_[0]+rand($_ [1]-$_[0 + ]+1)}$|= 016; my$a =2;sub c{p"\e" ."[H";;p + "\e[J";} open (Y,$0) ;my( @y,$y) ;for + (;;) {&d( $y=(<Y>) ) or last;; push + @y , $y.( ' ' x80 )} $SIG{INT}= sub{c;exi +t};c;my $b=0 ;;; for(; ;){my($r,$c) =(r(1,@y) +,r(1,80 ));; my$k=(substr($ y[$r- 1],$ + c-1, 1));; ;;;; printf"\e[%d;". "%d". "H". + "\e" ."[1" .";" ."7;" ."%s" ."m". "%s" + ."". "\e[0m",$r, $c,r(30, 37),$k if $k ne" "; }return; +;__END__; __Just_ _Another_ PerlHacker by_John_C _Norton_ +8/17/2005

"download section" added by holli

Comment on Sparkling Japh
Download Code
Re: Sparkling JAPH
by sparkyichi (Deacon) on Aug 17, 2005 at 22:22 UTC
    I love it, very nice!

    Sparky
    FMTEYEWTK
      I wanted to tell you "thanks!" for your kind feedback. It was exciting for me to submit my first program, and have someone reply so quickly with such great encouragement; really made my day!
Re: Sparkling JAPH
by Tanalis (Curate) on Aug 18, 2005 at 06:34 UTC
Re: Sparkling JAPH
by zentara (Archbishop) on Aug 18, 2005 at 12:57 UTC
    Very cool, but where is the "Download Code" link?

    I'm not really a human, but I play one on earth. flash japh
      I didn't see any "download code" links on any of the other obfuscated Perl submissions, so I didn't realize I needed one. Was there a problem with cut-and-pasting it?
        There is most always code tags around them. As a matter of fact, the other obfuscated submission today IP addresses? has them. But no, no problem cut'n'pating. :-) However, there could be if there was some sort of "space sensitive code". When I cut'n'paste with a mouse, I usually have to do a white-space-elimination to get rid of skewing text.

        P.S. Well I guess there are usually code tags only when viewed as a frontpage node, not when viewed from the Obfu section.


        I'm not really a human, but I play one on earth. flash japh
Re: Sparkling JAPH
by jbrugger (Parson) on Aug 19, 2005 at 08:20 UTC
    There is a slight typo in the 'download' version:
    #line 2: 0];)}sub p( # should be: 0])}sub p( #line 3: $_[0];+rand($_ [1];-$_[0 ];+1)}$|= #should read $_[0]+rand($_ [1]-$_[0 ]+1)}$|= # and line 9: 1];,$ # should read: 1],$

    "We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.
      Thanks. Corrected.


      holli, /regexed monk/
Re: Sparkling Japh
by ambrus (Abbot) on Dec 24, 2010 at 11:39 UTC

    This is a bit fast for today's computers, so I have to pipe it through perl -we 'use Time::HiRes "sleep"; $/=\100; while(<>){ print; sleep 1e-4; }' to slow it down. I'm mentioning that because it works with some other obfus too. I can't easily edit the code to add a sleep statement in it, because that breaks the shape of letters.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://484536]
Approved by ktross
Front-paged by Tanalis
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2014-12-22 04:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (110 votes), past polls