Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: A tribute to my Mother

by andreychek (Parson)
on Jul 02, 2001 at 06:54 UTC ( #93103=note: print w/ replies, xml ) Need Help??


in reply to A tribute to my Mother

I haven't yet done much work with obfuscation, but perhaps now would be a good time to start. I'll attempt to undo this obfu and explain what's being done.

# The first three lines are assignment @a = ("nz ujnf","nz mpwf","nz ejtdjqmjof","nfnpsz"); $b = "Pearl H. Felzien Born August 15, 1922 Died September 22, 1998" +; $c = "Michael N. Felzien\nhttp://www.pied.com\nadmin\@pied.com"; # We make a second copy of $b in $nb $nb = $b; # We take $b, and make it into the string "Perl" $b =~ s/^(.).*/$1erl/; # Then we screw it all up again making it "Pfsm" $b =~ tr/a-z/b-y/; # Now we assign $lv to the second element in $a, "nz mpwf" # (which, amazingly enough, is later translated a different # way for the text "my love") $lv = $a[1]; # And then we remove the first three characters $lv =~ s/^...//; # Transforming some more.. $lv =~ tr/a-y/a-z/; # We put $b and $lv into one big obfuscated string $d = "\n$b jt nz hsfbu $lv jo mjgf!\n"; # And finally, we put readable text into $d $d =~ y/b-z/a-z/; # Prints the text "Perl is my great love in life!" print $d; # Begin work on the second line, which starts tabbed in one $e = "\tI efejdbuf"; # Whirl it through tr $e =~ y/b-y/a-z/; # Presto, we print "I dedicate" print $e; # Now we're now going to loop through each element in # @a, using a C style for loopfor($i=0;$i<@a; $i++) { # We'll change the contents of @a in place with tr $a[$i] =~ tr/b-z/a-z/; # If we're at the last element in @a... if($a[$i]eq$a[-1]) { # Assign some gurgled text to $f $f='boe nz mjgf up ifs'; # And we'll immediatly "ungurgle" it $f=~y/b-z/a-z/; # This prints "and my life to her memory." print " $f ".$a[$i].".\n"; } # If it's not the last element, print it. The first # three elements we'll be printing are "my time", # "my love", "my discipline" else { print " ". $a[$i] . ","; } } # Lastly, we print the unobfuscated $b (now $nb) and $c, # which are his mothers name and his signature print"\n--$nb\n\n$c\n\n";
Some excellent obfuscation!

Michael, I'm sorry for your loss. I wish you the best of luck in all you do. Thanks for the code, and keep up the good work!
-Eric


Comment on Re: A tribute to my Mother
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://93103]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2015-07-29 23:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (269 votes), past polls