This is my first attempt at makeing an Obfuscation just to see if i could.
any comments/suggestions whould be much appreciated:) 
#!/usr/bin/perl -w
@a=qw(kvtu bopuifs qfsm ibdlfs
);foreach(@a){$_=~tr/b-y/a-z/;
}for(@a){print"@a\n";$a=shift(
@a);push(@a,$a);}

[download]

Replies are listed 'Best First'.
Re: First attempt.
by one4k4 (Hermit) on Jun 26, 2001 at 19:23 UTC
    Having just dove deeper in to obfus stuff, let me see if I've got this one..
    # Not an issue.. normal stuff
@a=qw(kvtu bopuifs qfsm ibdlfs);

# Shift each letter down one.
foreach(@a){
   $_=~tr/b-y/a-z/;
}

# Print out the JAPH
for(@a){
   print "@a\n";

   # Put the first element on the end of @a
   $a=shift(@a);
   push(@a,$a);
} # Later, rinse, repeat

    [download]
    Prints out a nice 4 line block... Doesnt seem too hard, I'm just in the mood to look at obfus'd stuff in more detail today. ;)

    _14k4 - perlmonks@poorheart.com (www.poorheart.com)
[reply]
[d/l]

Back to Obfuscated Code