<?xml version="1.0" encoding="windows-1252"?>
<node id="45592" title="lp.hpajnilap.palinjaph.pl" created="2000-12-07 18:45:48" updated="2005-08-10 14:33:18">
<type id="1588">
obfuscated</type>
<author id="32155">
jima</author>
<data>
<field name="doctext">
Emboldened by my deciphering results of yesterday (and inspired by &lt;A HREF="http://cpcug.org/user/jelks/misc/geek/palindrome_c.html"&gt;this&lt;/A&gt;), I decided to create the first (AFAIK) palindromic JAPH. Though the algorithm isn't terribly obfuscated, I took a harder route by not including any comments in the code, because otherwise you could do something like
&lt;PRE&gt;
print "Just another Perl hacker,\n"; # ;"n/,rekcah lreP rehtona tsuJ" tnirp&lt;/PRE&gt;
So everything you see here is parseable by perl (although, as the saying goes, I'm not quite sure &lt;B&gt;why&lt;/B&gt; it is).
&lt;P&gt;
Each line is character-reversed, with the exception of parentheses and braces (which are balanced), and the slash chars "/" and "\", which are exchanged for their counterparts, because it just looks better.
&lt;CODE&gt;
                                      $_='=_$
                                      JustsuJ
                                   anotherehtona
                                      PerlreP
                                   hacker,rekcah
                                        ;';
                                         @
                                    tilps=split
                                         ;
                             ;shift@tilps;split@tfihs;
                               ;split@pop;pop@tilps;
;s{^(.+)(.)(.)\2.+$}{$1$2$3}s||1for@tilps;split@rof1||s{3$2$1$}{$+.2/(.)(.)(+.)^}s;
            print$_.$",for@tilps;print$/ ; \$tnirp;split@rof,"$._$tnirp
                                        ;";
&lt;/CODE&gt;

</field>
</data>
</node>
