Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Introducing myself -featuring a JAPH

by Grimy (Pilgrim)
on Jun 03, 2011 at 17:05 UTC ( #908025=obfuscated: print w/ replies, xml ) Need Help??

Howdy Monks!

I discovered Perl exactly 3 days ago in the goal of writing a simple pre-compiler, because Flex compiler is really stupid (but that's another topic). I was instantly enthralled by this wonderful language, so much that I forgot my initial project and spent a sleepless night working on a JAPH. A common case, I suppose.

Here's the result of this:

#!/usr/bin/env perl -w -0466 use strict;use Digest::SHA open(F,$0),q\sha\.(($/=<F>)!~s?!.{50}!?!!?? 0:512);print+substr($/=sha512($/),$_,1)for(map{$!=95^ord;$%++%2?$!:map {64}1..$!}q!WU\x[c]T^|M~_j^Y]]_z_PTi]o_{^`\b_|^JWU^]_u^{_{\|[@!=~?.?g)
It won't work as a one-liner: to run it, you have to store it into a file. Be careful when pasting however: adding a newline after the final parenthesis will break it (that's an obvious clue).

Have fun!

Arrgh! Woe, despair! My nice and pretty rows had been unspeakably split by the forum's felonious formatting! Now rewritting it to fit in 70 columns. EDIT: Done.

PS: Please, be so kind as to let me know what you think about it.

Comment on Introducing myself -featuring a JAPH
Download Code
Re: Introducing myself -featuring a JAPH
by Ravi V (Scribe) on Aug 24, 2012 at 07:56 UTC
    nice one Grimy...

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2014-12-21 23:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (109 votes), past polls