Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

My obfuscation debute

by Maqs (Deacon)
on May 14, 2000 at 21:55 UTC ( #11521=obfuscated: print w/replies, xml ) Need Help??

This is an ugly code, inspired by the old music hit, assuming you have perl in your $PATH :)
$_=pack"H14","7065726c202d76";$s=(`$_`)[3] ;@c=split//,$s;$l=chr(77);@o=join'',$l,@c[ 22..26],@c[7,22],chr(100),@c[9,22,9,29,5,8 ,8,29],substr($_,1,1),@c[9,29,22],lc$l,lc( chr((ord$c[0])-1));if($s){print"@o\n"}

Replies are listed 'Best First'.
RE: My obfuscation debute
by turnstep (Parson) on May 15, 2000 at 19:40 UTC
    Well, you need to assume a lot more than that. Remember that everyone's perl is a little different, and "perl -v" does NOT necessarily have "Copyright 1987-1999, Larry Wall" as the third line of the output. Specifically, I tried this on three platforms, and all gave different outputs, until I found one that did output the desired string (yes, I'll reveal it here, as it may not work on many platforms): "Marry had a littl lamb." Don't know if your machine's third line is a little different, and thus the extra 'r' and the missing 'e'.

    A Solaris box output this:

    Match padrarieeram
    which made me wonder what obscure song *that* referred to! :)

    Perhaps have a way to search for the correct line? The concept is a good idea...

RE: My obfuscation debute
by mcwee (Pilgrim) on May 16, 2000 at 05:08 UTC
    THis came out fine on the box I login on (UNIX System V Release 4.0)-- accepting that the protagonist of the song chooses a slightly eccentric spelling of her name. At any rate, this is very, very cool. Downright graceful, even.

    The Autonomic Pilot

RE: My obfuscation debute
by merlyn (Sage) on May 15, 2000 at 21:54 UTC
      nope. This is a result of my bad English :]

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://11521]
Approved by root
and !@monks...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (10)
As of 2018-06-21 22:33 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (120 votes). Check out past polls.