Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

A first Obfuscation.

by j.a.p.h. (Pilgrim)
on Jun 04, 2000 at 21:18 UTC ( [id://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?

        @///usr////((:::::bin:::::::::perl::::>

      > 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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (1)
As of 2024-07-21 23:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.