 Clear questions and runnable codeget the best and fastest answer 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+)/; \$_ ^= \$_; \$_ = \$_^ \$_; \$_ ^= \$_; \$u = join '', @_[1,2]; \$_ = 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
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://54121]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2022-01-23 21:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
In 2022, my preferred method to securely store passwords is:

Results (64 votes). Check out past polls.

Notices?