Welcome to the Monastery PerlMonks

### First JAPH attempt

by robsv (Curate)
 on Jan 25, 2001 at 00:41 UTC Need Help??

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

Create A New User
Node Status?
node history
Node Type: obfuscated [id://54121]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2017-12-17 07:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What programming language do you hate the most?

Results (462 votes). Check out past polls.

Notices?