Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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\n\nadmin\"; # 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!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://93103]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2018-06-20 11:50 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.