Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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.

Replies are listed 'Best First'.
Re: Introducing myself -featuring a JAPH
by Ravi V (Scribe) on Aug 24, 2012 at 07:56 UTC
    nice one Grimy...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://908025]
Approved by ktross
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2018-04-22 03:46 GMT
Find Nodes?
    Voting Booth?