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.14 by pcg, Tue Oct 14 03:22:09 2003 UTC vs.
Revision 1.24 by pcg, Fri Apr 2 14:42:45 2004 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-2004 Marc Lehmann <pcg@goof.com>
3 4
4 This program is free software; you can redistribute it and/or modify 5 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by 6 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 7 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version. 8 (at your option) any later version.
18 19
19#include "config.h" 20#include "config.h"
20 21
21#include <list> 22#include <list>
22 23
24#include <cstdio>
25#include <cstring>
23#include <cstdlib> 26#include <cstdlib>
24#include <cstring>
25#include <cstdio>
26 27
27#include <sys/types.h> 28#include <sys/types.h>
28#include <sys/socket.h> 29#include <sys/socket.h>
29#include <sys/poll.h>
30#include <sys/wait.h> 30#include <sys/wait.h>
31#include <errno.h> 31#include <errno.h>
32#include <time.h> 32#include <time.h>
33#include <unistd.h> 33#include <unistd.h>
34#include <fcntl.h> 34#include <fcntl.h>
35#include <sys/socket.h> 35#include <sys/socket.h>
36#include <netinet/in.h> 36
37#include <arpa/inet.h> 37#include "netcompat.h"
38#include <net/if.h>
39#ifdef HAVE_NETINET_IN_SYSTM_H
40# include <netinet/in_systm.h>
41#endif
42#ifdef HAVE_NETINET_IP_H
43# include <netinet/ip.h>
44#endif
45#ifdef HAVE_NETINET_TCP_H
46# include <netinet/tcp.h>
47#endif
48#if ENABLE_ICMP
49# include <netinet/ip_icmp.h>
50#endif
51 38
52#include "pidfile.h" 39#include "pidfile.h"
53 40
54#include "connection.h" 41#include "connection.h"
55#include "util.h" 42#include "util.h"
56#include "vpn.h" 43#include "vpn.h"
57 44
58#if !defined(SOL_IP) && defined(IPPROTO_IP) 45vpn network; // THE vpn (bad design...)
59# define SOL_IP IPPROTO_IP
60#endif
61 46
62///////////////////////////////////////////////////////////////////////////// 47/////////////////////////////////////////////////////////////////////////////
63 48
64const char *vpn::script_if_up () 49const char *vpn::script_if_up ()
65{ 50{
69 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion 54 mtu += ETH_OVERHEAD - 6 - 6; // now we have the data portion
70 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round 55 mtu -= mtu % EVP_CIPHER_block_size (CIPHER); // round
71 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again 56 mtu -= ETH_OVERHEAD - 6 - 6; // and get interface mtu again
72 57
73 char *env; 58 char *env;
74 asprintf (&env, "CONFBASE=%s", confbase); 59 asprintf (&env, "CONFBASE=%s", confbase); putenv (env);
75 putenv (env);
76 asprintf (&env, "NODENAME=%s", THISNODE->nodename); 60 asprintf (&env, "NODENAME=%s", THISNODE->nodename); putenv (env);
77 putenv (env);
78 asprintf (&env, "NODEID=%d", THISNODE->id); 61 asprintf (&env, "NODEID=%d", THISNODE->id); putenv (env);
79 putenv (env);
80 asprintf (&env, "IFNAME=%s", tap->interface ()); 62 asprintf (&env, "IFNAME=%s", tap->interface ()); putenv (env);
81 putenv (env); 63 asprintf (&env, "IFTYPE=%s", IFTYPE); putenv (env);
64 asprintf (&env, "IFSUBTYPE=%s", IFSUBTYPE); putenv (env);
82 asprintf (&env, "MTU=%d", mtu); 65 asprintf (&env, "MTU=%d", mtu); putenv (env);
83 putenv (env);
84 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x", 66 asprintf (&env, "MAC=%02x:%02x:%02x:%02x:%02x:%02x",
85 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8, 67 0xfe, 0xfd, 0x80, 0x00, THISNODE->id >> 8,
86 THISNODE->id & 0xff); 68 THISNODE->id & 0xff);
87 putenv (env); 69 putenv (env);
88 70
116 sockinfo si (THISNODE, PROT_IPv4); 98 sockinfo si (THISNODE, PROT_IPv4);
117 99
118 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ())) 100 if (bind (ipv4_fd, si.sav4 (), si.salenv4 ()))
119 { 101 {
120 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno)); 102 slog (L_ERR, _("can't bind ipv4 socket on %s: %s"), (const char *)si, strerror (errno));
121 exit (1); 103 exit (EXIT_FAILURE);
122 } 104 }
123 105
124 ipv4_ev_watcher.start (ipv4_fd, POLLIN); 106 ipv4_ev_watcher.start (ipv4_fd, EVENT_READ);
125 } 107 }
126 108
127 udpv4_fd = -1; 109 udpv4_fd = -1;
128 110
129 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port) 111 if (THISNODE->protocols & PROT_UDPv4 && THISNODE->udp_port)
154 sockinfo si (THISNODE, PROT_UDPv4); 136 sockinfo si (THISNODE, PROT_UDPv4);
155 137
156 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ())) 138 if (bind (udpv4_fd, si.sav4 (), si.salenv4 ()))
157 { 139 {
158 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno)); 140 slog (L_ERR, _("can't bind udpv4 on %s: %s"), (const char *)si, strerror (errno));
159 exit (1); 141 exit (EXIT_FAILURE);
160 } 142 }
161 143
162 udpv4_ev_watcher.start (udpv4_fd, POLLIN); 144 udpv4_ev_watcher.start (udpv4_fd, EVENT_READ);
163 } 145 }
164 146
165 icmpv4_fd = -1; 147 icmpv4_fd = -1;
166 148
167#if ENABLE_ICMP 149#if ENABLE_ICMP
198 sockinfo si (THISNODE, PROT_ICMPv4); 180 sockinfo si (THISNODE, PROT_ICMPv4);
199 181
200 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ())) 182 if (bind (icmpv4_fd, si.sav4 (), si.salenv4 ()))
201 { 183 {
202 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno)); 184 slog (L_ERR, _("can't bind icmpv4 on %s: %s"), (const char *)si, strerror (errno));
203 exit (1); 185 exit (EXIT_FAILURE);
204 } 186 }
205 187
206 icmpv4_ev_watcher.start (icmpv4_fd, POLLIN); 188 icmpv4_ev_watcher.start (icmpv4_fd, EVENT_READ);
207 } 189 }
208#endif 190#endif
209 191
210 tcpv4_fd = -1; 192 tcpv4_fd = -1;
211 193
228 sockinfo si (THISNODE, PROT_TCPv4); 210 sockinfo si (THISNODE, PROT_TCPv4);
229 211
230 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ())) 212 if (bind (tcpv4_fd, si.sav4 (), si.salenv4 ()))
231 { 213 {
232 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno)); 214 slog (L_ERR, _("can't bind tcpv4 on %s: %s"), (const char *)si, strerror (errno));
233 exit (1); 215 exit (EXIT_FAILURE);
234 } 216 }
235 217
236 if (listen (tcpv4_fd, 5)) 218 if (listen (tcpv4_fd, 5))
237 { 219 {
238 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno)); 220 slog (L_ERR, _("can't listen tcpv4 on %s: %s"), (const char *)si, strerror (errno));
239 exit (1); 221 exit (EXIT_FAILURE);
222 }
223
224 tcpv4_ev_watcher.start (tcpv4_fd, EVENT_READ);
225 }
226#endif
227
228#if ENABLE_DNS
229 if (THISNODE->protocols & PROT_DNSv4)
230 {
231 dnsv4_fd = socket (PF_INET, SOCK_DGRAM, IPPROTO_UDP);
232
233 if (dnsv4_fd < 0)
234 return -1;
235
236 // standard daemon practise...
237 {
238 int oval = 1;
239 setsockopt (tcpv4_fd, SOL_SOCKET, SO_REUSEADDR, &oval, sizeof oval);
240 }
241
242 sockinfo si (THISNODE, PROT_DNSv4);
243
244 if (bind (dnsv4_fd, si.sav4 (), si.salenv4 ()))
240 } 245 {
246 slog (L_ERR, _("can't bind dnsv4 on %s: %s"), (const char *)si, strerror (errno));
247 exit (EXIT_FAILURE);
248 }
241 249
242 tcpv4_ev_watcher.start (tcpv4_fd, POLLIN); 250 dnsv4_ev_watcher.start (dnsv4_fd, EVENT_READ);
243 } 251 }
244#endif 252#endif
245 253
246 tap = new tap_device (); 254 tap = new tap_device ();
247 if (!tap) //D this, of course, never catches 255 if (!tap) //D this, of course, never catches
248 { 256 {
249 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname); 257 slog (L_ERR, _("cannot create network interface '%s'"), conf.ifname);
250 exit (1); 258 exit (EXIT_FAILURE);
251 } 259 }
252 260
253 run_script (run_script_cb (this, &vpn::script_if_up), true); 261 run_script (run_script_cb (this, &vpn::script_if_up), true);
254 262
255 tap_ev_watcher.start (tap->fd, POLLIN); 263 tap_ev_watcher.start (tap->fd, EVENT_READ);
256 264
257 reconnect_all (); 265 reconnect_all ();
258 266
259 return 0; 267 return 0;
260} 268}
279#if ENABLE_ICMP 287#if ENABLE_ICMP
280 case PROT_ICMPv4: 288 case PROT_ICMPv4:
281 return send_icmpv4_packet (pkt, si, tos); 289 return send_icmpv4_packet (pkt, si, tos);
282#endif 290#endif
283 291
292#if ENABLE_DNS
293 case PROT_DNSv4:
294 return send_dnsv4_packet (pkt, si, tos);
295#endif
296
284 default: 297 default:
285 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si); 298 slog (L_CRIT, _("%s: FATAL: trying to send packet with unsupported protocol"), (const char *)si);
286 return false; 299 return false;
287 } 300 }
288} 301}
320 333
321 return ~sum; 334 return ~sum;
322} 335}
323 336
324#if ENABLE_ICMP 337#if ENABLE_ICMP
325struct icmp_header {
326 u8 type;
327 u8 code;
328 u16 checksum;
329 union {
330 struct {
331 u16 id;
332 u16 sequence;
333 } echo;
334 u32 gateway;
335 struct {
336 u16 unused;
337 u16 mtu;
338 } frag;
339 } un;
340};
341
342bool 338bool
343vpn::send_icmpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos) 339vpn::send_icmpv4_packet (vpn_packet *pkt, const sockinfo &si, int tos)
344{ 340{
345#if defined(SOL_IP) && defined(IP_TOS) 341#if defined(SOL_IP) && defined(IP_TOS)
346 setsockopt (icmpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 342 setsockopt (icmpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
367 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos); 363 setsockopt (udpv4_fd, SOL_IP, IP_TOS, &tos, sizeof tos);
368#endif 364#endif
369 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ()); 365 sendto (udpv4_fd, &((*pkt)[0]), pkt->len, 0, si.sav4 (), si.salenv4 ());
370 366
371 return true; 367 return true;
368}
369
370void
371vpn::inject_data_packet (tap_packet *pkt, int dst)
372{
373 if (dst)
374 {
375 // unicast
376 if (dst != THISNODE->id)
377 conns[dst - 1]->inject_data_packet (pkt);
378 }
379 else
380 {
381 // broadcast, this is ugly, but due to the security policy
382 // we have to connect to all hosts...
383 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
384 if ((*c)->conf != THISNODE)
385 (*c)->inject_data_packet (pkt, true);
386 }
372} 387}
373 388
374void 389void
375vpn::recv_vpn_packet (vpn_packet *pkt, const sockinfo &rsi) 390vpn::recv_vpn_packet (vpn_packet *pkt, const sockinfo &rsi)
376{ 391{
393 connection *c = conns[src - 1]; 408 connection *c = conns[src - 1];
394 409
395 if (dst == 0) 410 if (dst == 0)
396 slog (L_WARN, _("%s(%s): received broadcast (protocol violation)"), 411 slog (L_WARN, _("%s(%s): received broadcast (protocol violation)"),
397 c->conf->nodename, (const char *)rsi); 412 c->conf->nodename, (const char *)rsi);
398 else if (dst != 0 && dst != THISNODE->id) 413 else if (dst != THISNODE->id)
399 { 414 {
400 if (THISNODE->routerprio) 415 if (THISNODE->routerprio)
401 // the tos setting gets lost here. who cares. 416 // the tos setting gets lost here. who cares.
402 conns[dst - 1]->inject_vpn_packet (pkt); 417 conns[dst - 1]->inject_vpn_packet (pkt);
403 else 418 else
412} 427}
413 428
414void 429void
415vpn::ipv4_ev (io_watcher &w, short revents) 430vpn::ipv4_ev (io_watcher &w, short revents)
416{ 431{
417 if (revents & (POLLIN | POLLERR)) 432 if (revents & EVENT_READ)
418 { 433 {
419 vpn_packet *pkt = new vpn_packet; 434 vpn_packet *pkt = new vpn_packet;
420 struct sockaddr_in sa; 435 struct sockaddr_in sa;
421 socklen_t sa_len = sizeof (sa); 436 socklen_t sa_len = sizeof (sa);
422 int len; 437 int len;
441 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 456 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
442 } 457 }
443 458
444 delete pkt; 459 delete pkt;
445 } 460 }
446 else if (revents & POLLHUP)
447 {
448 // this cannot ;) happen on udp sockets
449 slog (L_ERR, _("FATAL: POLLHUP on ipv4 fd, terminating."));
450 exit (1);
451 }
452 else 461 else
453 { 462 {
454 slog (L_ERR, 463 slog (L_ERR,
455 _("FATAL: unknown revents %08x in socket, terminating\n"), 464 _("FATAL: unknown revents %08x in socket, terminating\n"),
456 revents); 465 revents);
457 exit (1); 466 exit (EXIT_FAILURE);
458 } 467 }
459} 468}
460 469
461#if ENABLE_ICMP 470#if ENABLE_ICMP
462void 471void
463vpn::icmpv4_ev (io_watcher &w, short revents) 472vpn::icmpv4_ev (io_watcher &w, short revents)
464{ 473{
465 if (revents & (POLLIN | POLLERR)) 474 if (revents & EVENT_READ)
466 { 475 {
467 vpn_packet *pkt = new vpn_packet; 476 vpn_packet *pkt = new vpn_packet;
468 struct sockaddr_in sa; 477 struct sockaddr_in sa;
469 socklen_t sa_len = sizeof (sa); 478 socklen_t sa_len = sizeof (sa);
470 int len; 479 int len;
495 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno)); 504 slog (L_DEBUG, _("%s: %s"), (const char *)si, strerror (errno));
496 } 505 }
497 506
498 delete pkt; 507 delete pkt;
499 } 508 }
500 else if (revents & POLLHUP)
501 {
502 // this cannot ;) happen on udp sockets
503 slog (L_ERR, _("FATAL: POLLHUP on icmpv4 fd, terminating."));
504 exit (1);
505 }
506 else 509 else
507 { 510 {
508 slog (L_ERR, 511 slog (L_ERR,
509 _("FATAL: unknown revents %08x in socket, terminating\n"), 512 _("FATAL: unknown revents %08x in socket, terminating\n"),
510 revents); 513 revents);
511 exit (1); 514 exit (EXIT_FAILURE);
512 } 515 }
513} 516}
514#endif 517#endif
515 518
516void 519void
517vpn::udpv4_ev (io_watcher &w, short revents) 520vpn::udpv4_ev (io_watcher &w, short revents)
518{ 521{
519 if (revents & (POLLIN | POLLERR)) 522 if (revents & EVENT_READ)
520 { 523 {
521 vpn_packet *pkt = new vpn_packet; 524 vpn_packet *pkt = new vpn_packet;
522 struct sockaddr_in sa; 525 struct sockaddr_in sa;
523 socklen_t sa_len = sizeof (sa); 526 socklen_t sa_len = sizeof (sa);
524 int len; 527 int len;
539 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno)); 542 slog (L_DEBUG, _("%s: fd %d, %s"), (const char *)si, w.fd, strerror (errno));
540 } 543 }
541 544
542 delete pkt; 545 delete pkt;
543 } 546 }
544 else if (revents & POLLHUP)
545 {
546 // this cannot ;) happen on udp sockets
547 slog (L_ERR, _("FATAL: POLLHUP on udp v4 fd, terminating."));
548 exit (1);
549 }
550 else 547 else
551 { 548 {
552 slog (L_ERR, 549 slog (L_ERR,
553 _("FATAL: unknown revents %08x in socket, terminating\n"), 550 _("FATAL: unknown revents %08x in socket, terminating\n"),
554 revents); 551 revents);
555 exit (1); 552 exit (EXIT_FAILURE);
556 } 553 }
557} 554}
558 555
559void 556void
560vpn::tap_ev (io_watcher &w, short revents) 557vpn::tap_ev (io_watcher &w, short revents)
561{ 558{
562 if (revents & POLLIN) 559 if (revents & EVENT_READ)
563 { 560 {
564 /* process data */ 561 /* process data */
565 tap_packet *pkt; 562 tap_packet *pkt;
566 563
567 pkt = tap->recv (); 564 pkt = tap->recv ();
568 565
566 if (!pkt)
567 return;
568
569 if (pkt->len > 14)
570 {
569 int dst = mac2id (pkt->dst); 571 int dst = mac2id (pkt->dst);
570 int src = mac2id (pkt->src); 572 int src = mac2id (pkt->src);
571 573
572 if (src != THISNODE->id) 574 if (src != THISNODE->id)
573 {
574 slog (L_ERR, _("FATAL: tap packet not originating on current node received, exiting."));
575 exit (1);
576 }
577
578 if (dst == THISNODE->id)
579 {
580 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting."));
581 exit (1);
582 }
583
584 if (dst > conns.size ())
585 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
586 else
587 {
588 if (dst)
589 { 575 {
590 // unicast 576 slog (L_ERR, _("FATAL: tap packet not originating on current node received, exiting."));
591 if (dst != THISNODE->id) 577 exit (EXIT_FAILURE);
592 conns[dst - 1]->inject_data_packet (pkt);
593 } 578 }
579
580 if (dst == THISNODE->id)
581 {
582 slog (L_ERR, _("FATAL: tap packet destined for current node received, exiting."));
583 exit (EXIT_FAILURE);
584 }
585
586 if (dst > conns.size ())
587 slog (L_ERR, _("tap packet for unknown node %d received, ignoring."), dst);
594 else 588 else
595 {
596 // broadcast, this is ugly, but due to the security policy
597 // we have to connect to all hosts...
598 for (conns_vector::iterator c = conns.begin (); c != conns.end (); ++c)
599 if ((*c)->conf != THISNODE)
600 (*c)->inject_data_packet (pkt); 589 inject_data_packet (pkt, dst);
601 }
602 } 590 }
603 591
604 delete pkt; 592 delete pkt;
605 }
606 else if (revents & (POLLHUP | POLLERR))
607 {
608 slog (L_ERR, _("FATAL: POLLHUP or POLLERR on network device fd, terminating."));
609 exit (1);
610 } 593 }
611 else 594 else
612 abort (); 595 abort ();
613} 596}
614 597
620 if (events & EVENT_SHUTDOWN) 603 if (events & EVENT_SHUTDOWN)
621 { 604 {
622 slog (L_INFO, _("preparing shutdown...")); 605 slog (L_INFO, _("preparing shutdown..."));
623 606
624 shutdown_all (); 607 shutdown_all ();
625
626 remove_pid (pidfilename); 608 remove_pid (conf.pidfilename);
627
628 slog (L_INFO, _("terminating")); 609 slog (L_INFO, _("terminating"));
629 610 exit (EXIT_SUCCESS);
630 exit (0);
631 } 611 }
632 612
633 if (events & EVENT_RECONNECT) 613 if (events & EVENT_RECONNECT)
634 { 614 {
635 slog (L_INFO, _("forced reconnect")); 615 slog (L_INFO, _("forced reconnect"));
637 reconnect_all (); 617 reconnect_all ();
638 } 618 }
639 619
640 events = 0; 620 events = 0;
641 } 621 }
642
643 w.at = TSTAMP_CANCEL;
644} 622}
645 623
646void 624void
647vpn::shutdown_all () 625vpn::shutdown_all ()
648{ 626{
738, tcpv4_ev_watcher (this, &vpn::tcpv4_ev) 716, tcpv4_ev_watcher (this, &vpn::tcpv4_ev)
739#endif 717#endif
740#if ENABLE_ICMP 718#if ENABLE_ICMP
741, icmpv4_ev_watcher(this, &vpn::icmpv4_ev) 719, icmpv4_ev_watcher(this, &vpn::icmpv4_ev)
742#endif 720#endif
721#if ENABLE_DNS
722, dnsv4_ev_watcher (this, &vpn::dnsv4_ev)
723#endif
743, tap_ev_watcher (this, &vpn::tap_ev) 724, tap_ev_watcher (this, &vpn::tap_ev)
744{ 725{
745} 726}
746 727
747vpn::~vpn () 728vpn::~vpn ()

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines