免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3006 | 回复: 7

太华丽了,求解释 [复制链接]

论坛徽章:
0
发表于 2008-05-01 22:10 |显示全部楼层

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

运行的时候更加华丽
震撼啊
得出的结论:
1.perl很牛逼
2.perl很好玩

论坛徽章:
0
发表于 2008-05-01 22:27 |显示全部楼层
嘎嘎,Just another perl hacker~

论坛徽章:
0
发表于 2008-05-02 08:48 |显示全部楼层
别花时间去研究这个
得不偿失

论坛徽章:
0
发表于 2008-05-02 09:44 |显示全部楼层

回复 #1 churchmice 的帖子

对这段代码的解读,有点儿类似于解读经过混淆器处理的java程序。。
是一种有点儿技术含量的体力活。

论坛徽章:
1
荣誉会员
日期:2011-11-23 16:44:17
发表于 2008-05-02 13:02 |显示全部楼层
这个应该是他先写出正常的代码...然後再把他们改成上面那个模样...
只要有画画的能力..应该都可以做到...
可惜我画不出来..
另外不用去解读他的代码啦.....看大小骆驼还比较正经....

论坛徽章:
0
发表于 2008-05-02 18:46 |显示全部楼层
好像有专门的Perl代码格式化的指令,格式化一下肯定就很简单了

论坛徽章:
0
发表于 2008-05-02 18:49 |显示全部楼层
不过哪位高手有空把它写成一个“顶”字?

论坛徽章:
0
发表于 2008-05-02 19:02 |显示全部楼层

回复 #5 apile 的帖子


正在看大骆驼
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP