[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.17 by pcg, Mon Sep 1 21:23:35 2003 UTC

…		…
22	# include "lzf/lzf.h"	22	# include "lzf/lzf.h"
23	}	23	}
24		24
25	#include <list>	25	#include <list>
26		26
		27	#include <openssl/rand.h>
		28	#include <openssl/evp.h>
		29	#include <openssl/rsa.h>
		30	#include <openssl/err.h>
		31
27	#include "gettext.h"	32	#include "gettext.h"
28		33
29	#include "conf.h"	34	#include "conf.h"
30	#include "slog.h"	35	#include "slog.h"
31	#include "device.h"	36	#include "device.h"
32	#include "protocol.h"	37	#include "vpn.h"
33	#include "connection.h"	38	#include "connection.h"
34		39
35	#if !HAVE_RAND_PSEUDO_BYTES	40	#if !HAVE_RAND_PSEUDO_BYTES
36	# define RAND_pseudo_bytes RAND_bytes	41	# define RAND_pseudo_bytes RAND_bytes
37	#endif	42	#endif
…		…
80	rsachallenge chg;	85	rsachallenge chg;
81	};	86	};
82		87
83	struct rsa_cache : list<rsa_entry>	88	struct rsa_cache : list<rsa_entry>
84	{	89	{
85	void cleaner_cb (tstamp &ts); time_watcher cleaner;	90	void cleaner_cb (time_watcher &w); time_watcher cleaner;
86		91
87	bool find (const rsaid &id, rsachallenge &chg)	92	bool find (const rsaid &id, rsachallenge &chg)
88	{	93	{
89	for (iterator i = begin (); i != end (); ++i)	94	for (iterator i = begin (); i != end (); ++i)
90	{	95	{
…		…
124	: cleaner (this, &rsa_cache::cleaner_cb)	129	: cleaner (this, &rsa_cache::cleaner_cb)
125	{ }	130	{ }
126		131
127	} rsa_cache;	132	} rsa_cache;
128		133
129	void rsa_cache::cleaner_cb (tstamp &ts)	134	void rsa_cache::cleaner_cb (time_watcher &w)
130	{	135	{
131	if (empty ())	136	if (empty ())
132	ts = TSTAMP_CANCEL;	137	w.at = TSTAMP_CANCEL;
133	else	138	else
134	{	139	{
135	ts = NOW + RSA_TTL;	140	w.at = NOW + RSA_TTL;
136		141
137	for (iterator i = begin (); i != end (); )	142	for (iterator i = begin (); i != end (); )
138	if (i->expire <= NOW)	143	if (i->expire <= NOW)
139	i = erase (i);	144	i = erase (i);
140	else	145	else
…		…
142	}	147	}
143	}	148	}
144		149
145	//////////////////////////////////////////////////////////////////////////////	150	//////////////////////////////////////////////////////////////////////////////
146		151
147	void pkt_queue::put (tap_packet *p)	152	void pkt_queue::put (net_packet *p)
148	{	153	{
149	if (queue[i])	154	if (queue[i])
150	{	155	{
151	delete queue[i];	156	delete queue[i];
152	j = (j + 1) % QUEUEDEPTH;	157	j = (j + 1) % QUEUEDEPTH;
…		…
155	queue[i] = p;	160	queue[i] = p;
156		161
157	i = (i + 1) % QUEUEDEPTH;	162	i = (i + 1) % QUEUEDEPTH;
158	}	163	}
159		164
160	tap_packet *pkt_queue::get ()	165	net_packet *pkt_queue::get ()
161	{	166	{
162	tap_packet *p = queue[j];	167	net_packet *p = queue[j];
163		168
164	if (p)	169	if (p)
165	{	170	{
166	queue[j] = 0;	171	queue[j] = 0;
167	j = (j + 1) % QUEUEDEPTH;	172	j = (j + 1) % QUEUEDEPTH;
…		…
192	// only do action once every x seconds per host whole allowing bursts.	197	// only do action once every x seconds per host whole allowing bursts.
193	// this implementation ("splay list" ;) is inefficient,	198	// this implementation ("splay list" ;) is inefficient,
194	// but low on resources.	199	// but low on resources.
195	struct net_rate_limiter : list<net_rateinfo>	200	struct net_rate_limiter : list<net_rateinfo>
196	{	201	{
197	static const double ALPHA = 1. - 1. / 90.; // allow bursts	202	static const double ALPHA = 1. - 1. / 600.; // allow bursts
198	static const double CUTOFF = 20.; // one event every CUTOFF seconds	203	static const double CUTOFF = 10.; // one event every CUTOFF seconds
199	static const double EXPIRE = CUTOFF * 30.; // expire entries after this time	204	static const double EXPIRE = CUTOFF * 30.; // expire entries after this time
		205	static const double MAXDIF = CUTOFF * (1. / (1. - ALPHA)); // maximum diff /count value
200		206
201	bool can (const sockinfo &si) { return can((u32)si.host); }	207	bool can (const sockinfo &si) { return can((u32)si.host); }
202	bool can (u32 host);	208	bool can (u32 host);
203	};	209	};
204		210
205	net_rate_limiter auth_rate_limiter, reset_rate_limiter;	211	net_rate_limiter auth_rate_limiter, reset_rate_limiter;
206		212
…		…
220	{	226	{
221	net_rateinfo ri;	227	net_rateinfo ri;
222		228
223	ri.host = host;	229	ri.host = host;
224	ri.pcnt = 1.;	230	ri.pcnt = 1.;
225	ri.diff = CUTOFF * (1. / (1. - ALPHA));	231	ri.diff = MAXDIF;
226	ri.last = NOW;	232	ri.last = NOW;
227		233
228	push_front (ri);	234	push_front (ri);
229		235
230	return true;	236	return true;
…		…
237	ri.pcnt = ri.pcnt * ALPHA;	243	ri.pcnt = ri.pcnt * ALPHA;
238	ri.diff = ri.diff * ALPHA + (NOW - ri.last);	244	ri.diff = ri.diff * ALPHA + (NOW - ri.last);
239		245
240	ri.last = NOW;	246	ri.last = NOW;
241		247
		248	double dif = ri.diff / ri.pcnt;
		249
242	bool send = ri.diff / ri.pcnt > CUTOFF;	250	bool send = dif > CUTOFF;
243		251
		252	if (dif > MAXDIF)
		253	{
		254	ri.pcnt = 1.;
		255	ri.diff = MAXDIF;
		256	}
244	if (send)	257	else if (send)
245	ri.pcnt++;	258	ri.pcnt++;
246		259
247	push_front (ri);	260	push_front (ri);
248		261
249	return send;	262	return send;
…		…
280	hmac_gen (ctx);	293	hmac_gen (ctx);
281		294
282	return !memcmp (hmac, hmac_digest, HMACLENGTH);	295	return !memcmp (hmac, hmac_digest, HMACLENGTH);
283	}	296	}
284		297
285	void vpn_packet::set_hdr (ptype type, unsigned int dst)	298	void vpn_packet::set_hdr (ptype type_, unsigned int dst)
286	{	299	{
287	this->type = type;	300	type = type_;
288		301
289	int src = THISNODE->id;	302	int src = THISNODE->id;
290		303
291	src1 = src;	304	src1 = src;
292	srcdst = ((src >> 8) << 4) \| (dst >> 8);	305	srcdst = ((src >> 8) << 4) \| (dst >> 8);
…		…
462	set_hdr (type, dst);	475	set_hdr (type, dst);
463	}	476	}
464		477
465	bool config_packet::chk_config () const	478	bool config_packet::chk_config () const
466	{	479	{
467	return prot_major == PROTOCOL_MAJOR	480	if (prot_major != PROTOCOL_MAJOR)
468	&& randsize == RAND_SIZE	481	slog (L_WARN, _("major version mismatch (%d <=> %d)"), prot_major, PROTOCOL_MAJOR);
469	&& hmaclen == HMACLENGTH	482	else if (randsize != RAND_SIZE)
470	&& flags == curflags ()	483	slog (L_WARN, _("rand size mismatch (%d <=> %d)"), randsize, RAND_SIZE);
		484	else if (hmaclen != HMACLENGTH)
		485	slog (L_WARN, _("hmac length mismatch (%d <=> %d)"), hmaclen, HMACLENGTH);
		486	else if (flags != curflags ())
		487	slog (L_WARN, _("flag mismatch (%x <=> %x)"), flags, curflags ());
471	&& challengelen == sizeof (rsachallenge)	488	else if (challengelen != sizeof (rsachallenge))
		489	slog (L_WARN, _("challenge length mismatch (%d <=> %d)"), challengelen, sizeof (rsachallenge));
472	&& cipher_nid == htonl (EVP_CIPHER_nid (CIPHER))	490	else if (cipher_nid != htonl (EVP_CIPHER_nid (CIPHER)))
		491	slog (L_WARN, _("cipher mismatch (%x <=> %x)"), ntohl (cipher_nid), EVP_CIPHER_nid (CIPHER));
473	&& digest_nid == htonl (EVP_MD_type (RSA_HASH))	492	else if (digest_nid != htonl (EVP_MD_type (RSA_HASH)))
		493	slog (L_WARN, _("digest mismatch (%x <=> %x)"), ntohl (digest_nid), EVP_MD_type (RSA_HASH));
474	&& hmac_nid == htonl (EVP_MD_type (DIGEST));	494	else if (hmac_nid != htonl (EVP_MD_type (DIGEST)))
		495	slog (L_WARN, _("hmac mismatch (%x <=> %x)"), ntohl (hmac_nid), EVP_MD_type (DIGEST));
		496	else
		497	return true;
		498
		499	return false;
475	}	500	}
476		501
477	struct auth_req_packet : config_packet	502	struct auth_req_packet : config_packet
478	{	503	{
479	char magic[8];	504	char magic[8];
…		…
541	};	566	};
542		567
543	/////////////////////////////////////////////////////////////////////////////	568	/////////////////////////////////////////////////////////////////////////////
544		569
545	void	570	void
		571	connection::connection_established ()
		572	{
		573	if (ictx && octx)
		574	{
		575	connectmode = conf->connectmode;
		576
		577	rekey.start (NOW + ::conf.rekey);
		578	keepalive.start (NOW + ::conf.keepalive);
		579
		580	// send queued packets
		581	if (ictx && octx)
		582	{
		583	while (tap_packet p = (tap_packet )data_queue.get ())
		584	{
		585	send_data_packet (p);
		586	delete p;
		587	}
		588
		589	while (vpn_packet p = (vpn_packet )vpn_queue.get ())
		590	{
		591	send_vpn_packet (p, si, IPTOS_RELIABILITY);
		592	delete p;
		593	}
		594	}
		595	}
		596	else
		597	{
		598	retry_cnt = 0;
		599	establish_connection.start (NOW + 5);
		600	keepalive.reset ();
		601	rekey.reset ();
		602	}
		603	}
		604
		605	void
546	connection::reset_dstaddr ()	606	connection::reset_si ()
547	{	607	{
		608	protocol = best_protocol (THISNODE->protocols & conf->protocols);
		609
		610	// mask out protocols we cannot establish
		611	if (!conf->udp_port) protocol &= ~PROT_UDPv4;
		612	if (!conf->tcp_port) protocol &= ~PROT_TCPv4;
		613
548	si.set (conf);	614	si.set (conf, protocol);
		615	}
		616
		617	// ensure sockinfo is valid, forward if necessary
		618	const sockinfo &
		619	connection::forward_si (const sockinfo &si) const
		620	{
		621	if (!si.valid ())
		622	{
		623	connection *r = vpn->find_router ();
		624
		625	if (r)
		626	{
		627	slog (L_DEBUG, _("%s: no common protocol, trying indirectly through %s"),
		628	conf->nodename, r->conf->nodename);
		629	return r->si;
		630	}
		631	else
		632	slog (L_DEBUG, _("%s: node unreachable, no common protocol"),
		633	conf->nodename);
		634	}
		635
		636	return si;
		637	}
		638
		639	void
		640	connection::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
		641	{
		642	if (!vpn->send_vpn_packet (pkt, si, tos))
		643	reset_connection ();
549	}	644	}
550		645
551	void	646	void
552	connection::send_ping (const sockinfo &si, u8 pong)	647	connection::send_ping (const sockinfo &si, u8 pong)
553	{	648	{
…		…
575		670
576	void	671	void
577	connection::send_auth_request (const sockinfo &si, bool initiate)	672	connection::send_auth_request (const sockinfo &si, bool initiate)
578	{	673	{
579	auth_req_packet *pkt = new auth_req_packet (conf->id, initiate, THISNODE->protocols);	674	auth_req_packet *pkt = new auth_req_packet (conf->id, initiate, THISNODE->protocols);
580
581	protocol = best_protocol (THISNODE->protocols & conf->protocols);
582		675
583	rsachallenge chg;	676	rsachallenge chg;
584		677
585	rsa_cache.gen (pkt->id, chg);	678	rsa_cache.gen (pkt->id, chg);
586		679
…		…
589	conf->rsa_key, RSA_PKCS1_OAEP_PADDING))	682	conf->rsa_key, RSA_PKCS1_OAEP_PADDING))
590	fatal ("RSA_public_encrypt error");	683	fatal ("RSA_public_encrypt error");
591		684
592	slog (L_TRACE, ">>%d PT_AUTH_REQ [%s]", conf->id, (const char *)si);	685	slog (L_TRACE, ">>%d PT_AUTH_REQ [%s]", conf->id, (const char *)si);
593		686
594	send_vpn_packet (pkt, si, IPTOS_RELIABILITY); // rsa is very very costly	687	send_vpn_packet (pkt, si, IPTOS_RELIABILITY \| IPTOS_LOWDELAY); // rsa is very very costly
595		688
596	delete pkt;	689	delete pkt;
597	}	690	}
598		691
599	void	692	void
…		…
627		720
628	delete r;	721	delete r;
629	}	722	}
630		723
631	void	724	void
632	connection::establish_connection_cb (tstamp &ts)	725	connection::establish_connection_cb (time_watcher &w)
633	{	726	{
634	if (ictx \|\| conf == THISNODE	727	if (ictx \|\| conf == THISNODE
635	\|\| connectmode == conf_node::C_NEVER	728	\|\| connectmode == conf_node::C_NEVER
636	\|\| connectmode == conf_node::C_DISABLED)	729	\|\| connectmode == conf_node::C_DISABLED)
637	ts = TSTAMP_CANCEL;	730	w.at = TSTAMP_CANCEL;
638	else if (ts <= NOW)	731	else if (w.at <= NOW)
639	{	732	{
640	double retry_int = double (retry_cnt & 3 ? (retry_cnt & 3) : 1 << (retry_cnt >> 2)) * 0.6;	733	double retry_int = double (retry_cnt & 3 ? (retry_cnt & 3) : 1 << (retry_cnt >> 2)) * 0.6;
641		734
642	if (retry_int < 3600 * 8)	735	if (retry_int < 3600 * 8)
643	retry_cnt++;	736	retry_cnt++;
644		737
645	ts = NOW + retry_int;	738	w.at = NOW + retry_int;
646		739
647	if (conf->hostname)	740	reset_si ();
		741
		742	if (si.prot && !si.host)
		743	vpn->send_connect_request (conf->id);
		744	else
648	{	745	{
649	reset_dstaddr ();	746	const sockinfo &dsi = forward_si (si);
		747
650	if (si.host && auth_rate_limiter.can (si))	748	if (dsi.valid () && auth_rate_limiter.can (dsi))
651	{	749	{
652	if (retry_cnt < 4)	750	if (retry_cnt < 4)
653	send_auth_request (si, true);	751	send_auth_request (dsi, true);
654	else	752	else
655	send_ping (si, 0);	753	send_ping (dsi, 0);
656	}	754	}
657	}	755	}
658	else
659	vpn->connect_request (conf->id);
660	}	756	}
661	}	757	}
662		758
663	void	759	void
664	connection::reset_connection ()	760	connection::reset_connection ()
…		…
693		789
694	reset_connection ();	790	reset_connection ();
695	}	791	}
696		792
697	void	793	void
698	connection::rekey_cb (tstamp &ts)	794	connection::rekey_cb (time_watcher &w)
699	{	795	{
700	ts = TSTAMP_CANCEL;	796	w.at = TSTAMP_CANCEL;
701		797
702	reset_connection ();	798	reset_connection ();
703	establish_connection ();	799	establish_connection ();
704	}	800	}
705		801
…		…
707	connection::send_data_packet (tap_packet *pkt, bool broadcast)	803	connection::send_data_packet (tap_packet *pkt, bool broadcast)
708	{	804	{
709	vpndata_packet *p = new vpndata_packet;	805	vpndata_packet *p = new vpndata_packet;
710	int tos = 0;	806	int tos = 0;
711		807
		808	// I am not hilarious about peeking into packets, but so be it.
712	if (conf->inherit_tos	809	if (conf->inherit_tos
713	&& (pkt)[12] == 0x08 && (pkt)[13] == 0x00 // IP	810	&& (pkt)[12] == 0x08 && (pkt)[13] == 0x00 // IP
714	&& ((*pkt)[14] & 0xf0) == 0x40) // IPv4	811	&& ((*pkt)[14] & 0xf0) == 0x40) // IPv4
715	tos = (*pkt)[15] & IPTOS_TOS_MASK;	812	tos = (*pkt)[15] & IPTOS_TOS_MASK;
716		813
…		…
729	if (ictx && octx)	826	if (ictx && octx)
730	send_data_packet (pkt, broadcast);	827	send_data_packet (pkt, broadcast);
731	else	828	else
732	{	829	{
733	if (!broadcast)//DDDD	830	if (!broadcast)//DDDD
734	queue.put (new tap_packet (*pkt));	831	data_queue.put (new tap_packet (*pkt));
		832
		833	establish_connection ();
		834	}
		835	}
		836
		837	void connection::inject_vpn_packet (vpn_packet *pkt, int tos)
		838	{
		839	if (ictx && octx)
		840	send_vpn_packet (pkt, si, tos);
		841	else
		842	{
		843	vpn_queue.put (new vpn_packet (*pkt));
735		844
736	establish_connection ();	845	establish_connection ();
737	}	846	}
738	}	847	}
739		848
…		…
745	slog (L_NOISE, "<<%d received packet type %d from %d to %d",	854	slog (L_NOISE, "<<%d received packet type %d from %d to %d",
746	conf->id, pkt->typ (), pkt->src (), pkt->dst ());	855	conf->id, pkt->typ (), pkt->src (), pkt->dst ());
747		856
748	switch (pkt->typ ())	857	switch (pkt->typ ())
749	{	858	{
750	case vpn_packet::PT_PING:	859	case vpn_packet::PT_PING:
751	// we send pings instead of auth packets after some retries,	860	// we send pings instead of auth packets after some retries,
752	// so reset the retry counter and establish a connection	861	// so reset the retry counter and establish a connection
753	// when we receive a ping.	862	// when we receive a ping.
754	if (!ictx)	863	if (!ictx)
		864	{
		865	if (auth_rate_limiter.can (rsi))
		866	send_auth_request (rsi, true);
		867	}
		868	else
		869	send_ping (rsi, 1); // pong
		870
		871	break;
		872
		873	case vpn_packet::PT_PONG:
		874	break;
		875
		876	case vpn_packet::PT_RESET:
755	{	877	{
756	if (auth_rate_limiter.can (rsi))	878	reset_connection ();
757	send_auth_request (rsi, true);	879
		880	config_packet p = (config_packet ) pkt;
		881
		882	if (!p->chk_config ())
		883	{
		884	slog (L_WARN, _("%s(%s): protocol mismatch, disabling node"),
		885	conf->nodename, (const char *)rsi);
		886	connectmode = conf_node::C_DISABLED;
		887	}
		888	else if (connectmode == conf_node::C_ALWAYS)
		889	establish_connection ();
758	}	890	}
759	else
760	send_ping (rsi, 1); // pong
761
762	break;	891	break;
763		892
764	case vpn_packet::PT_PONG:
765	break;
766
767	case vpn_packet::PT_RESET:	893	case vpn_packet::PT_AUTH_REQ:
768	{	894	if (auth_rate_limiter.can (rsi))
769	reset_connection ();
770
771	config_packet p = (config_packet ) pkt;
772
773	if (!p->chk_config ())
774	{	895	{
		896	auth_req_packet p = (auth_req_packet ) pkt;
		897
		898	slog (L_TRACE, "<<%d PT_AUTH_REQ(%d)", conf->id, p->initiate);
		899
		900	if (p->chk_config () && !strncmp (p->magic, MAGIC, 8))
		901	{
		902	if (p->prot_minor != PROTOCOL_MINOR)
		903	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),
		904	conf->nodename, (const char *)rsi,
		905	PROTOCOL_MINOR, conf->nodename, p->prot_minor);
		906
		907	if (p->initiate)
		908	send_auth_request (rsi, false);
		909
		910	rsachallenge k;
		911
		912	if (0 > RSA_private_decrypt (sizeof (p->encr),
		913	(unsigned char )&p->encr, (unsigned char )&k,
		914	::conf.rsa_key, RSA_PKCS1_OAEP_PADDING))
		915	slog (L_ERR, _("%s(%s): challenge illegal or corrupted (%s). mismatched key or config file?"),
		916	conf->nodename, (const char *)rsi, ERR_error_string (ERR_get_error (), 0));
		917	else
		918	{
		919	delete octx;
		920
		921	octx = new crypto_ctx (k, 1);
		922	oseqno = ntohl ((u32 )&k[CHG_SEQNO]) & 0x7fffffff;
		923
		924	conf->protocols = p->protocols;
		925
		926	send_auth_response (rsi, p->id, k);
		927
		928	connection_established ();
		929
		930	break;
		931	}
		932	}
		933	else
775	slog (L_WARN, _("%s(%s): protocol mismatch, disabling node"),	934	slog (L_WARN, _("%s(%s): protocol mismatch"),
776	conf->nodename, (const char *)rsi);	935	conf->nodename, (const char *)rsi);
777	connectmode = conf_node::C_DISABLED;	936
		937	send_reset (rsi);
778	}	938	}
779	else if (connectmode == conf_node::C_ALWAYS)	939
780	establish_connection ();
781	}
782	break;	940	break;
783		941
784	case vpn_packet::PT_AUTH_REQ:	942	case vpn_packet::PT_AUTH_RES:
785	if (auth_rate_limiter.can (rsi))
786	{	943	{
787	auth_req_packet p = (auth_req_packet ) pkt;	944	auth_res_packet p = (auth_res_packet ) pkt;
788		945
789	slog (L_TRACE, "<<%d PT_AUTH_REQ(%d)", conf->id, p->initiate);	946	slog (L_TRACE, "<<%d PT_AUTH_RES", conf->id);
790		947
791	if (p->chk_config () && !strncmp (p->magic, MAGIC, 8))	948	if (p->chk_config ())
792	{	949	{
793	if (p->prot_minor != PROTOCOL_MINOR)	950	if (p->prot_minor != PROTOCOL_MINOR)
794	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),	951	slog (L_INFO, _("%s(%s): protocol minor version mismatch: ours is %d, %s's is %d."),
795	conf->nodename, (const char *)rsi,	952	conf->nodename, (const char *)rsi,
796	PROTOCOL_MINOR, conf->nodename, p->prot_minor);	953	PROTOCOL_MINOR, conf->nodename, p->prot_minor);
797		954
798	if (p->initiate)
799	send_auth_request (rsi, false);
800
801	rsachallenge k;	955	rsachallenge chg;
802		956
803	if (0 > RSA_private_decrypt (sizeof (p->encr),	957	if (!rsa_cache.find (p->id, chg))
804	(unsigned char )&p->encr, (unsigned char )&k,	958	{
805	::conf.rsa_key, RSA_PKCS1_OAEP_PADDING))	959	slog (L_ERR, _("%s(%s): unrequested auth response"),
806	slog (L_ERR, _("%s(%s): challenge illegal or corrupted"),
807	conf->nodename, (const char *)rsi);	960	conf->nodename, (const char *)rsi);
		961	break;
		962	}
808	else	963	else
809	{	964	{
810	retry_cnt = 0;	965	crypto_ctx *cctx = new crypto_ctx (chg, 0);
811	establish_connection.set (NOW + 8); //? ;)	966
812	keepalive.reset ();	967	if (!p->hmac_chk (cctx))
		968	slog (L_ERR, _("%s(%s): hmac authentication error on auth response, received invalid packet\n"
		969	"could be an attack, or just corruption or an synchronization error"),
		970	conf->nodename, (const char *)rsi);
813	rekey.reset ();	971	else
		972	{
		973	rsaresponse h;
814		974
		975	rsa_hash (p->id, chg, h);
		976
		977	if (!memcmp ((u8 )&h, (u8 )p->response, sizeof h))
		978	{
		979	prot_minor = p->prot_minor;
		980
		981	delete ictx; ictx = cctx;
		982
		983	iseqno.reset (ntohl ((u32 )&chg[CHG_SEQNO]) & 0x7fffffff); // at least 2**31 sequence numbers are valid
		984
		985	si = rsi;
		986	protocol = rsi.prot;
		987
		988	connection_established ();
		989
		990	slog (L_INFO, _("%s(%s): connection established, protocol version %d.%d"),
		991	conf->nodename, (const char *)rsi,
		992	p->prot_major, p->prot_minor);
		993
		994	if (::conf.script_node_up)
		995	run_script (run_script_cb (this, &connection::script_node_up), false);
		996
		997	break;
		998	}
		999	else
		1000	slog (L_ERR, _("%s(%s): sent and received challenge do not match"),
		1001	conf->nodename, (const char *)rsi);
		1002	}
		1003
815	delete ictx;	1004	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	}	1005	}
828	}	1006	}
829
830	send_reset (rsi);
831	}	1007	}
832		1008
		1009	send_reset (rsi);
833	break;	1010	break;
834		1011
835	case vpn_packet::PT_AUTH_RES:	1012	case vpn_packet::PT_DATA_COMPRESSED:
836	{	1013	#if !ENABLE_COMPRESSION
837	auth_res_packet p = (auth_res_packet ) pkt;	1014	send_reset (rsi);
		1015	break;
		1016	#endif
838		1017
839	slog (L_TRACE, "<<%d PT_AUTH_RES", conf->id);	1018	case vpn_packet::PT_DATA_UNCOMPRESSED:
840		1019
841	if (p->chk_config ())	1020	if (ictx && octx)
842	{	1021	{
843	if (p->prot_minor != PROTOCOL_MINOR)	1022	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		1023
848	rsachallenge chg;	1024	if (!p->hmac_chk (ictx))
849		1025	slog (L_ERR, _("%s(%s): hmac authentication error, received invalid packet\n"
850	if (!rsa_cache.find (p->id, chg))	1026	"could be an attack, or just corruption or an synchronization error"),
851	slog (L_ERR, _("%s(%s): unrequested auth response"),
852	conf->nodename, (const char *)rsi);	1027	conf->nodename, (const char *)rsi);
853	else	1028	else
854	{	1029	{
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	1030	u32 seqno;
		1031	tap_packet *d = p->unpack (this, seqno);
		1032
		1033	if (iseqno.recv_ok (seqno))
862	{	1034	{
863	rsaresponse h;	1035	vpn->tap->send (d);
864		1036
865	rsa_hash (p->id, chg, h);	1037	if (p->dst () == 0) // re-broadcast
		1038	for (vpn::conns_vector::iterator i = vpn->conns.begin (); i != vpn->conns.end (); ++i)
		1039	{
		1040	connection c = i;
866		1041
867	if (!memcmp ((u8 )&h, (u8 )p->response, sizeof h))	1042	if (c->conf != THISNODE && c->conf != conf)
		1043	c->inject_data_packet (d);
		1044	}
		1045
		1046	if (si != rsi)
868	{	1047	{
869	prot_minor = p->prot_minor;	1048	// 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;	1049	si = rsi;
876		1050
877	rekey.set (NOW + ::conf.rekey);	1051	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,	1052	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	}	1053	}
		1054
899	else	1055	delete d;
900	slog (L_ERR, _("%s(%s): sent and received challenge do not match"),	1056
901	conf->nodename, (const char *)rsi);	1057	break;
902	}	1058	}
903
904	delete cctx;
905	}	1059	}
906	}	1060	}
907	}
908		1061
909	send_reset (rsi);	1062	send_reset (rsi);
910	break;	1063	break;
911		1064
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:	1065	case vpn_packet::PT_CONNECT_REQ:
962	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))	1066	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))
963	{	1067	{
964	connect_req_packet p = (connect_req_packet ) pkt;	1068	connect_req_packet p = (connect_req_packet ) pkt;
965		1069
966	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything	1070	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];	1071	connection *c = vpn->conns[p->id - 1];
		1072	conf->protocols = p->protocols;
969		1073
970	slog (L_TRACE, "<<%d PT_CONNECT_REQ(%d) [%d]\n",	1074	slog (L_TRACE, "<<%d PT_CONNECT_REQ(%d) [%d]\n",
971	conf->id, p->id, c->ictx && c->octx);	1075	conf->id, p->id, c->ictx && c->octx);
972		1076
973	if (c->ictx && c->octx)	1077	if (c->ictx && c->octx)
974	{	1078	{
975	// send connect_info packets to both sides, in case one is	1079	// send connect_info packets to both sides, in case one is
976	// behind a nat firewall (or both ;)	1080	// behind a nat firewall (or both ;)
977	c->send_connect_info (conf->id, si, conf->protocols);	1081	c->send_connect_info (conf->id, si, conf->protocols);
978	send_connect_info (c->conf->id, c->si, c->conf->protocols);	1082	send_connect_info (c->conf->id, c->si, c->conf->protocols);
979	}	1083	}
		1084	else
		1085	c->establish_connection ();
980	}	1086	}
981		1087
982	break;	1088	break;
983		1089
984	case vpn_packet::PT_CONNECT_INFO:	1090	case vpn_packet::PT_CONNECT_INFO:
985	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))	1091	if (ictx && octx && rsi == si && pkt->hmac_chk (ictx))
986	{	1092	{
987	connect_info_packet p = (connect_info_packet ) pkt;	1093	connect_info_packet p = (connect_info_packet ) pkt;
988		1094
989	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything	1095	assert (p->id > 0 && p->id <= vpn->conns.size ()); // hmac-auth does not mean we accept anything
990	conf->protocols = p->protocols;	1096
991	connection *c = vpn->conns[p->id - 1];	1097	connection *c = vpn->conns[p->id - 1];
992		1098
		1099	c->conf->protocols = p->protocols;
		1100	protocol = best_protocol (c->conf->protocols & THISNODE->protocols & p->si.supported_protocols (c->conf));
		1101	p->si.upgrade_protocol (protocol, c->conf);
		1102
993	slog (L_TRACE, "<<%d PT_CONNECT_INFO(%d,%s) (%d)",	1103	slog (L_TRACE, "<<%d PT_CONNECT_INFO(%d,%s) (%d)",
994	conf->id, p->id, (const char *)p->si, !c->ictx && !c->octx);	1104	conf->id, p->id, (const char *)p->si, !c->ictx && !c->octx);
995		1105
		1106	const sockinfo &dsi = forward_si (p->si);
		1107
		1108	if (dsi.valid ())
996	c->send_auth_request (p->si, true);	1109	c->send_auth_request (dsi, true);
997	}	1110	}
998		1111
999	break;	1112	break;
1000		1113
1001	default:	1114	default:
1002	send_reset (rsi);	1115	send_reset (rsi);
1003	break;	1116	break;
1004
1005	}	1117	}
1006	}	1118	}
1007		1119
1008	void connection::keepalive_cb (tstamp &ts)	1120	void connection::keepalive_cb (time_watcher &w)
1009	{	1121	{
1010	if (NOW >= last_activity + ::conf.keepalive + 30)	1122	if (NOW >= last_activity + ::conf.keepalive + 30)
1011	{	1123	{
1012	reset_connection ();	1124	reset_connection ();
1013	establish_connection ();	1125	establish_connection ();
1014	}	1126	}
1015	else if (NOW < last_activity + ::conf.keepalive)	1127	else if (NOW < last_activity + ::conf.keepalive)
1016	ts = last_activity + ::conf.keepalive;	1128	w.at = last_activity + ::conf.keepalive;
1017	else if (conf->connectmode != conf_node::C_ONDEMAND	1129	else if (conf->connectmode != conf_node::C_ONDEMAND
1018	\|\| THISNODE->connectmode != conf_node::C_ONDEMAND)	1130	\|\| THISNODE->connectmode != conf_node::C_ONDEMAND)
1019	{	1131	{
1020	send_ping (si);	1132	send_ping (si);
1021	ts = NOW + 5;	1133	w.at = NOW + 5;
1022	}	1134	}
		1135	else if (NOW < last_activity + ::conf.keepalive + 10)
		1136	// hold ondemand connections implicitly a few seconds longer
		1137	// should delete octx, though, or something like that ;)
		1138	w.at = last_activity + ::conf.keepalive + 10;
1023	else	1139	else
1024	reset_connection ();	1140	reset_connection ();
1025	}	1141	}
1026		1142
1027	void connection::connect_request (int id)	1143	void connection::send_connect_request (int id)
1028	{	1144	{
1029	connect_req_packet *p = new connect_req_packet (conf->id, id, conf->protocols);	1145	connect_req_packet *p = new connect_req_packet (conf->id, id, conf->protocols);
1030		1146
1031	slog (L_TRACE, ">>%d PT_CONNECT_REQ(%d)", conf->id, id);	1147	slog (L_TRACE, ">>%d PT_CONNECT_REQ(%d)", conf->id, id);
1032	p->hmac_set (octx);	1148	p->hmac_set (octx);
…		…
1035	delete p;	1151	delete p;
1036	}	1152	}
1037		1153
1038	void connection::script_node ()	1154	void connection::script_node ()
1039	{	1155	{
1040	vpn->script_if_up (0);	1156	vpn->script_if_up ();
1041		1157
1042	char *env;	1158	char *env;
1043	asprintf (&env, "DESTID=%d", conf->id); putenv (env);	1159	asprintf (&env, "DESTID=%d", conf->id); putenv (env);
1044	asprintf (&env, "DESTNODE=%s", conf->nodename); putenv (env);	1160	asprintf (&env, "DESTNODE=%s", conf->nodename); putenv (env);
1045	asprintf (&env, "DESTIP=%s", si.ntoa ()); putenv (env);	1161	asprintf (&env, "DESTIP=%s", si.ntoa ()); putenv (env);
1046	asprintf (&env, "DESTPORT=%d", ntohs (si.port)); putenv (env);	1162	asprintf (&env, "DESTPORT=%d", ntohs (si.port)); putenv (env);
1047	}	1163	}
1048		1164
1049	const char *connection::script_node_up (int)	1165	const char *connection::script_node_up ()
1050	{	1166	{
1051	script_node ();	1167	script_node ();
1052		1168
1053	putenv ("STATE=up");	1169	putenv ("STATE=up");
1054		1170
1055	return ::conf.script_node_up ? ::conf.script_node_up : "node-up";	1171	return ::conf.script_node_up ? ::conf.script_node_up : "node-up";
1056	}	1172	}
1057		1173
1058	const char *connection::script_node_down (int)	1174	const char *connection::script_node_down ()
1059	{	1175	{
1060	script_node ();	1176	script_node ();
1061		1177
1062	putenv ("STATE=down");	1178	putenv ("STATE=down");
1063		1179
1064	return ::conf.script_node_up ? ::conf.script_node_down : "node-down";	1180	return ::conf.script_node_up ? ::conf.script_node_down : "node-down";
1065	}
1066
1067	// send a vpn packet out to other hosts
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	}	1181	}
1076		1182
1077	connection::connection(struct vpn *vpn_)	1183	connection::connection(struct vpn *vpn_)
1078	: vpn(vpn_)	1184	: vpn(vpn_)
1079	, rekey (this, &connection::rekey_cb)	1185	, rekey (this, &connection::rekey_cb)

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.17 by pcg, Mon Sep 1 21:23:35 2003 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.17 by pcg, Mon Sep 1 21:23:35 2003 UTC