4d8226f817e6458a760a166b62c1985f779fae80
[strongswan.git] / src / charon / sa / ike_sa.c
1 /*
2 * Copyright (C) 2006-2008 Tobias Brunner
3 * Copyright (C) 2006 Daniel Roethlisberger
4 * Copyright (C) 2005-2006 Martin Willi
5 * Copyright (C) 2005 Jan Hutter
6 * Hochschule fuer Technik Rapperswil
7 *
8 * This program is free software; you can redistribute it and/or modify it
9 * under the terms of the GNU General Public License as published by the
10 * Free Software Foundation; either version 2 of the License, or (at your
11 * option) any later version. See <http://www.fsf.org/copyleft/gpl.txt>.
12 *
13 * This program is distributed in the hope that it will be useful, but
14 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 * for more details.
17 *
18 * $Id$
19 */
20
21 #include <sys/time.h>
22 #include <string.h>
23 #include <printf.h>
24 #include <sys/stat.h>
25 #include <errno.h>
26
27 #include "ike_sa.h"
28
29 #include <library.h>
30 #include <daemon.h>
31 #include <utils/linked_list.h>
32 #include <utils/lexparser.h>
33 #include <crypto/diffie_hellman.h>
34 #include <crypto/prf_plus.h>
35 #include <crypto/crypters/crypter.h>
36 #include <crypto/hashers/hasher.h>
37 #include <encoding/payloads/sa_payload.h>
38 #include <encoding/payloads/nonce_payload.h>
39 #include <encoding/payloads/ke_payload.h>
40 #include <encoding/payloads/delete_payload.h>
41 #include <encoding/payloads/transform_substructure.h>
42 #include <encoding/payloads/transform_attribute.h>
43 #include <encoding/payloads/ts_payload.h>
44 #include <sa/task_manager.h>
45 #include <sa/tasks/ike_init.h>
46 #include <sa/tasks/ike_natd.h>
47 #include <sa/tasks/ike_mobike.h>
48 #include <sa/tasks/ike_auth.h>
49 #include <sa/tasks/ike_auth_lifetime.h>
50 #include <sa/tasks/ike_config.h>
51 #include <sa/tasks/ike_cert_pre.h>
52 #include <sa/tasks/ike_cert_post.h>
53 #include <sa/tasks/ike_rekey.h>
54 #include <sa/tasks/ike_reauth.h>
55 #include <sa/tasks/ike_delete.h>
56 #include <sa/tasks/ike_dpd.h>
57 #include <sa/tasks/child_create.h>
58 #include <sa/tasks/child_delete.h>
59 #include <sa/tasks/child_rekey.h>
60 #include <processing/jobs/retransmit_job.h>
61 #include <processing/jobs/delete_ike_sa_job.h>
62 #include <processing/jobs/send_dpd_job.h>
63 #include <processing/jobs/send_keepalive_job.h>
64 #include <processing/jobs/rekey_ike_sa_job.h>
65
66 #ifdef ME
67 #include <sa/tasks/ike_me.h>
68 #include <processing/jobs/initiate_mediation_job.h>
69 #endif
70
71 #ifndef RESOLV_CONF
72 #define RESOLV_CONF "/etc/resolv.conf"
73 #endif
74
75 ENUM(ike_sa_state_names, IKE_CREATED, IKE_DELETING,
76 "CREATED",
77 "CONNECTING",
78 "ESTABLISHED",
79 "REKEYING",
80 "DELETING",
81 );
82
83 typedef struct private_ike_sa_t private_ike_sa_t;
84
85 /**
86 * Private data of an ike_sa_t object.
87 */
88 struct private_ike_sa_t {
89
90 /**
91 * Public members
92 */
93 ike_sa_t public;
94
95 /**
96 * Identifier for the current IKE_SA.
97 */
98 ike_sa_id_t *ike_sa_id;
99
100 /**
101 * unique numerical ID for this IKE_SA.
102 */
103 u_int32_t unique_id;
104
105 /**
106 * Current state of the IKE_SA
107 */
108 ike_sa_state_t state;
109
110 /**
111 * IKE configuration used to set up this IKE_SA
112 */
113 ike_cfg_t *ike_cfg;
114
115 /**
116 * Peer and authentication information to establish IKE_SA.
117 */
118 peer_cfg_t *peer_cfg;
119
120 /**
121 * associated authentication/authorization info for local peer
122 */
123 auth_info_t *my_auth;
124
125 /**
126 * associated authentication/authorization info for remote peer
127 */
128 auth_info_t *other_auth;
129
130 /**
131 * Juggles tasks to process messages
132 */
133 task_manager_t *task_manager;
134
135 /**
136 * Address of local host
137 */
138 host_t *my_host;
139
140 /**
141 * Address of remote host
142 */
143 host_t *other_host;
144
145 #ifdef ME
146 /**
147 * Are we mediation server
148 */
149 bool is_mediation_server;
150
151 /**
152 * Server reflexive host
153 */
154 host_t *server_reflexive_host;
155
156 /**
157 * Connect ID
158 */
159 chunk_t connect_id;
160 #endif /* ME */
161
162 /**
163 * Identification used for us
164 */
165 identification_t *my_id;
166
167 /**
168 * Identification used for other
169 */
170 identification_t *other_id;
171
172 /**
173 * set of extensions the peer supports
174 */
175 ike_extension_t extensions;
176
177 /**
178 * set of condition flags currently enabled for this IKE_SA
179 */
180 ike_condition_t conditions;
181
182 /**
183 * Linked List containing the child sa's of the current IKE_SA.
184 */
185 linked_list_t *child_sas;
186
187 /**
188 * crypter for inbound traffic
189 */
190 crypter_t *crypter_in;
191
192 /**
193 * crypter for outbound traffic
194 */
195 crypter_t *crypter_out;
196
197 /**
198 * Signer for inbound traffic
199 */
200 signer_t *signer_in;
201
202 /**
203 * Signer for outbound traffic
204 */
205 signer_t *signer_out;
206
207 /**
208 * Multi purpose prf, set key, use it, forget it
209 */
210 prf_t *prf;
211
212 /**
213 * Prf function for derivating keymat child SAs
214 */
215 prf_t *child_prf;
216
217 /**
218 * Key to build outging authentication data (SKp)
219 */
220 chunk_t skp_build;
221
222 /**
223 * Key to verify incoming authentication data (SKp)
224 */
225 chunk_t skp_verify;
226
227 /**
228 * Virtual IP on local host, if any
229 */
230 host_t *my_virtual_ip;
231
232 /**
233 * Virtual IP on remote host, if any
234 */
235 host_t *other_virtual_ip;
236
237 /**
238 * List of DNS servers installed by us
239 */
240 linked_list_t *dns_servers;
241
242 /**
243 * list of peers additional addresses, transmitted via MOBIKE
244 */
245 linked_list_t *additional_addresses;
246
247 /**
248 * number pending UPDATE_SA_ADDRESS (MOBIKE)
249 */
250 u_int32_t pending_updates;
251
252 /**
253 * Timestamps for this IKE_SA
254 */
255 struct {
256 /** last IKE message received */
257 u_int32_t inbound;
258 /** last IKE message sent */
259 u_int32_t outbound;
260 /** when IKE_SA became established */
261 u_int32_t established;
262 /** when IKE_SA gets rekeyed */
263 u_int32_t rekey;
264 /** when IKE_SA gets reauthenticated */
265 u_int32_t reauth;
266 /** when IKE_SA gets deleted */
267 u_int32_t delete;
268 } time;
269
270 /**
271 * how many times we have retried so far (keyingtries)
272 */
273 u_int32_t keyingtry;
274
275 /**
276 * are we the initiator of this IKE_SA (rekeying does not affect this flag)
277 */
278 bool ike_initiator;
279 };
280
281 /**
282 * get the time of the latest traffic processed by the kernel
283 */
284 static time_t get_use_time(private_ike_sa_t* this, bool inbound)
285 {
286 iterator_t *iterator;
287 child_sa_t *child_sa;
288 time_t latest = 0, use_time;
289
290 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
291 while (iterator->iterate(iterator, (void**)&child_sa))
292 {
293 if (child_sa->get_use_time(child_sa, inbound, &use_time) == SUCCESS)
294 {
295 latest = max(latest, use_time);
296 }
297 }
298 iterator->destroy(iterator);
299
300 if (inbound)
301 {
302 return max(this->time.inbound, latest);
303 }
304 else
305 {
306 return max(this->time.outbound, latest);
307 }
308 }
309
310 /**
311 * Implementation of ike_sa_t.get_unique_id
312 */
313 static u_int32_t get_unique_id(private_ike_sa_t *this)
314 {
315 return this->unique_id;
316 }
317
318 /**
319 * Implementation of ike_sa_t.get_name.
320 */
321 static char *get_name(private_ike_sa_t *this)
322 {
323 if (this->peer_cfg)
324 {
325 return this->peer_cfg->get_name(this->peer_cfg);
326 }
327 return "(unnamed)";
328 }
329
330 /**
331 * Implementation of ike_sa_t.get_statistic.
332 */
333 static u_int32_t get_statistic(private_ike_sa_t *this, statistic_t kind)
334 {
335 time_t now = time(NULL);
336
337 switch (kind)
338 {
339 case STAT_REKEY_TIME:
340 if (this->time.rekey > now)
341 {
342 return this->time.rekey - now;
343 }
344 break;
345 case STAT_REAUTH_TIME:
346 if (this->time.reauth > now)
347 {
348 return this->time.reauth - now;
349 }
350 break;
351 default:
352 break;
353 }
354 return 0;
355 }
356
357 /**
358 * Implementation of ike_sa_t.get_my_host.
359 */
360 static host_t *get_my_host(private_ike_sa_t *this)
361 {
362 return this->my_host;
363 }
364
365 /**
366 * Implementation of ike_sa_t.set_my_host.
367 */
368 static void set_my_host(private_ike_sa_t *this, host_t *me)
369 {
370 DESTROY_IF(this->my_host);
371 this->my_host = me;
372 }
373
374 /**
375 * Implementation of ike_sa_t.get_other_host.
376 */
377 static host_t *get_other_host(private_ike_sa_t *this)
378 {
379 return this->other_host;
380 }
381
382 /**
383 * Implementation of ike_sa_t.set_other_host.
384 */
385 static void set_other_host(private_ike_sa_t *this, host_t *other)
386 {
387 DESTROY_IF(this->other_host);
388 this->other_host = other;
389 }
390
391 /**
392 * Implementation of ike_sa_t.get_peer_cfg
393 */
394 static peer_cfg_t* get_peer_cfg(private_ike_sa_t *this)
395 {
396 return this->peer_cfg;
397 }
398
399 /**
400 * Implementation of ike_sa_t.set_peer_cfg
401 */
402 static void set_peer_cfg(private_ike_sa_t *this, peer_cfg_t *peer_cfg)
403 {
404 DESTROY_IF(this->peer_cfg);
405 peer_cfg->get_ref(peer_cfg);
406 this->peer_cfg = peer_cfg;
407
408 if (this->ike_cfg == NULL)
409 {
410 this->ike_cfg = peer_cfg->get_ike_cfg(peer_cfg);
411 this->ike_cfg->get_ref(this->ike_cfg);
412 }
413
414 /* apply values, so we are ready to initate/acquire */
415 if (this->my_host->is_anyaddr(this->my_host))
416 {
417 host_t *me = this->ike_cfg->get_my_host(this->ike_cfg);
418 set_my_host(this, me->clone(me));
419 }
420 if (this->other_host->is_anyaddr(this->other_host))
421 {
422 host_t *other = this->ike_cfg->get_other_host(this->ike_cfg);
423 set_other_host(this, other->clone(other));
424 }
425 /* apply IDs if they are not already set */
426 if (this->my_id->contains_wildcards(this->my_id))
427 {
428 DESTROY_IF(this->my_id);
429 this->my_id = this->peer_cfg->get_my_id(this->peer_cfg);
430 this->my_id = this->my_id->clone(this->my_id);
431 }
432 if (this->other_id->contains_wildcards(this->other_id))
433 {
434 DESTROY_IF(this->other_id);
435 this->other_id = this->peer_cfg->get_other_id(this->peer_cfg);
436 this->other_id = this->other_id->clone(this->other_id);
437 }
438 }
439
440 /**
441 * Implementation of ike_sa_t.get_my_auth.
442 */
443 static auth_info_t* get_my_auth(private_ike_sa_t *this)
444 {
445 return this->my_auth;
446 }
447
448 /**
449 * Implementation of ike_sa_t.get_other_auth.
450 */
451 static auth_info_t* get_other_auth(private_ike_sa_t *this)
452 {
453 return this->other_auth;
454 }
455
456 /**
457 * Implementation of ike_sa_t.send_keepalive
458 */
459 static void send_keepalive(private_ike_sa_t *this)
460 {
461 send_keepalive_job_t *job;
462 time_t last_out, now, diff;
463
464 if (!(this->conditions & COND_NAT_HERE))
465 { /* disable keep alives if we are not NATed anymore */
466 return;
467 }
468
469 last_out = get_use_time(this, FALSE);
470 now = time(NULL);
471
472 diff = now - last_out;
473
474 if (diff >= KEEPALIVE_INTERVAL)
475 {
476 packet_t *packet;
477 chunk_t data;
478
479 packet = packet_create();
480 packet->set_source(packet, this->my_host->clone(this->my_host));
481 packet->set_destination(packet, this->other_host->clone(this->other_host));
482 data.ptr = malloc(1);
483 data.ptr[0] = 0xFF;
484 data.len = 1;
485 packet->set_data(packet, data);
486 DBG1(DBG_IKE, "sending keep alive");
487 charon->sender->send(charon->sender, packet);
488 diff = 0;
489 }
490 job = send_keepalive_job_create(this->ike_sa_id);
491 charon->scheduler->schedule_job(charon->scheduler, (job_t*)job,
492 (KEEPALIVE_INTERVAL - diff) * 1000);
493 }
494
495 /**
496 * Implementation of ike_sa_t.get_ike_cfg
497 */
498 static ike_cfg_t *get_ike_cfg(private_ike_sa_t *this)
499 {
500 return this->ike_cfg;
501 }
502
503 /**
504 * Implementation of ike_sa_t.set_ike_cfg
505 */
506 static void set_ike_cfg(private_ike_sa_t *this, ike_cfg_t *ike_cfg)
507 {
508 ike_cfg->get_ref(ike_cfg);
509 this->ike_cfg = ike_cfg;
510 }
511
512 /**
513 * Implementation of ike_sa_t.is_ike_initiator
514 */
515 static bool is_ike_initiator(private_ike_sa_t *this)
516 {
517 return this->ike_initiator;
518 }
519
520 /**
521 * Implementation of ike_sa_t.enable_extension.
522 */
523 static void enable_extension(private_ike_sa_t *this, ike_extension_t extension)
524 {
525 this->extensions |= extension;
526 }
527
528 /**
529 * Implementation of ike_sa_t.has_extension.
530 */
531 static bool supports_extension(private_ike_sa_t *this, ike_extension_t extension)
532 {
533 return (this->extensions & extension) != FALSE;
534 }
535
536 /**
537 * Implementation of ike_sa_t.has_condition.
538 */
539 static bool has_condition(private_ike_sa_t *this, ike_condition_t condition)
540 {
541 return (this->conditions & condition) != FALSE;
542 }
543
544 /**
545 * Implementation of ike_sa_t.enable_condition.
546 */
547 static void set_condition(private_ike_sa_t *this, ike_condition_t condition,
548 bool enable)
549 {
550 if (has_condition(this, condition) != enable)
551 {
552 if (enable)
553 {
554 this->conditions |= condition;
555 switch (condition)
556 {
557 case COND_NAT_HERE:
558 DBG1(DBG_IKE, "local host is behind NAT, sending keep alives");
559 this->conditions |= COND_NAT_ANY;
560 send_keepalive(this);
561 break;
562 case COND_NAT_THERE:
563 DBG1(DBG_IKE, "remote host is behind NAT");
564 this->conditions |= COND_NAT_ANY;
565 break;
566 case COND_NAT_FAKE:
567 DBG1(DBG_IKE, "faking NAT situation to enforce UDP encapsulation");
568 this->conditions |= COND_NAT_ANY;
569 break;
570 default:
571 break;
572 }
573 }
574 else
575 {
576 this->conditions &= ~condition;
577 switch (condition)
578 {
579 case COND_NAT_HERE:
580 case COND_NAT_FAKE:
581 case COND_NAT_THERE:
582 set_condition(this, COND_NAT_ANY,
583 has_condition(this, COND_NAT_HERE) ||
584 has_condition(this, COND_NAT_THERE) ||
585 has_condition(this, COND_NAT_FAKE));
586 break;
587 default:
588 break;
589 }
590 }
591 }
592 }
593
594 /**
595 * Implementation of ike_sa_t.send_dpd
596 */
597 static status_t send_dpd(private_ike_sa_t *this)
598 {
599 send_dpd_job_t *job;
600 time_t diff, delay;
601
602 delay = this->peer_cfg->get_dpd_delay(this->peer_cfg);
603
604 if (delay == 0)
605 {
606 /* DPD disabled */
607 return SUCCESS;
608 }
609
610 if (this->task_manager->busy(this->task_manager))
611 {
612 /* an exchange is in the air, no need to start a DPD check */
613 diff = 0;
614 }
615 else
616 {
617 /* check if there was any inbound traffic */
618 time_t last_in, now;
619 last_in = get_use_time(this, TRUE);
620 now = time(NULL);
621 diff = now - last_in;
622 if (diff >= delay)
623 {
624 /* to long ago, initiate dead peer detection */
625 task_t *task;
626
627 task = (task_t*)ike_dpd_create(TRUE);
628 diff = 0;
629 DBG1(DBG_IKE, "sending DPD request");
630
631 this->task_manager->queue_task(this->task_manager, task);
632 this->task_manager->initiate(this->task_manager);
633 }
634 }
635 /* recheck in "interval" seconds */
636 job = send_dpd_job_create(this->ike_sa_id);
637 charon->scheduler->schedule_job(charon->scheduler, (job_t*)job,
638 (delay - diff) * 1000);
639 return SUCCESS;
640 }
641
642 /**
643 * Implementation of ike_sa_t.get_state.
644 */
645 static ike_sa_state_t get_state(private_ike_sa_t *this)
646 {
647 return this->state;
648 }
649
650 /**
651 * Implementation of ike_sa_t.set_state.
652 */
653 static void set_state(private_ike_sa_t *this, ike_sa_state_t state)
654 {
655 DBG1(DBG_IKE, "IKE_SA '%s' state change: %N => %N",
656 get_name(this),
657 ike_sa_state_names, this->state,
658 ike_sa_state_names, state);
659
660 switch (state)
661 {
662 case IKE_ESTABLISHED:
663 {
664 if (this->state == IKE_CONNECTING)
665 {
666 job_t *job;
667 u_int32_t t;
668
669 /* calculate rekey, reauth and lifetime */
670 this->time.established = time(NULL);
671
672 /* schedule rekeying if we have a time which is smaller than
673 * an already scheduled rekeying */
674 t = this->peer_cfg->get_rekey_time(this->peer_cfg);
675 if (t && (this->time.rekey == 0 ||
676 (this->time.rekey > t + this->time.established)))
677 {
678 this->time.rekey = t + this->time.established;
679 job = (job_t*)rekey_ike_sa_job_create(this->ike_sa_id, FALSE);
680 charon->scheduler->schedule_job(charon->scheduler,
681 job, t * 1000);
682 DBG1(DBG_IKE, "scheduling rekeying in %ds", t);
683 }
684 t = this->peer_cfg->get_reauth_time(this->peer_cfg);
685 if (t && (this->time.reauth == 0 ||
686 (this->time.reauth > t + this->time.established)))
687 {
688 this->time.reauth = t + this->time.established;
689 job = (job_t*)rekey_ike_sa_job_create(this->ike_sa_id, TRUE);
690 charon->scheduler->schedule_job(charon->scheduler,
691 job, t * 1000);
692 DBG1(DBG_IKE, "scheduling reauthentication in %ds", t);
693 }
694 t = this->peer_cfg->get_over_time(this->peer_cfg);
695 if (this->time.rekey || this->time.reauth)
696 {
697 if (this->time.reauth == 0)
698 {
699 this->time.delete = this->time.rekey;
700 }
701 else if (this->time.rekey == 0)
702 {
703 this->time.delete = this->time.reauth;
704 }
705 else
706 {
707 this->time.delete = min(this->time.rekey, this->time.reauth);
708 }
709 this->time.delete += t;
710 t = this->time.delete - this->time.established;
711 job = (job_t*)delete_ike_sa_job_create(this->ike_sa_id, TRUE);
712 charon->scheduler->schedule_job(charon->scheduler, job,
713 t * 1000);
714 DBG1(DBG_IKE, "maximum IKE_SA lifetime %ds", t);
715 }
716
717 /* start DPD checks */
718 send_dpd(this);
719 }
720 break;
721 }
722 case IKE_DELETING:
723 {
724 /* delete may fail if a packet gets lost, so set a timeout */
725 job_t *job = (job_t*)delete_ike_sa_job_create(this->ike_sa_id, TRUE);
726 charon->scheduler->schedule_job(charon->scheduler, job,
727 HALF_OPEN_IKE_SA_TIMEOUT);
728 break;
729 }
730 default:
731 break;
732 }
733
734 this->state = state;
735 }
736
737 /**
738 * Implementation of ike_sa_t.reset
739 */
740 static void reset(private_ike_sa_t *this)
741 {
742 /* the responder ID is reset, as peer may choose another one */
743 if (this->ike_sa_id->is_initiator(this->ike_sa_id))
744 {
745 this->ike_sa_id->set_responder_spi(this->ike_sa_id, 0);
746 }
747
748 set_state(this, IKE_CREATED);
749
750 this->task_manager->reset(this->task_manager);
751 }
752
753 /**
754 * Implementation of ike_sa_t.set_virtual_ip
755 */
756 static void set_virtual_ip(private_ike_sa_t *this, bool local, host_t *ip)
757 {
758 if (local)
759 {
760 DBG1(DBG_IKE, "installing new virtual IP %H", ip);
761 if (charon->kernel_interface->add_ip(charon->kernel_interface, ip,
762 this->my_host) == SUCCESS)
763 {
764 if (this->my_virtual_ip)
765 {
766 DBG1(DBG_IKE, "removing old virtual IP %H", this->my_virtual_ip);
767 charon->kernel_interface->del_ip(charon->kernel_interface,
768 this->my_virtual_ip);
769 }
770 DESTROY_IF(this->my_virtual_ip);
771 this->my_virtual_ip = ip->clone(ip);
772 }
773 else
774 {
775 DBG1(DBG_IKE, "installing virtual IP %H failed", ip);
776 this->my_virtual_ip = NULL;
777 }
778 }
779 else
780 {
781 DESTROY_IF(this->other_virtual_ip);
782 this->other_virtual_ip = ip->clone(ip);
783 }
784 }
785
786 /**
787 * Implementation of ike_sa_t.get_virtual_ip
788 */
789 static host_t* get_virtual_ip(private_ike_sa_t *this, bool local)
790 {
791 if (local)
792 {
793 return this->my_virtual_ip;
794 }
795 else
796 {
797 return this->other_virtual_ip;
798 }
799 }
800
801 /**
802 * Implementation of ike_sa_t.add_additional_address.
803 */
804 static void add_additional_address(private_ike_sa_t *this, host_t *host)
805 {
806 this->additional_addresses->insert_last(this->additional_addresses, host);
807 }
808
809 /**
810 * Implementation of ike_sa_t.create_additional_address_iterator.
811 */
812 static iterator_t* create_additional_address_iterator(private_ike_sa_t *this)
813 {
814 return this->additional_addresses->create_iterator(
815 this->additional_addresses, TRUE);
816 }
817
818 /**
819 * Implementation of ike_sa_t.set_pending_updates.
820 */
821 static void set_pending_updates(private_ike_sa_t *this, u_int32_t updates)
822 {
823 this->pending_updates = updates;
824 }
825
826 /**
827 * Implementation of ike_sa_t.get_pending_updates.
828 */
829 static u_int32_t get_pending_updates(private_ike_sa_t *this)
830 {
831 return this->pending_updates;
832 }
833
834 /**
835 * Update hosts, as addresses may change (NAT)
836 */
837 static void update_hosts(private_ike_sa_t *this, host_t *me, host_t *other)
838 {
839 bool update = FALSE;
840
841 if (supports_extension(this, EXT_MOBIKE))
842 { /* if peer speaks mobike, address updates are explicit only */
843 return;
844 }
845
846 if (me == NULL)
847 {
848 me = this->my_host;
849 }
850 if (other == NULL)
851 {
852 other = this->other_host;
853 }
854
855 /* apply hosts on first received message */
856 if (this->my_host->is_anyaddr(this->my_host) ||
857 this->other_host->is_anyaddr(this->other_host))
858 {
859 set_my_host(this, me->clone(me));
860 set_other_host(this, other->clone(other));
861 update = TRUE;
862 }
863 else
864 {
865 /* update our address in any case */
866 if (!me->equals(me, this->my_host))
867 {
868 set_my_host(this, me->clone(me));
869 update = TRUE;
870 }
871
872 if (!other->equals(other, this->other_host))
873 {
874 /* update others adress if we are NOT NATed,
875 * and allow port changes if we are NATed */
876 if (!has_condition(this, COND_NAT_HERE) ||
877 other->ip_equals(other, this->other_host))
878 {
879 set_other_host(this, other->clone(other));
880 update = TRUE;
881 }
882 }
883 }
884
885 /* update all associated CHILD_SAs, if required */
886 if (update)
887 {
888 iterator_t *iterator;
889 child_sa_t *child_sa;
890
891 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
892 while (iterator->iterate(iterator, (void**)&child_sa))
893 {
894 child_sa->update_hosts(child_sa, this->my_host, this->other_host,
895 has_condition(this, COND_NAT_ANY));
896 }
897 iterator->destroy(iterator);
898 }
899 }
900
901 /**
902 * Implementation of ike_sa_t.generate
903 */
904 static status_t generate_message(private_ike_sa_t *this, message_t *message,
905 packet_t **packet)
906 {
907 this->time.outbound = time(NULL);
908 message->set_ike_sa_id(message, this->ike_sa_id);
909 return message->generate(message, this->crypter_out, this->signer_out, packet);
910 }
911
912 /**
913 * send a notify back to the sender
914 */
915 static void send_notify_response(private_ike_sa_t *this, message_t *request,
916 notify_type_t type)
917 {
918 message_t *response;
919 packet_t *packet;
920
921 response = message_create();
922 response->set_exchange_type(response, request->get_exchange_type(request));
923 response->set_request(response, FALSE);
924 response->set_message_id(response, request->get_message_id(request));
925 response->add_notify(response, FALSE, type, chunk_empty);
926 if (this->my_host->is_anyaddr(this->my_host))
927 {
928 this->my_host->destroy(this->my_host);
929 this->my_host = request->get_destination(request);
930 this->my_host = this->my_host->clone(this->my_host);
931 }
932 if (this->other_host->is_anyaddr(this->other_host))
933 {
934 this->other_host->destroy(this->other_host);
935 this->other_host = request->get_source(request);
936 this->other_host = this->other_host->clone(this->other_host);
937 }
938 response->set_source(response, this->my_host->clone(this->my_host));
939 response->set_destination(response, this->other_host->clone(this->other_host));
940 if (generate_message(this, response, &packet) == SUCCESS)
941 {
942 charon->sender->send(charon->sender, packet);
943 }
944 response->destroy(response);
945 }
946
947 #ifdef ME
948 /**
949 * Implementation of ike_sa_t.act_as_mediation_server.
950 */
951 static void act_as_mediation_server(private_ike_sa_t *this)
952 {
953 charon->mediation_manager->update_sa_id(charon->mediation_manager,
954 this->other_id, this->ike_sa_id);
955 this->is_mediation_server = TRUE;
956 }
957
958 /**
959 * Implementation of ike_sa_t.get_server_reflexive_host.
960 */
961 static host_t *get_server_reflexive_host(private_ike_sa_t *this)
962 {
963 return this->server_reflexive_host;
964 }
965
966 /**
967 * Implementation of ike_sa_t.set_server_reflexive_host.
968 */
969 static void set_server_reflexive_host(private_ike_sa_t *this, host_t *host)
970 {
971 DESTROY_IF(this->server_reflexive_host);
972 this->server_reflexive_host = host;
973 }
974
975 /**
976 * Implementation of ike_sa_t.get_connect_id.
977 */
978 static chunk_t get_connect_id(private_ike_sa_t *this)
979 {
980 return this->connect_id;
981 }
982
983 /**
984 * Implementation of ike_sa_t.respond
985 */
986 static status_t respond(private_ike_sa_t *this, identification_t *peer_id,
987 chunk_t connect_id)
988 {
989 ike_me_t *task = ike_me_create(&this->public, TRUE);
990 task->respond(task, peer_id, connect_id);
991 this->task_manager->queue_task(this->task_manager, (task_t*)task);
992 return this->task_manager->initiate(this->task_manager);
993 }
994
995 /**
996 * Implementation of ike_sa_t.callback
997 */
998 static status_t callback(private_ike_sa_t *this, identification_t *peer_id)
999 {
1000 ike_me_t *task = ike_me_create(&this->public, TRUE);
1001 task->callback(task, peer_id);
1002 this->task_manager->queue_task(this->task_manager, (task_t*)task);
1003 return this->task_manager->initiate(this->task_manager);
1004 }
1005
1006 /**
1007 * Implementation of ike_sa_t.relay
1008 */
1009 static status_t relay(private_ike_sa_t *this, identification_t *requester,
1010 chunk_t connect_id, chunk_t connect_key, linked_list_t *endpoints, bool response)
1011 {
1012 ike_me_t *task = ike_me_create(&this->public, TRUE);
1013 task->relay(task, requester, connect_id, connect_key, endpoints, response);
1014 this->task_manager->queue_task(this->task_manager, (task_t*)task);
1015 return this->task_manager->initiate(this->task_manager);
1016 }
1017
1018 /**
1019 * Implementation of ike_sa_t.initiate_mediation
1020 */
1021 static status_t initiate_mediation(private_ike_sa_t *this, peer_cfg_t *mediated_cfg)
1022 {
1023 ike_me_t *task = ike_me_create(&this->public, TRUE);
1024 task->connect(task, mediated_cfg->get_peer_id(mediated_cfg));
1025 this->task_manager->queue_task(this->task_manager, (task_t*)task);
1026 return this->task_manager->initiate(this->task_manager);
1027 }
1028
1029 /**
1030 * Implementation of ike_sa_t.initiate_mediated
1031 */
1032 static status_t initiate_mediated(private_ike_sa_t *this, host_t *me, host_t *other,
1033 linked_list_t *childs, chunk_t connect_id)
1034 {
1035 set_my_host(this, me->clone(me));
1036 set_other_host(this, other->clone(other));
1037 this->connect_id = chunk_clone(connect_id);
1038
1039 task_t *task;
1040 child_cfg_t *child_cfg;
1041 iterator_t *iterator = childs->create_iterator(childs, TRUE);
1042 while (iterator->iterate(iterator, (void**)&child_cfg))
1043 {
1044 task = (task_t*)child_create_create(&this->public, child_cfg);
1045 this->task_manager->queue_task(this->task_manager, task);
1046 }
1047 iterator->destroy(iterator);
1048 return this->task_manager->initiate(this->task_manager);
1049 }
1050 #endif /* ME */
1051
1052 /**
1053 * Implementation of ike_sa_t.initiate.
1054 */
1055 static status_t initiate(private_ike_sa_t *this, child_cfg_t *child_cfg)
1056 {
1057 task_t *task;
1058
1059 if (this->state == IKE_CREATED)
1060 {
1061 if (this->other_host->is_anyaddr(this->other_host)
1062 #ifdef ME
1063 && !this->peer_cfg->get_mediated_by(this->peer_cfg)
1064 #endif /* ME */
1065 )
1066 {
1067 child_cfg->destroy(child_cfg);
1068 SIG(IKE_UP_START, "initiating IKE_SA");
1069 SIG(IKE_UP_FAILED, "unable to initiate to %%any");
1070 return DESTROY_ME;
1071 }
1072
1073 this->ike_initiator = TRUE;
1074
1075 task = (task_t*)ike_init_create(&this->public, TRUE, NULL);
1076 this->task_manager->queue_task(this->task_manager, task);
1077 task = (task_t*)ike_natd_create(&this->public, TRUE);
1078 this->task_manager->queue_task(this->task_manager, task);
1079 task = (task_t*)ike_cert_pre_create(&this->public, TRUE);
1080 this->task_manager->queue_task(this->task_manager, task);
1081 task = (task_t*)ike_auth_create(&this->public, TRUE);
1082 this->task_manager->queue_task(this->task_manager, task);
1083 task = (task_t*)ike_cert_post_create(&this->public, TRUE);
1084 this->task_manager->queue_task(this->task_manager, task);
1085 task = (task_t*)ike_config_create(&this->public, TRUE);
1086 this->task_manager->queue_task(this->task_manager, task);
1087 task = (task_t*)ike_auth_lifetime_create(&this->public, TRUE);
1088 this->task_manager->queue_task(this->task_manager, task);
1089 if (this->peer_cfg->use_mobike(this->peer_cfg))
1090 {
1091 task = (task_t*)ike_mobike_create(&this->public, TRUE);
1092 this->task_manager->queue_task(this->task_manager, task);
1093 }
1094 #ifdef ME
1095 task = (task_t*)ike_me_create(&this->public, TRUE);
1096 this->task_manager->queue_task(this->task_manager, task);
1097 #endif /* ME */
1098 }
1099
1100 #ifdef ME
1101 if (this->peer_cfg->get_mediated_by(this->peer_cfg))
1102 {
1103 /* mediated connection, initiate mediation process */
1104 job_t *job = (job_t*)initiate_mediation_job_create(this->ike_sa_id, child_cfg);
1105 child_cfg->destroy(child_cfg);
1106 charon->processor->queue_job(charon->processor, job);
1107 return SUCCESS;
1108 }
1109 else if (this->peer_cfg->is_mediation(this->peer_cfg))
1110 {
1111 if (this->state == IKE_ESTABLISHED)
1112 { /* FIXME: we should try to find a better solution to this */
1113 SIG(CHILD_UP_SUCCESS, "mediation connection is already up and running");
1114 }
1115 DESTROY_IF(child_cfg);
1116 }
1117 else
1118 #endif /* ME */
1119 {
1120 /* normal IKE_SA with CHILD_SA */
1121 task = (task_t*)child_create_create(&this->public, child_cfg);
1122 child_cfg->destroy(child_cfg);
1123 this->task_manager->queue_task(this->task_manager, task);
1124 }
1125
1126 return this->task_manager->initiate(this->task_manager);
1127 }
1128
1129 /**
1130 * Implementation of ike_sa_t.acquire.
1131 */
1132 static status_t acquire(private_ike_sa_t *this, u_int32_t reqid)
1133 { /* FIXME: IKE-ME */
1134 child_cfg_t *child_cfg;
1135 iterator_t *iterator;
1136 child_sa_t *current, *child_sa = NULL;
1137 task_t *task;
1138 child_create_t *child_create;
1139
1140 if (this->state == IKE_DELETING)
1141 {
1142 SIG(CHILD_UP_START, "acquiring CHILD_SA on kernel request");
1143 SIG(CHILD_UP_FAILED, "acquiring CHILD_SA (reqid %d) failed: "
1144 "IKE_SA is deleting", reqid);
1145 return FAILED;
1146 }
1147
1148 /* find CHILD_SA */
1149 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1150 while (iterator->iterate(iterator, (void**)&current))
1151 {
1152 if (current->get_reqid(current) == reqid)
1153 {
1154 child_sa = current;
1155 break;
1156 }
1157 }
1158 iterator->destroy(iterator);
1159 if (!child_sa)
1160 {
1161 SIG(CHILD_UP_START, "acquiring CHILD_SA on kernel request");
1162 SIG(CHILD_UP_FAILED, "acquiring CHILD_SA (reqid %d) failed: "
1163 "CHILD_SA not found", reqid);
1164 return FAILED;
1165 }
1166
1167
1168 if (this->state == IKE_CREATED)
1169 {
1170 task = (task_t*)ike_init_create(&this->public, TRUE, NULL);
1171 this->task_manager->queue_task(this->task_manager, task);
1172 task = (task_t*)ike_natd_create(&this->public, TRUE);
1173 this->task_manager->queue_task(this->task_manager, task);
1174 task = (task_t*)ike_cert_pre_create(&this->public, TRUE);
1175 this->task_manager->queue_task(this->task_manager, task);
1176 task = (task_t*)ike_auth_create(&this->public, TRUE);
1177 this->task_manager->queue_task(this->task_manager, task);
1178 task = (task_t*)ike_cert_post_create(&this->public, TRUE);
1179 this->task_manager->queue_task(this->task_manager, task);
1180 task = (task_t*)ike_config_create(&this->public, TRUE);
1181 this->task_manager->queue_task(this->task_manager, task);
1182 task = (task_t*)ike_auth_lifetime_create(&this->public, TRUE);
1183 this->task_manager->queue_task(this->task_manager, task);
1184 if (this->peer_cfg->use_mobike(this->peer_cfg))
1185 {
1186 task = (task_t*)ike_mobike_create(&this->public, TRUE);
1187 this->task_manager->queue_task(this->task_manager, task);
1188 }
1189 }
1190
1191 child_cfg = child_sa->get_config(child_sa);
1192 child_create = child_create_create(&this->public, child_cfg);
1193 child_create->use_reqid(child_create, reqid);
1194 this->task_manager->queue_task(this->task_manager, (task_t*)child_create);
1195
1196 return this->task_manager->initiate(this->task_manager);
1197 }
1198
1199 /**
1200 * Implementation of ike_sa_t.route.
1201 */
1202 static status_t route(private_ike_sa_t *this, child_cfg_t *child_cfg)
1203 {
1204 child_sa_t *child_sa;
1205 iterator_t *iterator;
1206 linked_list_t *my_ts, *other_ts;
1207 host_t *me, *other;
1208 status_t status;
1209
1210 SIG(CHILD_ROUTE_START, "routing CHILD_SA");
1211
1212 /* check if not already routed*/
1213 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1214 while (iterator->iterate(iterator, (void**)&child_sa))
1215 {
1216 if (child_sa->get_state(child_sa) == CHILD_ROUTED &&
1217 streq(child_sa->get_name(child_sa), child_cfg->get_name(child_cfg)))
1218 {
1219 iterator->destroy(iterator);
1220 SIG(CHILD_ROUTE_FAILED, "CHILD_SA with such a config already routed");
1221 return FAILED;
1222 }
1223 }
1224 iterator->destroy(iterator);
1225
1226 switch (this->state)
1227 {
1228 case IKE_DELETING:
1229 case IKE_REKEYING:
1230 SIG(CHILD_ROUTE_FAILED,
1231 "unable to route CHILD_SA, as its IKE_SA gets deleted");
1232 return FAILED;
1233 case IKE_CREATED:
1234 case IKE_CONNECTING:
1235 case IKE_ESTABLISHED:
1236 default:
1237 break;
1238 }
1239
1240 /* install kernel policies */
1241 child_sa = child_sa_create(this->my_host, this->other_host, this->my_id,
1242 this->other_id, child_cfg, FALSE, 0);
1243 me = this->my_host;
1244 if (this->my_virtual_ip)
1245 {
1246 me = this->my_virtual_ip;
1247 }
1248 other = this->other_host;
1249 if (this->other_virtual_ip)
1250 {
1251 other = this->other_virtual_ip;
1252 }
1253
1254 my_ts = child_cfg->get_traffic_selectors(child_cfg, TRUE, NULL, me);
1255 other_ts = child_cfg->get_traffic_selectors(child_cfg, FALSE, NULL, other);
1256 status = child_sa->add_policies(child_sa, my_ts, other_ts,
1257 child_cfg->get_mode(child_cfg));
1258 my_ts->destroy_offset(my_ts, offsetof(traffic_selector_t, destroy));
1259 other_ts->destroy_offset(other_ts, offsetof(traffic_selector_t, destroy));
1260 if (status == SUCCESS)
1261 {
1262 this->child_sas->insert_last(this->child_sas, child_sa);
1263 SIG(CHILD_ROUTE_SUCCESS, "CHILD_SA routed");
1264 }
1265 else
1266 {
1267 SIG(CHILD_ROUTE_FAILED, "routing CHILD_SA failed");
1268 }
1269 return status;
1270 }
1271
1272 /**
1273 * Implementation of ike_sa_t.unroute.
1274 */
1275 static status_t unroute(private_ike_sa_t *this, u_int32_t reqid)
1276 {
1277 iterator_t *iterator;
1278 child_sa_t *child_sa;
1279 bool found = FALSE;
1280
1281 SIG(CHILD_UNROUTE_START, "unrouting CHILD_SA");
1282
1283 /* find CHILD_SA in ROUTED state */
1284 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1285 while (iterator->iterate(iterator, (void**)&child_sa))
1286 {
1287 if (child_sa->get_state(child_sa) == CHILD_ROUTED &&
1288 child_sa->get_reqid(child_sa) == reqid)
1289 {
1290 iterator->remove(iterator);
1291 SIG(CHILD_UNROUTE_SUCCESS, "CHILD_SA unrouted");
1292 child_sa->destroy(child_sa);
1293 found = TRUE;
1294 break;
1295 }
1296 }
1297 iterator->destroy(iterator);
1298
1299 if (!found)
1300 {
1301 SIG(CHILD_UNROUTE_FAILED, "CHILD_SA to unroute not found");
1302 return FAILED;
1303 }
1304 /* if we are not established, and we have no more routed childs, remove whole SA */
1305 if (this->state == IKE_CREATED &&
1306 this->child_sas->get_count(this->child_sas) == 0)
1307 {
1308 return DESTROY_ME;
1309 }
1310 return SUCCESS;
1311 }
1312 /**
1313 * Implementation of ike_sa_t.process_message.
1314 */
1315 static status_t process_message(private_ike_sa_t *this, message_t *message)
1316 {
1317 status_t status;
1318 bool is_request;
1319
1320 is_request = message->get_request(message);
1321
1322 status = message->parse_body(message, this->crypter_in, this->signer_in);
1323 if (status != SUCCESS)
1324 {
1325
1326 if (is_request)
1327 {
1328 switch (status)
1329 {
1330 case NOT_SUPPORTED:
1331 DBG1(DBG_IKE, "ciritcal unknown payloads found");
1332 if (is_request)
1333 {
1334 send_notify_response(this, message, UNSUPPORTED_CRITICAL_PAYLOAD);
1335 }
1336 break;
1337 case PARSE_ERROR:
1338 DBG1(DBG_IKE, "message parsing failed");
1339 if (is_request)
1340 {
1341 send_notify_response(this, message, INVALID_SYNTAX);
1342 }
1343 break;
1344 case VERIFY_ERROR:
1345 DBG1(DBG_IKE, "message verification failed");
1346 if (is_request)
1347 {
1348 send_notify_response(this, message, INVALID_SYNTAX);
1349 }
1350 break;
1351 case FAILED:
1352 DBG1(DBG_IKE, "integrity check failed");
1353 /* ignored */
1354 break;
1355 case INVALID_STATE:
1356 DBG1(DBG_IKE, "found encrypted message, but no keys available");
1357 if (is_request)
1358 {
1359 send_notify_response(this, message, INVALID_SYNTAX);
1360 }
1361 default:
1362 break;
1363 }
1364 }
1365 DBG1(DBG_IKE, "%N %s with message ID %d processing failed",
1366 exchange_type_names, message->get_exchange_type(message),
1367 message->get_request(message) ? "request" : "response",
1368 message->get_message_id(message));
1369 return status;
1370 }
1371 else
1372 {
1373 host_t *me, *other;
1374 private_ike_sa_t *new;
1375 iterator_t *iterator;
1376 child_sa_t *child;
1377 bool has_routed = FALSE;
1378
1379 me = message->get_destination(message);
1380 other = message->get_source(message);
1381
1382 /* if this IKE_SA is virgin, we check for a config */
1383 if (this->ike_cfg == NULL)
1384 {
1385 job_t *job;
1386 this->ike_cfg = charon->backends->get_ike_cfg(charon->backends,
1387 me, other);
1388 if (this->ike_cfg == NULL)
1389 {
1390 /* no config found for these hosts, destroy */
1391 DBG1(DBG_IKE, "no IKE config found for %H...%H, sending %N",
1392 me, other, notify_type_names, NO_PROPOSAL_CHOSEN);
1393 send_notify_response(this, message, NO_PROPOSAL_CHOSEN);
1394 return DESTROY_ME;
1395 }
1396 /* add a timeout if peer does not establish it completely */
1397 job = (job_t*)delete_ike_sa_job_create(this->ike_sa_id, FALSE);
1398 charon->scheduler->schedule_job(charon->scheduler, job,
1399 HALF_OPEN_IKE_SA_TIMEOUT);
1400 }
1401
1402 /* check if message is trustworthy, and update host information */
1403 if (this->state == IKE_CREATED || this->state == IKE_CONNECTING ||
1404 message->get_exchange_type(message) != IKE_SA_INIT)
1405 {
1406 update_hosts(this, me, other);
1407 this->time.inbound = time(NULL);
1408 }
1409 status = this->task_manager->process_message(this->task_manager, message);
1410 if (status != DESTROY_ME)
1411 {
1412 return status;
1413 }
1414 /* if IKE_SA gets closed for any reasons, reroute routed children */
1415 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1416 while (iterator->iterate(iterator, (void**)&child))
1417 {
1418 if (child->get_state(child) == CHILD_ROUTED)
1419 {
1420 has_routed = TRUE;
1421 break;
1422 }
1423 }
1424 iterator->destroy(iterator);
1425 if (!has_routed)
1426 {
1427 return status;
1428 }
1429 /* move routed children to a new IKE_SA, apply connection info */
1430 new = (private_ike_sa_t*)charon->ike_sa_manager->checkout_new(
1431 charon->ike_sa_manager, TRUE);
1432 set_peer_cfg(new, this->peer_cfg);
1433 new->other_host->destroy(new->other_host);
1434 new->other_host = this->other_host->clone(this->other_host);
1435 if (!has_condition(this, COND_NAT_THERE))
1436 {
1437 new->other_host->set_port(new->other_host, IKEV2_UDP_PORT);
1438 }
1439 if (this->my_virtual_ip)
1440 {
1441 set_virtual_ip(new, TRUE, this->my_virtual_ip);
1442 }
1443 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1444 while (iterator->iterate(iterator, (void**)&child))
1445 {
1446 if (child->get_state(child) == CHILD_ROUTED)
1447 {
1448 route(new, child->get_config(child));
1449 }
1450 }
1451 iterator->destroy(iterator);
1452 charon->ike_sa_manager->checkin(charon->ike_sa_manager, &new->public);
1453 return status;
1454 }
1455 }
1456
1457 /**
1458 * Implementation of ike_sa_t.retransmit.
1459 */
1460 static status_t retransmit(private_ike_sa_t *this, u_int32_t message_id)
1461 { /* FIXME: IKE-ME */
1462 this->time.outbound = time(NULL);
1463 if (this->task_manager->retransmit(this->task_manager, message_id) != SUCCESS)
1464 {
1465 child_cfg_t *child_cfg;
1466 child_sa_t* child_sa;
1467 linked_list_t *to_route, *to_restart;
1468 iterator_t *iterator;
1469
1470 /* send a proper signal to brief interested bus listeners */
1471 switch (this->state)
1472 {
1473 case IKE_CONNECTING:
1474 {
1475 /* retry IKE_SA_INIT if we have multiple keyingtries */
1476 u_int32_t tries = this->peer_cfg->get_keyingtries(this->peer_cfg);
1477 this->keyingtry++;
1478 if (tries == 0 || tries > this->keyingtry)
1479 {
1480 SIG(IKE_UP_FAILED, "peer not responding, trying again "
1481 "(%d/%d) in background ", this->keyingtry + 1, tries);
1482 reset(this);
1483 return this->task_manager->initiate(this->task_manager);
1484 }
1485 SIG(IKE_UP_FAILED, "establishing IKE_SA failed, peer not responding");
1486 break;
1487 }
1488 case IKE_REKEYING:
1489 SIG(IKE_REKEY_FAILED, "rekeying IKE_SA failed, peer not responding");
1490 break;
1491 case IKE_DELETING:
1492 SIG(IKE_DOWN_FAILED, "proper IKE_SA delete failed, peer not responding");
1493 break;
1494 default:
1495 break;
1496 }
1497
1498 /* summarize how we have to handle each child */
1499 to_route = linked_list_create();
1500 to_restart = linked_list_create();
1501 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1502 while (iterator->iterate(iterator, (void**)&child_sa))
1503 {
1504 child_cfg = child_sa->get_config(child_sa);
1505
1506 if (child_sa->get_state(child_sa) == CHILD_ROUTED)
1507 {
1508 /* reroute routed CHILD_SAs */
1509 to_route->insert_last(to_route, child_cfg);
1510 }
1511 else
1512 {
1513 /* use DPD action for established CHILD_SAs */
1514 switch (this->peer_cfg->get_dpd_action(this->peer_cfg))
1515 {
1516 case DPD_ROUTE:
1517 to_route->insert_last(to_route, child_cfg);
1518 break;
1519 case DPD_RESTART:
1520 to_restart->insert_last(to_restart, child_cfg);
1521 break;
1522 default:
1523 break;
1524 }
1525 }
1526 }
1527 iterator->destroy(iterator);
1528
1529 /* create a new IKE_SA if we have to route or to restart */
1530 if (to_route->get_count(to_route) || to_restart->get_count(to_restart))
1531 {
1532 private_ike_sa_t *new;
1533 task_t *task;
1534
1535 new = (private_ike_sa_t*)charon->ike_sa_manager->checkout_new(
1536 charon->ike_sa_manager, TRUE);
1537
1538 set_peer_cfg(new, this->peer_cfg);
1539 /* use actual used host, not the wildcarded one in config */
1540 new->other_host->destroy(new->other_host);
1541 new->other_host = this->other_host->clone(this->other_host);
1542 /* reset port to 500, but only if peer is not NATed */
1543 if (!has_condition(this, COND_NAT_THERE))
1544 {
1545 new->other_host->set_port(new->other_host, IKEV2_UDP_PORT);
1546 }
1547 /* take over virtual ip, as we need it for a proper route */
1548 if (this->my_virtual_ip)
1549 {
1550 set_virtual_ip(new, TRUE, this->my_virtual_ip);
1551 }
1552
1553 /* install routes */
1554 while (to_route->remove_last(to_route, (void**)&child_cfg) == SUCCESS)
1555 {
1556 route(new, child_cfg);
1557 }
1558
1559 /* restart children */
1560 if (to_restart->get_count(to_restart))
1561 {
1562 task = (task_t*)ike_init_create(&new->public, TRUE, NULL);
1563 new->task_manager->queue_task(new->task_manager, task);
1564 task = (task_t*)ike_natd_create(&new->public, TRUE);
1565 new->task_manager->queue_task(new->task_manager, task);
1566 task = (task_t*)ike_cert_pre_create(&new->public, TRUE);
1567 new->task_manager->queue_task(new->task_manager, task);
1568 task = (task_t*)ike_config_create(&new->public, TRUE);
1569 new->task_manager->queue_task(new->task_manager, task);
1570 task = (task_t*)ike_auth_create(&new->public, TRUE);
1571 new->task_manager->queue_task(new->task_manager, task);
1572 task = (task_t*)ike_cert_post_create(&new->public, TRUE);
1573 new->task_manager->queue_task(new->task_manager, task);
1574
1575 while (to_restart->remove_last(to_restart, (void**)&child_cfg) == SUCCESS)
1576 {
1577 task = (task_t*)child_create_create(&new->public, child_cfg);
1578 new->task_manager->queue_task(new->task_manager, task);
1579 }
1580 task = (task_t*)ike_auth_lifetime_create(&new->public, TRUE);
1581 new->task_manager->queue_task(new->task_manager, task);
1582 if (this->peer_cfg->use_mobike(this->peer_cfg))
1583 {
1584 task = (task_t*)ike_mobike_create(&new->public, TRUE);
1585 new->task_manager->queue_task(new->task_manager, task);
1586 }
1587 new->task_manager->initiate(new->task_manager);
1588 }
1589 charon->ike_sa_manager->checkin(charon->ike_sa_manager, &new->public);
1590 }
1591 to_route->destroy(to_route);
1592 to_restart->destroy(to_restart);
1593 return DESTROY_ME;
1594 }
1595 return SUCCESS;
1596 }
1597
1598 /**
1599 * Implementation of ike_sa_t.get_prf.
1600 */
1601 static prf_t *get_prf(private_ike_sa_t *this)
1602 {
1603 return this->prf;
1604 }
1605
1606 /**
1607 * Implementation of ike_sa_t.get_prf.
1608 */
1609 static prf_t *get_child_prf(private_ike_sa_t *this)
1610 {
1611 return this->child_prf;
1612 }
1613
1614 /**
1615 * Implementation of ike_sa_t.get_skp_bild
1616 */
1617 static chunk_t get_skp_build(private_ike_sa_t *this)
1618 {
1619 return this->skp_build;
1620 }
1621
1622 /**
1623 * Implementation of ike_sa_t.get_skp_verify
1624 */
1625 static chunk_t get_skp_verify(private_ike_sa_t *this)
1626 {
1627 return this->skp_verify;
1628 }
1629
1630 /**
1631 * Implementation of ike_sa_t.get_id.
1632 */
1633 static ike_sa_id_t* get_id(private_ike_sa_t *this)
1634 {
1635 return this->ike_sa_id;
1636 }
1637
1638 /**
1639 * Implementation of ike_sa_t.get_my_id.
1640 */
1641 static identification_t* get_my_id(private_ike_sa_t *this)
1642 {
1643 return this->my_id;
1644 }
1645
1646 /**
1647 * Implementation of ike_sa_t.set_my_id.
1648 */
1649 static void set_my_id(private_ike_sa_t *this, identification_t *me)
1650 {
1651 DESTROY_IF(this->my_id);
1652 this->my_id = me;
1653 }
1654
1655 /**
1656 * Implementation of ike_sa_t.get_other_id.
1657 */
1658 static identification_t* get_other_id(private_ike_sa_t *this)
1659 {
1660 return this->other_id;
1661 }
1662
1663 /**
1664 * Implementation of ike_sa_t.set_other_id.
1665 */
1666 static void set_other_id(private_ike_sa_t *this, identification_t *other)
1667 {
1668 DESTROY_IF(this->other_id);
1669 this->other_id = other;
1670 }
1671
1672 /**
1673 * Implementation of ike_sa_t.derive_keys.
1674 */
1675 static status_t derive_keys(private_ike_sa_t *this,
1676 proposal_t *proposal, chunk_t secret,
1677 chunk_t nonce_i, chunk_t nonce_r,
1678 bool initiator, prf_t *child_prf, prf_t *old_prf)
1679 {
1680 prf_plus_t *prf_plus;
1681 chunk_t skeyseed, key, nonces, prf_plus_seed;
1682 u_int16_t alg, key_size;
1683 crypter_t *crypter_i, *crypter_r;
1684 signer_t *signer_i, *signer_r;
1685 u_int8_t spi_i_buf[sizeof(u_int64_t)], spi_r_buf[sizeof(u_int64_t)];
1686 chunk_t spi_i = chunk_from_buf(spi_i_buf);
1687 chunk_t spi_r = chunk_from_buf(spi_r_buf);
1688
1689 /* Create SAs general purpose PRF first, we may use it here */
1690 if (!proposal->get_algorithm(proposal, PSEUDO_RANDOM_FUNCTION, &alg, NULL))
1691 {
1692 DBG1(DBG_IKE, "no %N selected",
1693 transform_type_names, PSEUDO_RANDOM_FUNCTION);
1694 return FAILED;
1695 }
1696 this->prf = lib->crypto->create_prf(lib->crypto, alg);
1697 if (this->prf == NULL)
1698 {
1699 DBG1(DBG_IKE, "%N %N not supported!",
1700 transform_type_names, PSEUDO_RANDOM_FUNCTION,
1701 pseudo_random_function_names, alg);
1702 return FAILED;
1703 }
1704
1705 DBG4(DBG_IKE, "shared Diffie Hellman secret %B", &secret);
1706 nonces = chunk_cat("cc", nonce_i, nonce_r);
1707 *((u_int64_t*)spi_i.ptr) = this->ike_sa_id->get_initiator_spi(this->ike_sa_id);
1708 *((u_int64_t*)spi_r.ptr) = this->ike_sa_id->get_responder_spi(this->ike_sa_id);
1709 prf_plus_seed = chunk_cat("ccc", nonces, spi_i, spi_r);
1710
1711 /* KEYMAT = prf+ (SKEYSEED, Ni | Nr | SPIi | SPIr)
1712 *
1713 * if we are rekeying, SKEYSEED is built on another way
1714 */
1715 if (child_prf == NULL) /* not rekeying */
1716 {
1717 /* SKEYSEED = prf(Ni | Nr, g^ir) */
1718 this->prf->set_key(this->prf, nonces);
1719 this->prf->allocate_bytes(this->prf, secret, &skeyseed);
1720 DBG4(DBG_IKE, "SKEYSEED %B", &skeyseed);
1721 this->prf->set_key(this->prf, skeyseed);
1722 chunk_free(&skeyseed);
1723 chunk_free(&secret);
1724 prf_plus = prf_plus_create(this->prf, prf_plus_seed);
1725 }
1726 else
1727 {
1728 /* SKEYSEED = prf(SK_d (old), [g^ir (new)] | Ni | Nr)
1729 * use OLD SAs PRF functions for both prf_plus and prf */
1730 secret = chunk_cat("mc", secret, nonces);
1731 child_prf->allocate_bytes(child_prf, secret, &skeyseed);
1732 DBG4(DBG_IKE, "SKEYSEED %B", &skeyseed);
1733 old_prf->set_key(old_prf, skeyseed);
1734 chunk_free(&skeyseed);
1735 chunk_free(&secret);
1736 prf_plus = prf_plus_create(old_prf, prf_plus_seed);
1737 }
1738 chunk_free(&nonces);
1739 chunk_free(&prf_plus_seed);
1740
1741 /* KEYMAT = SK_d | SK_ai | SK_ar | SK_ei | SK_er | SK_pi | SK_pr */
1742
1743 /* SK_d is used for generating CHILD_SA key mat => child_prf */
1744 proposal->get_algorithm(proposal, PSEUDO_RANDOM_FUNCTION, &alg, NULL);
1745 this->child_prf = lib->crypto->create_prf(lib->crypto, alg);
1746 key_size = this->child_prf->get_key_size(this->child_prf);
1747 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1748 DBG4(DBG_IKE, "Sk_d secret %B", &key);
1749 this->child_prf->set_key(this->child_prf, key);
1750 chunk_free(&key);
1751
1752 /* SK_ai/SK_ar used for integrity protection => signer_in/signer_out */
1753 if (!proposal->get_algorithm(proposal, INTEGRITY_ALGORITHM, &alg, NULL))
1754 {
1755 DBG1(DBG_IKE, "no %N selected",
1756 transform_type_names, INTEGRITY_ALGORITHM);
1757 return FAILED;
1758 }
1759 signer_i = lib->crypto->create_signer(lib->crypto, alg);
1760 signer_r = lib->crypto->create_signer(lib->crypto, alg);
1761 if (signer_i == NULL || signer_r == NULL)
1762 {
1763 DBG1(DBG_IKE, "%N %N not supported!",
1764 transform_type_names, INTEGRITY_ALGORITHM,
1765 integrity_algorithm_names ,alg);
1766 prf_plus->destroy(prf_plus);
1767 return FAILED;
1768 }
1769 key_size = signer_i->get_key_size(signer_i);
1770
1771 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1772 DBG4(DBG_IKE, "Sk_ai secret %B", &key);
1773 signer_i->set_key(signer_i, key);
1774 chunk_free(&key);
1775
1776 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1777 DBG4(DBG_IKE, "Sk_ar secret %B", &key);
1778 signer_r->set_key(signer_r, key);
1779 chunk_free(&key);
1780
1781 if (initiator)
1782 {
1783 this->signer_in = signer_r;
1784 this->signer_out = signer_i;
1785 }
1786 else
1787 {
1788 this->signer_in = signer_i;
1789 this->signer_out = signer_r;
1790 }
1791
1792 /* SK_ei/SK_er used for encryption => crypter_in/crypter_out */
1793 if (!proposal->get_algorithm(proposal, ENCRYPTION_ALGORITHM, &alg, &key_size))
1794 {
1795 DBG1(DBG_IKE, "no %N selected",
1796 transform_type_names, ENCRYPTION_ALGORITHM);
1797 prf_plus->destroy(prf_plus);
1798 return FAILED;
1799 }
1800 crypter_i = lib->crypto->create_crypter(lib->crypto, alg, key_size / 8);
1801 crypter_r = lib->crypto->create_crypter(lib->crypto, alg, key_size / 8);
1802 if (crypter_i == NULL || crypter_r == NULL)
1803 {
1804 DBG1(DBG_IKE, "%N %N (key size %d) not supported!",
1805 transform_type_names, ENCRYPTION_ALGORITHM,
1806 encryption_algorithm_names, alg, key_size);
1807 prf_plus->destroy(prf_plus);
1808 return FAILED;
1809 }
1810 key_size = crypter_i->get_key_size(crypter_i);
1811
1812 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1813 DBG4(DBG_IKE, "Sk_ei secret %B", &key);
1814 crypter_i->set_key(crypter_i, key);
1815 chunk_free(&key);
1816
1817 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1818 DBG4(DBG_IKE, "Sk_er secret %B", &key);
1819 crypter_r->set_key(crypter_r, key);
1820 chunk_free(&key);
1821
1822 if (initiator)
1823 {
1824 this->crypter_in = crypter_r;
1825 this->crypter_out = crypter_i;
1826 }
1827 else
1828 {
1829 this->crypter_in = crypter_i;
1830 this->crypter_out = crypter_r;
1831 }
1832
1833 /* SK_pi/SK_pr used for authentication => stored for later */
1834 key_size = this->prf->get_key_size(this->prf);
1835 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1836 DBG4(DBG_IKE, "Sk_pi secret %B", &key);
1837 if (initiator)
1838 {
1839 this->skp_build = key;
1840 }
1841 else
1842 {
1843 this->skp_verify = key;
1844 }
1845 prf_plus->allocate_bytes(prf_plus, key_size, &key);
1846 DBG4(DBG_IKE, "Sk_pr secret %B", &key);
1847 if (initiator)
1848 {
1849 this->skp_verify = key;
1850 }
1851 else
1852 {
1853 this->skp_build = key;
1854 }
1855
1856 /* all done, prf_plus not needed anymore */
1857 prf_plus->destroy(prf_plus);
1858
1859 return SUCCESS;
1860 }
1861
1862 /**
1863 * Implementation of ike_sa_t.add_child_sa.
1864 */
1865 static void add_child_sa(private_ike_sa_t *this, child_sa_t *child_sa)
1866 {
1867 this->child_sas->insert_last(this->child_sas, child_sa);
1868 }
1869
1870 /**
1871 * Implementation of ike_sa_t.get_child_sa.
1872 */
1873 static child_sa_t* get_child_sa(private_ike_sa_t *this, protocol_id_t protocol,
1874 u_int32_t spi, bool inbound)
1875 {
1876 iterator_t *iterator;
1877 child_sa_t *current, *found = NULL;
1878
1879 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1880 while (iterator->iterate(iterator, (void**)&current))
1881 {
1882 if (current->get_spi(current, inbound) == spi &&
1883 current->get_protocol(current) == protocol)
1884 {
1885 found = current;
1886 }
1887 }
1888 iterator->destroy(iterator);
1889 return found;
1890 }
1891
1892 /**
1893 * Implementation of ike_sa_t.create_child_sa_iterator.
1894 */
1895 static iterator_t* create_child_sa_iterator(private_ike_sa_t *this)
1896 {
1897 return this->child_sas->create_iterator(this->child_sas, TRUE);
1898 }
1899
1900 /**
1901 * Implementation of ike_sa_t.rekey_child_sa.
1902 */
1903 static status_t rekey_child_sa(private_ike_sa_t *this, protocol_id_t protocol, u_int32_t spi)
1904 {
1905 child_sa_t *child_sa;
1906 child_rekey_t *child_rekey;
1907
1908 child_sa = get_child_sa(this, protocol, spi, TRUE);
1909 if (child_sa)
1910 {
1911 child_rekey = child_rekey_create(&this->public, child_sa);
1912 this->task_manager->queue_task(this->task_manager, &child_rekey->task);
1913 return this->task_manager->initiate(this->task_manager);
1914 }
1915 return FAILED;
1916 }
1917
1918 /**
1919 * Implementation of ike_sa_t.delete_child_sa.
1920 */
1921 static status_t delete_child_sa(private_ike_sa_t *this, protocol_id_t protocol, u_int32_t spi)
1922 {
1923 child_sa_t *child_sa;
1924 child_delete_t *child_delete;
1925
1926 child_sa = get_child_sa(this, protocol, spi, TRUE);
1927 if (child_sa)
1928 {
1929 child_delete = child_delete_create(&this->public, child_sa);
1930 this->task_manager->queue_task(this->task_manager, &child_delete->task);
1931 return this->task_manager->initiate(this->task_manager);
1932 }
1933 return FAILED;
1934 }
1935
1936 /**
1937 * Implementation of ike_sa_t.destroy_child_sa.
1938 */
1939 static status_t destroy_child_sa(private_ike_sa_t *this, protocol_id_t protocol,
1940 u_int32_t spi)
1941 {
1942 iterator_t *iterator;
1943 child_sa_t *child_sa;
1944 status_t status = NOT_FOUND;
1945
1946 iterator = this->child_sas->create_iterator(this->child_sas, TRUE);
1947 while (iterator->iterate(iterator, (void**)&child_sa))
1948 {
1949 if (child_sa->get_protocol(child_sa) == protocol &&
1950 child_sa->get_spi(child_sa, TRUE) == spi)
1951 {
1952 child_sa->destroy(child_sa);
1953 iterator->remove(iterator);
1954 status = SUCCESS;
1955 break;
1956 }
1957 }
1958 iterator->destroy(iterator);
1959 return status;
1960 }
1961
1962 /**
1963 * Implementation of public_ike_sa_t.delete.
1964 */
1965 static status_t delete_(private_ike_sa_t *this)
1966 {
1967 ike_delete_t *ike_delete;
1968
1969 switch (this->state)
1970 {
1971 case IKE_ESTABLISHED:
1972 case IKE_REKEYING:
1973 ike_delete = ike_delete_create(&this->public, TRUE);
1974 this->task_manager->queue_task(this->task_manager, &ike_delete->task);
1975 return this->task_manager->initiate(this->task_manager);
1976 case IKE_CREATED:
1977 SIG(IKE_DOWN_SUCCESS, "deleting unestablished IKE_SA");
1978 break;
1979 default:
1980 SIG(IKE_DOWN_SUCCESS, "destroying IKE_SA in state %N "
1981 "without notification", ike_sa_state_names, this->state);
1982 break;
1983 }
1984 return DESTROY_ME;
1985 }
1986
1987 /**
1988 * Implementation of ike_sa_t.rekey.
1989 */
1990 static status_t rekey(private_ike_sa_t *this)
1991 {
1992 ike_rekey_t *ike_rekey;
1993
1994 ike_rekey = ike_rekey_create(&this->public, TRUE);
1995
1996 this->task_manager->queue_task(this->task_manager, &ike_rekey->task);
1997 return this->task_manager->initiate(this->task_manager);
1998 }
1999
2000 /**
2001 * Implementation of ike_sa_t.reestablish
2002 */
2003 static status_t reestablish(private_ike_sa_t *this)
2004 {
2005 task_t *task;
2006
2007 /* we can't reauthenticate as responder when we use EAP or virtual IPs.
2008 * If the peer does not support RFC4478, there is no way to keep the
2009 * IKE_SA up. */
2010 if (!this->ike_initiator)
2011 {
2012 DBG1(DBG_IKE, "initiator did not reauthenticate as requested");
2013 if (this->other_virtual_ip != NULL ||
2014 has_condition(this, COND_EAP_AUTHENTICATED)
2015 #ifdef ME
2016 /* if we are mediation server we too cannot reauth the IKE_SA */
2017 || this->is_mediation_server
2018 #endif /* ME */
2019 )
2020 {
2021 time_t now = time(NULL);
2022
2023 DBG1(DBG_IKE, "IKE_SA will timeout in %#V", &now, &this->time.delete);
2024 return FAILED;
2025 }
2026 else
2027 {
2028 DBG1(DBG_IKE, "reauthenticating actively");
2029 }
2030 }
2031 task = (task_t*)ike_reauth_create(&this->public);
2032 this->task_manager->queue_task(this->task_manager, task);
2033
2034 return this->task_manager->initiate(this->task_manager);
2035 }
2036
2037 /**
2038 * Implementation of ike_sa_t.set_auth_lifetime.
2039 */
2040 static void set_auth_lifetime(private_ike_sa_t *this, u_int32_t lifetime)
2041 {
2042 job_t *job;
2043 u_int32_t reduction = this->peer_cfg->get_over_time(this->peer_cfg);
2044
2045 this->time.reauth = time(NULL) + lifetime - reduction;
2046 job = (job_t*)rekey_ike_sa_job_create(this->ike_sa_id, TRUE);
2047
2048 if (lifetime < reduction)
2049 {
2050 DBG1(DBG_IKE, "received AUTH_LIFETIME of %ds, starting reauthentication",
2051 lifetime);
2052 charon->processor->queue_job(charon->processor, job);
2053 }
2054 else
2055 {
2056 DBG1(DBG_IKE, "received AUTH_LIFETIME of %ds, scheduling reauthentication"
2057 " in %ds", lifetime, lifetime - reduction);
2058 charon->scheduler->schedule_job(charon->scheduler, job,
2059 (lifetime - reduction) * 1000);
2060 }
2061 }
2062
2063 /**
2064 * Implementation of ike_sa_t.roam.
2065 */
2066 static status_t roam(private_ike_sa_t *this, bool address)
2067 {
2068 host_t *me, *other;
2069 ike_mobike_t *mobike;
2070
2071 /* responder just updates the peer about changed address config */
2072 if (!this->ike_sa_id->is_initiator(this->ike_sa_id))
2073 {
2074 if (supports_extension(this, EXT_MOBIKE) && address)
2075 {
2076 DBG1(DBG_IKE, "sending address list update using MOBIKE");
2077 mobike = ike_mobike_create(&this->public, TRUE);
2078 this->task_manager->queue_task(this->task_manager, (task_t*)mobike);
2079 return this->task_manager->initiate(this->task_manager);
2080 }
2081 return SUCCESS;
2082 }
2083
2084 /* get best address pair to use */
2085 other = this->other_host;
2086 me = charon->kernel_interface->get_source_addr(charon->kernel_interface,
2087 other);
2088
2089 if (me)
2090 {
2091 if (me->ip_equals(me, this->my_host) &&
2092 other->ip_equals(other, this->other_host))
2093 {
2094 DBG2(DBG_IKE, "keeping connection path %H - %H", this->other_host, me);
2095 me->destroy(me);
2096 return SUCCESS;
2097 }
2098 me->destroy(me);
2099 }
2100
2101 /* update addresses with mobike, if supported ... */
2102 if (supports_extension(this, EXT_MOBIKE))
2103 {
2104 DBG1(DBG_IKE, "requesting address change using MOBIKE");
2105 mobike = ike_mobike_create(&this->public, TRUE);
2106 mobike->roam(mobike, address);
2107 this->task_manager->queue_task(this->task_manager, (task_t*)mobike);
2108 return this->task_manager->initiate(this->task_manager);
2109 }
2110 DBG1(DBG_IKE, "reestablishing IKE_SA due address change");
2111 /* ... reestablish if not */
2112 return reestablish(this);
2113 }
2114
2115 /**
2116 * Implementation of ike_sa_t.inherit.
2117 */
2118 static status_t inherit(private_ike_sa_t *this, private_ike_sa_t *other)
2119 {
2120 child_sa_t *child_sa;
2121 host_t *ip;
2122
2123 /* apply hosts and ids */
2124 this->my_host->destroy(this->my_host);
2125 this->other_host->destroy(this->other_host);
2126 this->my_id->destroy(this->my_id);
2127 this->other_id->destroy(this->other_id);
2128 this->my_host = other->my_host->clone(other->my_host);
2129 this->other_host = other->other_host->clone(other->other_host);
2130 this->my_id = other->my_id->clone(other->my_id);
2131 this->other_id = other->other_id->clone(other->other_id);
2132 this->ike_initiator = other->ike_initiator;
2133
2134 /* apply virtual assigned IPs... */
2135 if (other->my_virtual_ip)
2136 {
2137 this->my_virtual_ip = other->my_virtual_ip;
2138 other->my_virtual_ip = NULL;
2139 }
2140 if (other->other_virtual_ip)
2141 {
2142 this->other_virtual_ip = other->other_virtual_ip;
2143 other->other_virtual_ip = NULL;
2144 }
2145
2146 /* ... and DNS servers */
2147 while (other->dns_servers->remove_last(other->dns_servers,
2148 (void**)&ip) == SUCCESS)
2149 {
2150 this->dns_servers->insert_first(this->dns_servers, ip);
2151 }
2152
2153 /* inherit NAT-T conditions */
2154 this->conditions = other->conditions;
2155 if (this->conditions & COND_NAT_HERE)
2156 {
2157 send_keepalive(this);
2158 }
2159
2160 #ifdef ME
2161 if (other->is_mediation_server)
2162 {
2163 act_as_mediation_server(this);
2164 }
2165 else if (other->server_reflexive_host)
2166 {
2167 this->server_reflexive_host = other->server_reflexive_host->clone(
2168 other->server_reflexive_host);
2169 }
2170 #endif /* ME */
2171
2172 /* adopt all children */
2173 while (other->child_sas->remove_last(other->child_sas,
2174 (void**)&child_sa) == SUCCESS)
2175 {
2176 this->child_sas->insert_first(this->child_sas, (void*)child_sa);
2177 }
2178
2179 /* move pending tasks to the new IKE_SA */
2180 this->task_manager->adopt_tasks(this->task_manager, other->task_manager);
2181
2182 /* reauthentication timeout survives a rekeying */
2183 if (other->time.reauth)
2184 {
2185 time_t reauth, delete, now = time(NULL);
2186
2187 this->time.reauth = other->time.reauth;
2188 reauth = this->time.reauth - now;
2189 delete = reauth + this->peer_cfg->get_over_time(this->peer_cfg);
2190 this->time.delete = this->time.reauth + delete;
2191 DBG1(DBG_IKE, "rescheduling reauthentication in %ds after rekeying, "
2192 "lifetime reduced to %ds", reauth, delete);
2193 charon->scheduler->schedule_job(charon->scheduler,
2194 (job_t*)rekey_ike_sa_job_create(this->ike_sa_id, TRUE),
2195 reauth * 1000);
2196 charon->scheduler->schedule_job(charon->scheduler,
2197 (job_t*)delete_ike_sa_job_create(this->ike_sa_id, TRUE),
2198 delete * 1000);
2199 }
2200 /* we have to initate here, there may be new tasks to handle */
2201 return this->task_manager->initiate(this->task_manager);
2202 }
2203
2204 /**
2205 * Implementation of ike_sa_t.remove_dns_server
2206 */
2207 static void remove_dns_servers(private_ike_sa_t *this)
2208 {
2209 FILE *file;
2210 struct stat stats;
2211 chunk_t contents, line, orig_line, token;
2212 char string[INET6_ADDRSTRLEN];
2213 host_t *ip;
2214 iterator_t *iterator;
2215
2216 if (this->dns_servers->get_count(this->dns_servers) == 0)
2217 {
2218 /* don't touch anything if we have no nameservers installed */
2219 return;
2220 }
2221
2222 file = fopen(RESOLV_CONF, "r");
2223 if (file == NULL || stat(RESOLV_CONF, &stats) != 0)
2224 {
2225 DBG1(DBG_IKE, "unable to open DNS configuration file %s: %s",
2226 RESOLV_CONF, strerror(errno));
2227 return;
2228 }
2229
2230 contents = chunk_alloca((size_t)stats.st_size);
2231
2232 if (fread(contents.ptr, 1, contents.len, file) != contents.len)
2233 {
2234 DBG1(DBG_IKE, "unable to read DNS configuration file: %s", strerror(errno));
2235 fclose(file);
2236 return;
2237 }
2238
2239 fclose(file);
2240 file = fopen(RESOLV_CONF, "w");
2241 if (file == NULL)
2242 {
2243 DBG1(DBG_IKE, "unable to open DNS configuration file %s: %s",
2244 RESOLV_CONF, strerror(errno));
2245 return;
2246 }
2247
2248 iterator = this->dns_servers->create_iterator(this->dns_servers, TRUE);
2249 while (fetchline(&contents, &line))
2250 {
2251 bool found = FALSE;
2252 orig_line = line;
2253 if (extract_token(&token, ' ', &line) &&
2254 strncasecmp(token.ptr, "nameserver", token.len) == 0)
2255 {
2256 if (!extract_token(&token, ' ', &line))
2257 {
2258 token = line;
2259 }
2260 iterator->reset(iterator);
2261 while (iterator->iterate(iterator, (void**)&ip))
2262 {
2263 snprintf(string, sizeof(string), "%H", ip);
2264 if (strlen(string) == token.len &&
2265 strncmp(token.ptr, string, token.len) == 0)
2266 {
2267 iterator->remove(iterator);
2268 ip->destroy(ip);
2269 found = TRUE;
2270 break;
2271 }
2272 }
2273 }
2274
2275 if (!found)
2276 {
2277 /* write line untouched back to file */
2278 fwrite(orig_line.ptr, orig_line.len, 1, file);
2279 fprintf(file, "\n");
2280 }
2281 }
2282 iterator->destroy(iterator);
2283 fclose(file);
2284 }
2285
2286 /**
2287 * Implementation of ike_sa_t.add_dns_server
2288 */
2289 static void add_dns_server(private_ike_sa_t *this, host_t *dns)
2290 {
2291 FILE *file;
2292 struct stat stats;
2293 chunk_t contents;
2294
2295 DBG1(DBG_IKE, "installing DNS server %H", dns);
2296
2297 file = fopen(RESOLV_CONF, "a+");
2298 if (file == NULL || stat(RESOLV_CONF, &stats) != 0)
2299 {
2300 DBG1(DBG_IKE, "unable to open DNS configuration file %s: %s",
2301 RESOLV_CONF, strerror(errno));
2302 return;
2303 }
2304
2305 contents = chunk_alloca(stats.st_size);
2306
2307 if (fread(contents.ptr, 1, contents.len, file) != contents.len)
2308 {
2309 DBG1(DBG_IKE, "unable to read DNS configuration file: %s", strerror(errno));
2310 fclose(file);
2311 return;
2312 }
2313
2314 fclose(file);
2315 file = fopen(RESOLV_CONF, "w");
2316 if (file == NULL)
2317 {
2318 DBG1(DBG_IKE, "unable to open DNS configuration file %s: %s",
2319 RESOLV_CONF, strerror(errno));
2320 return;
2321 }
2322
2323 if (fprintf(file, "nameserver %H # added by strongSwan, assigned by %D\n",
2324 dns, this->other_id) < 0)
2325 {
2326 DBG1(DBG_IKE, "unable to write DNS configuration: %s", strerror(errno));
2327 }
2328 else
2329 {
2330 this->dns_servers->insert_last(this->dns_servers, dns->clone(dns));
2331 }
2332 fwrite(contents.ptr, contents.len, 1, file);
2333
2334 fclose(file);
2335 }
2336
2337 /**
2338 * Implementation of ike_sa_t.destroy.
2339 */
2340 static void destroy(private_ike_sa_t *this)
2341 {
2342 this->child_sas->destroy_offset(this->child_sas, offsetof(child_sa_t, destroy));
2343
2344 DESTROY_IF(this->crypter_in);
2345 DESTROY_IF(this->crypter_out);
2346 DESTROY_IF(this->signer_in);
2347 DESTROY_IF(this->signer_out);
2348 DESTROY_IF(this->prf);
2349 DESTROY_IF(this->child_prf);
2350 chunk_free(&this->skp_verify);
2351 chunk_free(&this->skp_build);
2352
2353 if (this->my_virtual_ip)
2354 {
2355 charon->kernel_interface->del_ip(charon->kernel_interface,
2356 this->my_virtual_ip);
2357 this->my_virtual_ip->destroy(this->my_virtual_ip);
2358 }
2359 if (this->other_virtual_ip)
2360 {
2361 if (this->peer_cfg && this->peer_cfg->get_pool(this->peer_cfg))
2362 {
2363 charon->attributes->release_address(charon->attributes,
2364 this->peer_cfg->get_pool(this->peer_cfg),
2365 this->other_virtual_ip);
2366 }
2367 this->other_virtual_ip->destroy(this->other_virtual_ip);
2368 }
2369
2370 remove_dns_servers(this);
2371 this->dns_servers->destroy_offset(this->dns_servers,
2372 offsetof(host_t, destroy));
2373 this->additional_addresses->destroy_offset(this->additional_addresses,
2374 offsetof(host_t, destroy));
2375 #ifdef ME
2376 if (this->is_mediation_server)
2377 {
2378 charon->mediation_manager->remove(charon->mediation_manager, this->ike_sa_id);
2379 }
2380 DESTROY_IF(this->server_reflexive_host);
2381 chunk_free(&this->connect_id);
2382 #endif /* ME */
2383
2384 DESTROY_IF(this->my_host);
2385 DESTROY_IF(this->other_host);
2386 DESTROY_IF(this->my_id);
2387 DESTROY_IF(this->other_id);
2388
2389 DESTROY_IF(this->ike_cfg);
2390 DESTROY_IF(this->peer_cfg);
2391 DESTROY_IF(this->my_auth);
2392 DESTROY_IF(this->other_auth);
2393
2394 this->ike_sa_id->destroy(this->ike_sa_id);
2395 this->task_manager->destroy(this->task_manager);
2396 free(this);
2397 }
2398
2399 /*
2400 * Described in header.
2401 */
2402 ike_sa_t * ike_sa_create(ike_sa_id_t *ike_sa_id)
2403 {
2404 private_ike_sa_t *this = malloc_thing(private_ike_sa_t);
2405 static u_int32_t unique_id = 0;
2406
2407 /* Public functions */
2408 this->public.get_state = (ike_sa_state_t (*)(ike_sa_t*)) get_state;
2409 this->public.set_state = (void (*)(ike_sa_t*,ike_sa_state_t)) set_state;
2410 this->public.get_name = (char* (*)(ike_sa_t*))get_name;
2411 this->public.get_statistic = (u_int32_t(*)(ike_sa_t*, statistic_t kind))get_statistic;
2412 this->public.process_message = (status_t (*)(ike_sa_t*, message_t*)) process_message;
2413 this->public.initiate = (status_t (*)(ike_sa_t*,child_cfg_t*)) initiate;
2414 this->public.route = (status_t (*)(ike_sa_t*,child_cfg_t*)) route;
2415 this->public.unroute = (status_t (*)(ike_sa_t*,u_int32_t)) unroute;
2416 this->public.acquire = (status_t (*)(ike_sa_t*,u_int32_t)) acquire;
2417 this->public.get_ike_cfg = (ike_cfg_t* (*)(ike_sa_t*))get_ike_cfg;
2418 this->public.set_ike_cfg = (void (*)(ike_sa_t*,ike_cfg_t*))set_ike_cfg;
2419 this->public.get_peer_cfg = (peer_cfg_t* (*)(ike_sa_t*))get_peer_cfg;
2420 this->public.set_peer_cfg = (void (*)(ike_sa_t*,peer_cfg_t*))set_peer_cfg;
2421 this->public.get_my_auth = (auth_info_t*(*)(ike_sa_t*))get_my_auth;
2422 this->public.get_other_auth = (auth_info_t*(*)(ike_sa_t*))get_other_auth;
2423 this->public.get_id = (ike_sa_id_t* (*)(ike_sa_t*)) get_id;
2424 this->public.get_my_host = (host_t* (*)(ike_sa_t*)) get_my_host;
2425 this->public.set_my_host = (void (*)(ike_sa_t*,host_t*)) set_my_host;
2426 this->public.get_other_host = (host_t* (*)(ike_sa_t*)) get_other_host;
2427 this->public.set_other_host = (void (*)(ike_sa_t*,host_t*)) set_other_host;
2428 this->public.update_hosts = (void(*)(ike_sa_t*, host_t *me, host_t *other))update_hosts;
2429 this->public.get_my_id = (identification_t* (*)(ike_sa_t*)) get_my_id;
2430 this->public.set_my_id = (void (*)(ike_sa_t*,identification_t*)) set_my_id;
2431 this->public.get_other_id = (identification_t* (*)(ike_sa_t*)) get_other_id;
2432 this->public.set_other_id = (void (*)(ike_sa_t*,identification_t*)) set_other_id;
2433 this->public.enable_extension = (void(*)(ike_sa_t*, ike_extension_t extension))enable_extension;
2434 this->public.supports_extension = (bool(*)(ike_sa_t*, ike_extension_t extension))supports_extension;
2435 this->public.set_condition = (void (*)(ike_sa_t*, ike_condition_t,bool)) set_condition;
2436 this->public.has_condition = (bool (*)(ike_sa_t*,ike_condition_t)) has_condition;
2437 this->public.set_pending_updates = (void(*)(ike_sa_t*, u_int32_t updates))set_pending_updates;
2438 this->public.get_pending_updates = (u_int32_t(*)(ike_sa_t*))get_pending_updates;
2439 this->public.is_ike_initiator = (bool (*)(ike_sa_t*))is_ike_initiator;
2440 this->public.create_additional_address_iterator = (iterator_t*(*)(ike_sa_t*))create_additional_address_iterator;
2441 this->public.add_additional_address = (void(*)(ike_sa_t*, host_t *host))add_additional_address;
2442 this->public.retransmit = (status_t (*)(ike_sa_t *, u_int32_t)) retransmit;
2443 this->public.delete = (status_t (*)(ike_sa_t*))delete_;
2444 this->public.destroy = (void (*)(ike_sa_t*))destroy;
2445 this->public.send_dpd = (status_t (*)(ike_sa_t*)) send_dpd;
2446 this->public.send_keepalive = (void (*)(ike_sa_t*)) send_keepalive;
2447 this->public.get_prf = (prf_t* (*)(ike_sa_t*)) get_prf;
2448 this->public.get_child_prf = (prf_t* (*)(ike_sa_t *)) get_child_prf;
2449 this->public.get_skp_verify = (chunk_t (*)(ike_sa_t *)) get_skp_verify;
2450 this->public.get_skp_build = (chunk_t (*)(ike_sa_t *)) get_skp_build;
2451 this->public.derive_keys = (status_t (*)(ike_sa_t *,proposal_t*,chunk_t,chunk_t,chunk_t,bool,prf_t*,prf_t*)) derive_keys;
2452 this->public.add_child_sa = (void (*)(ike_sa_t*,child_sa_t*)) add_child_sa;
2453 this->public.get_child_sa = (child_sa_t* (*)(ike_sa_t*,protocol_id_t,u_int32_t,bool)) get_child_sa;
2454 this->public.create_child_sa_iterator = (iterator_t* (*)(ike_sa_t*)) create_child_sa_iterator;
2455 this->public.rekey_child_sa = (status_t (*)(ike_sa_t*,protocol_id_t,u_int32_t)) rekey_child_sa;
2456 this->public.delete_child_sa = (status_t (*)(ike_sa_t*,protocol_id_t,u_int32_t)) delete_child_sa;
2457 this->public.destroy_child_sa = (status_t (*)(ike_sa_t*,protocol_id_t,u_int32_t))destroy_child_sa;
2458 this->public.rekey = (status_t (*)(ike_sa_t*))rekey;
2459 this->public.reestablish = (status_t (*)(ike_sa_t*))reestablish;
2460 this->public.set_auth_lifetime = (void(*)(ike_sa_t*, u_int32_t lifetime))set_auth_lifetime;
2461 this->public.roam = (status_t(*)(ike_sa_t*,bool))roam;
2462 this->public.inherit = (status_t (*)(ike_sa_t*,ike_sa_t*))inherit;
2463 this->public.generate_message = (status_t (*)(ike_sa_t*,message_t*,packet_t**))generate_message;
2464 this->public.reset = (void (*)(ike_sa_t*))reset;
2465 this->public.get_unique_id = (u_int32_t (*)(ike_sa_t*))get_unique_id;
2466 this->public.set_virtual_ip = (void (*)(ike_sa_t*,bool,host_t*))set_virtual_ip;
2467 this->public.get_virtual_ip = (host_t* (*)(ike_sa_t*,bool))get_virtual_ip;
2468 this->public.add_dns_server = (void (*)(ike_sa_t*,host_t*))add_dns_server;
2469 #ifdef ME
2470 this->public.act_as_mediation_server = (void (*)(ike_sa_t*)) act_as_mediation_server;
2471 this->public.get_server_reflexive_host = (host_t* (*)(ike_sa_t*)) get_server_reflexive_host;
2472 this->public.set_server_reflexive_host = (void (*)(ike_sa_t*,host_t*)) set_server_reflexive_host;
2473 this->public.get_connect_id = (chunk_t (*)(ike_sa_t*)) get_connect_id;
2474 this->public.initiate_mediation = (status_t (*)(ike_sa_t*,peer_cfg_t*)) initiate_mediation;
2475 this->public.initiate_mediated = (status_t (*)(ike_sa_t*,host_t*,host_t*,linked_list_t*,chunk_t)) initiate_mediated;
2476 this->public.relay = (status_t (*)(ike_sa_t*,identification_t*,chunk_t,chunk_t,linked_list_t*,bool)) relay;
2477 this->public.callback = (status_t (*)(ike_sa_t*,identification_t*)) callback;
2478 this->public.respond = (status_t (*)(ike_sa_t*,identification_t*,chunk_t)) respond;
2479 #endif /* ME */
2480
2481 /* initialize private fields */
2482 this->ike_sa_id = ike_sa_id->clone(ike_sa_id);
2483 this->child_sas = linked_list_create();
2484 this->my_host = host_create_any(AF_INET);
2485 this->other_host = host_create_any(AF_INET);
2486 this->my_id = identification_create_from_encoding(ID_ANY, chunk_empty);
2487 this->other_id = identification_create_from_encoding(ID_ANY, chunk_empty);
2488 this->extensions = 0;
2489 this->conditions = 0;
2490 this->crypter_in = NULL;
2491 this->crypter_out = NULL;
2492 this->signer_in = NULL;
2493 this->signer_out = NULL;
2494 this->prf = NULL;
2495 this->skp_verify = chunk_empty;
2496 this->skp_build = chunk_empty;
2497 this->child_prf = NULL;
2498 this->state = IKE_CREATED;
2499 this->time.inbound = this->time.outbound = time(NULL);
2500 this->time.established = 0;
2501 this->time.rekey = 0;
2502 this->time.reauth = 0;
2503 this->time.delete = 0;
2504 this->ike_cfg = NULL;
2505 this->peer_cfg = NULL;
2506 this->my_auth = auth_info_create();
2507 this->other_auth = auth_info_create();
2508 this->task_manager = task_manager_create(&this->public);
2509 this->unique_id = ++unique_id;
2510 this->my_virtual_ip = NULL;
2511 this->other_virtual_ip = NULL;
2512 this->dns_servers = linked_list_create();
2513 this->additional_addresses = linked_list_create();
2514 this->pending_updates = 0;
2515 this->keyingtry = 0;
2516 this->ike_initiator = FALSE;
2517 #ifdef ME
2518 this->is_mediation_server = FALSE;
2519 this->server_reflexive_host = NULL;
2520 this->connect_id = chunk_empty;
2521 #endif /* ME */
2522
2523 return &this->public;
2524 }