Gossamer Forum: General: Perl Programming: Hmm interesting....

Sep 10, 2001, 8:14 PM

Paul

Veteran (19537 posts)

Sep 10, 2001, 8:14 PM

Post #1 of 8

Shortcut

Hmm interesting....

$_='$_={one((one($")<<1)^one($/))}{{one((one($;)<<($^=(one($/)>>1)>>1)+1)+one($/)>>1)}{{{one(((one($;)<<$^+1)+one($/)>>1)-$^)}{{{one(((one($;)<<$^+1)+one($/)>>1)-1)}{one(one($"))}{{one((one($;)<<$^)^(one($")>>1)+1)}{one((one($;)<<$^)-$^)}{{one(((one($;)<<$^)-$^)+1)}}{one(((one($;)<<$^+1)+one($/)>>1)-1)}{one(($~=$=)<<1^one($")>>1)}{{{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<$^+1)+one($/)>>1)-$^-1)}{one(one($"))}}{one(one($/)<<$^+1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<$^+1)+one($/)>>1)-$^-1)}}}{{{one(((one($;)<<$^)-$^)-$^)}}}{one(one($"))}}{one(($~=$=)<<1^one($")>>1)}}{{one((one($;)<<$^)-(one($")>>1)+1)}{one((one($;)<<$^)-(one($")>>1)+$^+1)}}{{one(($~=$=)<<1^(one($")>>1)+$^+1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<$^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1

Anyone care to hazard a guess as to why/how that produces what it produces?

Last edited by:

PaulWilson: Sep 10, 2001, 8:23 PM

Sep 10, 2001, 10:16 PM

AstroBoy

Enthusiast (720 posts)

Sep 10, 2001, 10:16 PM

Post #2 of 8

Shortcut

Re: Hmm interesting.... In reply to

Code:
$_ = chr((ord($")<<1)^ord($/)) . 
chr((ord($;)<<($^=(ord($/)>>1)>>1)+1)+ord($/)>>1) . 
chr(((ord($;)<<$^+1)+ord($/)>>1)-$^) . 
chr(((ord($;)<<$^+1)+ord($/)>>1)-1) . 
chr(ord($")) . 
chr((ord($;)<<$^)^(ord($")>>1)+1) . 
chr((ord($;)<<$^)-$^) . 
chr(((ord($;)<<$^)-$^)+1) . 
chr(((ord($;)<<$^+1)+ord($/)>>1)-1) . 
chr(($~=$=)<<1^ord($")>>1) . 
chr((ord($;)<<$^)-ord($/)-1) . 
chr(((ord($;)<<$^+1)+ord($/)>>1)-$^-1) . 
chr(ord($")) . 
chr(ord($/)<<$^+1) . 
chr((ord($;)<<$^)-ord($/)-1) . 
chr(((ord($;)<<$^+1)+ord($/)>>1)-$^-1) . 
chr(((ord($;)<<$^)-$^)-$^) . 
chr(ord($")) . 
chr(($~=$=)<<1^ord($")>>1) . 
chr((ord($;)<<$^)-(ord($")>>1)+1) . 
chr((ord($;)<<$^)-(ord($")>>1)+$^+1) . 
chr(($~=$=)<<1^(ord($")>>1)+$^+1) . 
chr((ord($;)<<$^)-ord($/)-1) . 
chr(((ord($;)<<$^+1)+ord($/)>>1)-$^-1) . 
chr($=^(ord($")>>1)); 
print $_;

I reversed engineered back to this stage, where each line represents each letter of JAPH...

But I have no idea where it goes from there... except that chr(expr) returns the character represented by ASCII expr, and ord(expr) returns the ASCII number represented by character expr. So it runs around in circles a bit Smile

Oh, and $" equals space (by default), which equals ASCII 32, which equals space (duh) Smile

Someone had too much time on their hands Wink

- Mark

Astro-Boy!!
http://www.zip.com.au/~astroboy/

Last edited by:

AstroBoy: Sep 10, 2001, 10:19 PM

Sep 11, 2001, 12:12 AM

Jagerman

Staff (2198 posts)

Sep 11, 2001, 12:12 AM

Post #3 of 8

Shortcut

Re: Hmm interesting.... In reply to

Most of those who would call themselves 'JAPH's do Tongue

Jason Rhinelander
Gossamer Threads
jason@gossamer-threads.com

Sep 11, 2001, 12:56 AM

ryel01

Veteran (1264 posts)

Sep 11, 2001, 12:56 AM

Post #4 of 8

Shortcut

Re: Hmm interesting.... In reply to

Ummmm...

It REALLY screws up the layout of the forum!!? ;)

(sorry, I just had to)

Regan.

Sep 11, 2001, 3:46 AM

Paul

Veteran (19537 posts)

Sep 11, 2001, 3:46 AM

Post #5 of 8

Shortcut

Re: Hmm interesting.... In reply to

Does it?

Everything is still perfectly normal for me - tables and all.....

Sep 11, 2001, 4:18 AM

ryel01

Veteran (1264 posts)

Sep 11, 2001, 4:18 AM

Post #6 of 8

Shortcut

Re: Hmm interesting.... In reply to

I'm looking at it with both Netscape and IE on a mac, and because the code you put there doesn't wrap, the page is about 6 screens wide.

Makes it good fun finding the messages! :)

Haven't had a look at it on my pc yet to see if it wraps in that so can't say.

Does it wrap on yours?

regan.

Sep 11, 2001, 4:34 AM

Paul

Veteran (19537 posts)

Sep 11, 2001, 4:34 AM

Post #7 of 8

Shortcut

Re: Hmm interesting.... In reply to

I originally put it in a [code] tag and then it didn't wrap so I purposely removed the [code] tag and it wraps fine for me.

IE5.5 Win98SE

Sep 11, 2001, 6:02 AM

Andy

Veteran / Moderator (18441 posts)

Sep 11, 2001, 6:02 AM

Post #8 of 8

Shortcut

Re: Hmm interesting.... In reply to

Yup, shows fine for me too, on an 800x600 res (IE 5).

Andy

Andy (mod)
andy@ultranerds.co.uk