предлагаю кидать сюда написанные нами джапхи =) ну первый от меня на правах топик стартера Code: $_=' 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'ы..) мой простенький - в подписи.. )
не мое конечно но меня очень порадовало. щас пишу нечто похожее Code: 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
диджи объясни кое что вообщем сення сидел ковырял твой japh для начала снес ивал -- заменил на принт получил код -- потом очистил от '.' потом начал с конца разбивать на куски код -- отделил фразу print " немного пофтыкал и методом научного тыка понял как оно пашет потом остальное уже почти также раскручивается единственно не понял каким макаром генерится символ - допустим возьмем первую букву из принта она у тебя идет как '.'^'^' мучался с опкодами символов в таблице размещения так и не вник есть какая зависимость логическая при генерации кода нового символа или нет? те сделаем print '.'^'^'; получим букву р можем сделать print '2'^'B'; тоже получим р вот этот момент только немного непонятен вообщем жду ответа. ps а вообще сидел ковырялся увлекает зараза расшифровка =)
>> кстати расшифровывается джапф от диги, собственно как и все остальные, в одну команду) ну я потому и написал, что он очень простенький.. ) если ты об мо=депарс, то расшифровать так можно не любой джапх.. да и вообще, зачем их расшифровывать? интересней и полезней деобфусцировать все вручную шаг за шагом.. >> вот этот момент только немного непонятен вообщем жду ответа. Code: eval('.'.'-@^*'.'`^#`^`#'.'@-`_^^^^_'^'^_)'.'0^@'.'|}@c'.'@[/_@dwp'.'p|d')
eval('.'.'-@^*'.'`^#`^`#'.'@-`_^^^^_'^'^_)'.'0^@'.'|}@c'.'@[/_@dwp'.'p|d') ----- гыггы маньяк в ручную и вправду интереснее и вкуснее
ну про интерес не спорю) а вот насчет того, что все или не все: да, есть те которые он частично расшифровывает. те которые вообще не берет я еще не видел
>> те которые вообще не берет я еще не видел Code: #!/usr/bin/perl use strict; $.=$ ^F,$;=$./$ .,$_=$.<<$ .*$.+$;,$ ==$.<<$.,$ *=$=+$.=>$ %=$.*$_;$ "=$%-$* ,$-=$ =-$.=>$?=$ %-$.,$:=$;+$ .;$!=$_/$.,$ @=$"-$=-$ --$:,$/=$?+$;-$*-$:,$#= pack'c*',$_+$ *,$?+$ ;-$*,$?+$ ;-$*-$.,$ "-$.,$!,$_+$ !+$./$.,$"-$=,$"-$=+$. /$ .,$ "-$.,$" -$=-$-,$ @,$/,$ !,$_+$ *+$ *-$.*$ .,$@,$/,$ "-$=-$.,$ !,$"-$= -$- ,$_+$!+$ ;,$_+$!+$;+$ . ,$?+$ . /$.-$*-$ * ,$@,$/,$ !+$ *+$ . ;print $;; >> гыггы маньяк Code: eval('.'.'-@^*'.'`^^@*`'.'@>^@>0^^`'.'^`'.'`[-*`>^@*I:-`->|,pI>#@-||`^^^_'^'^_)'.'0^@|0/'.'^@-_0)'.'_[pp@w@*'.'.'.'^^@_'.'0/^!__@}{'.'.'.'`]!_[/_]]'.'@dw|d')
Я правильно понял? Нужно так делать? Code: 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['); З.Ы. Пробелов не должно быть вообще!
>> диги залей куда-нить сорец, а то форум портит сорцы да ниче форум не попортил.. щас проверил - все нормально работает... з.ы. крекми был интересный.. )
Code: #!/usr/bin/perl use strict; $.=$ ^F,$;=$./$ .,$_=$.<<$ .*$.+$;,$ ==$.<<$.,$ *=$=+$.=>$ %=$.*$_;$ "=$%-$* ,$-=$ =-$.=>$?=$ %-$.,$:=$;+$ .;$!=$_/$.,$ @=$"-$=-$ --$:,$/=$?+$;-$*-$:,$#= pack'c*',$_+$ *,$?+$ ;-$*,$?+$ ;-$*-$.,$ "-$.,$!,$_+$ !+$./$.,$"-$=,$"-$=+$. /$ .,$ "-$.,$" -$=-$-,$ @,$/,$ !,$_+$ *+$ *-$.*$ .,$@,$/,$ "-$=-$.,$ !,$"-$= -$- ,$_+$!+$ ;,$_+$!+$;+$ . ,$?+$ . /$.-$*-$ * ,$@,$/,$ !+$ *+$ . ;print $;; Хэк, узнал один интересный для меня факт из этого кода ЗЫ: Все решается расстановкой пробелов и переносов строк и вот этой страничкой - http://www.spravkaweb.ru/perl/specialvar
