Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Well commented obfuscation:

by Dog and Pony (Priest)
on Feb 17, 2002 at 15:40 UTC ( #145999=obfuscated: print w/ replies, xml ) Need Help??

Here we have a piece of seriusly injured code, thank heavens we have the comments so we can repair it!
#!/usr/bin/perl -w use strict; $_ = "A silly obfuscation:"; # Something to start with. $ # A buck for your thoughts? 0=0 # Yes, obviusly it is... ;$ # Got it backwards? _="utaohrpr akr"; # Special variable, filled with gib +berish? map # Sure could use one here. {$,.='$'.++$0.$_} # Anonymous Hash? split # I'm about to... '' # An empty string? ;$ # Again?! _= # The gibberich here? "Dog and Pony" # Hey, that is me! ;$"=" # Can you quote an assignment? Js nte elhce # Barewords allowed? ";$" # Interpolating backwards var? =~s # For my tilde POD? / + # \w* ?\w* ?\w* ?\w* ?\w*\?//g;# Division plus a match inside '#'s +? ;s # Oops, should be a dollar, not 's' +? /$_/ # Matches itself? $"/ # Unterminated String constant? ;s # Same mistake again? / + # \w* ?\w* ?\w* ?\w* ?\w*\?//g;# Vaguely familiar....? $0=".";$" # Program is now current dir and ou +r special var? =~ # Another, but empty tilde POD? s/($0)/($1)/g; # Replacing our program with itself +? eval("s/\n$\"/$,/"); # Always, always use an eval in an +obfu! :) print; # Now, what did we get...?
This is also my very first real try at something like this, so I am a bit anxious to hear what you all think?

Comment on Well commented obfuscation:
Download Code
Re: Well commented obfuscation:
by giulienk (Curate) on Feb 18, 2002 at 08:34 UTC
    Well, the most appreciated node by the long gone Abigail use the same comment style: maybe you should give him some credit?

    $|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g

Re: Well commented obfuscation:
by Darkling (Beadle) on Feb 18, 2002 at 17:14 UTC
    Hahaha. I actually found this quite funny. You don't see many attempts at obfu by using misleading comments.

    Thanks for a few moments relief from the tedium of existence.

    Darkling.
Re: Well commented obfuscation:
by ProgrammingAce (Sexton) on Feb 28, 2002 at 02:40 UTC
    There is nothing like telling someone how you did something, while lieing to them the whole time. Nice job, it's always nice to see code with a sense of humor.

              - Ace

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2015-07-06 19:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (81 votes), past polls