spaghetti obfu

howdy! this is my first "regular" obfu (not counting some slightly opaque JAPHs :-), so please be kind and/or help me becoming a better obfuscator.

I originally wanted to have this on a t-shirt for YAPC::Europe::2003, but time did ran out under my feet. a t-shirt will eventually be made, sooner or later.

enjoy, and visit this beautiful country ;-)

use strict;
use warnings;

                     @                           
               _=q*A*;my$                        
       m   ;  @_[7,6]=($_[0]                     
       )x2;my@i;@{_}[1..2]=(                     
  'T','T');@i=($[,$!,$]);*t::_                     
  =\&t;$m=\$";$_[4]='L';$"=""                    
 ;$_={}+1;sub q{&e;&r};@                          
 i=(u=>n=>i=>q(n));$i[4                          
 ]=lc$_[2];$_[-1]++ for#                         
 1..3;$_[1]++;$m=uc(uc(                          
    @i[2    ,].@_[2,].@_                         
    [0        ,]));$_[3]=                        
              $_[5]='O';@i[1
               ,0]=(qw(r i p))                   
               [0,2]; $::{$m}                    
              = sub{_(&e(&d(&o                   
                 (&{c}))))};sub                  
                   _{eval"@i\" \"                
                     "};eval"sub @_\{@i(          
                       \$::@_=~/^.* ::(           
        .*              ?)\$/ix)}";&i&&&t    ;  
    *_::n=\&                 n;a(),&::l;{{&i}    
    };eval "                  \&@{[lc$_[0]]};";  
     *X::=$/                     ;_::n()&&&s();& 
     _;ITA(0                      );*X::=     $/ 
      ;$/.=                          '';#        
     P()=>&                          q,&l,&      
      _; s(                           u)(b(      
                                      ));        
                                     e(b(        
                       ) );$    _={}*@_;         
                      map{$_->_}(q(t));          
                       &q(&t);*_::_              
                          =\&{'!'};              
                            _::_('EN             
                                D')
[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris

Comment on spaghetti obfu Download Code

Replies are listed 'Best First'.
Spaghetti x 4 ;) by gmax (Abbot) on Aug 20, 2003 at 12:45 UTC
Great obfu, dada!. However, the sea is missing ... But here is a remedy >:-). Download the camel code and name it "camel.pl". Make sure you have "spaghetti.pl" in the same directory, and then run this code. Enjoy the sea and a serve of spaghetti for 4! s//6f70656e2043414d454c2c2263616d656c2e706c226f72206469652243616 d656c206e65656465645c6e223b24633b200a245f3d3c43414d454c3e666f722 8312e2e32293b7b6c6f63616c242f3b24633d3c43414d454c3e3b200a24633d7 e792f205c6e5c722f2f643b7d4063616d656c3d73706c69742f2f2c24633b636 c6f73652043414d454c3b2473697a653d6c656e677468282463293b0a6f70656 e205350414748455454492c227370616768657474692e706c226f72206469652 2737061676865747469206e65656465645c6e223b0a6f70656e204954414c592 c223e6974616c792e706c226f7220646965224974616c793f5c6e223b0a77686 96c65283c5350414748455454493e297b7768696c65282f282e292f67297b696 6282431206571222022297b7072696e74204954414c59202220227d200a656c7 3657b7072696e74204954414c59202463616d656c5b24782b2b5d7d7d7072696 e74204954414c5920225c6e223b7d0a666f722824782e2e2473697a652d31297 b7072696e74204954414c59202463616d656c5b245f5d3b7d0a636c6f7365205 350414748455454493b636c6f7365204954414c593b65786563227065726c206 974616c792e706c223b/;s/\s//g;s/(\S\S)/pack("H",$1)/eg;eval; [download] This is not high level obfuscation, just an application of some old theory (which, incidentally, was my first PM node ;) ). update (1)* Fixed a minor glitch. Thanks to bronto. update(2) For those who don't want to try out the script, here is a glimpse of the resulting output. Read more... (3 kB) _ _ _ _ (_\|\| \| \|(_\|>< _\|	[reply] [d/l]
Re: spaghetti obfu by bronto (Priest) on Aug 20, 2003 at 11:16 UTC
WOW! Great! Great!!! Great Job, dada!!! And I am a little `;` in southern Sardinia `:-)` Ciao! `--bronto` The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway). --John M. Dlugosz	[reply] [d/l]
Re: spaghetti obfu by arthas (Hermit) on Aug 20, 2003 at 12:24 UTC
Great obfu, dada! I think I might be the "2" somewhere in the upper right corner... that's where charming Friuli is!!! Michele.	[reply]
Re: spaghetti obfu by DrHyde (Prior) on Aug 20, 2003 at 11:38 UTC
Now that's nifty!	[reply]
Re: spaghetti obfu by liz (Monsignor) on Aug 20, 2003 at 12:01 UTC
dada++ If you like this, you'll probably like Erudil's camel code and find-a-func. Liz	[reply]
Re: spaghetti obfu by csuhockey3 (Curate) on Aug 26, 2003 at 04:51 UTC
WOW! Clearly my favorite obfu. I have family all over out there, but have not been over seas since I was a kid. Great job, spawned some great memories!	[reply]
Re: spaghetti obfu by eyepopslikeamosquito (Archbishop) on Sep 18, 2003 at 14:56 UTC
I like the look of this shape so much I decided to add a new map_italy shape to Acme::EyeDrops. It's a bit bigger and more detailed than yours; I hope you like it. Ciao! /-\	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks