Commit | Line | Data |
988174c1 |
1 | /* $RCSfile: usersub.c,v $$Revision: 4.0.1.1 $$Date: 91/11/11 16:47:17 $ |
62b28dd9 |
2 | * |
3 | * This file contains stubs for routines that the user may define to |
4 | * set up glue routines for C libraries or to decrypt encrypted scripts |
5 | * for execution. |
6 | * |
7 | * $Log: usersub.c,v $ |
988174c1 |
8 | * Revision 4.0.1.1 91/11/11 16:47:17 lwall |
9 | * patch19: deleted some unused functions from usersub.c |
10 | * |
fe14fcc3 |
11 | * Revision 4.0 91/03/20 01:55:56 lwall |
12 | * 4.0 baseline. |
62b28dd9 |
13 | * |
14 | */ |
15 | |
16 | #include "EXTERN.h" |
17 | #include "perl.h" |
18 | |
19 | userinit() |
20 | { |
21 | return 0; |
22 | } |
23 | |
24 | /* |
988174c1 |
25 | * The following is supplied by John Macdonald as a means of decrypting |
62b28dd9 |
26 | * and executing (presumably proprietary) scripts that have been encrypted |
27 | * by a (presumably secret) method. The idea is that you supply your own |
28 | * routine in place of cryptfilter (which is purposefully a very weak |
29 | * encryption). If an encrypted script is detected, a process is forked |
30 | * off to run the cryptfilter routine as input to perl. |
31 | */ |
32 | |
33 | #ifdef CRYPTSCRIPT |
34 | |
35 | #include <signal.h> |
36 | #ifdef I_VFORK |
37 | #include <vfork.h> |
38 | #endif |
39 | |
988174c1 |
40 | #ifdef CRYPTLOCAL |
41 | |
42 | #include "cryptlocal.h" |
43 | |
44 | #else /* ndef CRYPTLOCAL */ |
45 | |
62b28dd9 |
46 | #define CRYPT_MAGIC_1 0xfb |
47 | #define CRYPT_MAGIC_2 0xf1 |
48 | |
49 | cryptfilter( fil ) |
50 | FILE * fil; |
51 | { |
52 | int ch; |
53 | |
54 | while( (ch = getc( fil )) != EOF ) { |
55 | putchar( (ch ^ 0x80) ); |
56 | } |
57 | } |
58 | |
988174c1 |
59 | #endif /* CRYPTLOCAL */ |
60 | |
62b28dd9 |
61 | #ifndef MSDOS |
62 | static FILE *lastpipefile; |
63 | static int pipepid; |
64 | |
65 | #ifdef VOIDSIG |
66 | # define VOID void |
67 | #else |
68 | # define VOID int |
69 | #endif |
70 | |
71 | FILE * |
72 | mypfiopen(fil,func) /* open a pipe to function call for input */ |
73 | FILE *fil; |
74 | VOID (*func)(); |
75 | { |
76 | int p[2]; |
77 | STR *str; |
78 | |
79 | if (pipe(p) < 0) { |
80 | fclose( fil ); |
81 | fatal("Can't get pipe for decrypt"); |
82 | } |
83 | |
84 | /* make sure that the child doesn't get anything extra */ |
85 | fflush(stdout); |
86 | fflush(stderr); |
87 | |
88 | while ((pipepid = fork()) < 0) { |
89 | if (errno != EAGAIN) { |
90 | close(p[0]); |
91 | close(p[1]); |
92 | fclose( fil ); |
93 | fatal("Can't fork for decrypt"); |
94 | } |
95 | sleep(5); |
96 | } |
97 | if (pipepid == 0) { |
98 | close(p[0]); |
99 | if (p[1] != 1) { |
100 | dup2(p[1], 1); |
101 | close(p[1]); |
102 | } |
103 | (*func)(fil); |
104 | fflush(stdout); |
105 | fflush(stderr); |
106 | _exit(0); |
107 | } |
108 | close(p[1]); |
988174c1 |
109 | close(fileno(fil)); |
62b28dd9 |
110 | fclose(fil); |
20188a90 |
111 | str = afetch(fdpid,p[0],TRUE); |
112 | str->str_u.str_useful = pipepid; |
62b28dd9 |
113 | return fdopen(p[0], "r"); |
114 | } |
115 | |
116 | cryptswitch() |
117 | { |
118 | int ch; |
119 | #ifdef STDSTDIO |
120 | /* cheat on stdio if possible */ |
121 | if (rsfp->_cnt > 0 && (*rsfp->_ptr & 0xff) != CRYPT_MAGIC_1) |
122 | return; |
123 | #endif |
124 | ch = getc(rsfp); |
125 | if (ch == CRYPT_MAGIC_1) { |
126 | if (getc(rsfp) == CRYPT_MAGIC_2) { |
988174c1 |
127 | if( perldb ) fatal("can't debug an encrypted script"); |
62b28dd9 |
128 | rsfp = mypfiopen( rsfp, cryptfilter ); |
129 | preprocess = 1; /* force call to pclose when done */ |
130 | } |
131 | else |
132 | fatal( "bad encryption format" ); |
133 | } |
134 | else |
135 | ungetc(ch,rsfp); |
136 | } |
62b28dd9 |
137 | #endif /* !MSDOS */ |
138 | |
139 | #endif /* CRYPTSCRIPT */ |