[ViewVC] Diff of: cvs/gvpe/src/connection.C

Comparing gvpe/src/connection.C (file contents):
Revision 1.1 by pcg, Wed Apr 2 03:06:22 2003 UTC vs.
Revision 1.55 by pcg, Tue Apr 26 00:55:56 2005 UTC

…		…
1	/*	1	/*
2	connection.C -- manage a single connection	2	connection.C -- manage a single connection
		3	Copyright (C) 2003-2005 Marc Lehmann <gvpe@schmorp.de>
3		4
		5	This file is part of GVPE.
		6
4	This program is free software; you can redistribute it and/or modify	7	GVPE is free software; you can redistribute it and/or modify
5	it under the terms of the GNU General Public License as published by	8	it under the terms of the GNU General Public License as published by
6	the Free Software Foundation; either version 2 of the License, or	9	the Free Software Foundation; either version 2 of the License, or
7	(at your option) any later version.	10	(at your option) any later version.
8		11
9	This program is distributed in the hope that it will be useful,	12	This program is distributed in the hope that it will be useful,
10	but WITHOUT ANY WARRANTY; without even the implied warranty of	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
11	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12	GNU General Public License for more details.	15	GNU General Public License for more details.
13		16
14	You should have received a copy of the GNU General Public License	17	You should have received a copy of the GNU General Public License
15	along with this program; if not, write to the Free Software	18	along with gvpe; if not, write to the Free Software
16	Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA	19	Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
17	*/	20	*/
18		21
19	#include "config.h"	22	#include "config.h"
20		23
21	extern "C" {	24	#include <cassert>
22	# include "lzf/lzf.h"
23	}
24		25
25	#include <list>	26	#include <list>
26		27
27	#include "gettext.h"	28	#include <openssl/rand.h>
		29	#include <openssl/evp.h>
		30	#include <openssl/rsa.h>
		31	#include <openssl/err.h>
28		32
29	#include "conf.h"	33	#include "conf.h"
30	#include "slog.h"	34	#include "slog.h"
31	#include "device.h"	35	#include "device.h"
32	#include "protocol.h"	36	#include "vpn.h"
33	#include "connection.h"	37	#include "connection.h"
		38
		39	#include "netcompat.h"
34		40
35	#if !HAVE_RAND_PSEUDO_BYTES	41	#if !HAVE_RAND_PSEUDO_BYTES
36	# define RAND_pseudo_bytes RAND_bytes	42	# define RAND_pseudo_bytes RAND_bytes
37	#endif	43	#endif
38		44
39	#define MAGIC "vped\xbd\xc6\xdb\x82" // 8 bytes of magic	45	#define MAGIC "vped\xbd\xc6\xdb\x82" // 8 bytes of magic
40		46
		47	#define ULTRA_FAST 1
		48	#define HLOG 15
		49	#include "lzf/lzf.h"
		50	#include "lzf/lzf_c.c"
		51	#include "lzf/lzf_d.c"
		52
