Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

spaghetti obfu

by dada (Chaplain)
on Aug 20, 2003 at 11:07 UTC ( [id://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 (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.


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://285157]
Approved by bronto
Front-paged by larsen
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2024-04-22 17:02 GMT
Find Nodes?
    Voting Booth?

    No recent polls found