首页 > 杂七杂八 > perl Acme EyeDrops

perl Acme EyeDrops

2015年1月21日 发表评论 阅读评论

源码如下:

                                      
                                      ''=~('('.'?'
           .'{'.(                   '`'|'%').("\["^
        '-').('`'|                '!').('`'|',').'"'
 .('['^'+')  .('['^              ')').('`'|')').('`'|
'.').('['^'/').('{'^            '[').'\\'.'"'.('`'|'('
).('`'|'%').('`'|',')          .('`'|',').('`'|"\/").(
  '{'^'[').('['^'+').        ('`'|'%').('['^')').("\`"|
       ',').','.('`'|      '.').('`'|'/').('['^'/').('{'
      ^'[').('`'|'('     ).('`'|'%').('`'|',').('`'|',').
     ('`'|'/').('{'^   '[').('`'|'+').('`'|')').('['^'/').
    ('['^'/').('['^   '"').'\\'.'\\'.('`'|'.').'\\'.'"'.';'.
    '"'.'}'.')');$:  ='.'^'~';$~='@'|'(';$^=')'^'[';$/=('`')|
    '.';$,='('^'}'  ;$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^
    '_';$/='&'|'@'  ;$,='['&'~';$\=','^'|';$:='.'^'~';$~="\@"|
    '(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}'
    ;$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:=
     '.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'
     |'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~'
      ;$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,=
       '('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'
        |'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|"\(";$^= ')'
         ^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~  =((
          '*'))|'`';$^='+'^'_';$/='&'|'@';$,=('[')& "\~";$\=  ','
            ^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';  $/='`'|   '.'
             ;($,) ='('^'}';$\='`'|'!';$:=')'^'}'   ;$~='*'   |((
                   '`'));$^='+'^'_';$/='&'|"\@";    $,='['&   '~'
                   ;$\=','^    '|';$:='.' ^"\~";     $~='@'   |+
                   '(';$^=     ')'^'[';   $/='`'     |"\.";  $,
                   =('(')^     "\}";$\=   "\`"|       "\!";  (
                   ($:))=      ')'^'}';   ($~)         ='*'
                   |"\`";     $^=('+')^   '_';         ($/)
                    ='&'|     "\@";$,=    '['&         '~';
                    ($\)=     ','^'|'     ;$:=         '.'^
                    '~';     $~='@'       |'('         ;$^=
                    ')'^     '['          ;$/=         '`'|
                    '.';      $,=         '('          ^((
                    '}'        ));       $\=           '`'
                    |((         '!'     ));            $:=
                    ')'          ^((   '}'              ))
                    ;(             ($~))=               ((
                    ((              '*'))               ))
                    |+             "\`";$^=             ((
                   '+'            ))^+ "\_";            $/
                  =((           '&'))|  '@';           $,=
                 '['&         "\~";$\=   ','          ^'|'
               ;($:)=                                ('.')^
             "\~";$~=                               '@'|'('



复制以上内容粘贴到记事本,后缀改成pl,然后运行perl 文件名.pl,就可以看到效果

  hello_perl.rar (804 字节, 10 次)

  Perl.mm (44.7 KB, 8 次)

移动设备快速阅读本文:
            请扫描二维码  -->
分类: 杂七杂八 标签:
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.

%d 博主赞过: