japh

[genom--]

предлагаю кидать сюда написанные нами джапхи =)

ну первый от меня на правах топик стартера

$_=' SSSSSS PPPPPPPP LL OOOOOOOO AA
SS PP PP LL OO OO AAAA
SS PP PP LL OO OO AA AA
SSSSSS PPPPPPPP LL OO OO AA AA
SS PP LL OO OO AAAAAAAAAA
SS PP LL OO OO AA AA
SSSSSS PP LLLLLLLL OOOOOOOO AA AA';
@_=split('',~/L/);print chr hex@_[~y/z//].@_[@_[~y/z//]],chr 0.714*ord substr($_,2,4)-1,chr@_[@_[0]]-@_[5],unpack(A2,$_),chr quotemeta "****"=~y/\*/*/*$_=~tr/L//,lc$&,chr@_[1]x2*5+1,unpack(A1,reverse$_);

[KSURi]

мне например не понятно несколько моментов=\

[Digimortal]

genom-- +1
интересная темка..
(хотя я сомневаюсь, что здесь много людей писали когда-нить japh'ы..)
мой простенький - в подписи.. )

[Feshh]

не мое конечно но меня очень порадовало. щас пишу нечто похожее

sub j(\$){($
P,$V)= @_;while($$P=~s:^
([()])::x){ $V+=('('eq$1)?-32:31
}$V+=ord( substr( $$P,0,1,""))-74} sub a{
my($I,$K,$ J,$L)=@_ ;$I=int($I*$M/$Z);$K=int(
$K*$M/$Z);$J=int($J*$M /$Z);$L=int($L*$M/$Z); $G=$
J-$I;$F=$L-$K;$E=(abs($ G)>=abs($F))?$G:$F;($E<0) and($
I,$K)=($J,$L);$E||=.01 ;for($i=0;$i<=abs$E;$i++ ){ $D->{$K
+int($i*$F/$E) }->{$I+int($i*$G/$E)}=1}}sub p{$D={};$
Z=$z||.01;map{ $H=$_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord
substr($H,0,1,"" );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q
%9;$J=($q-$L)/9;$L=$q-9*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L);
($I,$K)=($J,$L)}a($I,$K,$N,$O)}@_;my$T;map{$y=$_;m ap{ $T.=$D->{$y}
->{$_}?$\:' '}(-59..59);$T.="\n"}(-23..23);print"\e[H$T"}$w= eval{
require Win32::Console::ANSI};$b=$w?'1;7;':"";($j,$u,$s,$t,$a,$n,$o
,$h,$c,$k,$p,$e,$r,$l,$C)=split/}/,'Tw*JSK8IAg*PJ[*J@wR}*JR]*QJ[*J'.
'BA*JQK8I*JC}KUz]BAIJT]*QJ[R?-R[e]\RI'.'}Tn*JQ]wRAI*JDnR8QAU}wT8KT'.
']n*JEI*EJR*QJ]*JR*DJ@IQ[}*JSe*JD[n]*JPe*'.'JBI/KI}T8@?PcdnfgVCBRcP'.
'?ABKV]]}*JWe*JD[n]*JPe*JC?8B*JE};Vq*OJQ/IP['.'wQ}*JWeOe{n*EERk8;'.
'J*JC}/U*OJd[OI@*BJ*JXn*J>w]U}CWq*OJc8KJ?O[e]U/T*QJP?}*JSe*JCnTe'.
'QIAKJR}*JV]wRAI*J?}T]*RJcJI[\]3;U]Uq*PM[wV]W]WCT*DM*SJ'. 'ZP[Z'.
'PZa[\]UKVgogK9K*QJ[\]n[RI@*EH@IddR[Q[]T]T]T3o[dk*JE'. '[Z\U'.
'{T]*JPKTKK]*OJ[QIO[PIQIO[[gUKU\k*JE+J+J5R5AI*EJ00'. 'BCB*'.
'DMKKJIR[Q+*EJ0*EK';sub h{$\ = qw(% & @ x)[int rand
4];map{printf "\e[$b;%dm",int(rand 6)+101-60* ($w
||0);system( "cls")if$w ;($A,$S)= ($_[1], $
_[0]);($M, @,)= split '}';for( $z=256
;$z>0; $z -=$S){$S*= $A;p @,} sleep$_
[2];while ($_[3]&&($ z+=$ S) <=256){
p@,}}("". "32}7D$j" ."}AG". "$u}OG"
."$s}WG" ."$t","" ."24}(" ."IJ$a"
."}1G$n" ."}CO$o" ."}GG$t" ."}QC"
."$h}" ."^G$e" ."})IG" ."$r",
"32}?" ."H$p}FG$e}QG$r". "}ZC"
."$l", "28}(LC" ."" ."".
"$h}:" ."J$a}EG". "$c"
."}M" ."C$k}ZG". "$e"
."}" ."dG$r","18" ."}("
."D;" ."$C" )}{h(16 ,1,1,0
);h(8, .98,0,0 );h(16 ,1,1,1)
;h(8.0 ,0.98,0, 1); redo}###
#written 060204 by
#liverpole @@@@@@@
#@@@@@@@@@@@

