Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: YAJAPH - Yet Another JAPH

by vladb (Vicar)
on May 17, 2003 at 01:07 UTC ( #258813=note: print w/ replies, xml ) Need Help??


in reply to YAJAPH - Yet Another JAPH

It's a decent attempt especially for a first time ;-)

I took some pleasure in decyphering your code to derive at the spoiler. You've used a number of interesting tricks to obfuscate the code.

Some of the discovered obfuscation tricks:
1. use of => in place of ;
2. use of non standard delimiters in search and replace regexp (s///)
3. Hiding $_ and __DATA__ input handle behind the *_ typeglob.
4. Using left shift bitwise operation to calculate N/2 (e.g. N >> 1 instead of just N/2).
5. and some other ;-)


For the simplified version of the JAPH look below:
#!perl -s $/ = undef; my $data = <DATA>; # remove all non numeric characters from $_ $data =~ s/[^\d]//g; # take 3 digits at a time and convert them to a char $data =~ s/(\d{3})/chr($1)/egx; @data = split('', $data); my @letters; for (my $i = 1; $i <= @data / 2; $i++) { push @letters, $data[$i] ^ $data[-$i]; } print join('', @letters); __DATA__ 042123185208084070254140 01 01 700 Combat Squirrel's 772 4017 1061 17923 f i r s t 71340 190970 421301 0408004 J A P H 4064086 12005007 30590112 2706606512724413622702921714903722210122 6***1*5*9*1*0*2*0*3**2*1*6*3*2*0*4*0*4***9


update: Front-paged this one as I felt it deserves it.

_____________________
"We've all heard that a million monkeys banging on a million typewriters will eventually reproduce
the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true."

Robert Wilensky, University of California


Comment on Re: YAJAPH - Yet Another JAPH
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://258813]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2014-12-28 09:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (179 votes), past polls