Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

My first JAPH

by phroggy (Monk)
on Mar 01, 2005 at 12:26 UTC ( [id://435385]=obfuscated: print w/replies, xml ) Need Help?? 

#!/usr/bin/perl
for $a(1,46){for $b(0..7){$c=0;$_?hex substr(q), "ef7fa1866706ca",
Just another Perl Hacker, ("eff02289402844"),2*$_+$a,2)&2**(7-$b):
/..phroggy../ and $c+=2**(7-$_)for(0..7);$d.=chr $c;}}print"$d\n";

[download]
What does anybody think?

Replies are listed 'Best First'.
Re: My first JAPH
by K_M_McMahon (Hermit) on Mar 02, 2005 at 05:19 UTC
    Normally I don't like obfu's that have JAPH visibly included in the code, but the concept you used was VERY cool.


    -Kevin 
    my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}

    [download]
[reply]
[d/l]

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://435385]
Approved by skx
Front-paged by K_M_McMahon
help
Chatterbox?
and the web crawler heard nothing...

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

    No recent polls found