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

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

Diff Legend

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

Comparing gvpe/src/connection.C (file contents): Revision 1.2 by pcg, Wed Apr 2 03:25:17 2003 UTC vs. Revision 1.44 by pcg, Fri Mar 4 08:15:04 2005 UTC

Diff Legend

Comparing gvpe/src/connection.C (file contents):
Revision 1.2 by pcg, Wed Apr 2 03:25:17 2003 UTC vs.
Revision 1.44 by pcg, Fri Mar 4 08:15:04 2005 UTC