Now now now, before you --;, keep in mind I edjumakated myself quite a bit with this code. Actually, its a work in progress, as I'm playing with it when I get bored throught the day. Any TMTOWTDI's would definitally be appreciated. Any 'what were you thinking's would be as well, because, honestly, I wasnt thinking much. Just having fun.

#!/usr/bin/perl -w
use strict; foreach (qw(31267 31260 31258 31261 31305 31240 31239
31238 31261 31233 31244 31259 31305 31258 31242 31259 31232 31257
31261 31305 31234 31232 31245 31245 31232 31244)){$_ = $_^ 31337;
($_ = chr)=~ tr/stie/5713/; print;}print chr(10);

[download]


_14k4 - webmaster@860.org (www.poorheart.com)

Replies are listed 'Best First'.
Re: Many first obfuscations.. Here's my try.
by Adam (Vicar) on Mar 28, 2001 at 04:04 UTC
    Modification of a read-only value attempted at simple.pl line 2.

    Of course, you could fix that with local:
    31244)){ local $_
    However I suspect most people around here fear your message. JASK implies ignorance of the underlying code, which is the opposite of what this site is about.

[reply]
      I know the JASK rule. I just didnt feel like making AJAPH. :) Plus, I thought the xor against 31337 would imply the script kiddie part. That wasnt my mentality.

      Thanks for the local remark. I'm playing with some other things, and its actually helping me gain knowledge of those funny variables inside Perl. Which is the general plan anyway.

      _14k4 - webmaster@860.org (www.poorheart.com)
[reply]
[d/l]

Back to Obfuscated Code