Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]5725[/thread]

Verschlüsseln

Leser: 2


<< |< 1 2 >| >> 16 Einträge, 2 Seiten
Gast Gast
 2003-09-16 17:49
#52467 #52467
Hallo

Wie kann ich mein Script "verschlüsseln" , sodass niemand anderes es leicht lesen kann?

Damit niemand daran rumpfuschen und es verkaufen kann
?
Thorium
 2003-09-16 17:55
#52468 #52468
User since
2003-08-04
232 Artikel
BenutzerIn
[Homepage] [default_avatar]
gar nicht...
Perl ist eine interpretierte Sprache, was heisst, dass dein Interpreter den Perlcode immer lesen muss. Und wenn es dein Interpreter kann, kann es auch jeder andere.
Was du machen kannst, ist compillieren, doch dein Code ist und bleibt einsehbar.
Also verschlüsseln, "sodass niemand anderes es lesen kann" ist unmöglich.
Per|li|nist der; -en, -en <zu ↑...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
jan
 2003-09-16 18:05
#52469 #52469
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
>sodass niemand anderes es leicht lesen kann?

das leicht ist hier das entscheidende wort, denke ich ;)
ja, das geht. du kannst überflüssige whitespaces entfernen lassen, die variablen- und subnamen verändern etc pp.
dann gibt es noch elaboriertere methoden, mit denen ich mich aber nie beschäftigt habe und zu denen sicher noch jemand was sagen wird...
format_c
 2003-09-16 18:11
#52470 #52470
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Gibts da nicht die coolen sachen von Acme so wie EyeDrops die sowas mit dem Code machen.

Wollt das schon immer mal ausprobieren, bin aber nie dazu gekommen.
Die Frage ist nur ob der Code danach auch noch funktioniert.

Gruß ALex.
Effizente Linuxshell
Relais
 2003-09-16 18:25
#52471 #52471
User since
2003-08-06
2244 Artikel
ModeratorIn
[Homepage] [default_avatar]
und die Antwort ist Ja.
Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming
[HR]Doomrunner
 2003-09-16 18:29
#52472 #52472
User since
2003-09-04
77 Artikel
BenutzerIn
[default_avatar]
hi.

ich kann die acme Sachen nur empfehlen. Arbeite damit schon ne ganze Zeit lang. Ist für mich Pflicht, da ich auch Intranetsysteme programmiere, die auf internen Servern liegen.

Ein vorteil von Acme::Eyedrops:
Ihr braucht das Modul nur zum verschlüsseln. Es musst nicht auf dem Rechner installiert sein, auf dem das Modul läuft.
format_c
 2003-09-16 18:47
#52473 #52473
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Ah ist ja geil:
aus
Code (perl): (dl )
1
2
3
4

use strict;
use warnings;

print "Hello World\n";


wird
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
                        ''
                     =~("\(".
                    '?'."\{".(
                   '`'|('%')).(
                   '['      ^((
                   (          (
                   (          (
                   '-'       ))
                   ))))     ).(
                   "\`"|   '!')
                   .('`' | ',')
                   .'"'.   ('['
               ^"\.").(    '[' ^'(')
              .    ((( (   (   (    (
              (    (     (     (    (
              (    (           (    (
              (    '`'))))))))))    )
              )   ))))|'%').('{'^   (     '[')          ).+(
              (   '[')^'(').('['^   (     ( '/'))).("\["^ ((
              (   ')')))).(('`')|   (      ( (')')))).(   (
              (    '`'))|"\#").(     (      '[')^('/')). ((
              (    ';'))).("\!"^ (    ( '+'))).(   '['^ ((
              (    '.')))).('['^  (   "\(")).(   (  (     ((
              (    '`')))))|'%')    .+(  ((  '{') )^+      ((
              (   '[')))).(('[')^  ','   ).  +(   ( ((   '`'
              )  ))|'!').('['^(')')).(   ((   (( '`'))   ))
              | '.').('`'|')').(('`')|   ((    '.'))).(  ((
         '`'  ))|"'").('['^'(')."\;".(   '!'   ^"\+").(  ((
       '!'))^'+').('!'^'+').(('[')^  ((  '+')   )).(('[')^
      ')').(  '`'|')').('`'|"\.").(   '[' ^+ "\/").( ('{')^
     '['      ).'\\'.'"'.('`'^'(')      .('`'|"\%").( ((  (
   '`'      ))     )|(',')).(   ((        '`') )|',').( '`'|
 '/')       .("\{"^ "\[").(    ((           '{'))^',') .('`'
|'/').(     '['   ^')' ).(     ((              '`'     ))|
','   ).    (((    (( '`'      ))               ))|"\$").
((    ((    ((     '\\')       ))                ))).((
((    (    (((     '\\')       ))               )))
))   .(    ((     '`'))        |((              ((
((   ((    ((     '.')))))))    )))           ).((
(((  ((    ((    '\\'     )))))) ))          ).((
'"'  ))    .+    ';'.         ("\!"^       '+').(
 '!'  ^+   ((   (( ((            "\+"))))))).  ((
  ((  '"'  ))  )) .+                   '}'."\)");
  $:   =(( (   (( (( '.')))             ))    ))^+
  ((     '~'   ));(  (                  $~   )) =(
  ((       ((  '@')  )                  ))  )|   (
  ((      '(')) );  $^                ="\)"^   ((
  ((     ((  '[') ))  ))               );$/=    ((
  ((    "\`"))))|  ((  '.'))          ;$,=     ((
   ((   '('))))^    '}';$\="\`"|     "\!";  ($:)
   =((  ((          ')'))))^'}';$~  ='*'  |"\`";
    $^='+'         ^'_';$/='&'|'@';$,='['&'~';$\
    ="\,"^       '|';$:='.'^"\~";$~= '@'|'(';$^=
    ')'^'['    ;$/='`'|'.'  ;$,='('^ '}';$\='`'
    |'!';$:=   ')'^'}';     $~='*'|  '`';$^='+'
    ^'_';$/=     '&'|'@'    ;($,)     ='['&'~'
    ;$\=','      ^"\|";    ($:)=      '.'^'~'
    ;($~)=         '@'|   '(';$^      =(')')^
      "\[";          ($/)= ('`')|   '.';$,='('
       ^'}'          ;$\=('`')|   '!';$:="\)"^
       '}';           $~='*'|'`';  $^='+'^"\_";
       ($/)          ='&'|'@';$,     ='['  &'~'
      ;($\)        =','^'|';$:       ='.'   ^+
       '~';$~      ='@'|'(';$^=       ')'^'[';
      $/='`'|      '.';$,='('
      ^'}';$\=       ('`')|
       '!';$:=
       ')'^'}'
        ;$~='*'
