Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 chanting in the Monastery: (2)
As of 2021-12-08 04:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (34 votes). Check out past polls.

    Notices?