Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

spaghetti obfu

by dada (Chaplain)
on Aug 20, 2003 at 11:07 UTC ( #285157=obfuscated: print w/replies, xml ) Need Help??

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')

King of Laziness, Wizard of Impatience, Lord of Hubris

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 "". Make sure you have "" 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;

    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.

    For those who don't want to try out the script, here is a glimpse of the resulting output.

     _  _ _  _  
    (_|| | |(_|><
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 :-)


    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
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!!!


Re: spaghetti obfu
by DrHyde (Prior) on Aug 20, 2003 at 11:38 UTC
    Now that's nifty!
Re: spaghetti obfu
by liz (Monsignor) on Aug 20, 2003 at 12:01 UTC
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!
Re: spaghetti obfu
by eyepopslikeamosquito (Chancellor) 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.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://285157]
Approved by bronto
Front-paged by larsen
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2017-02-28 09:01 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (398 votes). Check out past polls.