Re: I give... where does the 1 come from?

in reply to I give... where does the 1 come from?
in thread The Most Cleverly Hidden Secret of All Time! (666th post)

${chr(23)} = $^W. Same as $foo = ${foo}.

90% of every Perl application is already written. ⇒

dragonchild

Comment on Re: I give... where does the 1 come from?

Replies are listed 'Best First'.
Re: I give... where does the 1 come from? by jonadab (Parson) on Apr 17, 2003 at 13:23 UTC
D'oh. I theoretically should have known that, I just forgot about the way unix handles bucky bits. (I come from the DOS world, where holding Ctrl causes the Ctrl bit to be set in the KSB, and pressing W causes the character W to be sent on hardware interrupt 9, and it is also possible to type in character 23 (Alt+023 on the keypad), which is different and will usually have a different effect. I've been using Linux for a while now, but I haven't done any lowlevel assembly-language stuff, so I only occasionally brush into this, and it hasn't firmly taken root in my brain yet.) `for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc' .'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$ p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: I give... where does the 1 come from?
by jonadab (Parson) on Apr 17, 2003 at 13:23 UTC

D'oh. I theoretically should have known that, I just forgot about the way unix handles bucky bits. (I come from the DOS world, where holding Ctrl causes the Ctrl bit to be set in the KSB, and pressing W causes the character W to be sent on hardware interrupt 9, and it is also possible to type in character 23 (Alt+023 on the keypad), which is different and will usually have a different effect. I've been using Linux for a while now, but I haven't done any lowlevel assembly-language stuff, so I only occasionally brush into this, and it hasn't firmly taken root in my brain yet.)

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}
[download]

[reply]
[d/l]

In Section Obfuscated Code