Codebits
that rock!

Dec 29, 2012

My attempts at making Perl JAPHs

posted by varnie • Tags: perlShow comments

Несколько JAPH моего производства. О том что это такое и для чего нужно можно прочесть в Википедии.

От простого до чуть посложнее:

#!/usr/bin/perl
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-2;
print chr $,-1;$,=0; $,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-12;print chr $,-15;print chr $,-2;$,=0; 
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-6;$,=0; 
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-7;print chr $,-5;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-6;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;

Та же идея, но другая начинка:

#!/usr/bin/perl
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;print chr $x-2;
print chr $x-1;$x=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;print chr $x;print chr $x+1;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;print chr $x;$x=0;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;print chr $x;print chr $x-3;print chr $x+10;$x=0;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;print chr $x;print chr $x-6;$x=0;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;print chr $x-7;print chr $x-5;
$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;print chr $x-6;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;

Это все громоздко и страшновато, поэтому напоследок кое-что покороче, для щекотания нервов:

#!/usr/bin/perl
my$h=0;print map{chr($_+ord(substr("perl"x6,$h++,1))-80)}<DATA>=~/../g;__DATA__
429681880076768384836786005967867611706967866786

С новым годом и хорошего кодинга.


blog comments powered by Disqus
Fork me on GitHub