Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

JAPH

by Adze (Acolyte)
on Mar 08, 2002 at 17:44 UTC ( [id://150380]=obfuscated: print w/replies, xml ) Need Help?? 

#!/usr/bin/perl
$_=q{*{$Just =bless{},'$another ';"\$Perl \::$hacker"}=sub{print$%[$.+
++];$,,$
;$_[0]},eval join v45.62,('$z')x6};s/(?<=\$)([a-z\n]+ ?)/push@%,$+;f/e
+gi;eval

[download]

Replies are listed 'Best First'.
Re: JAPH
by Juerd (Abbot) on Mar 08, 2002 at 18:12 UTC
    What's with the line breaks? I copied the text, pasted in a terminal and it worked. I use Mozilla 0.9.7 under Debian Linux.

    By the way: s/Hacker/hacker/ and s/$/,/ :) 

    44696420796F7520732F2F2F65206F
7220756E7061636B3F202F6D736720
6D6521203A29202D2D204A75657264

[reply]
      Ahah, there's a "d/l code" link. That's good, but it's too small and easily missed. Double-ahah! There's also a user setting to change column wrap width. I still think the default value should be 80 not 70 though, in line with conventional UNIX terminals.

      You're quite right, I've done s/Hacker/hacker/. Thanks. Not sure why you said s/$/,/ though. Did you try to figure out how it works?

[reply]
[d/l]
[select]

        Not sure why you said s/$/,/ though. Did you try to figure out how it works?

        I refered to the string that is printed eventually. See also RE: RE: JAPH 

        U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

[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://150380]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

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

    No recent polls found