my first attempt at an obfu

I'm sure it could be "better", but as a first effort, and a one-liner, I would like to think I did pretty well.

print(join(qw//=>(map{chr}(map{hex}(map{$_="0x$_"}(split/Y\w/=>qw/4AY0
+75Y773Y474Y120Y641Y36EY16FY174Y868Y065Y972YH20YQ50Y465YZ72Y26CYB20YJ4
+8Y761YU63Y56BY965YY72/))))));
[download]

Comments/suggestions are very welcome.

--
Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0
perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'

Comment on my first attempt at an obfu Download Code

Replies are listed 'Best First'.
Re: my first attempt at an obfu by inman (Curate) on Jan 05, 2005 at 17:10 UTC
Check out http://domm.zsi.at/talks/obfu_yapc2002/obfu_yapc.html as a rough guide to Obfus.	[reply]
Re: my first attempt at an obfu by wolfger (Deacon) on Jan 07, 2005 at 14:23 UTC
Just a quick update... I didn't get around to fully exploring the link inman posted, but I did pick up a few tricks to obfuscate a little more. I also added a variable to the beginning which explains the output (which kinda un-obfuscates it, I guess, but it has style, IMO) `print$JustAnother{PerlHacker}=join(qq qq=>(map(chr,(map(hex,(map($_="0x$_",(split/\ww\w/=>qq Z4Agw0753w773jw4742w120xw641tw36E6w16Fmw174lw8681w065lw9726wH20bwQ50cw +4658wz72Ww26CjwB20qwJ480w761owU63Ow56Bpw965Www72Z))))))));` [download] -- Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0 perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'	[reply] [d/l]