|'`';$^='+'                          ^"\_";   $/='&'
  |'@'  ;($,)                      =((  '[' ))&  '~'
  ;$\=    "\,"^                    '|';     ($:)
  ='.'    ^'~';                    ($~)     ='@'
  |'('  ;($^)   ="\)"^  "\[";   $/="\`"|  '.';$,=  ('(')^  "\}";
  ($\)  ='`'|      '!';   ($:)     =')'     ^'}'    ;$~=     (
  '*')|'`';        ($^)   ='+'     ^'_'    ;$/=      '&'|    (
  '@')  ;($,)      ='['   &'~'    ;$\=     ','^       '|';  (
  $:)=   "\."^     '~';   ($~)     ='@'     |'('        ;$^= (
  ')')    ^'[';    ($/)   ='`'     |'.'    ;$,=         '('^
  '}';   $\='`'    |'!'  ;$:=     ')'^     '}';          $~=
  '*'|  "\`";      $^='+'^'_';     ($/)     ='&'          |+
'@';$,='['&         '~';  ($\)=   (',')^   '|';$:         =
                                                      ((  (
                                                     '.' )
                                                      ))^
              ((          '~'))    ;(
             $~)=          '@'|    '(';
              $^           =')'     ^+
                           '[';
($/)=  ((   '`'))     |'.';$,=   "\("^  "\}"; ($\)=     '`'|'!';$:
 =')' ^'}'  ;$~=   '*'   |'`';    ($^)   ='+'^  '_';   $/=  '&'
 |'@';       ($,)  =((     '[')    )&((   '~')   );$\  =((    ','
 ))^+        '|';  $:=     '.'^    '~';   ($~)   ='@'  |((    '('
 ));(        $^)=  ')'     ^'['    ;$/=   '`'|   '.';   $,=  '('
 ^'}'        ;$\=  '`'     |'!'    ;$:=   ')'^   '}';     ($~)=
 '*'|        '`';   $^=   "\+"^    '_';   ($/)   ='&'    |
'@';$,      ="\["&    '~'; ($\)=  (',')^ '|';$: ="\."^  ('~');$~=
                                                       '@'|'(';$^=
                                                       ')'     ^((
                                                       ((      ((
                                                        '[')))))
   );($/)
 =(   '`')
|'.'  ;$,=
 ((   '(')
   )^"\}";
 ($\) ='`'
|'!'  ;$:=
')'^ "\}";
($~)=  '*'|
'`';$^='+'^
  '_';   ($/)=
  '&'|    "\@";
  ($,)    ='['&
  '~';   ($\)=     ','^      "\|"; ($:)=   ('.')^  "\~";
  ($~)  ='@'|    '('  ;$^     =')'^  '[';   ($/)     =
  '`'|"\.";     $,=    '('    ^'}'  ;$\=    '`'|    (
  '!')        ;$:=    ')'^   '}';   ($~)     ='*'  |
  '`';         ($^)    ='+'   ^'_'  ;$/=      '&'| (
  '@')        ;$,=    '['&   '~';   ($\)       =','
  ^'|'          ;$:    =((    '.')   )^((        '~'
  ));(           $~)  =((     '@')   )|((        ((
'('))));           ($^)      ="\)"^ '[';$/       =
                                             ((  (
                                            '`' )
                                             ));


Gruß alex

PS.: SCNR
Effizente Linuxshell
SirLant
 2003-09-16 19:01
#52474 #52474
User since
2003-08-04
516 Artikel
BenutzerIn
[default_avatar]
Also da ist mir die Performance lieber, wenn es 3Zeilen über 100
werde, was wird dann erst aus 5000 oder gar 10000, vor
allem ist das ja eine unmenge an unnötigen Berechnungen.
--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!
steinwolf
 2003-09-16 20:38
#52475 #52475
User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]
quark, warum sollten 5000 Zeilen zu 10000 werden?
ist doch ganz klar ein easteregg..
"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum
format_c
 2003-09-16 21:12
#52476 #52476
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
@SirLant: Das meiste von diesem Code hat keine Aufgabe.

Wenn mein Code 100 Zeilen hätte wäre die ASCII-Art Figur noch die selbe.

Das meiste des Codes sind nur Platzhalter damit die Figur hinhaut.

Gruß Alex
Effizente Linuxshell
<< |< 1 2 >| >> 16 Einträge, 2 Seiten



View all threads created 2003-09-16 17:49.