41	struct crypto_ctx	53	struct crypto_ctx
42	{	54	{
43	EVP_CIPHER_CTX cctx;	55	EVP_CIPHER_CTX cctx;
44	HMAC_CTX hctx;	56	HMAC_CTX hctx;
45		57
48	};	60	};
49		61
50	crypto_ctx::crypto_ctx (const rsachallenge &challenge, int enc)	62	crypto_ctx::crypto_ctx (const rsachallenge &challenge, int enc)
51	{	63	{
52	EVP_CIPHER_CTX_init (&cctx);	64	EVP_CIPHER_CTX_init (&cctx);
53	EVP_CipherInit_ex (&cctx, CIPHER, 0, &challenge[CHG_CIPHER_KEY], 0, enc);	65	require (EVP_CipherInit_ex (&cctx, CIPHER, 0, &challenge[CHG_CIPHER_KEY], 0, enc));
54	HMAC_CTX_init (&hctx);	66	HMAC_CTX_init (&hctx);
55	HMAC_Init_ex (&hctx, &challenge[CHG_HMAC_KEY], HMAC_KEYLEN, DIGEST, 0);	67	HMAC_Init_ex (&hctx, &challenge[CHG_HMAC_KEY], HMAC_KEYLEN, DIGEST, 0);
56	}	68	}
57		69
58	crypto_ctx::~crypto_ctx ()	70	crypto_ctx::~crypto_ctx ()
59	{	71	{
60	EVP_CIPHER_CTX_cleanup (&cctx);	72	require (EVP_CIPHER_CTX_cleanup (&cctx));
61	HMAC_CTX_cleanup (&hctx);	73	HMAC_CTX_cleanup (&hctx);
62	}	74	}
63		75
64	static void	76	static void
65	rsa_hash (const rsaid &id, const rsachallenge &chg, rsaresponse &h)	77	rsa_hash (const rsaid &id, const rsachallenge &chg, rsaresponse &h)
66	{	78	{
67	EVP_MD_CTX ctx;	79	EVP_MD_CTX ctx;
68		80
69	EVP_MD_CTX_init (&ctx);	81	EVP_MD_CTX_init (&ctx);
70	EVP_DigestInit (&ctx, RSA_HASH);	82	require (EVP_DigestInit (&ctx, RSA_HASH));
71	EVP_DigestUpdate(&ctx, &chg, sizeof chg);	83	require (EVP_DigestUpdate(&ctx, &chg, sizeof chg));
72	EVP_DigestUpdate(&ctx, &id, sizeof id);	84	require (EVP_DigestUpdate(&ctx, &id, sizeof id));
73	EVP_DigestFinal (&ctx, (unsigned char *)&h, 0);	85	require (EVP_DigestFinal (&ctx, (unsigned char *)&h, 0));
74	EVP_MD_CTX_cleanup (&ctx);	86	EVP_MD_CTX_cleanup (&ctx);
75	}	87	}
76		88
77	struct rsa_entry {	89	struct rsa_entry {
78	tstamp expire;	90	tstamp expire;
…		…
80	rsachallenge chg;	92	rsachallenge chg;
81	};	93	};
82		94
83	struct rsa_cache : list<rsa_entry>	95	struct rsa_cache : list<rsa_entry>
84	{	96	{
85	void cleaner_cb (tstamp &ts); time_watcher cleaner;	97	void cleaner_cb (time_watcher &w); time_watcher cleaner;
86		98
87	bool find (const rsaid &id, rsachallenge &chg)	99	bool find (const rsaid &id, rsachallenge &chg)
88	{	100	{
89	for (iterator i = begin (); i != end (); ++i)	101	for (iterator i = begin (); i != end (); ++i)
90	{	102	{
91	if (!memcmp (&id, &i->id, sizeof id) && i->expire > NOW)	103	if (!memcmp (&id, &i->id, sizeof id) && i->expire > NOW)
92	{	104	{
93	memcpy (&chg, &i->chg, sizeof chg);	105	memcpy (&chg, &i->chg, sizeof chg);
94		106
95	erase (i);	107	erase (i);
96	return true;	108	return true;
97	}	109	}
98	}	110	}
99		111
100	if (cleaner.at < NOW)	112	if (cleaner.at < NOW)
101	cleaner.start (NOW + RSA_TTL);	113	cleaner.start (NOW + RSA_TTL);
102		114
103	return false;	115	return false;
104	}	116	}
105		117
106	void gen (rsaid &id, rsachallenge &chg)	118	void gen (rsaid &id, rsachallenge &chg)
107	{	119	{
108	rsa_entry e;	120	rsa_entry e;
109		121
110	RAND_bytes ((unsigned char *)&id, sizeof id);	122	RAND_bytes ((unsigned char *)&id, sizeof id);
111	RAND_bytes ((unsigned char *)&chg, sizeof chg);	123	RAND_bytes ((unsigned char *)&chg, sizeof chg);
112		124
113	e.expire = NOW + RSA_TTL;	125	e.expire = NOW + RSA_TTL;
114	e.id = id;	126	e.id = id;
115	memcpy (&e.chg, &chg, sizeof chg);	127	memcpy (&e.chg, &chg, sizeof chg);
116		128
117	push_back (e);	129	push_back (e);
118		130
119	if (cleaner.at < NOW)	131	if (cleaner.at < NOW)
120	cleaner.start (NOW + RSA_TTL);	132	cleaner.start (NOW + RSA_TTL);
121	}	133	}
122		134
123	rsa_cache ()	135	rsa_cache ()
124	: cleaner (this, &rsa_cache::cleaner_cb)	136	: cleaner (this, &rsa_cache::cleaner_cb)
125	{ }	137	{ }
126		138
127	} rsa_cache;	139	} rsa_cache;
128		140
129	void rsa_cache::cleaner_cb (tstamp &ts)	141	void rsa_cache::cleaner_cb (time_watcher &w)
130	{	142	{
131	if (empty ())	143	if (!empty ())
132	ts = TSTAMP_CANCEL;
133	else
134	{	144	{
135	ts = NOW + RSA_TTL;	145	w.start (NOW + RSA_TTL);
136		146
137	for (iterator i = begin (); i != end (); )	147	for (iterator i = begin (); i != end (); )
138	if (i->expire <= NOW)	148	if (i->expire <= NOW)
139	i = erase (i);	149	i = erase (i);
140	else	150	else
…		…
142	}	152	}
143	}	153	}
144		154
145	//////////////////////////////////////////////////////////////////////////////	155	//////////////////////////////////////////////////////////////////////////////
146		156
147	void pkt_queue::put (tap_packet *p)	157	void pkt_queue::put (net_packet *p)
148	{	158	{
149	if (queue[i])	159	if (queue[i])
150	{	160	{
151	delete queue[i];	161	delete queue[i];
152	j = (j + 1) % QUEUEDEPTH;	162	j = (j + 1) % QUEUEDEPTH;
…		…
155	queue[i] = p;	165	queue[i] = p;
156		166
157	i = (i + 1) % QUEUEDEPTH;	167	i = (i + 1) % QUEUEDEPTH;
158	}	168	}
159		169
160	tap_packet *pkt_queue::get ()	170	net_packet *pkt_queue::get ()
161	{	171	{
162	tap_packet *p = queue[j];	172	net_packet *p = queue[j];
163		173
164	if (p)	174	if (p)
165	{	175	{
166	queue[j] = 0;	176	queue[j] = 0;
167	j = (j + 1) % QUEUEDEPTH;	177	j = (j + 1) % QUEUEDEPTH;
…		…
192	// only do action once every x seconds per host whole allowing bursts.	202	// only do action once every x seconds per host whole allowing bursts.
193	// this implementation ("splay list" ;) is inefficient,	203	// this implementation ("splay list" ;) is inefficient,
194	// but low on resources.	204	// but low on resources.
195	struct net_rate_limiter : list<net_rateinfo>	205	struct net_rate_limiter : list<net_rateinfo>
196	{	206	{
197	static const double ALPHA = 1. - 1. / 90.; // allow bursts	207	# define NRL_ALPHA (1. - 1. / 600.) // allow bursts
198	static const double CUTOFF = 20.; // one event every CUTOFF seconds	208	# define NRL_CUTOFF 10. // one event every CUTOFF seconds
199	static const double EXPIRE = CUTOFF * 30.; // expire entries after this time	209	# define NRL_EXPIRE (NRL_CUTOFF * 30.) // expire entries after this time
		210	# define NRL_MAXDIF (NRL_CUTOFF * (1. / (1. - NRL_ALPHA))) // maximum diff /count value
200		211
201	bool can (const sockinfo &si) { return can((u32)si.host); }	212	bool can (const sockinfo &si) { return can((u32)si.host); }
202	bool can (u32 host);	213	bool can (u32 host);
203	};	214	};
204		215
205	net_rate_limiter auth_rate_limiter, reset_rate_limiter;	216	net_rate_limiter auth_rate_limiter, reset_rate_limiter;
206		217
…		…
209	iterator i;	220	iterator i;
210		221
211	for (i = begin (); i != end (); )	222	for (i = begin (); i != end (); )
212	if (i->host == host)	223	if (i->host == host)
213	break;	224	break;
214	else if (i->last < NOW - EXPIRE)	225	else if (i->last < NOW - NRL_EXPIRE)
215	i = erase (i);	226	i = erase (i);
216	else	227	else
217	i++;	228	i++;
218		229
219	if (i == end ())	230	if (i == end ())
220	{	231	{
221	net_rateinfo ri;	232	net_rateinfo ri;
222		233
223	ri.host = host;	234	ri.host = host;
224	ri.pcnt = 1.;	235	ri.pcnt = 1.;
225	ri.diff = CUTOFF * (1. / (1. - ALPHA));	236	ri.diff = NRL_MAXDIF;
226	ri.last = NOW;	237	ri.last = NOW;
227		238
228	push_front (ri);	239	push_front (ri);
229		240
230	return true;	241	return true;
…		…
232	else	243	else
233	{	244	{
234	net_rateinfo ri (*i);	245	net_rateinfo ri (*i);
235	erase (i);	246	erase (i);
236		247
237	ri.pcnt = ri.pcnt * ALPHA;	248	ri.pcnt = ri.pcnt * NRL_ALPHA;
238	ri.diff = ri.diff * ALPHA + (NOW - ri.last);	249	ri.diff = ri.diff * NRL_ALPHA + (NOW - ri.last);
239		250
240	ri.last = NOW;	251	ri.last = NOW;
241		252
		253	double dif = ri.diff / ri.pcnt;
		254
242	bool send = ri.diff / ri.pcnt > CUTOFF;	255	bool send = dif > NRL_CUTOFF;
243		256
		257	if (dif > NRL_MAXDIF)
		258	{
		259	ri.pcnt = 1.;
		260	ri.diff = NRL_MAXDIF;
		261	}
244	if (send)	262	else if (send)
245	ri.pcnt++;	263	ri.pcnt++;
246		264
247	push_front (ri);	265	push_front (ri);
248		266
249	return send;	267	return send;
…		…
280	hmac_gen (ctx);	298	hmac_gen (ctx);
281		299
282	return !memcmp (hmac, hmac_digest, HMACLENGTH);	300	return !memcmp (hmac, hmac_digest, HMACLENGTH);
283	}	301	}
284		302
285	void vpn_packet::set_hdr (ptype type, unsigned int dst)	303	void vpn_packet::set_hdr (ptype type_, unsigned int dst)
286	{	304	{
287	this->type = type;	305	type = type_;
288		306
289	int src = THISNODE->id;	307	int src = THISNODE->id;
290		308
291	src1 = src;	309	src1 = src;
292	srcdst = ((src >> 8) << 4) \| (dst >> 8);	310	srcdst = ((src >> 8) << 4) \| (dst >> 8);
…		…
294	}	312	}
295		313
296	#define MAXVPNDATA (MAX_MTU - 6 - 6)	314	#define MAXVPNDATA (MAX_MTU - 6 - 6)
297	#define DATAHDR (sizeof (u32) + RAND_SIZE)	315	#define DATAHDR (sizeof (u32) + RAND_SIZE)
298		316
299	struct vpndata_packet:vpn_packet	317	struct vpndata_packet : vpn_packet
300	{	318	{
301	u8 data[MAXVPNDATA + DATAHDR]; // seqno	319	u8 data[MAXVPNDATA + DATAHDR]; // seqno
302		320
303	void setup (connection conn, int dst, u8 d, u32 len, u32 seqno);	321	void setup (connection conn, int dst, u8 d, u32 len, u32 seqno);
304	tap_packet unpack (connection conn, u32 &seqno);	322	tap_packet unpack (connection conn, u32 &seqno);
…		…
317	int outl = 0, outl2;	335	int outl = 0, outl2;
318	ptype type = PT_DATA_UNCOMPRESSED;	336	ptype type = PT_DATA_UNCOMPRESSED;
319		337
320	#if ENABLE_COMPRESSION	338	#if ENABLE_COMPRESSION
321	u8 cdata[MAX_MTU];	339	u8 cdata[MAX_MTU];
322	u32 cl;
323		340
		341	if (conn->features & ENABLE_COMPRESSION)
		342	{
324	cl = lzf_compress (d, l, cdata + 2, (l - 2) & ~7);	343	u32 cl = lzf_compress (d, l, cdata + 2, (l - 2) & ~7);
		344
325	if (cl)	345	if (cl)
326	{	346	{
327	type = PT_DATA_COMPRESSED;	347	type = PT_DATA_COMPRESSED;
328	d = cdata;	348	d = cdata;
329	l = cl + 2;	349	l = cl + 2;
330		350
331	d[0] = cl >> 8;	351	d[0] = cl >> 8;
332	d[1] = cl;	352	d[1] = cl;
		353	}
333	}	354	}
334	#endif	355	#endif
335		356
336	EVP_EncryptInit_ex (cctx, 0, 0, 0, 0);	357	require (EVP_EncryptInit_ex (cctx, 0, 0, 0, 0));
337		358
338	struct {	359	struct {
339	#if RAND_SIZE	360	#if RAND_SIZE
340	u8 rnd[RAND_SIZE];	361	u8 rnd[RAND_SIZE];
341	#endif	362	#endif
…		…
345	datahdr.seqno = ntohl (seqno);	366	datahdr.seqno = ntohl (seqno);
346	#if RAND_SIZE	367	#if RAND_SIZE
347	RAND_pseudo_bytes ((unsigned char *) datahdr.rnd, RAND_SIZE);	368	RAND_pseudo_bytes ((unsigned char *) datahdr.rnd, RAND_SIZE);
348	#endif	369	#endif
349		370
350	EVP_EncryptUpdate (cctx,	371	require (EVP_EncryptUpdate (cctx,
351	(unsigned char *) data + outl, &outl2,	372	(unsigned char *) data + outl, &outl2,
352	(unsigned char *) &datahdr, DATAHDR);	373	(unsigned char *) &datahdr, DATAHDR));
353	outl += outl2;	374	outl += outl2;
354		375
355	EVP_EncryptUpdate (cctx,	376	require (EVP_EncryptUpdate (cctx,
356	(unsigned char *) data + outl, &outl2,	377	(unsigned char *) data + outl, &outl2,
357	(unsigned char *) d, l);	378	(unsigned char *) d, l));
358	outl += outl2;	379	outl += outl2;
359		380
360	EVP_EncryptFinal_ex (cctx, (unsigned char *) data + outl, &outl2);	381	require (EVP_EncryptFinal_ex (cctx, (unsigned char *) data + outl, &outl2));
361	outl += outl2;	382	outl += outl2;
362		383
363	len = outl + data_hdr_size ();	384	len = outl + data_hdr_size ();
364		385
365	set_hdr (type, dst);	386	set_hdr (type, dst);
…		…
374	int outl = 0, outl2;	395	int outl = 0, outl2;
375	tap_packet *p = new tap_packet;	396	tap_packet *p = new tap_packet;
376	u8 *d;	397	u8 *d;
377	u32 l = len - data_hdr_size ();	398	u32 l = len - data_hdr_size ();
378		399
379	EVP_DecryptInit_ex (cctx, 0, 0, 0, 0);	400	require (EVP_DecryptInit_ex (cctx, 0, 0, 0, 0));
380		401
381	#if ENABLE_COMPRESSION	402	#if ENABLE_COMPRESSION
382	u8 cdata[MAX_MTU];	403	u8 cdata[MAX_MTU];
383		404
384	if (type == PT_DATA_COMPRESSED)	405	if (type == PT_DATA_COMPRESSED)
…		…
386	else	407	else
387	#endif	408	#endif
388	d = &(*p)[6 + 6 - DATAHDR];	409	d = &(*p)[6 + 6 - DATAHDR];
389		410
390	/* this overwrites part of the src mac, but we fix that later */	411	/* this overwrites part of the src mac, but we fix that later */
391	EVP_DecryptUpdate (cctx,	412	require (EVP_DecryptUpdate (cctx,
392	d, &outl2,	413	d, &outl2,
393	(unsigned char *)&data, len - data_hdr_size ());	414	(unsigned char *)&data, len - data_hdr_size ()));
394	outl += outl2;	415	outl += outl2;
395		416
396	EVP_DecryptFinal_ex (cctx, (unsigned char *)d + outl, &outl2);	417	require (EVP_DecryptFinal_ex (cctx, (unsigned char *)d + outl, &outl2));
397	outl += outl2;	418	outl += outl2;
398		419
399	seqno = ntohl ((u32 )(d + RAND_SIZE));	420	seqno = ntohl ((u32 )(d + RAND_SIZE));
400		421
401	id2mac (dst () ? dst() : THISNODE->id, p->dst);	422	id2mac (dst () ? dst() : THISNODE->id, p->dst);
…		…
430	{	451	{
431	// actually, hmaclen cannot be checked because the hmac	452	// actually, hmaclen cannot be checked because the hmac
432	// field comes before this data, so peers with other	453	// field comes before this data, so peers with other
433	// hmacs simply will not work.	454	// hmacs simply will not work.
434	u8 prot_major, prot_minor, randsize, hmaclen;	455	u8 prot_major, prot_minor, randsize, hmaclen;
435	u8 flags, challengelen, pad2, pad3;	456	u8 flags, challengelen, features, pad3;
436	u32 cipher_nid, digest_nid, hmac_nid;	457	u32 cipher_nid, digest_nid, hmac_nid;
437
438	const u8 curflags () const
439	{
440	return 0x80
441	\| (ENABLE_COMPRESSION ? 0x01 : 0x00);
442	}
443		458
444	void setup (ptype type, int dst);	459	void setup (ptype type, int dst);
445	bool chk_config () const;	460	bool chk_config () const;
		461
		462	static u8 get_features ()
		463	{
		464	u8 f = 0;
		465	#if ENABLE_COMPRESSION
		466	f \|= FEATURE_COMPRESSION;
		467	#endif
		468	#if ENABLE_ROHC
		469	f \|= FEATURE_ROHC;
		470	#endif
		471	return f;
		472	}
446	};	473	};
447		474
448	void config_packet::setup (ptype type, int dst)	475	void config_packet::setup (ptype type, int dst)
449	{	476	{
450	prot_major = PROTOCOL_MAJOR;	477	prot_major = PROTOCOL_MAJOR;
451	prot_minor = PROTOCOL_MINOR;	478	prot_minor = PROTOCOL_MINOR;
452	randsize = RAND_SIZE;	479	randsize = RAND_SIZE;
453	hmaclen = HMACLENGTH;	480	hmaclen = HMACLENGTH;
454	flags = curflags ();	481	flags = 0;
455	challengelen = sizeof (rsachallenge);	482	challengelen = sizeof (rsachallenge);
		483	features = get_features ();
456		484
457	cipher_nid = htonl (EVP_CIPHER_nid (CIPHER));	485	cipher_nid = htonl (EVP_CIPHER_nid (CIPHER));
458	digest_nid = htonl (EVP_MD_type (RSA_HASH));	486	digest_nid = htonl (EVP_MD_type (RSA_HASH));
459	hmac_nid = htonl (EVP_MD_type (DIGEST));	487	hmac_nid = htonl (EVP_MD_type (DIGEST));
460		488
…		…
462	set_hdr (type, dst);	490	set_hdr (type, dst);
463	}	491	}
464		492
465	bool config_packet::chk_config () const	493	bool config_packet::chk_config () const
466	{	494	{
467	return prot_major == PROTOCOL_MAJOR	495	if (prot_major != PROTOCOL_MAJOR)
468	&& randsize == RAND_SIZE	496	slog (L_WARN, _("major version mismatch (remote %d <=> local %d)"), prot_major, PROTOCOL_MAJOR);
469	&& hmaclen == HMACLENGTH	497	else if (randsize != RAND_SIZE)
470	&& flags == curflags ()	498	slog (L_WARN, _("rand size mismatch (remote %d <=> local %d)"), randsize, RAND_SIZE);
		499	else if (hmaclen != HMACLENGTH)
		500	slog (L_WARN, _("hmac length mismatch (remote %d <=> local %d)"), hmaclen, HMACLENGTH);
471	&& challengelen == sizeof (rsachallenge)	501	else if (challengelen != sizeof (rsachallenge))
		502	slog (L_WARN, _("challenge length mismatch (remote %d <=> local %d)"), challengelen, sizeof (rsachallenge));
472	&& cipher_nid == htonl (EVP_CIPHER_nid (CIPHER))	503	else if (cipher_nid != htonl (EVP_CIPHER_nid (CIPHER)))
		504	slog (L_WARN, _("cipher mismatch (remote %x <=> local %x)"), ntohl (cipher_nid), EVP_CIPHER_nid (CIPHER));
473	&& digest_nid == htonl (EVP_MD_type (RSA_HASH))	505	else if (digest_nid != htonl (EVP_MD_type (RSA_HASH)))
		506	slog (L_WARN, _("digest mismatch (remote %x <=> local %x)"), ntohl (digest_nid), EVP_MD_type (RSA_HASH));
474	&& hmac_nid == htonl (EVP_MD_type (DIGEST));	507	else if (hmac_nid != htonl (EVP_MD_type (DIGEST)))
		508	slog (L_WARN, _("hmac mismatch (remote %x <=> local %x)"), ntohl (hmac_nid), EVP_MD_type (DIGEST));
		509	else
		510	return true;
		511
		512	return false;
475	}	513	}
476		514
477	struct auth_req_packet : config_packet	515	struct auth_req_packet : config_packet
478	{	516	{
479	char magic[8];	517	char magic[8];
480	u8 initiate; // false if this is just an automatic reply	518	u8 initiate; // false if this is just an automatic reply
481	u8 protocols; // supported protocols (will get patches on forward)	519	u8 protocols; // supported protocols (will be patched on forward)
482	u8 pad2, pad3;	520	u8 pad2, pad3;
483	rsaid id;	521	rsaid id;
484	rsaencrdata encr;	522	rsaencrdata encr;
485		523
486	auth_req_packet (int dst, bool initiate_, u8 protocols_)	524	auth_req_packet (int dst, bool initiate_, u8 protocols_)
…		…
541	};	579	};
542		580
543	/////////////////////////////////////////////////////////////////////////////	581	/////////////////////////////////////////////////////////////////////////////
544		582
545	void	583	void
		584	connection::connection_established ()
		585	{
		586	if (ictx && octx)
		587	{
		588	connectmode = conf->connectmode;
		589
		590	// make sure rekeying timeouts are slightly asymmetric
		591	rekey.start (NOW + ::conf.rekey
		592	+ (conf->id > THISNODE->id ? 10 : 0));
		593	keepalive.start (NOW + ::conf.keepalive);
		594
		595	// send queued packets
		596	if (ictx && octx)
		597	{
		598	while (tap_packet p = (tap_packet )data_queue.get ())
		599	{
		600	send_data_packet (p);
		601	delete p;
		602	}
		603
		604	while (vpn_packet p = (vpn_packet )vpn_queue.get ())
		605	{
		606	send_vpn_packet (p, si, IPTOS_RELIABILITY);
		607	delete p;
		608	}
		609	}
		610	}
		611	else
		612	{
		613	retry_cnt = 0;
		614	establish_connection.start (NOW + 5);
		615	keepalive.stop ();
		616	rekey.stop ();
		617	}
		618	}
		619
		620	void
546	connection::reset_dstaddr ()	621	connection::reset_si ()
547	{	622	{
		623	protocol = best_protocol (THISNODE->protocols & conf->protocols);
		624
		625	// mask out protocols we cannot establish
		626	if (!conf->udp_port) protocol &= ~PROT_UDPv4;
		627	if (!conf->tcp_port) protocol &= ~PROT_TCPv4;
		628	if (!conf->dns_port) protocol &= ~PROT_DNSv4;
		629
548	si.set (conf);	630	si.set (conf, protocol);
		631	}
		632
		633	// ensure sockinfo is valid, forward if necessary
		634	const sockinfo &
		635	connection::forward_si (const sockinfo &si) const
		636	{
		637	if (!si.valid ())
		638	{
		639	connection *r = vpn->find_router ();
		640
		641	if (r)
		642	{
		643	slog (L_DEBUG, _("%s: no common protocol, trying indirectly through %s (%s)"),
		644	conf->nodename, r->conf->nodename, (const char *)r->si);
		645	return r->si;
		646	}
		647	else
		648	slog (L_DEBUG, _("%s: node unreachable, no common protocol"),
		649	conf->nodename);
		650	}
		651
		652	return si;
		653	}
		654
		655	void
		656	connection::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
		657	{
		658	if (!vpn->send_vpn_packet (pkt, si, tos))
		659	reset_connection ();
549	}	660	}
550		661
551	void	662	void
552	connection::send_ping (const sockinfo &si, u8 pong)	663	connection::send_ping (const sockinfo &si, u8 pong)
553	{	664	{
…		…
576	void	687	void
577	connection::send_auth_request (const sockinfo &si, bool initiate)	688	connection::send_auth_request (const sockinfo &si, bool initiate)
578	{	689	{
579	auth_req_packet *pkt = new auth_req_packet (conf->id, initiate, THISNODE->protocols);	690	auth_req_packet *pkt = new auth_req_packet (conf->id, initiate, THISNODE->protocols);
580		691
581	protocol = best_protocol (THISNODE->protocols & conf->protocols);
582
583	rsachallenge chg;	692	rsachallenge chg;
584
585	rsa_cache.gen (pkt->id, chg);	693	rsa_cache.gen (pkt->id, chg);
586		694	rsa_encrypt (conf->rsa_key, chg, pkt->encr);
587	if (0 > RSA_public_encrypt (sizeof chg,
588	(unsigned char )&chg, (unsigned char )&pkt->encr,
589	conf->rsa_key, RSA_PKCS1_OAEP_PADDING))
590	fatal ("RSA_public_encrypt error");
591		695
592	slog (L_TRACE, ">>%d PT_AUTH_REQ [%s]", conf->id, (const char *)si);	696	slog (L_TRACE, ">>%d PT_AUTH_REQ [%s]", conf->id, (const char *)si);
593		697
594	send_vpn_packet (pkt, si, IPTOS_RELIABILITY); // rsa is very very costly	698	send_vpn_packet (pkt, si, IPTOS_RELIABILITY \| IPTOS_LOWDELAY); // rsa is very very costly
595		699
596	delete pkt;	700	delete pkt;
597	}	701	}
598		702
599	void	703	void
…		…
627		731
628	delete r;	732	delete r;
629	}	733	}
630		734
631	void	735	void
632	connection::establish_connection_cb (tstamp &ts)	736	connection::establish_connection_cb (time_watcher &w)
633	{	737	{
634	if (ictx \|\| conf == THISNODE	738	if (!ictx
		739	&& conf != THISNODE
635	\|\| connectmode == conf_node::C_NEVER	740	&& connectmode != conf_node::C_NEVER
636	\|\| connectmode == conf_node::C_DISABLED)	741	&& connectmode != conf_node::C_DISABLED
637	ts = TSTAMP_CANCEL;	742	&& NOW > w.at)
638	else if (ts <= NOW)
639	{	743	{
640	double retry_int = double (retry_cnt & 3 ? (retry_cnt & 3) : 1 << (retry_cnt >> 2)) * 0.6;	744	w.at = TSTAMP_MAX; // first disable this watcher in case of recursion
641		745
642	if (retry_int < 3600 * 8)	746	double retry_int = double (retry_cnt & 3
		747	? (retry_cnt & 3) + 1
		748	: 1 << (retry_cnt >> 2));
		749
		750	reset_si ();
		751
		752	bool slow = si.prot & PROT_SLOW;
		753
		754	if (si.prot && !si.host)
		755	vpn->send_connect_request (conf->id);
		756	else
		757	{
		758	const sockinfo &dsi = forward_si (si);
		759
		760	slow = slow \|\| (dsi.prot & PROT_SLOW);
		761
		762	if (dsi.valid () && auth_rate_limiter.can (dsi))
		763	{
		764	if (retry_cnt < 4)
		765	send_auth_request (dsi, true);
		766	else
		767	send_ping (dsi, 0);
		768	}
		769	}
		770
		771	retry_int *= slow ? 8. : 0.7;
		772
		773	if (retry_int < conf->max_retry)
643	retry_cnt++;	774	retry_cnt++;
644
645	ts = NOW + retry_int;
646
647	if (conf->hostname)
648	{
649	reset_dstaddr ();
650	if (si.host && auth_rate_limiter.can (si))
651	{
652	if (retry_cnt < 4)
653	send_auth_request (si, true);
654	else
655	send_ping (si, 0);
656	}
657	}
658	else	775	else
659	vpn->connect_request (conf->id);	776	retry_int = conf->max_retry;
		777
		778	w.start (NOW + retry_int);
660	}	779	}
661	}	780	}
662		781
663	void	782	void
664	connection::reset_connection ()	783	connection::reset_connection ()
…		…
667	{	786	{
668	slog (L_INFO, _("%s(%s): connection lost"),	787	slog (L_INFO, _("%s(%s): connection lost"),
669	conf->nodename, (const char *)si);	788	conf->nodename, (const char *)si);
670		789
671	if (::conf.script_node_down)	790	if (::conf.script_node_down)
672	run_script (run_script_cb (this, &connection::script_node_down), false);	791	if (!run_script (run_script_cb (this, &connection::script_node_down), false))
		792	slog (L_WARN, _("node-down command execution failed, continuing."));
673	}	793	}
674		794
675	delete ictx; ictx = 0;	795	delete ictx; ictx = 0;
676	delete octx; octx = 0;	796	delete octx; octx = 0;
		797	#if ENABLE_DNS
		798	dnsv4_reset_connection ();
		799	#endif
677		800
678	si.host= 0;	801	si.host = 0;
679		802
680	last_activity = 0;	803	last_activity = 0;
681	retry_cnt = 0;	804	retry_cnt = 0;
682		805
683	rekey.reset ();	806	rekey.stop ();
684	keepalive.reset ();	807	keepalive.stop ();
685	establish_connection.reset ();	808	establish_connection.stop ();
686	}	809	}
687		810
688	void	811	void
689	connection::shutdown ()	812	connection::shutdown ()
690	{	813	{
…		…
693		816
694	reset_connection ();	817	reset_connection ();
695	}	818	}
696		819
697	void	820	void
698	connection::rekey_cb (tstamp &ts)	821	connection::rekey_cb (time_watcher &w)
699	{	822	{
700	ts = TSTAMP_CANCEL;
701
702	reset_connection ();	823	reset_connection ();
703	establish_connection ();	824	establish_connection ();
704	}	825	}
705		826
706	void	827	void
707	connection::send_data_packet (tap_packet *pkt, bool broadcast)	828	connection::send_data_packet (tap_packet *pkt)
708	{	829	{
709	vpndata_packet *p = new vpndata_packet;	830	vpndata_packet *p = new vpndata_packet;
710	int tos = 0;	831	int tos = 0;
711		832
712	if (conf->inherit_tos	833	// I am not hilarious about peeking into packets, but so be it.
713	&& (pkt)[12] == 0x08 && (pkt)[13] == 0x00 // IP	834	if (conf->inherit_tos && pkt->is_ipv4 ())
714	&& ((*pkt)[14] & 0xf0) == 0x40) // IPv4
715	tos = (*pkt)[15] & IPTOS_TOS_MASK;	835	tos = (*pkt)[15] & IPTOS_TOS_MASK;
716		836
717	p->setup (this, broadcast ? 0 : conf->id, &((*pkt)[6 + 6]), pkt->len - 6 - 6, ++oseqno); // skip 2 macs	837	p->setup (this, conf->id, &((*pkt)[6 + 6]), pkt->len - 6 - 6, ++oseqno); // skip 2 macs
718	send_vpn_packet (p, si, tos);	838	send_vpn_packet (p, si, tos);
719		839
720	delete p;	840	delete p;
721		841
722	if (oseqno > MAX_SEQNO)	842	if (oseqno > MAX_SEQNO)
723	rekey ();	843	rekey ();
724	}	844	}
725		845
726	void	846	void
727	connection::inject_data_packet (tap_packet *pkt, bool broadcast)	847	connection::inject_data_packet (tap_packet pkt, bool broadcast/TODO DDD*/)
728	{	848	{
729	if (ictx && octx)	849	if (ictx && octx)
730	send_data_packet (pkt, broadcast);	850	send_data_packet (pkt);
731	else	851	else
732	{	852	{
733	if (!broadcast)//DDDD	853	if (!broadcast)//DDDD
734	queue.put (new tap_packet (*pkt));	854	data_queue.put (new tap_packet (*pkt));
		855
		856	establish_connection ();
		857	}
		858	}
		859
		860	void connection::inject_vpn_packet (vpn_packet *pkt, int tos)
		861	{
		862	if (ictx && octx)
		863	send_vpn_packet (pkt, si, tos);
		864	else
		865	{
		866	vpn_queue.put ((vpn_packet )new data_packet ((data_packet *)pkt));
735		867
736	establish_connection ();	868	establish_connection ();
737	}	869	}
738	}	870	}
739		871
…		…
745	slog (L_NOISE, "<<%d received packet type %d from %d to %d",	877	slog (L_NOISE, "<<%d received packet type %d from %d to %d",
746	conf->id, pkt->typ (), pkt->src (), pkt->dst ());	878	conf->id, pkt->typ (), pkt->src (), pkt->dst ());
747		879
748	switch (pkt->typ ())	880	switch (pkt->typ ())
749	{	881	{
750	case vpn_packet::PT_PING:	882	case vpn_packet::PT_PING:
751	// we send pings instead of auth packets after some retries,	883	// we send pings instead of auth packets after some retries,
752	// so reset the retry counter and establish a connection	884	// so reset the retry counter and establish a connection
753	// when we receive a ping.	885	// when we receive a ping.
754	if (!ictx)	886	if (!ictx)
		887	{
		888	if (auth_rate_limiter.can (rsi))
		889	send_auth_request (rsi, true);
		890	}
		891	else
		892	send_ping (rsi, 1); // pong
		893
		894	break;
		895
		896	case vpn_packet::PT_PONG:
		897	break;
		898
		899	case vpn_packet::PT_RESET:
755	{	900	{
756	if (auth_rate_limiter.can (rsi))	901	reset_connection ();
757	send_auth_request (rsi, true);	902
		903	config_packet p = (config_packet ) pkt;
		904
		905	if (!p->chk_config ())
		906	{
		907	slog (L_WARN, _("%s(%s): protocol mismatch, disabling node"),
		908	conf->nodename, (const char *)rsi);
		909	connectmode = conf_node::C_DISABLED;
		910	}
		911	else if (connectmode == conf_node::C_ALWAYS)
		912	establish_connection ();
758	}	913	}
759	else
760	send_ping (rsi, 1); // pong
761
762	break;	914	break;
763		915
764	case vpn_packet::PT_PONG:
765	break;
766
767	case vpn_packet::PT_RESET:	916	case vpn_packet::PT_AUTH_REQ:
768	{	917	if (auth_rate_limiter.can (rsi))
769	reset_connection ();
770
771	config_packet p = (config_packet ) pkt;
772
773	if (!p->chk_config ())
774	{	918	{
		919	auth_req_packet p = (auth_req_packet ) pkt;
		920
		921	slog (L_TRACE, "<<%d PT_AUTH_REQ(%d)", conf->id, p->initiate);
		922
		923	if (p->chk_config () && !strncmp (p->magic, MAGIC, 8))
		924	{
		925	if (p->prot_minor != PROTOCOL_MINOR)
		926	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),
		927	conf->nodename, (const char *)rsi,
		928	PROTOCOL_MINOR, conf->nodename, p->prot_minor);
		929
		930	if (p->initiate)
		931	send_auth_request (rsi, false);
		932
		933	rsachallenge k;
		934
		935	if (!rsa_decrypt (::conf.rsa_key, p->encr, k))
		936	{
		937	slog (L_ERR, _("%s(%s): challenge illegal or corrupted (%s). mismatched key or config file?"),
		938	conf->nodename, (const char *)rsi, ERR_error_string (ERR_get_error (), 0));
		939	break;
		940	}
		941	else
		942	{
		943	delete octx;
		944
		945	octx = new crypto_ctx (k, 1);
		946	oseqno = ntohl ((u32 )&k[CHG_SEQNO]) & 0x7fffffff;
		947
		948	conf->protocols = p->protocols;
		949	features = p->features & config_packet::get_features ();
		950
		951	send_auth_response (rsi, p->id, k);
		952
		953	connection_established ();
		954
		955	break;
		956	}
		957	}
		958	else
775	slog (L_WARN, _("%s(%s): protocol mismatch, disabling node"),	959	slog (L_WARN, _("%s(%s): protocol mismatch"),
776	conf->nodename, (const char *)rsi);	960	conf->nodename, (const char *)rsi);
777	connectmode = conf_node::C_DISABLED;	961
		962	send_reset (rsi);
778	}	963	}
779	else if (connectmode == conf_node::C_ALWAYS)	964
780	establish_connection ();
781	}
782	break;	965	break;
783		966
784	case vpn_packet::PT_AUTH_REQ:	967	case vpn_packet::PT_AUTH_RES:
785	if (auth_rate_limiter.can (rsi))
786	{	968	{
787	auth_req_packet p = (auth_req_packet ) pkt;	969	auth_res_packet p = (auth_res_packet ) pkt;
788		970
789	slog (L_TRACE, "<<%d PT_AUTH_REQ(%d)", conf->id, p->initiate);	971	slog (L_TRACE, "<<%d PT_AUTH_RES", conf->id);
790		972
791	if (p->chk_config () && !strncmp (p->magic, MAGIC, 8))	973	if (p->chk_config ())
792	{	974	{
793	if (p->prot_minor != PROTOCOL_MINOR)	975	if (p->prot_minor != PROTOCOL_MINOR)
794	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),	976	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),
795	conf->nodename, (const char *)rsi,	977	conf->nodename, (const char *)rsi,
796	PROTOCOL_MINOR, conf->nodename, p->prot_minor);	978	PROTOCOL_MINOR, conf->nodename, p->prot_minor);
797		979
798	if (p->initiate)
799	send_auth_request (rsi, false);
800
801	rsachallenge k;	980	rsachallenge chg;
802		981
803	if (0 > RSA_private_decrypt (sizeof (p->encr),	982	if (!rsa_cache.find (p->id, chg))
804	(unsigned char )&p->encr, (unsigned char )&k,	983	{
805	::conf.rsa_key, RSA_PKCS1_OAEP_PADDING))	984	slog (L_ERR, _("%s(%s): unrequested auth response ignored"),
806	slog (L_ERR, _("%s(%s): challenge illegal or corrupted"),
807	conf->nodename, (const char *)rsi);	985	conf->nodename, (const char *)rsi);
		986	break;
		987	}
808	else	988	else
809	{	989	{
810	retry_cnt = 0;	990	crypto_ctx *cctx = new crypto_ctx (chg, 0);
811	establish_connection.set (NOW + 8); //? ;)	991
812	keepalive.reset ();	992	if (!p->hmac_chk (cctx))
		993	{
		994	slog (L_ERR, _("%s(%s): hmac authentication error on auth response, received invalid packet\n"
		995	"could be an attack, or just corruption or a synchronization error"),
		996	conf->nodename, (const char *)rsi);
		997	break;
		998	}
813	rekey.reset ();	999	else
		1000	{
		1001	rsaresponse h;
814		1002
		1003	rsa_hash (p->id, chg, h);
		1004
		1005	if (!memcmp ((u8 )&h, (u8 )p->response, sizeof h))
		1006	{
		1007	prot_minor = p->prot_minor;
		1008
		1009	delete ictx; ictx = cctx;
		1010
		1011	iseqno.reset (ntohl ((u32 )&chg[CHG_SEQNO]) & 0x7fffffff); // at least 2**31 sequence numbers are valid
		1012
		1013	si = rsi;
		1014	protocol = rsi.prot;
		1015
		1016	connection_established ();
		1017
		1018	slog (L_INFO, _("%s(%s): connection established, protocol version %d.%d"),
		1019	conf->nodename, (const char *)rsi,
		1020	p->prot_major, p->prot_minor);
		1021
		1022	if (::conf.script_node_up)
		1023	if (!run_script (run_script_cb (this, &connection::script_node_up), false))
		1024	slog (L_WARN, _("node-up command execution failed, continuing."));
		1025
		1026	break;
		1027	}
		1028	else
		1029	slog (L_ERR, _("%s(%s): sent and received challenge do not match"),
		1030	conf->nodename, (const char *)rsi);
		1031	}
		1032
815	delete ictx;	1033	delete cctx;
816	ictx = 0;
817
818	delete octx;
819
820	octx = new crypto_ctx (k, 1);
821	oseqno = ntohl ((u32 )&k[CHG_SEQNO]) & 0x7fffffff;
822
823	conf->protocols = p->protocols;
824	send_auth_response (rsi, p->id, k);
825
826	break;
827	}	1034	}
828	}	1035	}
829
830	send_reset (rsi);
831	}	1036	}
832		1037
		1038	send_reset (rsi);
833	break;	1039	break;
834		1040
835	case vpn_packet::PT_AUTH_RES:	1041	case vpn_packet::PT_DATA_COMPRESSED:
836	{	1042	#if !ENABLE_COMPRESSION
837	auth_res_packet p = (auth_res_packet ) pkt;	1043	send_reset (rsi);
		1044	break;
		1045	#endif
838		1046
839	slog (L_TRACE, "<<%d PT_AUTH_RES", conf->id);	1047	case vpn_packet::PT_DATA_UNCOMPRESSED:
840		1048
841	if (p->chk_config ())	1049	if (ictx && octx)
842	{	1050	{
843	if (p->prot_minor != PROTOCOL_MINOR)	1051	vpndata_packet p = (vpndata_packet )pkt;
844	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),
845	conf->nodename, (const char *)rsi,
846	PROTOCOL_MINOR, conf->nodename, p->prot_minor);
847		1052
848	rsachallenge chg;	1053	if (!p->hmac_chk (ictx))
849		1054	slog (L_ERR, _("%s(%s): hmac authentication error, received invalid packet\n"
850	if (!rsa_cache.find (p->id, chg))	1055	"could be an attack, or just corruption or a synchronization error"),
851	slog (L_ERR, _("%s(%s): unrequested auth response"),
852	conf->nodename, (const char *)rsi);	1056	conf->nodename, (const char *)rsi);
853	else	1057	else
854	{	1058	{
855	crypto_ctx *cctx = new crypto_ctx (chg, 0);
856
857	if (!p->hmac_chk (cctx))
858	slog (L_ERR, _("%s(%s): hmac authentication error on auth response, received invalid packet\n"
859	"could be an attack, or just corruption or an synchronization error"),
860	conf->nodename, (const char *)rsi);
861	else	1059	u32 seqno;
		1060	tap_packet *d = p->unpack (this, seqno);
		1061
		1062	if (iseqno.recv_ok (seqno))
862	{	1063	{
863	rsaresponse h;	1064	vpn->tap->send (d);
864		1065
865	rsa_hash (p->id, chg, h);	1066	if (si != rsi)
866
867	if (!memcmp ((u8 )&h, (u8 )p->response, sizeof h))
868	{	1067	{
869	prot_minor = p->prot_minor;	1068	// fast re-sync on connection changes, useful especially for tcp/ip
870
871	delete ictx; ictx = cctx;
872
873	iseqno.reset (ntohl ((u32 )&chg[CHG_SEQNO]) & 0x7fffffff); // at least 2**31 sequence numbers are valid
874
875	si = rsi;	1069	si = rsi;
876		1070
877	rekey.set (NOW + ::conf.rekey);	1071	slog (L_INFO, _("%s(%s): socket address changed to %s"),
878	keepalive.set (NOW + ::conf.keepalive);
879
880	// send queued packets
881	while (tap_packet *p = queue.get ())
882	{
883	send_data_packet (p);
884	delete p;
885	}
886
887	connectmode = conf->connectmode;
888
889	slog (L_INFO, _("%s(%s): %s connection established, protocol version %d.%d"),
890	conf->nodename, (const char *)rsi,	1072	conf->nodename, (const char )si, (const char )rsi);
891	strprotocol (protocol),
892	p->prot_major, p->prot_minor);
893
894	if (::conf.script_node_up)
895	run_script (run_script_cb (this, &connection::script_node_up), false);
896
897	break;
898	}	1073	}
899	else
900	slog (L_ERR, _("%s(%s): sent and received challenge do not match"),
901	conf->nodename, (const char *)rsi);
902	}	1074	}
903		1075
904	delete cctx;	1076	delete d;
		1077	break;
905	}	1078	}
906	}	1079	}
907	}
908		1080
909	send_reset (rsi);	1081	send_reset (rsi);
910	break;	1082	break;
911		1083
912	case vpn_packet::PT_DATA_COMPRESSED:
913	#if !ENABLE_COMPRESSION
914	send_reset (rsi);
915	break;
916	#endif
917
918	case vpn_packet::PT_DATA_UNCOMPRESSED:
919
920	if (ictx && octx)
921	{
922	vpndata_packet p = (vpndata_packet )pkt;
923
924	if (rsi == si)
925	{
926	if (!p->hmac_chk (ictx))
927	slog (L_ERR, _("%s(%s): hmac authentication error, received invalid packet\n"
928	"could be an attack, or just corruption or an synchronization error"),
929	conf->nodename, (const char *)rsi);
930	else
931	{
932	u32 seqno;
933	tap_packet *d = p->unpack (this, seqno);
934
935	if (iseqno.recv_ok (seqno))
936	{
937	vpn->tap->send (d);
938
939	if (p->dst () == 0) // re-broadcast
940	for (vpn::conns_vector::iterator i = vpn->conns.begin (); i != vpn->conns.end (); ++i)
941	{
942	connection c = i;
943
944	if (c->conf != THISNODE && c->conf != conf)
945	c->inject_data_packet (d);
946	}
947
948	delete d;
949
950	break;
951	}
952	}
953	}
954	else
955	slog (L_ERR, _("received data packet from unknown source %s"), (const char *)rsi);
956	}
957
958	send_reset (rsi);
959	break;
960
961	case vpn_packet::PT_CONNECT_REQ:	1084	case vpn_packet::PT_CONNECT_REQ:
962	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))	1085	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))
963	{	1086	{
964	connect_req_packet p = (connect_req_packet ) pkt;	1087	connect_req_packet p = (connect_req_packet ) pkt;
965		1088
966	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything	1089	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything
967	conf->protocols = p->protocols;
968	connection *c = vpn->conns[p->id - 1];	1090	connection *c = vpn->conns[p->id - 1];
		1091	conf->protocols = p->protocols;
969		1092
970	slog (L_TRACE, "<<%d PT_CONNECT_REQ(%d) [%d]\n",	1093	slog (L_TRACE, "<<%d PT_CONNECT_REQ(%d) [%d]\n",
971	conf->id, p->id, c->ictx && c->octx);	1094	conf->id, p->id, c->ictx && c->octx);
972		1095
973	if (c->ictx && c->octx)	1096	if (c->ictx && c->octx)
974	{	1097	{
975	// send connect_info packets to both sides, in case one is	1098	// send connect_info packets to both sides, in case one is
976	// behind a nat firewall (or both ;)	1099	// behind a nat firewall (or both ;)
977	c->send_connect_info (conf->id, si, conf->protocols);	1100	c->send_connect_info (conf->id, si, conf->protocols);
978	send_connect_info (c->conf->id, c->si, c->conf->protocols);	1101	send_connect_info (c->conf->id, c->si, c->conf->protocols);
979	}	1102	}
		1103	else
		1104	c->establish_connection ();
980	}	1105	}
981		1106
982	break;	1107	break;
983		1108
984	case vpn_packet::PT_CONNECT_INFO:	1109	case vpn_packet::PT_CONNECT_INFO:
985	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))	1110	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))
986	{	1111	{
987	connect_info_packet p = (connect_info_packet ) pkt;	1112	connect_info_packet p = (connect_info_packet )pkt;
988		1113
989	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything	1114	if (p->id > 0 && p->id <= vpn->conns.size ()) // hmac-auth does not mean we accept anything
990	conf->protocols = p->protocols;	1115	{
991	connection *c = vpn->conns[p->id - 1];	1116	connection *c = vpn->conns[p->id - 1];
992		1117
		1118	c->conf->protocols = p->protocols;
		1119	protocol = best_protocol (c->conf->protocols & THISNODE->protocols & p->si.supported_protocols (c->conf));
		1120	p->si.upgrade_protocol (protocol, c->conf);
		1121
993	slog (L_TRACE, "<<%d PT_CONNECT_INFO(%d,%s) (%d)",	1122	slog (L_TRACE, "<<%d PT_CONNECT_INFO(%d,%s) (%d)",
994	conf->id, p->id, (const char *)p->si, !c->ictx && !c->octx);	1123	conf->id, p->id, (const char *)p->si, !c->ictx && !c->octx);
995		1124
		1125	const sockinfo &dsi = forward_si (p->si);
		1126
		1127	if (dsi.valid ())
996	c->send_auth_request (p->si, true);	1128	c->send_auth_request (dsi, true);
		1129	}
997	}	1130	}
998		1131
999	break;	1132	break;
1000		1133
1001	default:	1134	default:
1002	send_reset (rsi);	1135	send_reset (rsi);
1003	break;	1136	break;
1004
1005	}	1137	}
1006	}	1138	}
1007		1139
1008	void connection::keepalive_cb (tstamp &ts)	1140	void connection::keepalive_cb (time_watcher &w)
1009	{	1141	{
1010	if (NOW >= last_activity + ::conf.keepalive + 30)	1142	if (NOW >= last_activity + ::conf.keepalive + 30)
1011	{	1143	{
1012	reset_connection ();	1144	reset_connection ();
1013	establish_connection ();	1145	establish_connection ();
1014	}	1146	}
1015	else if (NOW < last_activity + ::conf.keepalive)	1147	else if (NOW < last_activity + ::conf.keepalive)
1016	ts = last_activity + ::conf.keepalive;	1148	w.start (last_activity + ::conf.keepalive);
1017	else if (conf->connectmode != conf_node::C_ONDEMAND	1149	else if (conf->connectmode != conf_node::C_ONDEMAND
1018	\|\| THISNODE->connectmode != conf_node::C_ONDEMAND)	1150	\|\| THISNODE->connectmode != conf_node::C_ONDEMAND)
1019	{	1151	{
1020	send_ping (si);	1152	send_ping (si);
1021	ts = NOW + 5;	1153	w.start (NOW + 5);
1022	}	1154	}
		1155	else if (NOW < last_activity + ::conf.keepalive + 10)
		1156	// hold ondemand connections implicitly a few seconds longer
		1157	// should delete octx, though, or something like that ;)
		1158	w.start (last_activity + ::conf.keepalive + 10);
1023	else	1159	else
1024	reset_connection ();	1160	reset_connection ();
1025	}	1161	}
1026		1162
1027	void connection::connect_request (int id)	1163	void connection::send_connect_request (int id)
1028	{	1164	{
1029	connect_req_packet *p = new connect_req_packet (conf->id, id, conf->protocols);	1165	connect_req_packet *p = new connect_req_packet (conf->id, id, conf->protocols);
1030		1166
1031	slog (L_TRACE, ">>%d PT_CONNECT_REQ(%d)", conf->id, id);	1167	slog (L_TRACE, ">>%d PT_CONNECT_REQ(%d)", conf->id, id);
1032	p->hmac_set (octx);	1168	p->hmac_set (octx);
1033	send_vpn_packet (p, si);	1169	send_vpn_packet (p, si);
1034		1170
1035	delete p;	1171	delete p;
1036	}	1172	}
1037		1173
		1174	void connection::script_init_env (const char *ext)
		1175	{
		1176	char *env;
		1177	asprintf (&env, "IFUPDATA%s=%s", ext, conf->if_up_data); putenv (env);
		1178	asprintf (&env, "NODENAME%s=%s", ext, conf->nodename); putenv (env);
		1179	asprintf (&env, "MAC%s=%02x:%02x:%02x:%02x:%02x:%02x", ext,
		1180	0xfe, 0xfd, 0x80, 0x00, conf->id >> 8,
		1181	conf->id & 0xff); putenv (env);
		1182	}
		1183
