Re: (OT) Obfuscated Perl/Geek Humor

[belg4mit]

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 <[e-mail]> '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