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

My first lame try

by Miker (Scribe)
on Jun 29, 2000 at 20:03 UTC ( #20415=obfuscated: print w/replies, xml ) Need Help??

$x= $$.x ; $a = "s" ; $exp = "13O45";$exp=~/\d\d(.*)\d\d/ ; $ab =$1; $ab= ~tr/A-Z/a-z/ ;sub JK {print"$pr\n";};$hY= $1; $ace = " " ; $hZ = ++$hY ;if(1){@er= qw(i h t); } $xx =reverse(@er);$t=pop(@er);$t =pop(@er); @kl =qw(i a y u); push(@kl, "e"); $w = $kl[4]; $av = "nj";$aw= ++$av;$hY =~ tr/A-Z/a-z/; $hY = "n";++$hY ; $pr = " $a$hY$ace$kl[2]$zz $hY$kl[3]$ace$xx$aw$z$ace$xx $a$ace$kl[0]$a$ace$w$kl[1]$a $kl[2], $t$kl[3]$t?"; $pr =~ s/\n//g ; if (1) {&JK;exit:}

Replies are listed 'Best First'.
RE: My first lame try
by BBQ (Deacon) on Jun 30, 2000 at 20:50 UTC
    Dude, your first try isn't lame at all! Its actually pretty good, and the output does justice to the effort one has to apply at getting obfuscated code. I have tried explaining obfuscation (and the beauty of it) to some co-workers, but they just didn't get it, "Why would you obfuscate?" Very fustrating to try and explain.

    At any rate, its much better than my first try. I wrote that back in the day when all was fire, and the great reptiles roamed the earth. As a matter of fact, its the first obfuscation post to this site. Not a very good one at that.

    #!/home/bbq/bin/perl
    # Trust no1!
      Wow, thanks:) I didnt think I'd get such a great response. I tried explaining "why obfuscate" as well hehe. My co-workers didnt get it either, well our admin did but thats to be expected hehe. Thanks again, and I liked your first try as well.
RE: My first lame try
by maverick (Curate) on Jun 29, 2000 at 20:17 UTC
    hmmm...didn't quite work for me. I got:
    " so o think this s s, hh?"
    I suspect I should have gotten something more like:
    " so you this this is <something>, huh?"

    /\/\averick
      $x= $$.x ; $a = "s" ; $exp = "13O45";$exp=~/\d\d(.*)\d\d/ ; $ab =$1; $ab= ~tr/A-Z/a-z/ ;sub JK {print"$pr\n";};$hY= $1; $ace = " " ; $hZ = ++$hY ;if(1){@er= qw(i h t); } $xx =reverse(@er);$t=pop(@er);$t =pop(@er); @kl =qw(i a y u); push(@kl, "e"); $w = $kl[4]; $av = "nj";$aw= ++$av;$hY =~ tr/A-Z/a-z/; $hY = "n";++$hY ; $pr = " $a$hY$ace$kl[2]$zz $hY$kl[3]$ace$xx$aw$z$ace$xx $a$ace$kl[0]$a$ace$w$kl[1]$a $kl[2], $t$kl[3]$t?"; $pr =~ s/\n//g ; if (1) {&JK;exit:}
      That should work... Unless I messed up again...
        Actually, it looks like you missed putting <code> tags around it, so the square brackets are being interpreted as links.

        Update: Hey, when I replied to that previous node it said maybe there was an error in cutting and pasting. :P

        works now...
        now I get to try and figure out how :)

        /\/\averick

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (3)
As of 2022-11-30 01:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?