Four part JAPH

[cog]

#!/usr/bin/perl
END{s{}{"@{[map{$%=$_;$_=&{$_{$_}};$%%2&&s%.%\u$&%;$_}($|..${$/=\
($^A+$|+$?)})]},"}e;print}($,,$,,+$*,$,,$,)=($|..$=/(+++$^A+$^A)*
+++$^A*++$^A);@_{++$|..2**(++$-+$-)}=(sub{(join$',map{+chr($|+$,+
ord($_))}reverse((split$`,&{$_{$=/($,*$,+$,)}})[$...$|]))."${\'s'
}".substr(&{$_{2}},$^A,$|)},sub{"anoth".substr(&{$_{$^A}},+$-,$-+
$|)},sub{$a="\104\101\124\101";!seek$a,$=/($*+$,)+$|,$;or~~<$a>},
sub{local$";"@{[(split//,(chr($^A-$|+ord(substr(&{$_{$^A-$|}},+$?
..++$?)))).&{$_{$,/($^A-$|)}}.chr(2*$=-$^A*$,-$|))[$,+$|,$|,$--$|
,+-+$|,-$|x$?,+$=/(0+$,*+$*+-+-$*),$,+-+-~~$*+-+-$|]]}"});__END__

(needs to be saved to a file)

Update: You must include the #! line in the file.

[ghenry]

Hi cog, does this mean 3 more parts are coming?

I ran the above using ActiveState 5.8.6, on Win2k, and got:

R`st anothma [map hackma,

I don't think that's right? ;-)

Thanks.

[cog]

Problem solved (I think), thanks to Jody Belka (knewt) on #perl.

ghenry, the file must include the #! line :-)

[ghenry]

I'm a Linux junkie, but I thought on Windows, you always had to just have the code in a text file and run it with:

perl textfile

[olus]

Haven't tried to de-obfuscate it (yet), but why not the use of $^X instead of the mandatory first line?

[cog]

Hi cog, does this mean 3 more parts are coming?

No, it means that the japh is calculated in four different parts :-) Try to deobfuscate it :-)

R`st anothma [map hackma,

At first glance, I'd say that I'm relying on some special variable that holds a different value in your system... :-\ To find out which... oh boy... :-\

I'm saying this because I refrained myself from using $^F precisely because it could change...

Hum... I'd say $= doesn't hold 60 in your system... am I right? :-\

[ghenry]

Nope ;-)

perl -e "print $="

Gives 60, on a Win2k, ActiveState 5.8.6 install.

[jdalbec]

I'm impressed by how well parts of your code foil Perl::Tidy. The "@{[...]}" and s{}{...}e notation and the __END__ at the end of a line all cause Perl::Tidy not to respace those sections of code at all. The following modification is Perl::Tidy-friendlier:

#!/usr/bin/perl
END{$_=(join$",@{[map{$%=$_;$_=&{$_{$_}};$%%2&&s%.%\u$&%;$_}($|..${$/=
+\
($^A+$|+$?)})]}).",";print}($,,$,,+$*,$,,$,)=($|..$=/(+++$^A+$^A)*
+++$^A*++$^A);@_{++$|..2**(++$-+$-)}=(sub{(join$',map{+chr($|+$,+
ord($_))}reverse((split$`,&{$_{$=/($,*$,+$,)}})[$...$|]))."${\'s'
}".substr(&{$_{2}},$^A,$|)},sub{"anoth".substr(&{$_{$^A}},+$-,$-+
$|)},sub{$a="\104\101\124\101";!seek$a,$=/($*+$,)+$|,$;or~~<$a>},
sub{local$";join$",@{[(split//,(chr($^A-$|+ord(substr(&{$_{$^A-$|}},+$
+?
..++$?)))).&{$_{$,/($^A-$|)}}.chr(2*$=-$^A*$,-$|))[$,+$|,$|,$--$|
,+-+$|,-$|x$?,+$=/(0+$,*+$*+-+-$*),$,+-+-~~$*+-+-$|]]}});
__END__

Here is a tidied version with comments:
Read more... (4 kB)