[Digimortal]

>> не мое конечно но меня очень порадовало. щас пишу нечто похожее

написал бы тогда еще, что надо консоль выставить 120x48 символов перед его запуском..

кста, может кому будет интересно почитать, вот есть статейка по теме:
http://hellknights.void.ru/articles/0x48-japh.txt

[genom--]

на cpan их еще больше

http://www.cpan.org/misc/japh

[Feshh]

на cpan их еще больше чем в стотье =)
я раз пять перечитал пока понял что ты на самом деле написал :rolleyes:

[KSURi]

гена стукни мне как-нить, я те пару вопросов задам...

[genom--]

диджи объясни кое что
вообщем сення сидел ковырял твой japh
для начала снес ивал -- заменил на принт получил код -- потом очистил от '.'
потом начал с конца разбивать на куски код -- отделил фразу print "

немного пофтыкал и методом научного тыка понял как оно пашет потом остальное уже почти также раскручивается

единственно не понял каким макаром генерится символ - допустим возьмем первую букву из принта она у тебя идет как '.'^'^'
мучался с опкодами символов в таблице размещения так и не вник есть какая зависимость логическая при генерации кода нового символа или нет?
те сделаем print '.'^'^'; получим букву р
можем сделать print '2'^'B'; тоже получим р
вот этот момент только немного непонятен вообщем жду ответа.

ps а вообще сидел ковырялся увлекает зараза расшифровка =)

[KSURi]

кстати расшифровывается джапф от диги, собственно как и все остальные, в одну команду)

[Digimortal]

>> кстати расшифровывается джапф от диги, собственно как и все остальные, в одну команду)

ну я потому и написал, что он очень простенький.. )
если ты об мо=депарс, то расшифровать так можно не любой джапх.. да и вообще, зачем их расшифровывать? интересней и полезней деобфусцировать все вручную шаг за шагом..

>> вот этот момент только немного непонятен вообщем жду ответа.

eval('.'.'-@^*'.'`^#`^`#'.'@-`_^^^^_'^'^_)'.'0^@'.'|}@c'.'@[/_@dwp'.'p|d')

[genom--]

eval('.'.'-@^*'.'`^#`^`#'.'@-`_^^^^_'^'^_)'.'0^@'.'|}@c'.'@[/_@dwp'.'p|d') ----- гыггы маньяк

в ручную и вправду интереснее и вкуснее

[KSURi]

ну про интерес не спорю)
а вот насчет того, что все или не все: да, есть те которые он частично расшифровывает. те которые вообще не берет я еще не видел

[Digimortal]

>> те которые вообще не берет я еще не видел

#!/usr/bin/perl

use strict;

$.=$ ^F,$;=$./$ .,$_=$.<<$ .*$.+$;,$ ==$.<<$.,$ *=$=+$.=>$ %=$.*$_;$ "=$%-$*
,$-=$ =-$.=>$?=$ %-$.,$:=$;+$ .;$!=$_/$.,$ @=$"-$=-$ --$:,$/=$?+$;-$*-$:,$#=
pack'c*',$_+$ *,$?+$ ;-$*,$?+$ ;-$*-$.,$ "-$.,$!,$_+$ !+$./$.,$"-$=,$"-$=+$.
/$ .,$ "-$.,$" -$=-$-,$ @,$/,$ !,$_+$ *+$ *-$.*$ .,$@,$/,$ "-$=-$.,$ !,$"-$=
-$- ,$_+$!+$ ;,$_+$!+$;+$ . ,$?+$ . /$.-$*-$ * ,$@,$/,$ !+$ *+$ . ;print $;;

>> гыггы маньяк

eval('.'.'-@^*'.'`^^@*`'.'@>^@>0^^`'.'^`'.'`[-*`>^@*I:-`->|,pI>#@-||`^^^_'^'^_)'.'0^@|0/'.'^@-_0)'.'_[pp@w@*'.'.'.'^^@_'.'0/^!__@}{'.'.'.'`]!_[/_]]'.'@dw|d')

[Kridan]

Я правильно понял?
Нужно так делать?

