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

Comparing gvpe/src/connection.C (file contents):
Revision 1.14 by pcg, Fri Aug 8 09:29:22 2003 UTC vs.
Revision 1.51 by pcg, Wed Mar 23 20:07: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. 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>
29	#include <openssl/rsa.h>	30	#include <openssl/rsa.h>
30	#include <openssl/err.h>	31	#include <openssl/err.h>
31
32	#include "gettext.h"
33		32
34	#include "conf.h"	33	#include "conf.h"
35	#include "slog.h"	34	#include "slog.h"
36	#include "device.h"	35	#include "device.h"
37	#include "vpn.h"	36	#include "vpn.h"
38	#include "connection.h"	37	#include "connection.h"
39		38
		39	#include "netcompat.h"
		40
40	#if !HAVE_RAND_PSEUDO_BYTES	41	#if !HAVE_RAND_PSEUDO_BYTES
41	# define RAND_pseudo_bytes RAND_bytes	42	# define RAND_pseudo_bytes RAND_bytes
42	#endif	43	#endif
43		44
44	#define MAGIC "vped\xbd\xc6\xdb\x82" // 8 bytes of magic	45	#define MAGIC "vped\xbd\xc6\xdb\x82" // 8 bytes of magic
45		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
46	struct crypto_ctx	53	struct crypto_ctx
47	{	54	{
48	EVP_CIPHER_CTX cctx;	55	EVP_CIPHER_CTX cctx;
49	HMAC_CTX hctx;	56	HMAC_CTX hctx;
50		57
53	};	60	};
54		61
55	crypto_ctx::crypto_ctx (const rsachallenge &challenge, int enc)	62	crypto_ctx::crypto_ctx (const rsachallenge &challenge, int enc)
56	{	63	{
57	EVP_CIPHER_CTX_init (&cctx);	64	EVP_CIPHER_CTX_init (&cctx);
58	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));
59	HMAC_CTX_init (&hctx);	66	HMAC_CTX_init (&hctx);
60	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);
61	}	68	}
62		69
63	crypto_ctx::~crypto_ctx ()	70	crypto_ctx::~crypto_ctx ()
64	{	71	{
65	EVP_CIPHER_CTX_cleanup (&cctx);	72	require (EVP_CIPHER_CTX_cleanup (&cctx));
66	HMAC_CTX_cleanup (&hctx);	73	HMAC_CTX_cleanup (&hctx);
67	}	74	}
68		75
69	static void	76	static void
70	rsa_hash (const rsaid &id, const rsachallenge &chg, rsaresponse &h)	77	rsa_hash (const rsaid &id, const rsachallenge &chg, rsaresponse &h)
71	{	78	{
72	EVP_MD_CTX ctx;	79	EVP_MD_CTX ctx;
73		80
74	EVP_MD_CTX_init (&ctx);	81	EVP_MD_CTX_init (&ctx);
75	EVP_DigestInit (&ctx, RSA_HASH);	82	require (EVP_DigestInit (&ctx, RSA_HASH));
76	EVP_DigestUpdate(&ctx, &chg, sizeof chg);	83	require (EVP_DigestUpdate(&ctx, &chg, sizeof chg));
77	EVP_DigestUpdate(&ctx, &id, sizeof id);	84	require (EVP_DigestUpdate(&ctx, &id, sizeof id));
78	EVP_DigestFinal (&ctx, (unsigned char *)&h, 0);	85	require (EVP_DigestFinal (&ctx, (unsigned char *)&h, 0));
79	EVP_MD_CTX_cleanup (&ctx);	86	EVP_MD_CTX_cleanup (&ctx);
80	}	87	}
81		88
82	struct rsa_entry {	89	struct rsa_entry {
83	tstamp expire;	90	tstamp expire;
…		…
88	struct rsa_cache : list<rsa_entry>	95	struct rsa_cache : list<rsa_entry>
89	{	96	{
90	void cleaner_cb (time_watcher &w); time_watcher cleaner;	97	void cleaner_cb (time_watcher &w); time_watcher cleaner;
91		98
92	bool find (const rsaid &id, rsachallenge &chg)	99	bool find (const rsaid &id, rsachallenge &chg)
93	{	100	{
94	for (iterator i = begin (); i != end (); ++i)	101	for (iterator i = begin (); i != end (); ++i)
95	{	102	{
96	if (!memcmp (&id, &i->id, sizeof id) && i->expire > NOW)	103	if (!memcmp (&id, &i->id, sizeof id) && i->expire > NOW)
97	{	104	{
98	memcpy (&chg, &i->chg, sizeof chg);	105	memcpy (&chg, &i->chg, sizeof chg);
99		106
100	erase (i);	107	erase (i);
101	return true;	108	return true;
102	}	109	}
103	}	110	}
104		111
105	if (cleaner.at < NOW)	112	if (cleaner.at < NOW)
106	cleaner.start (NOW + RSA_TTL);	113	cleaner.start (NOW + RSA_TTL);
107		114
108	return false;	115	return false;
109	}	116	}
110		117
111	void gen (rsaid &id, rsachallenge &chg)	118	void gen (rsaid &id, rsachallenge &chg)
112	{	119	{
113	rsa_entry e;	120	rsa_entry e;
114		121
115	RAND_bytes ((unsigned char *)&id, sizeof id);	122	RAND_bytes ((unsigned char *)&id, sizeof id);
116	RAND_bytes ((unsigned char *)&chg, sizeof chg);	123	RAND_bytes ((unsigned char *)&chg, sizeof chg);
117		124
118	e.expire = NOW + RSA_TTL;	125	e.expire = NOW + RSA_TTL;
119	e.id = id;	126	e.id = id;
120	memcpy (&e.chg, &chg, sizeof chg);	127	memcpy (&e.chg, &chg, sizeof chg);
121		128
122	push_back (e);	129	push_back (e);
123		130
124	if (cleaner.at < NOW)	131	if (cleaner.at < NOW)
125	cleaner.start (NOW + RSA_TTL);	132	cleaner.start (NOW + RSA_TTL);
126	}	133	}
127		134
128	rsa_cache ()	135	rsa_cache ()
129	: cleaner (this, &rsa_cache::cleaner_cb)	136	: cleaner (this, &rsa_cache::cleaner_cb)
130	{ }	137	{ }
131		138
132	} rsa_cache;	139	} rsa_cache;
133		140
134	void rsa_cache::cleaner_cb (time_watcher &w)	141	void rsa_cache::cleaner_cb (time_watcher &w)
135	{	142	{
136	if (empty ())	143	if (!empty ())
137	w.at = TSTAMP_CANCEL;
138	else
139	{	144	{
140	w.at = NOW + RSA_TTL;	145	w.start (NOW + RSA_TTL);
141		146
142	for (iterator i = begin (); i != end (); )	147	for (iterator i = begin (); i != end (); )
143	if (i->expire <= NOW)	148	if (i->expire <= NOW)
144	i = erase (i);	149	i = erase (i);
145	else	150	else
…		…
197	// 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.
198	// this implementation ("splay list" ;) is inefficient,	203	// this implementation ("splay list" ;) is inefficient,
199	// but low on resources.	204	// but low on resources.
200	struct net_rate_limiter : list<net_rateinfo>	205	struct net_rate_limiter : list<net_rateinfo>
201	{	206	{
202	static const double ALPHA = 1. - 1. / 180.; // allow bursts	207	# define NRL_ALPHA (1. - 1. / 600.) // allow bursts
203	static const double CUTOFF = 10.; // one event every CUTOFF seconds	208	# define NRL_CUTOFF 10. // one event every CUTOFF seconds
204	static const double EXPIRE = CUTOFF * 30.; // expire entries after this time	209	# define NRL_EXPIRE (NRL_CUTOFF * 30.) // expire entries after this time
205	static const double MAXDIF = CUTOFF * (1. / (1. - ALPHA)); // maximum diff /count value	210	# define NRL_MAXDIF (NRL_CUTOFF * (1. / (1. - NRL_ALPHA))) // maximum diff /count value
206		211
207	bool can (const sockinfo &si) { return can((u32)si.host); }	212	bool can (const sockinfo &si) { return can((u32)si.host); }
208	bool can (u32 host);	213	bool can (u32 host);
209	};	214	};
210		215
211	net_rate_limiter auth_rate_limiter, reset_rate_limiter;	216	net_rate_limiter auth_rate_limiter, reset_rate_limiter;
212		217
…		…
215	iterator i;	220	iterator i;
216		221
217	for (i = begin (); i != end (); )	222	for (i = begin (); i != end (); )
218	if (i->host == host)	223	if (i->host == host)
219	break;	224	break;
220	else if (i->last < NOW - EXPIRE)	225	else if (i->last < NOW - NRL_EXPIRE)
221	i = erase (i);	226	i = erase (i);
222	else	227	else
223	i++;	228	i++;
224		229
225	if (i == end ())	230	if (i == end ())
226	{	231	{
227	net_rateinfo ri;	232	net_rateinfo ri;
228		233
229	ri.host = host;	234	ri.host = host;
230	ri.pcnt = 1.;	235	ri.pcnt = 1.;
231	ri.diff = MAXDIF;	236	ri.diff = NRL_MAXDIF;
232	ri.last = NOW;	237	ri.last = NOW;
233		238
234	push_front (ri);	239	push_front (ri);
235		240
236	return true;	241	return true;
…		…
238	else	243	else
239	{	244	{
240	net_rateinfo ri (*i);	245	net_rateinfo ri (*i);
241	erase (i);	246	erase (i);
242		247
243	ri.pcnt = ri.pcnt * ALPHA;	248	ri.pcnt = ri.pcnt * NRL_ALPHA;
244	ri.diff = ri.diff * ALPHA + (NOW - ri.last);	249	ri.diff = ri.diff * NRL_ALPHA + (NOW - ri.last);
245		250
246	ri.last = NOW;	251	ri.last = NOW;
247		252
248	double dif = ri.diff / ri.pcnt;	253	double dif = ri.diff / ri.pcnt;
249		254
250	bool send = dif > CUTOFF;	255	bool send = dif > NRL_CUTOFF;
251		256
252	if (dif > MAXDIF)	257	if (dif > NRL_MAXDIF)
253	{	258	{
254	ri.pcnt = 1.;	259	ri.pcnt = 1.;
255	ri.diff = MAXDIF;	260	ri.diff = NRL_MAXDIF;
256	}	261	}
257	else if (send)	262	else if (send)
258	ri.pcnt++;	263	ri.pcnt++;
259		264
260	push_front (ri);	265	push_front (ri);
…		…
307	}	312	}
308		313
309	#define MAXVPNDATA (MAX_MTU - 6 - 6)	314	#define MAXVPNDATA (MAX_MTU - 6 - 6)
310	#define DATAHDR (sizeof (u32) + RAND_SIZE)	315	#define DATAHDR (sizeof (u32) + RAND_SIZE)
311		316
312	struct vpndata_packet:vpn_packet	317	struct vpndata_packet : vpn_packet
313	{	318	{
314	u8 data[MAXVPNDATA + DATAHDR]; // seqno	319	u8 data[MAXVPNDATA + DATAHDR]; // seqno
315		320
316	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);
317	tap_packet unpack (connection conn, u32 &seqno);	322	tap_packet unpack (connection conn, u32 &seqno);
…		…
330	int outl = 0, outl2;	335	int outl = 0, outl2;
331	ptype type = PT_DATA_UNCOMPRESSED;	336	ptype type = PT_DATA_UNCOMPRESSED;
332		337
333	#if ENABLE_COMPRESSION	338	#if ENABLE_COMPRESSION
334	u8 cdata[MAX_MTU];	339	u8 cdata[MAX_MTU];
335	u32 cl;
336		340
		341	if (conn->features & ENABLE_COMPRESSION)
		342	{
337	cl = lzf_compress (d, l, cdata + 2, (l - 2) & ~7);	343	u32 cl = lzf_compress (d, l, cdata + 2, (l - 2) & ~7);
		344
338	if (cl)	345	if (cl)
339	{	346	{
340	type = PT_DATA_COMPRESSED;	347	type = PT_DATA_COMPRESSED;
341	d = cdata;	348	d = cdata;
342	l = cl + 2;	349	l = cl + 2;
343		350
344	d[0] = cl >> 8;	351	d[0] = cl >> 8;
345	d[1] = cl;	352	d[1] = cl;
		353	}
346	}	354	}
347	#endif	355	#endif
348		356
349	EVP_EncryptInit_ex (cctx, 0, 0, 0, 0);	357	require (EVP_EncryptInit_ex (cctx, 0, 0, 0, 0));
350		358
351	struct {	359	struct {
352	#if RAND_SIZE	360	#if RAND_SIZE
353	u8 rnd[RAND_SIZE];	361	u8 rnd[RAND_SIZE];
354	#endif	362	#endif
…		…
358	datahdr.seqno = ntohl (seqno);	366	datahdr.seqno = ntohl (seqno);
359	#if RAND_SIZE	367	#if RAND_SIZE
360	RAND_pseudo_bytes ((unsigned char *) datahdr.rnd, RAND_SIZE);	368	RAND_pseudo_bytes ((unsigned char *) datahdr.rnd, RAND_SIZE);
361	#endif	369	#endif
362		370
363	EVP_EncryptUpdate (cctx,	371	require (EVP_EncryptUpdate (cctx,
364	(unsigned char *) data + outl, &outl2,	372	(unsigned char *) data + outl, &outl2,
365	(unsigned char *) &datahdr, DATAHDR);	373	(unsigned char *) &datahdr, DATAHDR));
366	outl += outl2;	374	outl += outl2;
367		375
368	EVP_EncryptUpdate (cctx,	376	require (EVP_EncryptUpdate (cctx,
369	(unsigned char *) data + outl, &outl2,	377	(unsigned char *) data + outl, &outl2,
370	(unsigned char *) d, l);	378	(unsigned char *) d, l));
371	outl += outl2;	379	outl += outl2;
372		380
373	EVP_EncryptFinal_ex (cctx, (unsigned char *) data + outl, &outl2);	381	require (EVP_EncryptFinal_ex (cctx, (unsigned char *) data + outl, &outl2));
374	outl += outl2;	382	outl += outl2;
375		383
376	len = outl + data_hdr_size ();	384	len = outl + data_hdr_size ();
377		385
378	set_hdr (type, dst);	386	set_hdr (type, dst);
…		…
387	int outl = 0, outl2;	395	int outl = 0, outl2;
388	tap_packet *p = new tap_packet;	396	tap_packet *p = new tap_packet;
389	u8 *d;	397	u8 *d;
390	u32 l = len - data_hdr_size ();	398	u32 l = len - data_hdr_size ();
391		399
392	EVP_DecryptInit_ex (cctx, 0, 0, 0, 0);	400	require (EVP_DecryptInit_ex (cctx, 0, 0, 0, 0));
393		401
394	#if ENABLE_COMPRESSION	402	#if ENABLE_COMPRESSION
395	u8 cdata[MAX_MTU];	403	u8 cdata[MAX_MTU];
396		404
397	if (type == PT_DATA_COMPRESSED)	405	if (type == PT_DATA_COMPRESSED)
…		…
399	else	407	else
400	#endif	408	#endif
401	d = &(*p)[6 + 6 - DATAHDR];	409	d = &(*p)[6 + 6 - DATAHDR];
402		410
403	/* 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 */
404	EVP_DecryptUpdate (cctx,	412	require (EVP_DecryptUpdate (cctx,
405	d, &outl2,	413	d, &outl2,
406	(unsigned char *)&data, len - data_hdr_size ());	414	(unsigned char *)&data, len - data_hdr_size ()));
407	outl += outl2;	415	outl += outl2;
408		416
409	EVP_DecryptFinal_ex (cctx, (unsigned char *)d + outl, &outl2);	417	require (EVP_DecryptFinal_ex (cctx, (unsigned char *)d + outl, &outl2));
410	outl += outl2;	418	outl += outl2;
411		419
412	seqno = ntohl ((u32 )(d + RAND_SIZE));	420	seqno = ntohl ((u32 )(d + RAND_SIZE));
413		421
414	id2mac (dst () ? dst() : THISNODE->id, p->dst);	422	id2mac (dst () ? dst() : THISNODE->id, p->dst);
…		…
443	{	451	{
444	// actually, hmaclen cannot be checked because the hmac	452	// actually, hmaclen cannot be checked because the hmac
445	// field comes before this data, so peers with other	453	// field comes before this data, so peers with other
446	// hmacs simply will not work.	454	// hmacs simply will not work.
447	u8 prot_major, prot_minor, randsize, hmaclen;	455	u8 prot_major, prot_minor, randsize, hmaclen;
448	u8 flags, challengelen, pad2, pad3;	456	u8 flags, challengelen, features, pad3;
449	u32 cipher_nid, digest_nid, hmac_nid;	457	u32 cipher_nid, digest_nid, hmac_nid;
450
451	const u8 curflags () const
452	{
453	return 0x80
454	\| (ENABLE_COMPRESSION ? 0x01 : 0x00);
455	}
456		458
457	void setup (ptype type, int dst);	459	void setup (ptype type, int dst);
458	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	}
459	};	473	};
460		474
461	void config_packet::setup (ptype type, int dst)	475	void config_packet::setup (ptype type, int dst)
462	{	476	{
463	prot_major = PROTOCOL_MAJOR;	477	prot_major = PROTOCOL_MAJOR;
464	prot_minor = PROTOCOL_MINOR;	478	prot_minor = PROTOCOL_MINOR;
465	randsize = RAND_SIZE;	479	randsize = RAND_SIZE;
466	hmaclen = HMACLENGTH;	480	hmaclen = HMACLENGTH;
467	flags = curflags ();	481	flags = 0;
468	challengelen = sizeof (rsachallenge);	482	challengelen = sizeof (rsachallenge);
		483	features = get_features ();
469		484
470	cipher_nid = htonl (EVP_CIPHER_nid (CIPHER));	485	cipher_nid = htonl (EVP_CIPHER_nid (CIPHER));
471	digest_nid = htonl (EVP_MD_type (RSA_HASH));	486	digest_nid = htonl (EVP_MD_type (RSA_HASH));
472	hmac_nid = htonl (EVP_MD_type (DIGEST));	487	hmac_nid = htonl (EVP_MD_type (DIGEST));
473		488
…		…
475	set_hdr (type, dst);	490	set_hdr (type, dst);
476	}	491	}
477		492
478	bool config_packet::chk_config () const	493	bool config_packet::chk_config () const
479	{	494	{
480	return prot_major == PROTOCOL_MAJOR	495	if (prot_major != PROTOCOL_MAJOR)
481	&& randsize == RAND_SIZE	496	slog (L_WARN, _("major version mismatch (remote %d <=> local %d)"), prot_major, PROTOCOL_MAJOR);
482	&& hmaclen == HMACLENGTH	497	else if (randsize != RAND_SIZE)
483	&& 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);
484	&& challengelen == sizeof (rsachallenge)	501	else if (challengelen != sizeof (rsachallenge))
		502	slog (L_WARN, _("challenge length mismatch (remote %d <=> local %d)"), challengelen, sizeof (rsachallenge));
485	&& 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));
486	&& 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));
487	&& 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;
488	}	513	}
489		514
490	struct auth_req_packet : config_packet	515	struct auth_req_packet : config_packet
491	{	516	{
492	char magic[8];	517	char magic[8];
493	u8 initiate; // false if this is just an automatic reply	518	u8 initiate; // false if this is just an automatic reply
494	u8 protocols; // supported protocols (will get patches on forward)	519	u8 protocols; // supported protocols (will be patched on forward)
495	u8 pad2, pad3;	520	u8 pad2, pad3;
496	rsaid id;	521	rsaid id;
497	rsaencrdata encr;	522	rsaencrdata encr;
498		523
499	auth_req_packet (int dst, bool initiate_, u8 protocols_)	524	auth_req_packet (int dst, bool initiate_, u8 protocols_)
…		…
560	{	585	{
561	if (ictx && octx)	586	if (ictx && octx)
562	{	587	{
563	connectmode = conf->connectmode;	588	connectmode = conf->connectmode;
564		589
		590	// make sure rekeying timeouts are slightly asymmetric
565	rekey.start (NOW + ::conf.rekey);	591	rekey.start (NOW + ::conf.rekey
		592	+ (conf->id > THISNODE->id ? 10 : 0));
566	keepalive.start (NOW + ::conf.keepalive);	593	keepalive.start (NOW + ::conf.keepalive);
567		594
568	// send queued packets	595	// send queued packets
569	if (ictx && octx)	596	if (ictx && octx)
570	{	597	{
…		…
583	}	610	}
584	else	611	else
585	{	612	{
586	retry_cnt = 0;	613	retry_cnt = 0;
587	establish_connection.start (NOW + 5);	614	establish_connection.start (NOW + 5);
588	keepalive.reset ();	615	keepalive.stop ();
589	rekey.reset ();	616	rekey.stop ();
590	}	617	}
591	}	618	}
592		619
593	void	620	void
594	connection::reset_si ()	621	connection::reset_si ()
…		…
596	protocol = best_protocol (THISNODE->protocols & conf->protocols);	623	protocol = best_protocol (THISNODE->protocols & conf->protocols);
597		624
598	// mask out protocols we cannot establish	625	// mask out protocols we cannot establish
599	if (!conf->udp_port) protocol &= ~PROT_UDPv4;	626	if (!conf->udp_port) protocol &= ~PROT_UDPv4;
600	if (!conf->tcp_port) protocol &= ~PROT_TCPv4;	627	if (!conf->tcp_port) protocol &= ~PROT_TCPv4;
		628	if (!conf->dns_port) protocol &= ~PROT_DNSv4;
601		629
602	si.set (conf, protocol);	630	si.set (conf, protocol);
603	}	631	}
604		632
605	// ensure sockinfo is valid, forward if necessary	633	// ensure sockinfo is valid, forward if necessary
…		…
610	{	638	{
611	connection *r = vpn->find_router ();	639	connection *r = vpn->find_router ();
612		640
613	if (r)	641	if (r)
614	{	642	{
615	slog (L_DEBUG, _("%s: no common protocol, trying indirectly through %s"),	643	slog (L_DEBUG, _("%s: no common protocol, trying indirectly through %s (%s)"),
616	conf->nodename, r->conf->nodename);	644	conf->nodename, r->conf->nodename, (const char *)r->si);
617	return r->si;	645	return r->si;
618	}	646	}
619	else	647	else
620	slog (L_DEBUG, _("%s: node unreachable, no common protocol"),	648	slog (L_DEBUG, _("%s: node unreachable, no common protocol"),
621	conf->nodename);	649	conf->nodename);
…		…
660	connection::send_auth_request (const sockinfo &si, bool initiate)	688	connection::send_auth_request (const sockinfo &si, bool initiate)
661	{	689	{
662	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);
663		691
664	rsachallenge chg;	692	rsachallenge chg;
665
666	rsa_cache.gen (pkt->id, chg);	693	rsa_cache.gen (pkt->id, chg);
667		694	rsa_encrypt (conf->rsa_key, chg, pkt->encr);
668	if (0 > RSA_public_encrypt (sizeof chg,
669	(unsigned char )&chg, (unsigned char )&pkt->encr,
670	conf->rsa_key, RSA_PKCS1_OAEP_PADDING))
671	fatal ("RSA_public_encrypt error");
672		695
673	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);
674		697
675	send_vpn_packet (pkt, si, IPTOS_RELIABILITY \| IPTOS_LOWDELAY); // rsa is very very costly	698	send_vpn_packet (pkt, si, IPTOS_RELIABILITY \| IPTOS_LOWDELAY); // rsa is very very costly
676		699
…		…
710	}	733	}
711		734
712	void	735	void
713	connection::establish_connection_cb (time_watcher &w)	736	connection::establish_connection_cb (time_watcher &w)
714	{	737	{
715	if (ictx \|\| conf == THISNODE	738	if (!ictx
		739	&& conf != THISNODE
716	\|\| connectmode == conf_node::C_NEVER	740	&& connectmode != conf_node::C_NEVER
717	\|\| connectmode == conf_node::C_DISABLED)	741	&& connectmode != conf_node::C_DISABLED
718	w.at = TSTAMP_CANCEL;	742	&& NOW > w.at)
719	else if (w.at <= NOW)
720	{	743	{
721	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
722		745
723	if (retry_int < 3600 * 8)	746	double retry_int = double (retry_cnt & 3
724	retry_cnt++;	747	? (retry_cnt & 3) + 1
725		748	: 1 << (retry_cnt >> 2));
726	w.at = NOW + retry_int;
727		749
728	reset_si ();	750	reset_si ();
		751
		752	bool slow = si.prot & PROT_SLOW;
729		753
730	if (si.prot && !si.host)	754	if (si.prot && !si.host)
731	vpn->send_connect_request (conf->id);	755	vpn->send_connect_request (conf->id);
732	else	756	else
733	{	757	{
734	const sockinfo &dsi = forward_si (si);	758	const sockinfo &dsi = forward_si (si);
		759
		760	slow = slow \|\| (dsi.prot & PROT_SLOW);
735		761
736	if (dsi.valid () && auth_rate_limiter.can (dsi))	762	if (dsi.valid () && auth_rate_limiter.can (dsi))
737	{	763	{
738	if (retry_cnt < 4)	764	if (retry_cnt < 4)
739	send_auth_request (dsi, true);	765	send_auth_request (dsi, true);
740	else	766	else
741	send_ping (dsi, 0);	767	send_ping (dsi, 0);
742	}	768	}
743	}	769	}
		770
		771	retry_int *= slow ? 8. : 0.7;
		772
		773	if (retry_int < conf->max_retry)
		774	retry_cnt++;
		775	else
		776	retry_int = conf->max_retry;
		777
		778	w.start (NOW + retry_int);
744	}	779	}
745	}	780	}
746		781
747	void	782	void
748	connection::reset_connection ()	783	connection::reset_connection ()
…		…
756	run_script (run_script_cb (this, &connection::script_node_down), false);	791	run_script (run_script_cb (this, &connection::script_node_down), false);
757	}	792	}
758		793
759	delete ictx; ictx = 0;	794	delete ictx; ictx = 0;
760	delete octx; octx = 0;	795	delete octx; octx = 0;
		796	#if ENABLE_DNS
		797	dnsv4_reset_connection ();
		798	#endif
761		799
762	si.host= 0;	800	si.host = 0;
763		801
764	last_activity = 0;	802	last_activity = 0;
765	retry_cnt = 0;	803	retry_cnt = 0;
766		804
767	rekey.reset ();	805	rekey.stop ();
768	keepalive.reset ();	806	keepalive.stop ();
769	establish_connection.reset ();	807	establish_connection.stop ();
770	}	808	}
771		809
772	void	810	void
773	connection::shutdown ()	811	connection::shutdown ()
774	{	812	{
…		…
779	}	817	}
780		818
781	void	819	void
782	connection::rekey_cb (time_watcher &w)	820	connection::rekey_cb (time_watcher &w)
783	{	821	{
784	w.at = TSTAMP_CANCEL;
785
786	reset_connection ();	822	reset_connection ();
787	establish_connection ();	823	establish_connection ();
788	}	824	}
789		825
790	void	826	void
791	connection::send_data_packet (tap_packet *pkt, bool broadcast)	827	connection::send_data_packet (tap_packet *pkt)
792	{	828	{
793	vpndata_packet *p = new vpndata_packet;	829	vpndata_packet *p = new vpndata_packet;
794	int tos = 0;	830	int tos = 0;
795		831
796	// I am not hilarious about peeking into packets, but so be it.	832	// I am not hilarious about peeking into packets, but so be it.
797	if (conf->inherit_tos	833	if (conf->inherit_tos && pkt->is_ipv4 ())
798	&& (pkt)[12] == 0x08 && (pkt)[13] == 0x00 // IP
799	&& ((*pkt)[14] & 0xf0) == 0x40) // IPv4
800	tos = (*pkt)[15] & IPTOS_TOS_MASK;	834	tos = (*pkt)[15] & IPTOS_TOS_MASK;
801		835
802	p->setup (this, broadcast ? 0 : conf->id, &((*pkt)[6 + 6]), pkt->len - 6 - 6, ++oseqno); // skip 2 macs	836	p->setup (this, conf->id, &((*pkt)[6 + 6]), pkt->len - 6 - 6, ++oseqno); // skip 2 macs
803	send_vpn_packet (p, si, tos);	837	send_vpn_packet (p, si, tos);
804		838
805	delete p;	839	delete p;
806		840
807	if (oseqno > MAX_SEQNO)	841	if (oseqno > MAX_SEQNO)
808	rekey ();	842	rekey ();
809	}	843	}
810		844
811	void	845	void
812	connection::inject_data_packet (tap_packet *pkt, bool broadcast)	846	connection::inject_data_packet (tap_packet pkt, bool broadcast/TODO DDD*/)
813	{	847	{
814	if (ictx && octx)	848	if (ictx && octx)
815	send_data_packet (pkt, broadcast);	849	send_data_packet (pkt);
816	else	850	else
817	{	851	{
818	if (!broadcast)//DDDD	852	if (!broadcast)//DDDD
819	data_queue.put (new tap_packet (*pkt));	853	data_queue.put (new tap_packet (*pkt));
820		854
…		…
826	{	860	{
827	if (ictx && octx)	861	if (ictx && octx)
828	send_vpn_packet (pkt, si, tos);	862	send_vpn_packet (pkt, si, tos);
829	else	863	else
830	{	864	{
831	vpn_queue.put (new vpn_packet (*pkt));	865	vpn_queue.put ((vpn_packet )new data_packet ((data_packet *)pkt));
832		866
833	establish_connection ();	867	establish_connection ();
834	}	868	}
835	}	869	}
836		870
…		…
895	if (p->initiate)	929	if (p->initiate)
896	send_auth_request (rsi, false);	930	send_auth_request (rsi, false);
897		931
898	rsachallenge k;	932	rsachallenge k;
899		933
900	if (0 > RSA_private_decrypt (sizeof (p->encr),	934	if (!rsa_decrypt (::conf.rsa_key, p->encr, k))
901	(unsigned char )&p->encr, (unsigned char )&k,	935	{
902	::conf.rsa_key, RSA_PKCS1_OAEP_PADDING))
903	slog (L_ERR, _("%s(%s): challenge illegal or corrupted"),	936	slog (L_ERR, _("%s(%s): challenge illegal or corrupted (%s). mismatched key or config file?"),
904	conf->nodename, (const char *)rsi);	937	conf->nodename, (const char *)rsi, ERR_error_string (ERR_get_error (), 0));
		938	break;
		939	}
905	else	940	else
906	{	941	{
907	delete octx;	942	delete octx;
908		943
909	octx = new crypto_ctx (k, 1);	944	octx = new crypto_ctx (k, 1);
910	oseqno = ntohl ((u32 )&k[CHG_SEQNO]) & 0x7fffffff;	945	oseqno = ntohl ((u32 )&k[CHG_SEQNO]) & 0x7fffffff;
911		946
912	conf->protocols = p->protocols;	947	conf->protocols = p->protocols;
		948	features = p->features & config_packet::get_features ();
913		949
914	send_auth_response (rsi, p->id, k);	950	send_auth_response (rsi, p->id, k);
915		951
916	connection_established ();	952	connection_established ();
917		953
918	break;	954	break;
919	}	955	}
920	}	956	}
		957	else
		958	slog (L_WARN, _("%s(%s): protocol mismatch"),
		959	conf->nodename, (const char *)rsi);
921		960
922	send_reset (rsi);	961	send_reset (rsi);
923	}	962	}
924		963
925	break;	964	break;
…		…
939		978
940	rsachallenge chg;	979	rsachallenge chg;
941		980
942	if (!rsa_cache.find (p->id, chg))	981	if (!rsa_cache.find (p->id, chg))
943	{	982	{
944	slog (L_ERR, _("%s(%s): unrequested auth response"),	983	slog (L_ERR, _("%s(%s): unrequested auth response ignored"),
945	conf->nodename, (const char *)rsi);	984	conf->nodename, (const char *)rsi);
946	break;	985	break;
947	}	986	}
948	else	987	else
949	{	988	{
950	crypto_ctx *cctx = new crypto_ctx (chg, 0);	989	crypto_ctx *cctx = new crypto_ctx (chg, 0);
951		990
952	if (!p->hmac_chk (cctx))	991	if (!p->hmac_chk (cctx))
		992	{
953	slog (L_ERR, _("%s(%s): hmac authentication error on auth response, received invalid packet\n"	993	slog (L_ERR, _("%s(%s): hmac authentication error on auth response, received invalid packet\n"
954	"could be an attack, or just corruption or an synchronization error"),	994	"could be an attack, or just corruption or a synchronization error"),
955	conf->nodename, (const char *)rsi);	995	conf->nodename, (const char *)rsi);
		996	break;
		997	}
956	else	998	else
957	{	999	{
958	rsaresponse h;	1000	rsaresponse h;
959		1001
960	rsa_hash (p->id, chg, h);	1002	rsa_hash (p->id, chg, h);
…		…
1006	{	1048	{
1007	vpndata_packet p = (vpndata_packet )pkt;	1049	vpndata_packet p = (vpndata_packet )pkt;
1008		1050
1009	if (!p->hmac_chk (ictx))	1051	if (!p->hmac_chk (ictx))
1010	slog (L_ERR, _("%s(%s): hmac authentication error, received invalid packet\n"	1052	slog (L_ERR, _("%s(%s): hmac authentication error, received invalid packet\n"
1011	"could be an attack, or just corruption or an synchronization error"),	1053	"could be an attack, or just corruption or a synchronization error"),
1012	conf->nodename, (const char *)rsi);	1054	conf->nodename, (const char *)rsi);
1013	else	1055	else
1014	{	1056	{
1015	u32 seqno;	1057	u32 seqno;
1016	tap_packet *d = p->unpack (this, seqno);	1058	tap_packet *d = p->unpack (this, seqno);
1017		1059
1018	if (iseqno.recv_ok (seqno))	1060	if (iseqno.recv_ok (seqno))
1019	{	1061	{
1020	vpn->tap->send (d);	1062	vpn->tap->send (d);
1021		1063
1022	if (p->dst () == 0) // re-broadcast
1023	for (vpn::conns_vector::iterator i = vpn->conns.begin (); i != vpn->conns.end (); ++i)
1024	{
1025	connection c = i;
1026
1027	if (c->conf != THISNODE && c->conf != conf)
1028	c->inject_data_packet (d);
1029	}
1030
1031	if (si != rsi)	1064	if (si != rsi)
1032	{	1065	{
1033	// fast re-sync on connection changes, useful especially for tcp/ip	1066	// fast re-sync on connection changes, useful especially for tcp/ip
1034	si = rsi;	1067	si = rsi;
1035		1068
1036	slog (L_INFO, _("%s(%s): socket address changed to %s"),	1069	slog (L_INFO, _("%s(%s): socket address changed to %s"),
1037	conf->nodename, (const char )si, (const char )rsi);	1070	conf->nodename, (const char )si, (const char )rsi);
1038	}	1071	}
1039
1040	delete d;
1041
1042	break;
1043	}	1072	}
		1073
		1074	delete d;
		1075	break;
1044	}	1076	}
1045	}	1077	}
1046		1078
1047	send_reset (rsi);	1079	send_reset (rsi);
1048	break;	1080	break;
…		…
1073	break;	1105	break;
1074		1106
1075	case vpn_packet::PT_CONNECT_INFO:	1107	case vpn_packet::PT_CONNECT_INFO:
1076	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))	1108	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))
1077	{	1109	{
1078	connect_info_packet p = (connect_info_packet ) pkt;	1110	connect_info_packet p = (connect_info_packet )pkt;
1079		1111
1080	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything	1112	if (p->id > 0 && p->id <= vpn->conns.size ()) // hmac-auth does not mean we accept anything
1081		1113	{
1082	connection *c = vpn->conns[p->id - 1];	1114	connection *c = vpn->conns[p->id - 1];
1083		1115
1084	c->conf->protocols = p->protocols;	1116	c->conf->protocols = p->protocols;
1085	protocol = best_protocol (c->conf->protocols & THISNODE->protocols & p->si.supported_protocols (c->conf));	1117	protocol = best_protocol (c->conf->protocols & THISNODE->protocols & p->si.supported_protocols (c->conf));
1086	p->si.upgrade_protocol (protocol, c->conf);	1118	p->si.upgrade_protocol (protocol, c->conf);
1087		1119
1088	slog (L_TRACE, "<<%d PT_CONNECT_INFO(%d,%s) (%d)",	1120	slog (L_TRACE, "<<%d PT_CONNECT_INFO(%d,%s) (%d)",
1089	conf->id, p->id, (const char *)p->si, !c->ictx && !c->octx);	1121	conf->id, p->id, (const char *)p->si, !c->ictx && !c->octx);
1090		1122
1091	const sockinfo &dsi = forward_si (p->si);	1123	const sockinfo &dsi = forward_si (p->si);
1092		1124
1093	if (dsi.valid ())	1125	if (dsi.valid ())
1094	c->send_auth_request (dsi, true);	1126	c->send_auth_request (dsi, true);
		1127	}
1095	}	1128	}
1096		1129
1097	break;	1130	break;
1098		1131
1099	default:	1132	default:
…		…
1108	{	1141	{
1109	reset_connection ();	1142	reset_connection ();
1110	establish_connection ();	1143	establish_connection ();
1111	}	1144	}
1112	else if (NOW < last_activity + ::conf.keepalive)	1145	else if (NOW < last_activity + ::conf.keepalive)
1113	w.at = last_activity + ::conf.keepalive;	1146	w.start (last_activity + ::conf.keepalive);
1114	else if (conf->connectmode != conf_node::C_ONDEMAND	1147	else if (conf->connectmode != conf_node::C_ONDEMAND
1115	\|\| THISNODE->connectmode != conf_node::C_ONDEMAND)	1148	\|\| THISNODE->connectmode != conf_node::C_ONDEMAND)
1116	{	1149	{
1117	send_ping (si);	1150	send_ping (si);
1118	w.at = NOW + 5;	1151	w.start (NOW + 5);
1119	}	1152	}
1120	else if (NOW < last_activity + ::conf.keepalive + 10)	1153	else if (NOW < last_activity + ::conf.keepalive + 10)
1121	// hold ondemand connections implicitly a few seconds longer	1154	// hold ondemand connections implicitly a few seconds longer
1122	// should delete octx, though, or something like that ;)	1155	// should delete octx, though, or something like that ;)
1123	w.at = last_activity + ::conf.keepalive + 10;	1156	w.start (last_activity + ::conf.keepalive + 10);
1124	else	1157	else
1125	reset_connection ();	1158	reset_connection ();
1126	}	1159	}
1127		1160
1128	void connection::send_connect_request (int id)	1161	void connection::send_connect_request (int id)
…		…
1163	putenv ("STATE=down");	1196	putenv ("STATE=down");
1164		1197
1165	return ::conf.script_node_up ? ::conf.script_node_down : "node-down";	1198	return ::conf.script_node_up ? ::conf.script_node_down : "node-down";
1166	}	1199	}
1167		1200
1168	connection::connection(struct vpn *vpn_)	1201	connection::connection (struct vpn vpn, conf_node conf)
1169	: vpn(vpn_)	1202	: vpn(vpn), conf(conf)
1170	, rekey (this, &connection::rekey_cb)	1203	, rekey (this, &connection::rekey_cb)
1171	, keepalive (this, &connection::keepalive_cb)	1204	, keepalive (this, &connection::keepalive_cb)
1172	, establish_connection (this, &connection::establish_connection_cb)	1205	, establish_connection (this, &connection::establish_connection_cb)
		1206	#if ENABLE_DNS
		1207	, dns (0)
		1208	#endif
1173	{	1209	{
1174	octx = ictx = 0;	1210	octx = ictx = 0;
1175	retry_cnt = 0;	1211	retry_cnt = 0;
1176		1212
		1213	if (!conf->protocols) // make sure some protocol is enabled
		1214	conf->protocols = PROT_UDPv4;
		1215
1177	connectmode = conf_node::C_ALWAYS; // initial setting	1216	connectmode = conf_node::C_ALWAYS; // initial setting
1178	reset_connection ();	1217	reset_connection ();
1179	}	1218	}
1180		1219
1181	connection::~connection ()	1220	connection::~connection ()

Diff Legend

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

Comparing gvpe/src/connection.C (file contents): Revision 1.14 by pcg, Fri Aug 8 09:29:22 2003 UTC vs. Revision 1.51 by pcg, Wed Mar 23 20:07:56 2005 UTC

Diff Legend

Comparing gvpe/src/connection.C (file contents):
Revision 1.14 by pcg, Fri Aug 8 09:29:22 2003 UTC vs.
Revision 1.51 by pcg, Wed Mar 23 20:07:56 2005 UTC