meta JAPH

I am having too much fun, but here is another one:

#!/usr/bin/perl
$_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O`
qrdq,=mdv'cde`tks^g<=Zrtaz#^<rghes:#^%%'r.[Zcnv
mkn`c[\..+du`k(\|+&csdws&\(:fds'!gsso9..vvv-odq
klnmjr-nqf.>mncd^hc<#^Z/\!(<}.;oqdbk`rr<!bncd!=
'-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?(
$_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD(
$AUTOLOAD=~s/\D//gr);}&split5and5and5chop6chop6
[download]

Ok, string mangling is rather unoriginal, but observe how small changes can lead to a very different result:

#!/usr/bin/perl
$_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O`
qrdq,=mdv'cde`tks^g<=Zrtaz#^<rghes:#^%%'r.[Zcnv
mkn`c[\..+du`k(\|+&csdws&\(:fds'!gsso9..vvv-odq
klnmjr-nqf.>mncd^hc<#^Z/\!(<}.;oqdbk`rr<!bncd!=
'-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?(
$_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD(
$AUTOLOAD=~s/\D//gr);}&split9join9chop75chop88;
[download]

And there are many other possibilities, too.

I have to credit Athanasius for his help on this one.

When's the last time you used duct tape on a duct? --Larry Wall

Back to Obfuscated Code