ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/gvpe/src/vpn.C
(Generate patch)

Comparing gvpe/src/vpn.C (file contents):
Revision 1.15 by pcg, Tue Oct 14 15:48:15 2003 UTC vs.
Revision 1.28 by pcg, Thu Mar 3 16:54:34 2005 UTC

1/* 1/*
2 vpn.C -- handle the protocol, encryption, handshaking etc. 2 vpn.C -- handle the protocol, encryption, handshaking etc.
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#include <list> 24#include <list>
22 25
26#include <cstdio>
27#include <cstring>
23#include <cstdlib> 28#include <cstdlib>
24#include <cstring>
25#include <cstdio>
26 29
27#include <sys/types.h> 30#include <sys/types.h>
28#include <sys/socket.h> 31#include <sys/socket.h>
29#include <sys/poll.h>
30#include <sys/wait.h> 32#include <sys/wait.h>
31#include <errno.h> 33#include <errno.h>
32#include <time.h> 34#include <time.h>
33#include <unistd.h> 35#include <unistd.h>
34#include <fcntl.h> 36#include <fcntl.h>
40 42
41#include "connection.h" 43#include "connection.h"
42#include "util.h" 44#include "util.h"
43#include "vpn.h" 45#include "vpn.h"
44 46
47vpn network; // THE vpn (bad design...)
48
45///////////////////////////////////////////////////////////////////////////// 49/////////////////////////////////////////////////////////////////////////////
46 50
47const char *vpn::script_if_up () 51const char *vpn::script_if_up ()
48{ 52{
49 // the tunnel device mtu should be the physical mtu - overhead 53 // the tunnel device mtu should be the physical mtu - overhead
52 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion 56 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion
53 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round 57 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round
54 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again 58 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again
55 59
56 char *env; 60 char *env;
57 asprintf (&env, "CONFBASE=%s", confbase); 61 asprintf (&env, "CONFBASE=%s", confbase); putenv (env);
58 putenv (env);
59 asprintf (&env, "NODENAME=%s", THISNODE->nodename); 62 asprintf (&env, "NODENAME=%s", THISNODE->nodename); putenv (env);
60 putenv (env);
61 asprintf (&env, "NODEID=%d", THISNODE->id); 63 asprintf (&env, "NODEID=%d", THISNODE->id); putenv (env);
62 putenv (env);
63 asprintf (&env, "IFNAME=%s", tap->interface ()); 64 asprintf (&env, "IFNAME=%s", tap->interface ()); putenv (env);
64 putenv (env); 65 asprintf (&env, "IFTYPE=%s", IFTYPE); putenv (env);
66 asprintf (&env, "IFSUBTYPE=%s", IFSUBTYPE); putenv (env);
65 asprintf (&env, "MTU=%d", mtu); 67 asprintf (&env, "MTU=%d", mtu); putenv (env);
66 putenv (env);
67 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x", 68 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x",
68 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8, 69 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8,
69 THISNODE->id & 0xff); 70 THISNODE->id & 0xff);
70 putenv (env); 71 putenv (env);
71 72
99 sockinfo si (THISNODE, PROT_IPv4); 100 sockinfo si (THISNODE, PROT_IPv4);
100 101
101 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ())) 102 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
102 { 103 {
103 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno)); 104 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno));
104 exit (1); 105 exit (EXIT_FAILURE);
105 } 106 }
106 107
107 ipv4_ev_watcher.start (ipv4_fd, POLLIN); 108 ipv4_ev_watcher.start (ipv4_fd, EVENT_READ);
108 } 109 }
109 110
110 udpv4_fd = -1; 111 udpv4_fd = -1;
111 112
112 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port) 113 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port)
137 sockinfo si (THISNODE, PROT_UDPv4); 138 sockinfo si (THISNODE, PROT_UDPv4);
138 139
139 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ())) 140 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ()))
140 { 141 {
141 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno)); 142 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno));
142 exit (1); 143 exit (EXIT_FAILURE);
143 } 144 }
144 145
145 udpv4_ev_watcher.start (udpv4_fd, POLLIN); 146 udpv4_ev_watcher.start (udpv4_fd, EVENT_READ);
146 } 147 }
147 148
148 icmpv4_fd = -1; 149 icmpv4_fd = -1;
149 150
150#if ENABLE_ICMP 151#if ENABLE_ICMP
181 sockinfo si (THISNODE, PROT_ICMPv4); 182 sockinfo si (THISNODE, PROT_ICMPv4);
182 183
183 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ())) 184 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ()))
184 { 185 {
185 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno)); 186 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno));
186 exit (1); 187 exit (EXIT_FAILURE);
187 } 188 }
188 189
189 icmpv4_ev_watcher.start (icmpv4_fd, POLLIN); 190 icmpv4_ev_watcher.start (icmpv4_fd, EVENT_READ);
190 } 191 }
191#endif 192#endif
192 193
193 tcpv4_fd = -1; 194 tcpv4_fd = -1;
194 195
211 sockinfo si (THISNODE, PROT_TCPv4); 212 sockinfo si (THISNODE, PROT_TCPv4);
212 213
213 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ())) 214 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ()))
214 { 215 {
215 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno)); 216 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno));
216 exit (1); 217 exit (EXIT_FAILURE);
217 } 218 }
218 219
219 if (listen (tcpv4_fd, 5)) 220 if (listen (tcpv4_fd, 5))
220 { 221 {
221 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno)); 222 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno));
222 exit (1); 223 exit (EXIT_FAILURE);
224 }
225
226 tcpv4_ev_watcher.start (tcpv4_fd, EVENT_READ);
227 }
228#endif
229
230#if ENABLE_DNS
231 if (THISNODE->protocols & PROT_DNSv4)
232 {
233 dnsv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP);
234
235 if (dnsv4_fd < 0)
236 return -1;
237
238 // standard daemon practise...
239 {
240 int oval = 1;
241 setsockopt (tcpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
242 }
243
244 sockinfo si (THISNODE, PROT_DNSv4);
245
246 if (bind (dnsv4_fd, si.sav4 (), si.salenv4 ()))
223 } 247 {
248 slog (L_ERR, _("can't bind dnsv4 on %s: %s"), (const char *)si, strerror (errno));
249 exit (EXIT_FAILURE);
250 }
224 251
225 tcpv4_ev_watcher.start (tcpv4_fd, POLLIN); 252 dnsv4_ev_watcher.start (dnsv4_fd, EVENT_READ);
226 } 253 }
227#endif 254#endif
228 255
229 tap = new tap_device (); 256 tap = new tap_device ();
230 if (!tap) //D this, of course, never catches 257 if (!tap) //D this, of course, never catches
231 { 258 {
232 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname); 259 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname);
233 exit (1); 260 exit (EXIT_FAILURE);
234 } 261 }
235 262
236 run_script (run_script_cb (this, &vpn::script_if_up), true); 263 run_script (run_script_cb (this, &vpn::script_if_up), true);
237 264
238 tap_ev_watcher.start (tap->fd, POLLIN); 265 tap_ev_watcher.start (tap->fd, EVENT_READ);
239 266
240 reconnect_all (); 267 reconnect_all ();
241 268
242 return 0; 269 return 0;
243}
244
245// send a vpn packet out to other hosts
246bool
247vpn::send_vpn_packet (vpn_packet *pkt, const sockinfo &si, int tos)
248{
249 switch (si.prot)
250 {
251 case PROT_IPv4:
252 return send_ipv4_packet (pkt, si, tos);
253
254 case PROT_UDPv4:
255 return send_udpv4_packet (pkt, si, tos);
256
257#if ENABLE_TCP
258 case PROT_TCPv4:
259 return send_tcpv4_packet (pkt, si, tos);
260#endif
261
262#if ENABLE_ICMP
263 case PROT_ICMPv4:
264 return send_icmpv4_packet (pkt, si, tos);
265#endif
266
267 default:
268 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si);
269 return false;
270 }
271} 270}
272 271
273bool 272bool
274vpn::send_ipv4_packet (vpn_packet *pkt, const sockinfo &si, int tos) 273vpn::send_ipv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
275{ 274{
333 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 332 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
334#endif 333#endif
335 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ()); 334 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
336 335
337 return true; 336 return true;
337}
338
339void
340vpn::inject_data_packet (tap_packet *pkt, int dst)
341{
342 if (dst)
343 {
344 // unicast
345 if (dst != THISNODE->id)
346 conns[dst - 1]->inject_data_packet (pkt);
347 }
348 else
349 {
350 // broadcast, this is ugly, but due to the security policy
351 // we have to connect to all hosts...
352 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
353 if ((*c)->conf != THISNODE)
354 (*c)->inject_data_packet (pkt, true);
355 }
338} 356}
339 357
340void 358void
341vpn::recv_vpn_packet (vpn_packet *pkt, const sockinfo &rsi) 359vpn::recv_vpn_packet (vpn_packet *pkt, const sockinfo &rsi)
342{ 360{
359 connection *c = conns[src - 1]; 377 connection *c = conns[src - 1];
360 378
361 if (dst == 0) 379 if (dst == 0)
362 slog (L_WARN, _("%s(%s): received broadcast (protocol violation)"), 380 slog (L_WARN, _("%s(%s): received broadcast (protocol violation)"),
363 c->conf->nodename, (const char *)rsi); 381 c->conf->nodename, (const char *)rsi);
364 else if (dst != 0 && dst != THISNODE->id) 382 else if (dst != THISNODE->id)
365 { 383 {
366 if (THISNODE->routerprio) 384 if (THISNODE->routerprio)
367 // the tos setting gets lost here. who cares. 385 // the tos setting gets lost here. who cares.
368 conns[dst - 1]->inject_vpn_packet (pkt); 386 conns[dst - 1]->inject_vpn_packet (pkt);
369 else 387 else
378} 396}
379 397
380void 398void
381vpn::ipv4_ev (io_watcher &w, short revents) 399vpn::ipv4_ev (io_watcher &w, short revents)
382{ 400{
383 if (revents & (POLLIN | POLLERR)) 401 if (revents & EVENT_READ)
384 { 402 {
385 vpn_packet *pkt = new vpn_packet; 403 vpn_packet *pkt = new vpn_packet;
386 struct sockaddr_in sa; 404 struct sockaddr_in sa;
387 socklen_t sa_len = sizeof (sa); 405 socklen_t sa_len = sizeof (sa);
388 int len; 406 int len;
407 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 425 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
408 } 426 }
409 427
410 delete pkt; 428 delete pkt;
411 } 429 }
412 else if (revents & POLLHUP)
413 {
414 // this cannot ;) happen on udp sockets
415 slog (L_ERR, _("FATAL: POLLHUP on ipv4 fd, terminating."));
416 exit (1);
417 }
418 else 430 else
419 { 431 {
420 slog (L_ERR, 432 slog (L_ERR,
421 _("FATAL: unknown revents %08x in socket, terminating\n"), 433 _("FATAL: unknown revents %08x in socket, terminating\n"),
422 revents); 434 revents);
423 exit (1); 435 exit (EXIT_FAILURE);
424 } 436 }
425} 437}
426 438
427#if ENABLE_ICMP 439#if ENABLE_ICMP
428void 440void
429vpn::icmpv4_ev (io_watcher &w, short revents) 441vpn::icmpv4_ev (io_watcher &w, short revents)
430{ 442{
431 if (revents & (POLLIN | POLLERR)) 443 if (revents & EVENT_READ)
432 { 444 {
433 vpn_packet *pkt = new vpn_packet; 445 vpn_packet *pkt = new vpn_packet;
434 struct sockaddr_in sa; 446 struct sockaddr_in sa;
435 socklen_t sa_len = sizeof (sa); 447 socklen_t sa_len = sizeof (sa);
436 int len; 448 int len;
461 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 473 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
462 } 474 }
463 475
464 delete pkt; 476 delete pkt;
465 } 477 }
466 else if (revents & POLLHUP)
467 {
468 // this cannot ;) happen on udp sockets
469 slog (L_ERR, _("FATAL: POLLHUP on icmpv4 fd, terminating."));
470 exit (1);
471 }
472 else 478 else
473 { 479 {
474 slog (L_ERR, 480 slog (L_ERR,
475 _("FATAL: unknown revents %08x in socket, terminating\n"), 481 _("FATAL: unknown revents %08x in socket, terminating\n"),
476 revents); 482 revents);
477 exit (1); 483 exit (EXIT_FAILURE);
478 } 484 }
479} 485}
480#endif 486#endif
481 487
482void 488void
483vpn::udpv4_ev (io_watcher &w, short revents) 489vpn::udpv4_ev (io_watcher &w, short revents)
484{ 490{
485 if (revents & (POLLIN | POLLERR)) 491 if (revents & EVENT_READ)
486 { 492 {
487 vpn_packet *pkt = new vpn_packet; 493 vpn_packet *pkt = new vpn_packet;
488 struct sockaddr_in sa; 494 struct sockaddr_in sa;
489 socklen_t sa_len = sizeof (sa); 495 socklen_t sa_len = sizeof (sa);
490 int len; 496 int len;
505 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno)); 511 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno));
506 } 512 }
507 513
508 delete pkt; 514 delete pkt;
509 } 515 }
510 else if (revents & POLLHUP)
511 {
512 // this cannot ;) happen on udp sockets
513 slog (L_ERR, _("FATAL: POLLHUP on udp v4 fd, terminating."));
514 exit (1);
515 }
516 else 516 else
517 { 517 {
518 slog (L_ERR, 518 slog (L_ERR,
519 _("FATAL: unknown revents %08x in socket, terminating\n"), 519 _("FATAL: unknown revents %08x in socket, terminating\n"),
520 revents); 520 revents);
521 exit (1); 521 exit (EXIT_FAILURE);
522 } 522 }
523} 523}
524 524
525void 525void
526vpn::tap_ev (io_watcher &w, short revents) 526vpn::tap_ev (io_watcher &w, short revents)
527{ 527{
528 if (revents & POLLIN) 528 if (revents & EVENT_READ)
529 { 529 {
530 /* process data */ 530 /* process data */
531 tap_packet *pkt; 531 tap_packet *pkt;
532 532
533 pkt = tap->recv (); 533 pkt = tap->recv ();
534 534
535 if (!pkt)
536 return;
537
538 if (pkt->len > 14)
539 {
535 int dst = mac2id (pkt->dst); 540 int dst = mac2id (pkt->dst);
536 int src = mac2id (pkt->src); 541 int src = mac2id (pkt->src);
537 542
538 if (src != THISNODE->id) 543 if (src != THISNODE->id)
539 {
540 slog (L_ERR, _("FATAL: tap packet not originating on current node received, exiting."));
541 exit (1);
542 }
543
544 if (dst == THISNODE->id)
545 {
546 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting."));
547 exit (1);
548 }
549
550 if (dst > conns.size ())
551 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
552 else
553 {
554 if (dst)
555 { 544 {
556 // unicast 545 slog (L_ERR, _("FATAL: tap packet not originating on current node received, exiting."));
557 if (dst != THISNODE->id) 546 exit (EXIT_FAILURE);
558 conns[dst - 1]->inject_data_packet (pkt);
559 } 547 }
548
549 if (dst == THISNODE->id)
550 {
551 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting."));
552 exit (EXIT_FAILURE);
553 }
554
555 if (dst > conns.size ())
556 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
560 else 557 else
561 {
562 // broadcast, this is ugly, but due to the security policy
563 // we have to connect to all hosts...
564 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
565 if ((*c)->conf != THISNODE)
566 (*c)->inject_data_packet (pkt); 558 inject_data_packet (pkt, dst);
567 }
568 } 559 }
569 560
570 delete pkt; 561 delete pkt;
571 }
572 else if (revents & (POLLHUP | POLLERR))
573 {
574 slog (L_ERR, _("FATAL: POLLHUP or POLLERR on network device fd, terminating."));
575 exit (1);
576 } 562 }
577 else 563 else
578 abort (); 564 abort ();
579} 565}
580 566
586 if (events & EVENT_SHUTDOWN) 572 if (events & EVENT_SHUTDOWN)
587 { 573 {
588 slog (L_INFO, _("preparing shutdown...")); 574 slog (L_INFO, _("preparing shutdown..."));
589 575
590 shutdown_all (); 576 shutdown_all ();
591
592 remove_pid (pidfilename); 577 remove_pid (conf.pidfilename);
593
594 slog (L_INFO, _("terminating")); 578 slog (L_INFO, _("terminating"));
595 579 exit (EXIT_SUCCESS);
596 exit (0);
597 } 580 }
598 581
599 if (events & EVENT_RECONNECT) 582 if (events & EVENT_RECONNECT)
600 { 583 {
601 slog (L_INFO, _("forced reconnect")); 584 slog (L_INFO, _("forced reconnect"));
603 reconnect_all (); 586 reconnect_all ();
604 } 587 }
605 588
606 events = 0; 589 events = 0;
607 } 590 }
608
609 w.at = TSTAMP_CANCEL;
610} 591}
611 592
612void 593void
613vpn::shutdown_all () 594vpn::shutdown_all ()
614{ 595{
627 connection_init (); 608 connection_init ();
628 609
629 for (configuration::node_vector::iterator i = conf.nodes.begin (); 610 for (configuration::node_vector::iterator i = conf.nodes.begin ();
630 i != conf.nodes.end (); ++i) 611 i != conf.nodes.end (); ++i)
631 { 612 {
632 connection *conn = new connection (this); 613 connection *conn = new connection (this, *i);
633
634 conn->conf = *i;
635 conns.push_back (conn); 614 conns.push_back (conn);
636
637 conn->establish_connection (); 615 conn->establish_connection ();
638 } 616 }
639} 617}
640 618
641connection *vpn::find_router () 619connection *vpn::find_router ()
704, tcpv4_ev_watcher (this, &vpn::tcpv4_ev) 682, tcpv4_ev_watcher (this, &vpn::tcpv4_ev)
705#endif 683#endif
706#if ENABLE_ICMP 684#if ENABLE_ICMP
707, icmpv4_ev_watcher(this, &vpn::icmpv4_ev) 685, icmpv4_ev_watcher(this, &vpn::icmpv4_ev)
708#endif 686#endif
687#if ENABLE_DNS
688, dnsv4_ev_watcher (this, &vpn::dnsv4_ev)
689#endif
709, tap_ev_watcher (this, &vpn::tap_ev) 690, tap_ev_watcher (this, &vpn::tap_ev)
710{ 691{
711} 692}
712 693
713vpn::~vpn () 694vpn::~vpn ()

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines