Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

A first Obfuscation.

by j.a.p.h. (Pilgrim)
on Jun 04, 2000 at 21:18 UTC ( #16313=obfuscated: print w/replies, xml ) Need Help??

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.
      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. =]

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


      > 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

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://16313]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2023-06-09 21:58 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (36 votes). Check out past polls.