1038	void connection::script_node ()	1184	void connection::script_init_connect_env ()
1039	{	1185	{
1040	vpn->script_if_up (0);	1186	vpn->script_init_env ();
1041		1187
1042	char *env;	1188	char *env;
1043	asprintf (&env, "DESTID=%d", conf->id); putenv (env);	1189	asprintf (&env, "DESTID=%d", conf->id); putenv (env);
1044	asprintf (&env, "DESTNODE=%s", conf->nodename); putenv (env);	1190	asprintf (&env, "DESTNODE=%s", conf->nodename); putenv (env);
1045	asprintf (&env, "DESTIP=%s", si.ntoa ()); putenv (env);	1191	asprintf (&env, "DESTIP=%s", si.ntoa ()); putenv (env);
1046	asprintf (&env, "DESTPORT=%d", ntohs (si.port)); putenv (env);	1192	asprintf (&env, "DESTPORT=%d", ntohs (si.port)); putenv (env);
1047	}	1193	}
1048		1194
1049	const char *connection::script_node_up (int)	1195	const char *connection::script_node_up ()
1050	{	1196	{
1051	script_node ();	1197	script_init_connect_env ();
1052		1198
1053	putenv ("STATE=up");	1199	putenv ("STATE=up");
1054		1200
		1201	char *filename;
		1202	asprintf (&filename,
		1203	"%s/%s",
		1204	confbase,
1055	return ::conf.script_node_up ? ::conf.script_node_up : "node-up";	1205	::conf.script_node_up ? ::conf.script_node_up : "node-up");
1056	}
1057		1206
		1207	return filename;
		1208	}
		1209
