Here's my first attempt at a JAPH obfuscation:
@a = qw(!57Just_Ano th60er_Perl 38_Hacker ____37_\);
$a67=$b+-$$; $aa58=$bb; $a[_]=82+$aa+$b;
until$aa64<$$aa $a=$b+-66*$$aa; $a[$b]=48-_;
$a[$aa]=82;$a 72=$a;; $ab=66+--$bb 40=$c<$b;;
34<$a+$b- 80+$a/_; $a[$b++]=64%$bb;; $a=60+$d
$c[$a]=70+$a 53-$x; $a86=$$_-$d; $aa57=$ab;
$c[$aa]=55*_; $c[$bb]=41*$bb; $mm=83+$_-$$_;
$a=57*$b/$_-$a 50*$_[_]; $mm=$aab+32-$$_;
$aa64=$f -$a48+_; $jj=39/$a a64+-$mm;
$fa73=$f-$c;; $g=34*$+$h _70*$_+-$a 72-$$_;
$a=$b+\(81-$b++);
foreach (@a) { @_ = reverse $_ =~ /(\D+)*(\d)(\d)(\D+)/;
$_[1] ^= $_[2]; $_[2] = $_[1]^ $_[2]; $_[1] ^= $_[2]; $u
= join '', @_[1,2]; $_[1] = pop(@_); $b = $#_---2; for
( $b..$#_) {push @x, $b .= length($_[$_] ); } $x[$#x] =
pop(@x); $a[$a++] = pack "C",$u; } print unpack "u",eval
unpack "u",join'',@a ;
I know this isn't a
canonical JAPH (as per
merlyn), but I'll make sure future ones are.
- robsv
-
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.
|
