Tested on Linux and Win98. Enjoy:

#!/usr/bin/perl ############################
@a = qw/kvtu bopvuifs qfsm ibdlfs/;$b = ".";
$n = 0;foreach $a (@a){$a[$n] =~ y/b-y/a-z/;
if ($n < @a-1) {print $a[$n] . " " ;}else  {
print $a[$n] . ".\n";}$n++;}#I am what I am.

Replies are listed 'Best First'.
RE: A first Obfuscation.
by Adam (Vicar) on Jun 04, 2000 at 22:19 UTC
    For a first obfuscation, this isn't bad. But I could tell what you were up to as soon as I read the first line, which means it wasn't very obfuscated. Also note that a good obfuscation won't return warnings... yours does.
    But like I said, its a good first attempt. Keep it up.
[reply]
      Yes, I figured that (the first line) would probably give it away. But like I said, it was just my first attempt.

      Just wait until I finnish writing my MUD (in Perl, of course) and obfuscate it. =]

[reply]
        a mud written in perl would be sweet... will it be based on any preexisting muds? or will it be custom?

        @///usr////((:::::bin:::::::::perl::::>
[reply]

      > But I could tell what you were up to as
      > soon as I read the first line

      Yes, although I thought maybe the 4-8-4-6 was a clever variation of 4-7-4-6, but it turned out to be a spelling error. :)

      P.S. Try using $_ instead of $b to get rid of the warning

[reply]

Back to Obfuscated Code