http://www.perlmonks.org?node_id=20415 

$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:}

[download]

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!
[reply]
      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.
[reply]
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
[reply]
      $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:}

      [download]
      That should work... Unless I messed up again...
[reply]
[d/l]
        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

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

        /\/\averick
[reply]

Back to Obfuscated Code