perl 有什么加密机制吗

wpeng18

请问各位老师，我有perl source code。我想加密我的perl source code，我不想让对方看到我的源代码（处于保密考虑，含有些保密信息），只想让对方执行。请问perl有这样的方法吗？谢谢

q1208c

perl本身没有. 你可能需要编译成 bin 模式的包.

jason680

回复 1# wpeng18


Would you like Acme::Bleach?

inbus

how about AAAAAAAAA

doiob

Acme::EyeDrops

produces camel.pl:

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

hmlijg

用exe打包程序将perl文件转为exe文件就行

huang6894

perl2exe？

climby

回复 1# wpeng18


    要保密，可以做成web application吧， 代码只在服务器端，用户通过浏览器使用就可以了