eval('_\\\\,\\\\\\\\\\\\\\\\\'\'\'\\\\\'\\\'\'\'\' \\\\\'\\\\\\\\\\\'\\\'\'\\\'\'\\\\\'\'\\\\\\\'\\\\ \\\'\\\'\\\'\\\'\\\'\\\\\\\\\'\'\\\\\'\\\\\\\'\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' \\\'\\\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' \'\\\'\'\'\'\'\'\'\\\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' \\\'\'\'\'\'\'\'\\\'\'\'\'\'\'\'\\\'\'\'\'\'\'\\\' \'\'\'\'\'\\\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\'\'\' \'\'\'\\\'\'\'\'\'\'\'\\\'\'\'\'\'\'\\\'\'\'\'\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\\\'\'\'\'\'\'\\ \\\'\'\'\'\'\'\\\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\'\'\'\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' \'\'\'\'\'\'\\\'\'\'\'\'\'\\\'\'\'\'\'\'\\\'\'\'\' \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\'\'\'\'\'\'\' \'\'\'\'\'\\\'\'\'\'\'\'\\\'\'\'\'\'\'\\\'\'\'\'\' \'\\\'\'\'\'\'\'\\\'\'\'\'\'\'\\\'\'\'\'\'\'\\\'\' \'\'\'\'\\\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\'\'\'\' \'\'\\\'\'\'\'\'\'\'\\\'\'\'\'\'\'\'\\\'\'\'\'\\\\ \'\'\\\\\'\\\\\'\'\\\\\\\'\\\\\'\'\\\\\\\'\\\'\'\\ \\\\\\\\\'\'\'\'\\\\\\\'\'\'\\\'\'\\\\\'\'\'\'\\\' \'\'\'\\\\\'\'\\\\\'\'\'\'\\\\\\\\\\\\\'\\\'\'\'\' \\\\\\\'\'\'\\\'\\\\\\\\\\\\\'\'\\\\\'\\\'\'\'\\\\ \'\'\\\'\'\'\'\\\\\\\\\'\'\\\\\\\'\'\'\\\\\\\\\'\' \\\\\'\'\'\'\'\\\\\'\'\\\\\'\'\'\\\'\'\'\\\\\'\'\\ \'\\\'\\\'\'\\\'\\\\\'\'\'\'\'\'\'\\\'\'\\\\\\\'\' \\\'\'\'\\\'\'\'\\\'\'\'\\\\\'\\\\\'\'\'\\\'\\\'\' \'\'\\\'\\\'\\\'\'\'\\\'\'\'\\\\\'\'\'\\\'\\\'\\\' \\\'\'\\\\\\\\\'\'\\\'\'\'\\\'\'\'\\\'\'\'\\\\\'\\ \\\'\'\'\\\'\\\'\'\'\'\\\'\\\'\\\'\'\'\\\'\'\'\\\\ \'\'\'\\\'\\\'\\\'\\\'\'\\\\\\\\\'\'\\\'\'\'\\\'\' \'\\\'\'\'\\\\\'\\\\\'\'\'\'\'\'\'\'\\\'\\\'\\\'\' \'\\\'\'\'\\\\\'\'\'\\\'\\\'\'\'\'\\\\\\\\\'\'\\\' \'\'\\\'\'\'\\\'\'\'\\\\\'\\\\\'\'\'\'\'\'\'\'\\\' \\\'\\\'\'\'\\\'\'\'\\\\\'\'\'\\\'\\\'\'\'\'\\\\\\ \'\'\'\'\'\'\\\'\\\'\'\'\\\'\'\'\\\\\\\'\'\\\'\'\\ \'\\\'\'\'\\\'\'\'\\\\\\\\\\\'\'\\\'\\\'\\\\\\\\\' \\\'\'\'\\\'\'\'\'\'\'\'\\\'\'\'\\\'\\\'\'\'\'\\\' \\\'\'\'\'\\\\\\\\\\\\\\\\\'\'\'\\\\\'\\\'\\\'\\\' \\\\\\\\\\\\\'\\\'\'\'\\\\\'\\\\\'\'\'\'\'\\\'\'\' \'\\\'\\\'\\\\\\\\\'\'\'\'\\\\\'\'\\\\\\\\\\\\\'\\ \\\'\'\'\\\'\\\'\'\\\\\'\'\'\'\\\\\'\'\\\\\'\'\\\\ \\\'\'\\\\\'\\\'\'\\\\\'\\\'\\\'\\\'\\\'\'\\\'\'\\ \\\'\'\'\'\'\\\\\'\'\'\'\\\'\'\'\\\\\'\'\\\'\\\'\' \\\\\'\'\'\'\'\\\\\'\'\\\\\'\'\'\\\\\'\'\\\'\\\\\' \'\\\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\'\'\'\\\'\'\'\' \\\'\\\\\'\\\'\\\'\\\'\'\'\\\'\'\\\'\\\\\'\\\\\\\\ \\\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'\'\'\'\\\\\\ \'\'\\\\\\\'\\\'\\\'\\\'\\\\\\\\\\\\\\\\\\\\\\\'\\ \'\'\'\'\'\'\'"\'\',\\\\`\'\'\\\'\'\'\'\'\\\'\\\'"\'\'\'\'\'\'\\\'\'\'\'/,\\.)\'\'\'\\\'\'\'\'\'/"\'",\'"\',\',\',\',\',\'`\',\',\',\'\'\'\',\'/\',\'.\',\'\'\',\'\'\',\'\'\',\'\'\',\'\'\',\'\'\' \',\'\'\',\'\'\',\'\'\',\'\'\'\',\'\'\',\'\'\',\'\ '\',\',\',\',\',\'\'\'\'\',\'\'\'\',\'\'\',\'\\\', \'\'\',\'"\',\'\'\',\'\'\',\'\\\',\'`\',\'\'\',\'`\',\'`\',\ '\\\',\'\\\',\'\'\',\'\'\',\'\'\',\'\\\',\'\\\',\' \'\',\'\\\',\'\'\',\'\'\',\'\'\'\',\'\'\',\'\'\',\ '\'\',\'\'\',\'\'\',\'\\\',\'\'\',\'\'\',\'\'\',\' \'\'.\'\'`\'\'\\\'\'\'\'\'\'\'\\\'\'\'\'\'\'\\\'"\'\'\'\'\'\'/\'\'\'\'\\.\'"\'\'\'`\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\\\'/\'\'\'\'\\.\'\'\'\'\'\'\'\'\\\'\'\'\\`\'\',\'/`\'\'\'\'\'\'\'\'\'\\.\'\'\'\'\\\'\'\\``\'\'\'\'\'/\'\\`\'\'.\'\'\'\'`\'\'\'`\\/\'\'.\'\'\'\\\'/\'`\',\'\'\\\'\'"\'\'".\'\'\'\'`\',\'\'"\'\'\'\'"\'\'\'\'\\\'/\'`\'@\'\'\\\'\'"\'\'".\'\'\'\'`\'@\'\'"\'\'\'\'"\'\'\'\'\\\'/\'`\',\'\'\\\'\'"\'".\'\'\'\'`\',\'\'"\'\'\'"\'\'\'\'\\\'/\'`\'@\'\'\\\'\'"\'".\'\'\'\'`\'@\'\'"\'\'\'"\'\'\'\'`,\'\'`\',\'\'\'\'\',\'\'`\'@\'\'\'\'\'\'\ '\\\'\'\'\'\'\\\'"\'\'\'`\'\'\'\'\'\'\'\'\'"\'\'\'\'\'\'\'\'\'"\'\'@\\,/\'\'\'\'\'\\\'\\\'\'\'\'\\\\`\'/\'\'\\\'\'\'\'\'\\.\'\'"\'\'\'\'\'\'\'\'`\\\'\'\'\\\'\'\'`\'\'\\\'\'\'\'\' \'\\\'\'\'`\'\'_.,@\\\'\\\'\'\\``\'\'\'`\'/\'\'.\'\'\'\\\'\'\\``\'\'\'\'\'/\'\'.\'\'\'\'\\\'//"\'`"\'"\'\'".\'\\\'\'\'\'\',\'.\'\'\'\'\\\'\'\'\'\'/"\'`","\'\'".\'\'\'`\'\'\'_.,@\'\'\'\'\'\'\'\'\'\\\\`'^':*=@t{ ppurs<{{{{r{{{{xxusx<pspsgr{{<{{<<{{purx<<<{{{{{{{{{{<<<g{{<{{u<{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{{{{{{{{{{{{{{{{~{{{{{{<{{{{{{{{{{{{{{~{{{{{{{{{{{{{{{{{{{{{{<{{{{{{{{{{{{{{{{{{{{{{<<{{{{{{<<{{{{{{<{{{{{{{{{{{{{{<{{{{{{{{{{{{{{x{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{~{{{{ {{{{{{{{{{x{{{{{{x{{{{{{{{{{{{{{{{{{{{{{t{{{{{{u{{ {{{{g{{{{{{g{{{{{{p{{{{{{g{{{{{{r{{{{{{s{{{{{{p{{{ {{{p{{{{{{p{{{{{{p{{{{{{s{{{{{{r{{{{{{{{{{{{{{p{{{ {{{{{{{{{{{{{{{{{{{{{{{{{<<{{tsgp<{{purx<<{{purx<{{ppurs{{{{purx{{<{{<<{{{{<{{{{<<{{~<{{{{<<ptupx<{{{{purx{{<{{rrptu{{s<{{g{{pp{{<{{{{tsp<{{purx{{<~<<{{spx{{{{t<{{p<{{{{g{{pp{{<{{{{{{<{{r{{g{{{{p{{<<u{{<{{{{{{{{{{{{<xp<{{{{{{{{{{<{{{{{{{{{{{{<{{{{{{{{{{{{~<<u{{<{{{{{{{{{{{{<xp<{{{{{{{{{{<{{{{{{{{{{{{<{{{{{{{{{{{{~<<u{{<{{{{{{{{{{{{<xp<{{{{{{{{<{{{{{{{{{{{{<{{{{{{{{{{~<<u{{<{{{{{{{{{{{{<xp<{{{{{{{{<{{{{{{{{{{{{<{{{{{{{{{{~<<{{{{{{<{{{{{{{{{{<<{{~{{<{{{{{{{{{{<~<<{{rxp{{purx<{{{{{{{{{{{{{{{{{{{{{{~{{{{{{<<ppurs<{{{{r{{{{{{{{<pspsgu{{{{r{{rx{{{{p{{{{rxp{{purx{{{{r{{<<pr~<{{r{{g<{{g{{<{{{{<<g{{<{{~<<g{{<{{{{<<{{{{{{{{{{<{{spx{{{{t<{{{{<{{{{u{{<{{{{spx{{{{t<{{~<{{{{u{{<{{u{{<{{{{{{{{{{{{{{{{{{~{{{{<xp<{{{{{{{{{{{{<{{pxsrpr<{{{{{{{{{{{{{{{{~{{{{<<p{{ps<{{{{{{{{<~<~<~<~<{y{{{ygg|g\\\\g]vf[g|fgx|ygw|:g\\|g_gggfgz{{[_?@@y|gqyg@gz[\\\\\\\\\\\\\\\\\\\\\\\\\\^\\\\\\\\\\\\\\_\\\\\\\\ \\\\\\\\[\\\\\\[\\\\\\_\\\\\\@\\\\\\]\\\\\\^\\\\\\|\\\\\\{{\\\\\\x\\\\\\|\\\\\\_\\\\\\{ {\\\\\\[\\\\\\]\\\\\\g\\\\\\[\\\\\\]\\\\\\g{{\\\\\\yg\\\\\\z\\\\\\:\\\\\\x\\\\\\_\\\\\ \[\\\\\\^\\\\\\*\\\\\\]\\\\\\g\\\\\\_\\\\\\[\\\\\\f\\\\\\f\\\\\\g\\\\\\g\\\\\\g\\\\\\v\\\\\\w\ \\\\\g\\\\\\q\\\\\\g\\\\\\g\\\\\\{{\\\\\\z\\\\\\y\ \\\\\x\\\\\\|\\\\\\|\\\\\\v\\\\\\|\\\\\\x\\\\\\y\\ \\\\z\\[|g_ggq{{g_gggf|g_gggfz\\{{ygg|[_gggf[|\\|g_]z\\\\|g_gz\\\\|g|gggfg[_gggf[g{{|gxggf|g@q]xx\\g[_gg{{g_gggf[|x|gfgyf]_gg_xg[@q]xx[g{{@_zzg]w[_x[|ggfg[@_[@]gfzg\\\\\\\\[g{{@_[@]z\\\\\\\\\\\\x|ggfg[@_[-]gfzg\\\\\\\\[g{{@_[-]z\\\\\\\\\\\\x|ggfg[@_[@]gfzg\\\\\\[g{{@_[@]z\\\\\\\\\\x|ggfg[@_[-]gfzg\\\\\\[g{{@_[-]z\\\\\\\\\\x|g_]^z@_[@]|g_g^z@_[-]|x|g_gf|_gggfz\\\\\\_]\\\\^\\\\_g\\\\\\|g{{ygg|g\\\\g-:[@gx|ygwg:\\g\\gfv]g[_gf|_gggf[\\g\\|gx|ggzg]wg{{qyg_]|gqyg_g|gqyg@_|g;@@+:gfgyf]_gg_]g[@g[g{{fgyf]_gg_gg[@g[g{{gfg[[\\_]\\^\\_g\\[gfzg@_[@][g{{yf||ygg[\\_]\\\\\\_g\\[|gg]x|g;@@+|x|x|x|x|{u[');

