|
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')
cheers,
Aldo
King of Laziness, Wizard of Impatience, Lord of Hubris
|
Re: spaghetti obfu
by bronto (Priest) on Aug 20, 2003 at 11:16 UTC |
| [reply]
[d/l] |
Re: spaghetti obfu
by DrHyde (Parson) on Aug 20, 2003 at 11:38 UTC |
| [reply] |
Re: spaghetti obfu
by liz (Monsignor) on Aug 20, 2003 at 12:01 UTC |
| [reply] |
Re: spaghetti obfu
by arthas (Hermit) on Aug 20, 2003 at 12:24 UTC |
| [reply] |
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;
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.
_ _ _ _
(_|| | |(_|><
_|
| [reply]
[d/l] |
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 (Abbot) on Sep 18, 2003 at 14:56 UTC |
| [reply] |
Back to Obfuscated Code
|
