The original concept was dreamed up by ybiC. He wanted to write an obfu that was a play on his nick (every letter lowercase except for the last). He also wanted to play with the normal "Just Another Perl Hacker" so I give you...
#!/usr/bin/perl -0777
use strict;use warnings;
$_=<DATA>;s/\s+//g;sub ject{$_?10-$_:$_}; # of my affections
sub let{join'',grep{y(a-z A-Z\0) # rent out something you are
+ renting
{n-za-m N-ZA-M\0}}split//,$_[0]}; # take the whozit with you
sub way{join' ',map{$_=substr # Eat fresh(TM)
$_,0,-2;join'',reverse split # /me waves his hand as he s
+ays
/\0/,$_}split / /,$_[0]};$_=terfuge($_); # This is not the code you a
+re looking for
sub vert{scalar reverse split//,$_[0]}; # To destroy completely; rui
+n
sub tle{$_[0]=~y/a-zA-Z/A-Za-z/; # elusive; crafty or sly; de
+vious
return $_[0]};$_=vert($_); # return to sender, address
+unknown...
sub terfuge{$_=join'',reverse map # A deceptive stratagem or d
+evice
{ject($_)}split//,$_[0];join'', # spellcheck this line befor
+e submitting
map{chr($_)}unpack('A3'x # Lucy, we're home!
(length($_)/3),$_)}$_=let($_); # I'd go to any lengths for
+you
sub lime{join' ',grep{s/\b(qu|[ # Inspiring awe; impressive.
^\W0-9_aeiou]+)?(\w+)/$1?"$2\0$ # and sometimes y
1ay":"$2\0ay"/xegi}split/ /,$_[0]} # why? because I love you
$_=way($_);sub str{join'',map{ject($_) # .oO(Perlish)
}reverse split//,join'',map{sprintf # you sprinted how far?
("%03d",ord($_))}split//,$_[0]} # did you get winded?
$_=tle($_);print; # shows over now go home!
__DATA__
83003070900032
009920987023054
0440930520820909
00009920987082014
09890003400992098
70230020089000520
099 209
It employs what ybiC calls "Short Bus" obfuscation, hence the bus-like __DATA__ section. It uses some code that I borrowed from japhy. I'm not telling where or you might figure this out sooner q-:
In reply to japH
by Mr. Muskrat
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.