Token Abuse Japh

Every line of this script violates good programming practices.

Be sure to include the final quotation mark (")

#!/usr/bin/perl

$ == _ eq _;
$ -= ( ) = qw;      ( );;
$ -= ( ) = qw(( ));
$ *= $ -* $ -* $ -;
$ /= $ -+ $ * ; _:
$ " .= chr $ /+ $ *** $ -;
$ /= $ / >> $ = || $ ** $ -;
$ /= $ / &~ $ */ $ - and goto _;
print $ ","
"
[download]

@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Comment on Token Abuse Japh Download Code

Replies are listed 'Best First'.
Re: Token Abuse Japh by chargrill (Parson) on Feb 10, 2006 at 21:15 UTC
I was also surprised that $ = was legal. Unfortunately, Read more... (110 Bytes) Being thoroughly impressed by this (as well as the rest of liverpole's JAPH's, I thougt I'd go ahead and post a detailed de-obfuscation of this particularly clever (to me, at least) JAPH. Read more... (6 kB) Whew! ++liverpole! That was a lot of fun! --chargrill `$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );` [download]	[reply] [d/l] [select]
Re^2: Token Abuse Japh by liverpole (Monsignor) on Feb 10, 2006 at 22:52 UTC
Thank you, chargrill ++ a delightful read. I'm glad you referenced Perl Idioms Explained - my $count = () = /.../g, because I actually hadn't intended to use it; I just came to a point where I realized I needed it. So it was serendipitous that I had just read that node the other day. @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"	[reply]
Re: Token Abuse Japh by Errto (Vicar) on Feb 10, 2006 at 20:05 UTC
<Reveal this spoiler or all in this thread>	[reply]
Re: Token Abuse Japh by wulvrine (Friar) on Feb 12, 2006 at 22:15 UTC
What an interesting 'shift' in obfuscation methodology :) I had a lot of fun figuring out what you were doing :) Great job!	[reply]


Just another Perl shrine
	PerlMonks