Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - japh (https://forum.antichat.xyz/showthread.php?t=43331)

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

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

Код:

$_=' 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$_);

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

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

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

Код:

                                                     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=$_;map{ $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                                  @@@@@@@

                       #@@@@@@@@@@@

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

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

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

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

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

Цитата:

Сообщение от genom--

на cpan их еще больше чем в стотье =)

я раз пять перечитал пока понял что ты на самом деле написал :rolleyes:

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

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

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

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

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

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