4
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
1 |
/* |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
2 |
* Copyright (c) 2013 Sunil Nimmagadda <sunil@nimmagadda.net> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
3 |
* Copyright (c) 2006 Pierre-Yves Ritschard <pyr@openbsd.org> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
4 |
* |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
5 |
* Permission to use, copy, modify, and distribute this software for any |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
6 |
* purpose with or without fee is hereby granted, provided that the above |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
7 |
* copyright notice and this permission notice appear in all copies. |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
8 |
* |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
9 |
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
10 |
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
11 |
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
12 |
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
13 |
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
14 |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
15 |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
16 |
*/ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
17 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
18 |
#include <sys/types.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
19 |
#include <sys/socket.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
20 |
#include <sys/uio.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
21 |
#include <sys/stat.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
22 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
23 |
#include <fcntl.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
24 |
#include <syslog.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
25 |
#include <unistd.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
26 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
27 |
#include <openssl/ssl.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
28 |
#include <openssl/engine.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
29 |
#include <openssl/err.h> |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
30 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
31 |
#include "pop3d.h" |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
32 |
#include "ssl.h" |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
33 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
34 |
#define SSL_CIPHERS "HIGH" |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
35 |
#define SSL_SESSION_TIMEOUT 300 |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
36 |
#define CERTFILE "/etc/ssl/server.crt" |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
37 |
#define KEYFILE "/etc/ssl/private/server.key" |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
38 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
39 |
static char *ssl_load_file(const char *, off_t *); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
40 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
41 |
void |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
42 |
ssl_init(void) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
43 |
{ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
44 |
/* SSL init */ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
45 |
SSL_library_init(); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
46 |
SSL_load_error_strings(); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
47 |
OpenSSL_add_all_algorithms(); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
48 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
49 |
/* Init hardware cryto engines. */ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
50 |
ENGINE_load_builtin_engines(); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
51 |
ENGINE_register_all_complete(); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
52 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
53 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
54 |
void * |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
55 |
ssl_setup(void) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
56 |
{ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
57 |
SSL_CTX *ctx = NULL; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
58 |
char *cert, *key; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
59 |
off_t cert_len, key_len; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
60 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
61 |
/* SSL context creation */ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
62 |
ctx = SSL_CTX_new(SSLv23_server_method()); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
63 |
if (ctx == NULL) { |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
64 |
ssl_error("ssl_ctx_create"); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
65 |
fatal("ssl_ctx_create: could not create SSL context"); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
66 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
67 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
68 |
SSL_CTX_set_session_cache_mode(ctx, SSL_SESS_CACHE_OFF); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
69 |
SSL_CTX_set_timeout(ctx, SSL_SESSION_TIMEOUT); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
70 |
SSL_CTX_set_options(ctx, |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
71 |
SSL_OP_ALL | SSL_OP_NO_SSLv2 | SSL_OP_NO_TICKET); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
72 |
SSL_CTX_set_options(ctx, |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
73 |
SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
74 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
75 |
/* SSL certificate, key loading */ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
76 |
cert = ssl_load_file(CERTFILE, &cert_len); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
77 |
if (cert == NULL) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
78 |
fatal("ssl_load_file: Unable to load " CERTFILE); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
79 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
80 |
key = ssl_load_file(KEYFILE, &key_len); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
81 |
if (key == NULL) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
82 |
fatal("ssl_load_file: Unable to load " KEYFILE); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
83 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
84 |
if (!SSL_CTX_set_cipher_list(ctx, SSL_CIPHERS)) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
85 |
goto err; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
86 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
87 |
if (!ssl_ctx_use_certificate_chain(ctx, cert, cert_len)) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
88 |
goto err; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
89 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
90 |
else if (!ssl_ctx_use_private_key(ctx, key, key_len)) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
91 |
goto err; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
92 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
93 |
else if (!SSL_CTX_check_private_key(ctx)) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
94 |
goto err; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
95 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
96 |
return (ctx); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
97 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
98 |
err: |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
99 |
if (ctx != NULL) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
100 |
SSL_CTX_free(ctx); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
101 |
ssl_error("ssl_setup"); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
102 |
fatal("ssl_setup: cannot set SSL up"); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
103 |
return (NULL); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
104 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
105 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
106 |
void * |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
107 |
pop3s_init(SSL_CTX *ctx, int fd) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
108 |
{ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
109 |
SSL *ssl; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
110 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
111 |
if ((ssl = SSL_new(ctx)) == NULL) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
112 |
fatal("SSL_new"); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
113 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
114 |
if (SSL_set_fd(ssl, fd) == 0) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
115 |
fatal("SSL_set_fd"); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
116 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
117 |
return (ssl); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
118 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
119 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
120 |
static char * |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
121 |
ssl_load_file(const char *name, off_t *len) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
122 |
{ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
123 |
struct stat st; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
124 |
off_t size; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
125 |
char *buf = NULL; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
126 |
int fd; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
127 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
128 |
if ((fd = open(name, O_RDONLY)) == -1) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
129 |
return (NULL); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
130 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
131 |
if (fstat(fd, &st) != 0) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
132 |
goto fail; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
133 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
134 |
size = st.st_size; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
135 |
if ((buf = calloc(1, size + 1)) == NULL) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
136 |
goto fail; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
137 |
if (read(fd, buf, size) != size) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
138 |
goto fail; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
139 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
140 |
close(fd); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
141 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
142 |
*len = size; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
143 |
return (buf); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
144 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
145 |
fail: |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
146 |
if (buf != NULL) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
147 |
free(buf); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
148 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
149 |
close(fd); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
150 |
return (NULL); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
151 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
152 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
153 |
void |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
154 |
ssl_error(const char *where) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
155 |
{ |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
156 |
unsigned long code; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
157 |
char errbuf[128]; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
158 |
extern int debug; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
159 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
160 |
if (!debug) |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
161 |
return; |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
162 |
|
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
163 |
for (; (code = ERR_get_error()) != 0 ;) { |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
164 |
ERR_error_string_n(code, errbuf, sizeof(errbuf)); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
165 |
logit(LOG_DEBUG, "SSL library error: %s: %s", where, errbuf); |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
166 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
167 |
} |
Sunil Nimmagadda <sunil@sunilnimmagadda.com>
parents:
diff
changeset
|
168 |
|