Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

My First JAPH

by Guildenstern (Deacon)
on May 07, 2001 at 19:31 UTC ( [id://78534]=obfuscated: print w/replies, xml ) Need Help??

Well, I thought it was time I try one of these. Astute PMers will notice that I've borrowed quite a bit from Erudil, so if you like this be sure to ++ his posts if you haven't already. I've tested this on ActiveState, CygWin, and RH 7.
Comments and criticism greatly appreciated!

#!/usr/bin/perl -w
use strict;

$|++;$^X="4285838400657879847".
"2698200486982760072656775698".
"200";$^=$"x(3<<1); map{substr(
$^,$.++,1)=chr(substr($^X,$_,2)
+(2<<4))}(4,20,32,44,40,6);map{
print;eval($^.('$b,'x3).substr(
$^X,-1,1).'.'.(2>>1).substr($^X
,-2,1));$_=chr(substr($^X,4,1))
.chr(4<<3);print;}(map{chr($_+(
     1<<5))}($^X=~/../g));

[download]



Update: Fixed line formatting. It was _quite_ ugly!

Guildenstern
Negaterd character class uber alles!

Replies are listed 'Best First'.
Re: My First JAPH
by novitiate (Scribe) on May 08, 2001 at 03:21 UTC 
    $Letter->Dear(Guildenstern);

print "delighfully unreadable...\n";
foreach (@line) {
      $XP++;
}
$Rosencrantz->Alias(Novitiate);
$Rosencrantz->$Sincerely;

    [download]

    I must confess, my first letter had, bless my soul, an echo statement instead of print.
    Too much PHP can make the mind mushy; take note of my mistake.
    Humbly,
    Novitiate
[reply]
[d/l]
Re: My First JAPH
by stuffy (Monk) on May 07, 2001 at 23:48 UTC
    ++ that's pretty cool to a newbie like me.

    Stuffy

[reply]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://78534]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others admiring the Monastery: (4)
As of 2024-04-24 01:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found