blob: a3ae42ce05c3da075ea0e01bf257e2c38fc1c75a (
plain)
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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
/* $RCSfile: usersub.c,v $$Revision: 4.1 $$Date: 92/08/07 18:28:45 $
*
* This file contains stubs for routines that the user may define to
* set up glue routines for C libraries or to decrypt encrypted scripts
* for execution.
*
* $Log: usersub.c,v $
* Revision 4.1 92/08/07 18:28:45 lwall
*
* Revision 4.0.1.2 92/06/08 16:04:24 lwall
* patch20: removed implicit int declarations on functions
*
* Revision 4.0.1.1 91/11/11 16:47:17 lwall
* patch19: deleted some unused functions from usersub.c
*
* Revision 4.0 91/03/20 01:55:56 lwall
* 4.0 baseline.
*
*/
#include "EXTERN.h"
#include "perl.h"
int
userinit()
{
return 0;
}
/*
* The following is supplied by John Macdonald as a means of decrypting
* and executing (presumably proprietary) scripts that have been encrypted
* by a (presumably secret) method. The idea is that you supply your own
* routine in place of cryptfilter (which is purposefully a very weak
* encryption). If an encrypted script is detected, a process is forked
* off to run the cryptfilter routine as input to perl.
*/
#ifdef CRYPTSCRIPT
#include <signal.h>
#ifdef I_VFORK
#include <vfork.h>
#endif
#ifdef CRYPTLOCAL
#include "cryptlocal.h"
#else /* ndef CRYPTLOCAL */
#define CRYPT_MAGIC_1 0xfb
#define CRYPT_MAGIC_2 0xf1
void
cryptfilter( fil )
FILE * fil;
{
int ch;
while( (ch = getc( fil )) != EOF ) {
putchar( (ch ^ 0x80) );
}
}
#endif /* CRYPTLOCAL */
#ifndef MSDOS
static FILE *lastpipefile;
static int pipepid;
#ifdef VOIDSIG
# define VOID void
#else
# define VOID int
#endif
FILE *
my_pfiopen(fil,func) /* open a pipe to function call for input */
FILE *fil;
VOID (*func)();
{
int p[2];
SV *sv;
if (pipe(p) < 0) {
fclose( fil );
croak("Can't get pipe for decrypt");
}
/* make sure that the child doesn't get anything extra */
fflush(stdout);
fflush(stderr);
while ((pipepid = fork()) < 0) {
if (errno != EAGAIN) {
close(p[0]);
close(p[1]);
fclose( fil );
croak("Can't fork for decrypt");
}
sleep(5);
}
if (pipepid == 0) {
close(p[0]);
if (p[1] != 1) {
dup2(p[1], 1);
close(p[1]);
}
(*func)(fil);
fflush(stdout);
fflush(stderr);
_exit(0);
}
close(p[1]);
close(fileno(fil));
fclose(fil);
sv = *av_fetch(fdpid,p[0],TRUE);
sv->sv_u.sv_useful = pipepid;
return fdopen(p[0], "r");
}
void
cryptswitch()
{
int ch;
#ifdef STDSTDIO
/* cheat on stdio if possible */
if (rsfp->_cnt > 0 && (*rsfp->_ptr & 0xff) != CRYPT_MAGIC_1)
return;
#endif
ch = getc(rsfp);
if (ch == CRYPT_MAGIC_1) {
if (getc(rsfp) == CRYPT_MAGIC_2) {
if( perldb ) croak("can't debug an encrypted script");
rsfp = my_pfiopen( rsfp, cryptfilter );
preprocess = 1; /* force call to pclose when done */
}
else
croak( "bad encryption run_format" );
}
else
ungetc(ch,rsfp);
}
#endif /* !MSDOS */
#endif /* CRYPTSCRIPT */
|