З.Ы. Пробелов не должно быть вообще!

[KSURi]

диги залей куда-нить сорец, а то форум портит сорцы

[Digimortal]

>> диги залей куда-нить сорец, а то форум портит сорцы

да ниче форум не попортил.. щас проверил - все нормально работает...
з.ы. крекми был интересный.. )

[KSURi]

#!/usr/bin/perl

use strict;

$.=$ ^F,$;=$./$ .,$_=$.<<$ .*$.+$;,$ ==$.<<$.,$ *=$=+$.=>$ %=$.*$_;$ "=$%-$*
,$-=$ =-$.=>$?=$ %-$.,$:=$;+$ .;$!=$_/$.,$ @=$"-$=-$ --$:,$/=$?+$;-$*-$:,$#=
pack'c*',$_+$ *,$?+$ ;-$*,$?+$ ;-$*-$.,$ "-$.,$!,$_+$ !+$./$.,$"-$=,$"-$=+$.
/$ .,$ "-$.,$" -$=-$-,$ @,$/,$ !,$_+$ *+$ *-$.*$ .,$@,$/,$ "-$=-$.,$ !,$"-$=
-$- ,$_+$!+$ ;,$_+$!+$;+$ . ,$?+$ . /$.-$*-$ * ,$@,$/,$ !+$ *+$ . ;print $;;

Хэк, узнал один интересный для меня факт из этого кода
ЗЫ: Все решается расстановкой пробелов и переносов строк и вот этой страничкой - http://www.spravkaweb.ru/perl/specialvar