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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
/*
* Copyright (C) 2001 Nikos Mavroyanopoulos
*
* This file is part of GNUTLS.
*
* GNUTLS is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* GNUTLS is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#include <gnutls_int.h>
#include <gnutls_errors.h>
#include <x509_asn1.h>
#include <gnutls_dh.h>
#ifdef USE_SIGNALS
# ifdef HAVE_SIGNAL_H
# include <signal.h>
# endif
# ifndef SIGFUNC
# define SIGFUNC
typedef void Sigfunc(int);
# endif
static Sigfunc *Signal( int signo, Sigfunc *func);
static Sigfunc *old_sig_handler;
#endif
/* created by asn1c */
extern const static_asn pkcs1_asn1_tab[];
extern const static_asn pkix_asn1_tab[];
typedef ssize_t (*RECV_FUNC)(SOCKET, void*, size_t,int);
typedef ssize_t (*SEND_FUNC)(SOCKET, const void*, size_t,int);
typedef void (*LOG_FUNC)( const char*);
RECV_FUNC _gnutls_recv_func;
SEND_FUNC _gnutls_send_func;
LOG_FUNC _gnutls_log_func;
static node_asn *PKIX1_ASN;
static node_asn *PKCS1_ASN;
node_asn* _gnutls_get_pkix() {
return PKIX1_ASN;
}
node_asn* _gnutls_get_pkcs() {
return PKCS1_ASN;
}
/**
* gnutls_global_set_recv_func - This function sets the recv() function
* @recv_func: it's a recv(2) like function
*
* This is the function were you set the recv() function gnutls
* is going to use. Normaly you may not use this function since
* the default (recv(2)) will probably be ok, unless you use
* some external library (like gnu pthreads), which provide
* a front end to this function. This function should be
* called once and after gnutls_global_init().
* RECV_FUNC is of the form,
* ssize_t (*RECV_FUNC)(SOCKET, void*, size_t,int);
**/
void gnutls_global_set_recv_func( RECV_FUNC recv_func) {
_gnutls_recv_func = recv_func;
}
/**
* gnutls_global_set_send_func - This function sets the send() function
* @send_func: it's a send(2) like function
*
* This is the function were you set the send() function gnutls
* is going to use. Normaly you may not use this function since
* the default (send(2)) will probably be ok, unless you use
* some external library (like gnu pthreads), which provide
* a front end to this function. This function should be
* called once and after gnutls_global_init().
* SEND_FUNC is of the form,
* ssize_t (*SEND_FUNC)(SOCKET, const void*, size_t,int);
**/
void gnutls_global_set_send_func( SEND_FUNC send_func) {
_gnutls_send_func = send_func;
}
/**
* gnutls_global_set_log_func - This function sets the logging function
* @log_func: it's a log function
*
* This is the function were you set the logging function gnutls
* is going to use. This function only accepts a character array.
* Normaly you may not use this function since
* it is only used for debugging reasons.
* LOG_FUNC is of the form,
* void (*LOG_FUNC)( const char*);
**/
void gnutls_global_set_log_func( LOG_FUNC log_func) {
_gnutls_log_func = log_func;
}
/* default logging function */
static void dlog( const char* str) {
#ifdef DEBUG
fprintf( stderr, str);
#endif
}
/**
* gnutls_global_init - This function initializes the global state to defaults.
*
* This function initializes the global state to defaults.
* Every gnutls application has a global state which holds common parameters
* shared by gnutls state structures.
* You must call gnutls_global_deinit() when gnutls usage is no longer needed
* Returns zero on success.
*
* If signals are supported in your system, this function sets SIGPIPE,
* to SIG_IGN. The old signal handler will be restored when calling
* gnutls_global_deinit().
*
**/
int gnutls_global_init()
{
int result;
/* for gcrypt in order to be able to allocate memory */
gcry_set_allocation_handler(gnutls_malloc, secure_malloc, _gnutls_is_secure_memory, gnutls_realloc, gnutls_free);
/* we need this */
#ifdef USE_SIGNALS
old_sig_handler = Signal( SIGPIPE, SIG_IGN);
#endif
/* set default recv/send functions
*/
_gnutls_recv_func = recv;
_gnutls_send_func = send;
gnutls_global_set_log_func( dlog);
/* initialize parser
* This should not deal with files in the final
* version.
*/
result=asn1_create_tree( (void*)pkix_asn1_tab, &PKIX1_ASN);
if (result != ASN_OK) {
return GNUTLS_E_ASN1_PARSING_ERROR;
}
result=asn1_create_tree( (void*)pkcs1_asn1_tab, &PKCS1_ASN);
if (result != ASN_OK) {
asn1_delete_structure( PKIX1_ASN);
return GNUTLS_E_PARSING_ERROR;
}
result = _gnutls_dh_calc_mpis();
if (result < 0) {
gnutls_assert();
return result;
}
return 0;
}
/**
* gnutls_global_deinit - This function deinitializes the global state
*
* This function deinitializes the global state.
**/
void gnutls_global_deinit() {
/* restore signal handler */
#ifdef USE_SIGNALS
Signal( SIGPIPE, old_sig_handler);
#endif
asn1_delete_structure( PKCS1_ASN);
asn1_delete_structure( PKIX1_ASN);
_gnutls_dh_clear_mpis();
}
#ifdef USE_SIGNALS
/* This is an emulation of the signal() function, using the
* POSIX sigaction() (if present).
*/
static Sigfunc *
Signal(int signo, Sigfunc * func)
{
#ifdef HAVE_SIGACTION
struct sigaction act, oact;
act.sa_handler = func;
sigemptyset(&act.sa_mask);
act.sa_flags = 0;
if (signo == SIGALRM) {
#ifdef SA_INTERRUPT
act.sa_flags |= SA_INTERRUPT; /* SunOs 4.x */
#endif
} else {
#ifdef SA_RESTART
act.sa_flags |= SA_RESTART; /* SVR4, 4.4BSD */
#endif
}
if (sigaction(signo, &act, &oact) < 0)
return (SIG_ERR);
return (oact.sa_handler);
#else /* ifdef HAVE_SIGACTION */
#ifdef HAVE_SIGNAL
return signal(signo, func);
#else
return (Sigfunc *) 0; /* Do nothing */
#endif /* HAVE_SIGNAL */
#endif /* HAVE_SIGACTION */
}
#endif /* USE_SIGNALS */
|
