Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

My first attempt at anything close to obfuscated code.

by Cobo (Scribe)
on Dec 03, 2001 at 09:07 UTC ( [id://129038]=obfuscated: print w/replies, xml ) Need Help??

Well, this is my first attempt at anything close to obfuscated code, I really didn't have much of a reason to do it, I was just kind of board.
#!/usr/bin/perl $mrT=1;$z= 242;@4=(202*2.5 /5,2*37*1.09-3.66, 55.5/3);print chr($4 [1]);print chr($4 [2]*(1.5*2)*2); @ch= ($z/2+5 -2.3, 104.3 );print chr((((((5*7+5) /2)*4)+20)- 10)+20); print chr ($ch [$mrT ] +2.7);$mrT= $mrT - 1; print chr($4 [0]), chr ($ch[ $mrT ]- 2.4 );###
Well I never said I was an artist...

Replies are listed 'Best First'.
Re: My first attempt at anything close to obfuscated code.
by orkysoft (Friar) on Dec 03, 2001 at 09:33 UTC

    print chr($ch[$mrT]+ 2.7); $mrT = $mrT - 1;

    is more obfued written as:

    print chr($ch[$mrT--]+2.7);

    Now make it say "Just another Perl hacker\n" :-)

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (3)
As of 2024-04-20 05:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found