split m indigo, reverse for tsujdnrehtonadnlrepdnrekcah; print pop _, +pack uc for map a1, times

(Btw I'm a bit affraid of the message you get when you run it with warnings:

Unquoted string "tsujdnrehtonadnlrepdnrekcah" may clash with future reserved word
what if someone convinces p5p to add a tsujdnrehtonadnlrepdnrekcah core function to perl 5.10, just to break this japh.)

Update 2006 Jun 27: a related but simpler japh is this:

s no unpack uc uxanexg and print for lc reverse rekcahuolrepuorehtonau +otsuj
btw, the digit 1 is not needed in the original japh but I won't remove it now.

Update 2012-10-09: as mentioned in Bitrotten obfuscations, the first obfu no longer works as is since perl 5.12, so as a fix, prepend @_= like this:

@_= split m indigo, reverse for tsujdnrehtonadnlrepdnrekcah; print pop + _, pack uc for map a1, times

Even after this fix, you get a default warning thoguh.

Replies are listed 'Best First'.
Re: Indigo japh
by JediWizard (Deacon) on Apr 25, 2005 at 04:19 UTC

    I'll make it my mission in life to get tsujdnrehtonadnlrepdnrekcah added to the core, just to f*** with you. Kidding of course, I just like that you said you were worried about it. ambrus++

    They say that time changes things, but you actually have to change them yourself.

    —Anydy Warhol

Re: Indigo japh
by cog (Parson) on Apr 26, 2005 at 10:53 UTC
    From perldoc -f tsujdnrehtonadnlrepdnrekcah:

    this stupid useless jargon does not regret existing, having true omnious native ambitions, doing nothing less real, existing probably doing nothing rather eluding; keyword conform ambrus hacker
Re: Indigo japh
by ambrus (Abbot) on Dec 01, 2009 at 13:19 UTC