This probably isn't a heavily obfuscated as others of its ilk (There can be only one!, My 2 cents worth) , and totally wasn't the original direction I was heading with this... but I saw myself writing for loops inside of for loops, and I just couldn't help myself.
#!/usr/bin/perl
$ four=44;$ fore=$four*$
fore ;for $ fore(1..$ #4
four){$ for ||($ \= pack
'c',$ fore) } $ fourteen
=14; $ fjor =$ four-$ #4
fourteen ;$ f=1;$ or=2;$
Or=$ f+$or+ $ f+$ or; #4
$ foreteen= $fourteen- $
or;$ fOr= $ four+$four -
4 *2;$ a= $ fior = sub {
return [ $ fjor+$four ,
--$ four,-$ or,$f,-$ fOr
-4,$ fOr -$ foreteen-$ f
-$ or]};$b= $ fore=sub {
return[ --$ fourteen,$ f
,$ or *$ or + $ f,-$ #42
foreteen ,- $ f- $ or, $
fourteen]};$c=$fyor=sub{return[-$ fOr-$ or,++$four+4
,($f+$Or)*($f+$or),$fourteen,-$Or,-$fOr+4]};$d=$foer
=sub{return[$ fOr-4-4,-$ Or-$ f,$ or,$ or+$ Or,-$Or,
$fourteen]};for(a..d){if(ref($$_)=~m$AR$){for($$_){$
for=$fourten
*$fjor;$fore
+=$fjor;for(
@$_){$for.=$
fore;$foor+=
$ _ ;$ for.=
pack 'a' , $
foor}}}else{
for($$_){for
(@{&{$_}}){$
foor+=$ _; $
for.=pack'c'
,$ foor} }}}
print $ for
--chargrill
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ }
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
-
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.