1058	const char *connection::script_node_down (int)	1210	const char *connection::script_node_down ()
1059	{	1211	{
1060	script_node ();	1212	script_init_connect_env ();
1061		1213
1062	putenv ("STATE=down");	1214	putenv ("STATE=down");
1063		1215
1064	return ::conf.script_node_up ? ::conf.script_node_down : "node-down";	1216	char *filename;
1065	}	1217	asprintf (&filename,
		1218	"%s/%s",
		1219	confbase,
		1220	::conf.script_node_down ? ::conf.script_node_down : "node-down");
1066		1221
1067	// send a vpn packet out to other hosts	1222	return filename;
1068	void
1069	connection::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
1070	{
1071	if (protocol & PROT_IPv4)
1072	vpn->send_ipv4_packet (pkt, si, tos);
1073	else
1074	vpn->send_udpv4_packet (pkt, si, tos);
1075	}	1223	}
1076		1224
1077	connection::connection(struct vpn *vpn_)	1225	connection::connection (struct vpn vpn, conf_node conf)
1078	: vpn(vpn_)	1226	: vpn(vpn), conf(conf)
1079	, rekey (this, &connection::rekey_cb)	1227	, rekey (this, &connection::rekey_cb)
1080	, keepalive (this, &connection::keepalive_cb)	1228	, keepalive (this, &connection::keepalive_cb)
1081	, establish_connection (this, &connection::establish_connection_cb)	1229	, establish_connection (this, &connection::establish_connection_cb)
		1230	#if ENABLE_DNS
		1231	, dns (0)
		1232	#endif
1082	{	1233	{
1083	octx = ictx = 0;	1234	octx = ictx = 0;
1084	retry_cnt = 0;	1235	retry_cnt = 0;
1085		1236
		1237	if (!conf->protocols) // make sure some protocol is enabled
		1238	conf->protocols = PROT_UDPv4;
		1239
1086	connectmode = conf_node::C_ALWAYS; // initial setting	1240	connectmode = conf_node::C_ALWAYS; // initial setting
1087	reset_connection ();	1241	reset_connection ();
1088	}	1242	}
1089		1243
1090	connection::~connection ()	1244	connection::~connection ()

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing gvpe/src/connection.C (file contents): Revision 1.1 by pcg, Wed Apr 2 03:06:22 2003 UTC vs. Revision 1.55 by pcg, Tue Apr 26 00:55:56 2005 UTC

Diff Legend

Comparing gvpe/src/connection.C (file contents):
Revision 1.1 by pcg, Wed Apr 2 03:06:22 2003 UTC vs.
Revision 1.55 by pcg, Tue Apr 26 00:55:56 2005 UTC