My first attempt at obfuscation


Perl-Sensitive Sunglasses
	PerlMonks

My first attempt at obfuscation

by Adam (Vicar)

on Apr 26, 2000 at 05:03 UTC ( #9148=obfuscated: print w/replies, xml )

Need Help??

Slightly revised... so I guess really it is my second attempt.

($p,$_)=(95,'1154_LarryWallTribute_02B4124AF01411'
);$_.='54A024D0D4#perlmonks.org#014F054C1C4134B0'.
q)D41134A0114:-]1B4$_0D41641D4C094174(024;084164-;
0D4168);for(split/4/){m#(\d)(.+)#;($1)?($p-=hex$2)
:($p+=hex$2);print chr($p)}#eval;print'Hi Mom!';$_
[download]

Comment on My first attempt at obfuscation Download Code

Replies are listed 'Best First'.
RE: My first attempt at obfuscation by ChuckularOne (Parson) on Apr 27, 2000 at 21:01 UTC
I absolutely love the print'Hi Mom!'; at the end! Your Humble Servant, -Chuck	[reply]
RE: RE: My first attempt at obfuscation by Adam (Vicar) on Apr 28, 2000 at 00:24 UTC
My Mom liked that too. Alas, she didn't get the rest of the humor.	[reply]

Back to Obfuscated Code

Node Status^?

node history
Node Type: obfuscated [id://9148]
Approved by root
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others taking refuge in the Monastery: (4)

As of 2020-06-02 08:47 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Do you really want to know if there is extraterrestrial life?

Results (15 votes). Check out past polls.

Notices^?