Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: (OT) Obfuscated Perl/Geek Humor

by belg4mit (Prior)
on Nov 07, 2001 at 06:09 UTC ( #123756=note: print w/ replies, xml ) Need Help??


in reply to (OT) Obfuscated Perl/Geek Humor

These are a bit drawn outand not exactly obfuscated... At MIT they have a script called tellme so you can find out useful info like the root password on the workstations etc.

#!/bin/sh # $Id: tellme,v 1.3 2001/10/01 16:32:10 cfox Exp $ if [ -z "$1" ]; then echo "Usage: $0 root|combo" exit 1 fi while [ "$1" ]; do case "$1" in root) if [ -f /etc/athena/rc.conf ]; then . /etc/athena/rc.conf if [ "${PUBLIC}" != "true" ]; then if [ -x /etc/athena/dialuptype ]; then echo "Note: This is a dialup. It does not have the +" echo "Athena root password." else echo "Warning: This is a private workstation. It m +ay not" echo "have the Athena root password." fi echo "" fi fi echo "The Athena root password is *." ;; combo) echo "The combo is *." ;; the\ [Uu]niverse) echo "The Universe is shaped like a banana." ;; [Uu]niverse) echo "Universe is something else entirely." ;; why) echo "because..." ;; 42) echo "What do you get when you multiply six by nine?" ;; off) echo "Fvck you." ;; *) echo "I don't know about "$1"." ;; esac shift done
A Makefile I concocted long ago
# Made by Jerrad Pierce <belg4mit@mit.edu> '97 emptyrule:: @echo make: @echo " babies, fire, fun, haste, love, marmalade, me, meatloa +f" @echo " merry, mess, money, more, noise, pancakes, peace, quic +he" @echo " rain, suggestion, time, trouble, war" all light world: @echo Fiat Lux! babies love: @echo You pervert, I\'m just a computer! fire: @echo Step 1. Take a match... fun: @echo ${USER} can\'t integrate -pdV haste: @echo \* Festina lente \* @echo Make haste slowly -- Emperor Augustus marmalade: @echo But I don\'t like SPAM! me: @echo Stop being so infantile meatloaf: @echo Mmmmm meatloaf merry: @echo Fa la la la la la la mess: @echo Bad boy! mistake: @echo Blasphemer! I am incapabale of such \* human \* behavio +r money: @echo I don\'t think the Secret Service is too keen on that id +ea more: @echo You haven\'t finished what\'s on your plate! noise: @echo BRRRAPPP!!! pancakes: @echo We\'re out of eggs peace: @echo Well... apologize already! quiche: @echo Try meatloaf instead rain: @echo Are you sure? @echo There, done. suggestion: @echo Get a hair-cut time: @echo Good! @echo For you will never \* find \* the time to do anything trouble: @echo Can\'t we all just get along? war: @echo make love not war


Comment on Re: (OT) Obfuscated Perl/Geek Humor
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (16)
As of 2015-07-01 16:04 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 (9 votes), past polls