2 This file is part of GNUnet.
3 (C) 2009, 2010, 2011, 2012 Christian Grothoff (and other contributing authors)
5 GNUnet is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; either version 3, or (at your
8 option) any later version.
10 GNUnet is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GNUnet; see the file COPYING. If not, write to the
17 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA.
22 * @file core/gnunet-service-core_kx.c
23 * @brief code for managing the key exchange (SET_KEY, PING, PONG) with other peers
24 * @author Christian Grothoff
27 #include "gnunet-service-core_kx.h"
28 #include "gnunet-service-core.h"
29 #include "gnunet-service-core_clients.h"
30 #include "gnunet-service-core_neighbours.h"
31 #include "gnunet-service-core_sessions.h"
32 #include "gnunet_statistics_service.h"
33 #include "gnunet_constants.h"
34 #include "gnunet_signatures.h"
35 #include "gnunet_protocols.h"
40 * How long do we wait for SET_KEY confirmation initially?
42 #define INITIAL_SET_KEY_RETRY_FREQUENCY GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 10)
45 * What is the minimum frequency for a PING message?
47 #define MIN_PING_FREQUENCY GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 5)
50 * How often do we rekey?
52 #define REKEY_FREQUENCY GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_HOURS, 12)
55 * What time difference do we tolerate?
57 #define REKEY_TOLERANCE GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MINUTES, 5)
60 * What is the maximum age of a message for us to consider processing
61 * it? Note that this looks at the timestamp used by the other peer,
62 * so clock skew between machines does come into play here. So this
63 * should be picked high enough so that a little bit of clock skew
64 * does not prevent peers from connecting to us.
66 #define MAX_MESSAGE_AGE GNUNET_TIME_UNIT_DAYS
70 GNUNET_NETWORK_STRUCT_BEGIN
73 * Message transmitted with the signed ephemeral key of a peer. The
74 * session key is then derived from the two ephemeral keys (ECDHE).
76 struct EphemeralKeyMessage
80 * Message type is CORE_EPHEMERAL_KEY.
82 struct GNUNET_MessageHeader header;
85 * Status of the sender (should be in "enum PeerStateMachine"), nbo.
87 int32_t sender_status GNUNET_PACKED;
90 * An ECC signature of the 'origin' asserting the validity of
91 * the given ephemeral key.
93 struct GNUNET_CRYPTO_EccSignature signature;
96 * Information about what is being signed.
98 struct GNUNET_CRYPTO_EccSignaturePurpose purpose;
101 * At what time was this key created (beginning of validity).
103 struct GNUNET_TIME_AbsoluteNBO creation_time;
106 * When does the given ephemeral key expire (end of validity).
108 struct GNUNET_TIME_AbsoluteNBO expiration_time;
111 * Ephemeral public ECC key (always for NIST P-521) encoded in a format suitable
112 * for network transmission as created using 'gcry_sexp_sprint'.
114 struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded ephemeral_key;
117 * Public key of the signing peer (persistent version, not the ephemeral public key).
119 struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded origin_public_key;
125 * We're sending an (encrypted) PING to the other peer to check if he
126 * can decrypt. The other peer should respond with a PONG with the
127 * same content, except this time encrypted with the receiver's key.
132 * Message type is CORE_PING.
134 struct GNUNET_MessageHeader header;
139 uint32_t iv_seed GNUNET_PACKED;
142 * Intended target of the PING, used primarily to check
143 * that decryption actually worked.
145 struct GNUNET_PeerIdentity target;
148 * Random number chosen to make reply harder.
150 uint32_t challenge GNUNET_PACKED;
155 * Response to a PING. Includes data from the original PING.
160 * Message type is CORE_PONG.
162 struct GNUNET_MessageHeader header;
167 uint32_t iv_seed GNUNET_PACKED;
170 * Random number to make faking the reply harder. Must be
171 * first field after header (this is where we start to encrypt!).
173 uint32_t challenge GNUNET_PACKED;
176 * Reserved, always zero.
181 * Intended target of the PING, used primarily to check
182 * that decryption actually worked.
184 struct GNUNET_PeerIdentity target;
189 * Encapsulation for encrypted messages exchanged between
190 * peers. Followed by the actual encrypted data.
192 struct EncryptedMessage
195 * Message type is either CORE_ENCRYPTED_MESSAGE.
197 struct GNUNET_MessageHeader header;
200 * Random value used for IV generation.
202 uint32_t iv_seed GNUNET_PACKED;
205 * MAC of the encrypted message (starting at 'sequence_number'),
206 * used to verify message integrity. Everything after this value
207 * (excluding this value itself) will be encrypted and authenticated.
208 * ENCRYPTED_HEADER_SIZE must be set to the offset of the *next* field.
210 struct GNUNET_HashCode hmac;
213 * Sequence number, in network byte order. This field
214 * must be the first encrypted/decrypted field
216 uint32_t sequence_number GNUNET_PACKED;
219 * Reserved, always zero.
224 * Timestamp. Used to prevent reply of ancient messages
225 * (recent messages are caught with the sequence number).
227 struct GNUNET_TIME_AbsoluteNBO timestamp;
230 GNUNET_NETWORK_STRUCT_END
234 * Number of bytes (at the beginning) of "struct EncryptedMessage"
235 * that are NOT encrypted.
237 #define ENCRYPTED_HEADER_SIZE (offsetof(struct EncryptedMessage, sequence_number))
241 * State machine for our P2P encryption handshake. Everyone starts in
242 * "DOWN", if we receive the other peer's key (other peer initiated)
243 * we start in state RECEIVED (since we will immediately send our
244 * own); otherwise we start in SENT. If we get back a PONG from
245 * within either state, we move up to CONFIRMED (the PONG will always
246 * be sent back encrypted with the key we sent to the other peer).
256 * We've sent our session key.
261 * We've received the other peers session key.
263 KX_STATE_KEY_RECEIVED,
266 * The other peer has confirmed our session key + PING with a PONG
267 * message encrypted with his session key (which we got). Key
273 * We're rekeying (or had a timeout), so we have sent the other peer
274 * our new ephemeral key, but we did not get a matching PONG yet.
275 * This is equivalent to being 'KX_STATE_KEY_RECEIVED', except that
276 * the session is marked as 'up' with sessions (as we don't want to
277 * drop and re-establish P2P connections simply due to rekeying).
285 * Information about the status of a key exchange with another peer.
287 struct GSC_KeyExchangeInfo
293 struct GSC_KeyExchangeInfo *next;
298 struct GSC_KeyExchangeInfo *prev;
301 * Identity of the peer.
303 struct GNUNET_PeerIdentity peer;
306 * PING message we transmit to the other peer.
308 struct PingMessage ping;
311 * Key we use to encrypt our messages for the other peer
312 * (initialized by us when we do the handshake).
314 struct GNUNET_CRYPTO_AesSessionKey encrypt_key;
317 * Key we use to decrypt messages from the other peer
318 * (given to us by the other peer during the handshake).
320 struct GNUNET_CRYPTO_AesSessionKey decrypt_key;
323 * At what time did the other peer generate the decryption key?
325 struct GNUNET_TIME_Absolute foreign_key_expires;
328 * When should the session time out (if there are no PONGs)?
330 struct GNUNET_TIME_Absolute timeout;
333 * At what frequency are we currently re-trying SET_KEY messages?
335 struct GNUNET_TIME_Relative set_key_retry_frequency;
338 * ID of task used for re-trying SET_KEY and PING message.
340 GNUNET_SCHEDULER_TaskIdentifier retry_set_key_task;
343 * ID of task used for sending keep-alive pings.
345 GNUNET_SCHEDULER_TaskIdentifier keep_alive_task;
348 * Bit map indicating which of the 32 sequence numbers before the last
349 * were received (good for accepting out-of-order packets and
350 * estimating reliability of the connection)
352 unsigned int last_packets_bitmap;
355 * last sequence number received on this connection (highest)
357 uint32_t last_sequence_number_received;
360 * last sequence number transmitted
362 uint32_t last_sequence_number_sent;
365 * What was our PING challenge number (for this peer)?
367 uint32_t ping_challenge;
370 * What is our connection status?
372 enum KxStateMachine status;
380 static struct GNUNET_CRYPTO_EccPrivateKey *my_private_key;
383 * Our ephemeral private key.
385 static struct GNUNET_CRYPTO_EccPrivateKey *my_ephemeral_key;
388 * Current message we send for a key exchange.
390 static struct EphemeralKeyMessage current_ekm;
395 static struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded my_public_key;
398 * Our message stream tokenizer (for encrypted payload).
400 static struct GNUNET_SERVER_MessageStreamTokenizer *mst;
405 static struct GSC_KeyExchangeInfo *kx_head;
410 static struct GSC_KeyExchangeInfo *kx_tail;
413 * Task scheduled for periodic re-generation (and thus rekeying) of our
416 static GNUNET_SCHEDULER_TaskIdentifier rekey_task;
420 * Derive an authentication key from "set key" information
422 * @param akey authentication key to derive
423 * @param skey session key to use
424 * @param seed seed to use
427 derive_auth_key (struct GNUNET_CRYPTO_AuthKey *akey,
428 const struct GNUNET_CRYPTO_AesSessionKey *skey, uint32_t seed)
430 static const char ctx[] = "authentication key";
432 GNUNET_CRYPTO_hmac_derive_key (akey, skey, &seed, sizeof (seed), &skey->key,
433 sizeof (skey->key), ctx,
439 * Derive an IV from packet information
441 * @param iv initialization vector to initialize
442 * @param skey session key to use
443 * @param seed seed to use
444 * @param identity identity of the other peer to use
447 derive_iv (struct GNUNET_CRYPTO_AesInitializationVector *iv,
448 const struct GNUNET_CRYPTO_AesSessionKey *skey, uint32_t seed,
449 const struct GNUNET_PeerIdentity *identity)
451 static const char ctx[] = "initialization vector";
453 GNUNET_CRYPTO_aes_derive_iv (iv, skey, &seed, sizeof (seed),
454 &identity->hashPubKey.bits,
455 sizeof (identity->hashPubKey.bits), ctx,
461 * Derive an IV from pong packet information
463 * @param iv initialization vector to initialize
464 * @param skey session key to use
465 * @param seed seed to use
466 * @param challenge nonce to use
467 * @param identity identity of the other peer to use
470 derive_pong_iv (struct GNUNET_CRYPTO_AesInitializationVector *iv,
471 const struct GNUNET_CRYPTO_AesSessionKey *skey, uint32_t seed,
472 uint32_t challenge, const struct GNUNET_PeerIdentity *identity)
474 static const char ctx[] = "pong initialization vector";
476 GNUNET_CRYPTO_aes_derive_iv (iv, skey, &seed, sizeof (seed),
477 &identity->hashPubKey.bits,
478 sizeof (identity->hashPubKey.bits), &challenge,
479 sizeof (challenge), ctx, sizeof (ctx), NULL);
484 * Derive an AES key from key material
486 * @param sender peer identity of the sender
487 * @param receiver peer identity of the sender
488 * @param key_material high entropy key material to use
489 * @param skey set to derived session key
492 derive_aes_key (const struct GNUNET_PeerIdentity *sender,
493 const struct GNUNET_PeerIdentity *receiver,
494 const struct GNUNET_HashCode *key_material,
495 struct GNUNET_CRYPTO_AesSessionKey *skey)
497 static const char ctx[] = "aes key generation vector";
499 GNUNET_CRYPTO_kdf (skey, sizeof (struct GNUNET_CRYPTO_AesSessionKey),
501 skey, sizeof (struct GNUNET_CRYPTO_AesSessionKey),
502 sender, sizeof (struct GNUNET_PeerIdentity),
503 receiver, sizeof (struct GNUNET_PeerIdentity),
509 * Encrypt size bytes from in and write the result to out. Use the
510 * key for outbound traffic of the given neighbour.
512 * @param kx key information context
513 * @param iv initialization vector to use
514 * @param in ciphertext
515 * @param out plaintext
516 * @param size size of in/out
517 * @return GNUNET_OK on success
520 do_encrypt (struct GSC_KeyExchangeInfo *kx,
521 const struct GNUNET_CRYPTO_AesInitializationVector *iv,
522 const void *in, void *out, size_t size)
524 if (size != (uint16_t) size)
529 GNUNET_assert (size ==
530 GNUNET_CRYPTO_aes_encrypt (in, (uint16_t) size,
531 &kx->encrypt_key, iv, out));
532 GNUNET_STATISTICS_update (GSC_stats, gettext_noop ("# bytes encrypted"), size,
534 /* the following is too sensitive to write to log files by accident,
535 so we require manual intervention to get this one... */
537 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
538 "Encrypted %u bytes for `%4s' using key %u, IV %u\n",
539 (unsigned int) size, GNUNET_i2s (&kx->peer),
540 (unsigned int) kx->encrypt_key.crc32, GNUNET_CRYPTO_crc32_n (iv,
549 * Decrypt size bytes from in and write the result to out. Use the
550 * key for inbound traffic of the given neighbour. This function does
551 * NOT do any integrity-checks on the result.
553 * @param kx key information context
554 * @param iv initialization vector to use
555 * @param in ciphertext
556 * @param out plaintext
557 * @param size size of in/out
558 * @return GNUNET_OK on success
561 do_decrypt (struct GSC_KeyExchangeInfo *kx,
562 const struct GNUNET_CRYPTO_AesInitializationVector *iv,
563 const void *in, void *out, size_t size)
565 if (size != (uint16_t) size)
570 if ( (kx->status != KX_STATE_KEY_RECEIVED) && (kx->status != KX_STATE_UP) &&
571 (kx->status != KX_STATE_REKEY_SENT) )
574 return GNUNET_SYSERR;
577 GNUNET_CRYPTO_aes_decrypt (in, (uint16_t) size, &kx->decrypt_key, iv,
581 return GNUNET_SYSERR;
583 GNUNET_STATISTICS_update (GSC_stats, gettext_noop ("# bytes decrypted"), size,
585 /* the following is too sensitive to write to log files by accident,
586 so we require manual intervention to get this one... */
588 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
589 "Decrypted %u bytes from `%4s' using key %u, IV %u\n",
590 (unsigned int) size, GNUNET_i2s (&kx->peer),
591 (unsigned int) kx->decrypt_key.crc32, GNUNET_CRYPTO_crc32_n (iv,
600 * Send our key (and encrypted PING) to the other peer.
602 * @param kx key exchange context
605 send_key (struct GSC_KeyExchangeInfo *kx);
609 * Task that will retry "send_key" if our previous attempt failed.
611 * @param cls our 'struct GSC_KeyExchangeInfo'
612 * @param tc scheduler context
615 set_key_retry_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
617 struct GSC_KeyExchangeInfo *kx = cls;
619 kx->retry_set_key_task = GNUNET_SCHEDULER_NO_TASK;
620 kx->set_key_retry_frequency = GNUNET_TIME_STD_BACKOFF (kx->set_key_retry_frequency);
626 * Create a fresh PING message for transmission to the other peer.
628 * @param kx key exchange context to create PING for
631 setup_fresh_ping (struct GSC_KeyExchangeInfo *kx)
633 struct PingMessage pp;
634 struct PingMessage *pm;
635 struct GNUNET_CRYPTO_AesInitializationVector iv;
638 pm->header.size = htons (sizeof (struct PingMessage));
639 pm->header.type = htons (GNUNET_MESSAGE_TYPE_CORE_PING);
641 GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE, UINT32_MAX);
642 derive_iv (&iv, &kx->encrypt_key, pm->iv_seed, &kx->peer);
643 pp.challenge = kx->ping_challenge;
644 pp.target = kx->peer;
645 do_encrypt (kx, &iv, &pp.target, &pm->target,
646 sizeof (struct PingMessage) - ((void *) &pm->target -
652 * Start the key exchange with the given peer.
654 * @param pid identity of the peer to do a key exchange with
655 * @return key exchange information context
657 struct GSC_KeyExchangeInfo *
658 GSC_KX_start (const struct GNUNET_PeerIdentity *pid)
660 struct GSC_KeyExchangeInfo *kx;
662 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
663 "Initiating key exchange with `%s'\n",
665 GNUNET_STATISTICS_update (GSC_stats,
666 gettext_noop ("# key exchanges initiated"), 1,
668 kx = GNUNET_malloc (sizeof (struct GSC_KeyExchangeInfo));
670 kx->set_key_retry_frequency = INITIAL_SET_KEY_RETRY_FREQUENCY;
671 GNUNET_CONTAINER_DLL_insert (kx_head,
674 if (0 < GNUNET_CRYPTO_hash_cmp (&pid->hashPubKey,
675 &GSC_my_identity.hashPubKey))
677 /* peer with "lower" identity starts KX, otherwise we typically end up
678 with both peers starting the exchange and transmit the 'set key'
680 kx->status = KX_STATE_KEY_SENT;
688 * Stop key exchange with the given peer. Clean up key material.
690 * @param kx key exchange to stop
693 GSC_KX_stop (struct GSC_KeyExchangeInfo *kx)
695 GNUNET_STATISTICS_update (GSC_stats, gettext_noop ("# key exchanges stopped"),
697 if (kx->retry_set_key_task != GNUNET_SCHEDULER_NO_TASK)
699 GNUNET_SCHEDULER_cancel (kx->retry_set_key_task);
700 kx->retry_set_key_task = GNUNET_SCHEDULER_NO_TASK;
702 if (kx->keep_alive_task != GNUNET_SCHEDULER_NO_TASK)
704 GNUNET_SCHEDULER_cancel (kx->keep_alive_task);
705 kx->keep_alive_task = GNUNET_SCHEDULER_NO_TASK;
707 GNUNET_CONTAINER_DLL_remove (kx_head,
715 * Send our PING to the other peer.
717 * @param kx key exchange context
720 send_ping (struct GSC_KeyExchangeInfo *kx)
722 GSC_NEIGHBOURS_transmit (&kx->peer, &kx->ping.header,
727 * We received a SET_KEY message. Validate and update
728 * our key material and status.
730 * @param kx key exchange status for the corresponding peer
731 * @param msg the set key message we received
734 GSC_KX_handle_ephemeral_key (struct GSC_KeyExchangeInfo *kx,
735 const struct GNUNET_MessageHeader *msg)
737 const struct EphemeralKeyMessage *m;
738 struct GNUNET_TIME_Absolute start_t;
739 struct GNUNET_TIME_Absolute end_t;
740 struct GNUNET_TIME_Absolute now;
741 struct GNUNET_PeerIdentity signer_id;
742 enum KxStateMachine sender_status;
744 struct GNUNET_HashCode key_material;
746 size = ntohs (msg->size);
747 if (sizeof (struct EphemeralKeyMessage) != size)
752 m = (const struct EphemeralKeyMessage *) msg;
753 end_t = GNUNET_TIME_absolute_ntoh (m->expiration_time);
754 if ( ( (KX_STATE_KEY_RECEIVED == kx->status) ||
755 (KX_STATE_UP == kx->status) ||
756 (KX_STATE_REKEY_SENT == kx->status) ) &&
757 (end_t.abs_value <= kx->foreign_key_expires.abs_value) )
759 GNUNET_STATISTICS_update (GSC_stats, gettext_noop ("# old ephemeral keys ignored"),
763 start_t = GNUNET_TIME_absolute_ntoh (m->creation_time);
765 GNUNET_STATISTICS_update (GSC_stats, gettext_noop ("# ephemeral keys received"),
768 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
769 "Core service receives `%s' request from `%4s'.\n", "EPHEMERAL_KEY",
770 GNUNET_i2s (&kx->peer));
771 GNUNET_CRYPTO_hash (&m->origin_public_key,
772 sizeof (struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded),
773 &signer_id.hashPubKey);
775 memcmp (&signer_id, &kx->peer,
776 sizeof (struct GNUNET_PeerIdentity)))
781 if ((ntohl (m->purpose.size) !=
782 sizeof (struct GNUNET_CRYPTO_EccSignaturePurpose) +
783 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
784 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
785 sizeof (struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded) +
786 sizeof (struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded)) ||
788 GNUNET_CRYPTO_ecc_verify (GNUNET_SIGNATURE_PURPOSE_SET_ECC_KEY,
790 &m->signature, &m->origin_public_key)))
792 /* invalid signature */
796 now = GNUNET_TIME_absolute_get ();
797 if ( (end_t.abs_value < GNUNET_TIME_absolute_subtract (now, REKEY_TOLERANCE).abs_value) ||
798 (start_t.abs_value > GNUNET_TIME_absolute_add (now, REKEY_TOLERANCE).abs_value) )
800 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
801 _("Ephemeral key message rejected as its validity range does not match our system time (%llu not in [%llu,%llu]).\n"),
808 GNUNET_CRYPTO_ecc_ecdh (my_ephemeral_key,
815 GNUNET_STATISTICS_update (GSC_stats,
816 gettext_noop ("# EPHEMERAL_KEY messages decrypted"), 1,
818 derive_aes_key (&GSC_my_identity,
822 derive_aes_key (&kx->peer,
826 /* fresh key, reset sequence numbers */
827 kx->last_sequence_number_received = 0;
828 kx->last_packets_bitmap = 0;
829 kx->foreign_key_expires = end_t;
830 setup_fresh_ping (kx);
832 /* check if we still need to send the sender our key */
833 sender_status = (enum KxStateMachine) ntohl (m->sender_status);
834 switch (sender_status)
837 /* makes no sense, should be at least KX_STATE_KEY_SENT */
840 case KX_STATE_KEY_SENT:
843 case KX_STATE_KEY_RECEIVED:
845 case KX_STATE_REKEY_SENT:
846 /* other peer already got our key */
852 /* check if we need to confirm everything is fine via PING + PONG */
856 kx->status = KX_STATE_KEY_RECEIVED;
859 case KX_STATE_KEY_SENT:
860 kx->status = KX_STATE_KEY_RECEIVED;
863 case KX_STATE_KEY_RECEIVED:
867 kx->status = KX_STATE_REKEY_SENT;
868 /* we got a new key, need to reconfirm! */
871 case KX_STATE_REKEY_SENT:
872 kx->status = KX_STATE_REKEY_SENT;
873 /* we got a new key, need to reconfirm! */
884 * We received a PING message. Validate and transmit
887 * @param kx key exchange status for the corresponding peer
888 * @param msg the encrypted PING message itself
891 GSC_KX_handle_ping (struct GSC_KeyExchangeInfo *kx,
892 const struct GNUNET_MessageHeader *msg)
894 const struct PingMessage *m;
895 struct PingMessage t;
896 struct PongMessage tx;
897 struct PongMessage tp;
898 struct GNUNET_CRYPTO_AesInitializationVector iv;
901 msize = ntohs (msg->size);
902 if (msize != sizeof (struct PingMessage))
907 GNUNET_STATISTICS_update (GSC_stats,
908 gettext_noop ("# PING messages received"), 1,
910 if ( (kx->status != KX_STATE_KEY_RECEIVED) &&
911 (kx->status != KX_STATE_UP) &&
912 (kx->status != KX_STATE_REKEY_SENT))
915 GNUNET_STATISTICS_update (GSC_stats,
916 gettext_noop ("# PING messages dropped (out of order)"), 1,
920 m = (const struct PingMessage *) msg;
921 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
922 "Core service receives `%s' request from `%4s'.\n", "PING",
923 GNUNET_i2s (&kx->peer));
924 derive_iv (&iv, &kx->decrypt_key, m->iv_seed, &GSC_my_identity);
926 do_decrypt (kx, &iv, &m->target, &t.target,
927 sizeof (struct PingMessage) - ((void *) &m->target -
934 memcmp (&t.target, &GSC_my_identity, sizeof (struct GNUNET_PeerIdentity)))
939 GNUNET_snprintf (sender, sizeof (sender), "%8s", GNUNET_i2s (&kx->peer));
940 GNUNET_snprintf (peer, sizeof (peer), "%8s", GNUNET_i2s (&t.target));
941 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
943 ("Received PING from `%s' for different identity: I am `%s', PONG identity: `%s'\n"),
944 sender, GNUNET_i2s (&GSC_my_identity), peer);
950 tx.challenge = t.challenge;
951 tx.target = t.target;
952 tp.header.type = htons (GNUNET_MESSAGE_TYPE_CORE_PONG);
953 tp.header.size = htons (sizeof (struct PongMessage));
955 GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE, UINT32_MAX);
956 derive_pong_iv (&iv, &kx->encrypt_key, tp.iv_seed, t.challenge, &kx->peer);
957 do_encrypt (kx, &iv, &tx.challenge, &tp.challenge,
958 sizeof (struct PongMessage) - ((void *) &tp.challenge -
960 GNUNET_STATISTICS_update (GSC_stats, gettext_noop ("# PONG messages created"),
962 GSC_NEIGHBOURS_transmit (&kx->peer, &tp.header,
963 GNUNET_TIME_UNIT_FOREVER_REL /* FIXME: timeout */ );
968 * Task triggered when a neighbour entry is about to time out
969 * (and we should prevent this by sending a PING).
971 * @param cls the 'struct GSC_KeyExchangeInfo'
972 * @param tc scheduler context (not used)
975 send_keep_alive (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
977 struct GSC_KeyExchangeInfo *kx = cls;
978 struct GNUNET_TIME_Relative retry;
979 struct GNUNET_TIME_Relative left;
981 kx->keep_alive_task = GNUNET_SCHEDULER_NO_TASK;
982 left = GNUNET_TIME_absolute_get_remaining (kx->timeout);
983 if (0 == left.rel_value)
985 GNUNET_STATISTICS_update (GSC_stats,
986 gettext_noop ("# sessions terminated by timeout"),
988 GSC_SESSIONS_end (&kx->peer);
989 kx->status = KX_STATE_KEY_SENT;
993 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Sending KEEPALIVE to `%s'\n",
994 GNUNET_i2s (&kx->peer));
995 GNUNET_STATISTICS_update (GSC_stats,
996 gettext_noop ("# keepalive messages sent"), 1,
998 setup_fresh_ping (kx);
999 GSC_NEIGHBOURS_transmit (&kx->peer, &kx->ping.header,
1000 kx->set_key_retry_frequency);
1002 GNUNET_TIME_relative_max (GNUNET_TIME_relative_divide (left, 2),
1003 MIN_PING_FREQUENCY);
1004 kx->keep_alive_task =
1005 GNUNET_SCHEDULER_add_delayed (retry, &send_keep_alive, kx);
1010 * We've seen a valid message from the other peer.
1011 * Update the time when the session would time out
1012 * and delay sending our keep alive message further.
1014 * @param kx key exchange where we saw activity
1017 update_timeout (struct GSC_KeyExchangeInfo *kx)
1020 GNUNET_TIME_relative_to_absolute
1021 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
1022 if (kx->keep_alive_task != GNUNET_SCHEDULER_NO_TASK)
1023 GNUNET_SCHEDULER_cancel (kx->keep_alive_task);
1024 kx->keep_alive_task =
1025 GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_divide
1026 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT,
1027 2), &send_keep_alive, kx);
1032 * We received a PONG message. Validate and update our status.
1034 * @param kx key exchange context for the the PONG
1035 * @param msg the encrypted PONG message itself
1038 GSC_KX_handle_pong (struct GSC_KeyExchangeInfo *kx,
1039 const struct GNUNET_MessageHeader *msg)
1041 const struct PongMessage *m;
1042 struct PongMessage t;
1043 struct GNUNET_CRYPTO_AesInitializationVector iv;
1046 msize = ntohs (msg->size);
1047 if (sizeof (struct PongMessage) != msize)
1049 GNUNET_break_op (0);
1052 GNUNET_STATISTICS_update (GSC_stats,
1053 gettext_noop ("# PONG messages received"), 1,
1058 GNUNET_STATISTICS_update (GSC_stats,
1059 gettext_noop ("# PONG messages dropped (connection down)"), 1,
1062 case KX_STATE_KEY_SENT:
1063 GNUNET_STATISTICS_update (GSC_stats,
1064 gettext_noop ("# PONG messages dropped (out of order)"), 1,
1067 case KX_STATE_KEY_RECEIVED:
1071 case KX_STATE_REKEY_SENT:
1077 m = (const struct PongMessage *) msg;
1078 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1079 "Core service receives `%s' response from `%4s'.\n", "PONG",
1080 GNUNET_i2s (&kx->peer));
1081 /* mark as garbage, just to be sure */
1082 memset (&t, 255, sizeof (t));
1083 derive_pong_iv (&iv, &kx->decrypt_key, m->iv_seed, kx->ping_challenge,
1086 do_decrypt (kx, &iv, &m->challenge, &t.challenge,
1087 sizeof (struct PongMessage) - ((void *) &m->challenge -
1090 GNUNET_break_op (0);
1093 GNUNET_STATISTICS_update (GSC_stats,
1094 gettext_noop ("# PONG messages decrypted"), 1,
1096 if ((0 != memcmp (&t.target, &kx->peer, sizeof (struct GNUNET_PeerIdentity)))
1097 || (kx->ping_challenge != t.challenge))
1099 /* PONG malformed */
1100 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1101 "Received malformed `%s' wanted sender `%4s' with challenge %u\n",
1102 "PONG", GNUNET_i2s (&kx->peer),
1103 (unsigned int) kx->ping_challenge);
1104 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1105 "Received malformed `%s' received from `%4s' with challenge %u\n",
1106 "PONG", GNUNET_i2s (&t.target), (unsigned int) t.challenge);
1109 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Received PONG from `%s'\n",
1110 GNUNET_i2s (&kx->peer));
1111 /* no need to resend key any longer */
1112 if (GNUNET_SCHEDULER_NO_TASK != kx->retry_set_key_task)
1114 GNUNET_SCHEDULER_cancel (kx->retry_set_key_task);
1115 kx->retry_set_key_task = GNUNET_SCHEDULER_NO_TASK;
1120 GNUNET_assert (0); /* should be impossible */
1122 case KX_STATE_KEY_SENT:
1123 GNUNET_assert (0); /* should be impossible */
1125 case KX_STATE_KEY_RECEIVED:
1126 GNUNET_STATISTICS_update (GSC_stats,
1128 ("# session keys confirmed via PONG"), 1,
1130 kx->status = KX_STATE_UP;
1131 GSC_SESSIONS_create (&kx->peer, kx);
1132 GNUNET_assert (GNUNET_SCHEDULER_NO_TASK == kx->keep_alive_task);
1133 update_timeout (kx);
1136 GNUNET_STATISTICS_update (GSC_stats,
1138 ("# timeouts prevented via PONG"), 1,
1140 update_timeout (kx);
1142 case KX_STATE_REKEY_SENT:
1143 GNUNET_STATISTICS_update (GSC_stats,
1145 ("# rekey operations confirmed via PONG"), 1,
1147 kx->status = KX_STATE_UP;
1148 update_timeout (kx);
1158 * Send our key to the other peer.
1160 * @param kx key exchange context
1163 send_key (struct GSC_KeyExchangeInfo *kx)
1165 if (GNUNET_SCHEDULER_NO_TASK != kx->retry_set_key_task)
1167 GNUNET_SCHEDULER_cancel (kx->retry_set_key_task);
1168 kx->retry_set_key_task = GNUNET_SCHEDULER_NO_TASK;
1170 /* always update sender status in SET KEY message */
1171 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1172 "Sending key to `%s' (my status: %d)\n",
1173 GNUNET_i2s (&kx->peer),
1175 current_ekm.sender_status = htonl ((int32_t) (kx->status));
1176 GSC_NEIGHBOURS_transmit (&kx->peer, ¤t_ekm.header,
1177 kx->set_key_retry_frequency);
1178 kx->retry_set_key_task =
1179 GNUNET_SCHEDULER_add_delayed (kx->set_key_retry_frequency,
1180 &set_key_retry_task, kx);
1185 * Encrypt and transmit a message with the given payload.
1187 * @param kx key exchange context
1188 * @param payload payload of the message
1189 * @param payload_size number of bytes in 'payload'
1192 GSC_KX_encrypt_and_transmit (struct GSC_KeyExchangeInfo *kx,
1193 const void *payload, size_t payload_size)
1195 size_t used = payload_size + sizeof (struct EncryptedMessage);
1196 char pbuf[used]; /* plaintext */
1197 char cbuf[used]; /* ciphertext */
1198 struct EncryptedMessage *em; /* encrypted message */
1199 struct EncryptedMessage *ph; /* plaintext header */
1200 struct GNUNET_CRYPTO_AesInitializationVector iv;
1201 struct GNUNET_CRYPTO_AuthKey auth_key;
1203 ph = (struct EncryptedMessage *) pbuf;
1205 htonl (GNUNET_CRYPTO_random_u32
1206 (GNUNET_CRYPTO_QUALITY_NONCE, UINT32_MAX));
1207 ph->sequence_number = htonl (++kx->last_sequence_number_sent);
1209 ph->timestamp = GNUNET_TIME_absolute_hton (GNUNET_TIME_absolute_get ());
1210 memcpy (&ph[1], payload, payload_size);
1212 em = (struct EncryptedMessage *) cbuf;
1213 em->header.size = htons (used);
1214 em->header.type = htons (GNUNET_MESSAGE_TYPE_CORE_ENCRYPTED_MESSAGE);
1215 em->iv_seed = ph->iv_seed;
1216 derive_iv (&iv, &kx->encrypt_key, ph->iv_seed, &kx->peer);
1217 GNUNET_assert (GNUNET_OK ==
1218 do_encrypt (kx, &iv, &ph->sequence_number,
1219 &em->sequence_number,
1220 used - ENCRYPTED_HEADER_SIZE));
1221 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Encrypted %u bytes for %s\n",
1222 used - ENCRYPTED_HEADER_SIZE, GNUNET_i2s (&kx->peer));
1223 derive_auth_key (&auth_key,
1226 GNUNET_CRYPTO_hmac (&auth_key, &em->sequence_number,
1227 used - ENCRYPTED_HEADER_SIZE, &em->hmac);
1228 GSC_NEIGHBOURS_transmit (&kx->peer, &em->header,
1229 GNUNET_TIME_UNIT_FOREVER_REL);
1234 * Closure for 'deliver_message'
1236 struct DeliverMessageContext
1240 * Performance information for the connection.
1242 const struct GNUNET_ATS_Information *atsi;
1245 * Key exchange context.
1247 struct GSC_KeyExchangeInfo *kx;
1250 * Sender of the message.
1252 const struct GNUNET_PeerIdentity *peer;
1255 * Number of entries in 'atsi' array.
1257 uint32_t atsi_count;
1262 * We received an encrypted message. Decrypt, validate and
1263 * pass on to the appropriate clients.
1265 * @param kx key exchange context for encrypting the message
1266 * @param msg encrypted message
1267 * @param atsi performance data
1268 * @param atsi_count number of entries in ats (excluding 0-termination)
1271 GSC_KX_handle_encrypted_message (struct GSC_KeyExchangeInfo *kx,
1272 const struct GNUNET_MessageHeader *msg,
1273 const struct GNUNET_ATS_Information *atsi,
1274 uint32_t atsi_count)
1276 const struct EncryptedMessage *m;
1277 struct EncryptedMessage *pt; /* plaintext */
1278 struct GNUNET_HashCode ph;
1280 struct GNUNET_TIME_Absolute t;
1281 struct GNUNET_CRYPTO_AesInitializationVector iv;
1282 struct GNUNET_CRYPTO_AuthKey auth_key;
1283 struct DeliverMessageContext dmc;
1284 uint16_t size = ntohs (msg->size);
1285 char buf[size] GNUNET_ALIGN;
1288 sizeof (struct EncryptedMessage) + sizeof (struct GNUNET_MessageHeader))
1290 GNUNET_break_op (0);
1293 m = (const struct EncryptedMessage *) msg;
1294 if (kx->status != KX_STATE_UP)
1296 GNUNET_STATISTICS_update (GSC_stats,
1298 ("# DATA message dropped (out of order)"),
1302 if (0 == GNUNET_TIME_absolute_get_remaining (kx->foreign_key_expires).rel_value)
1304 GNUNET_STATISTICS_update (GSC_stats,
1305 gettext_noop ("# sessions terminated by key expiration"),
1307 GSC_SESSIONS_end (&kx->peer);
1308 kx->status = KX_STATE_KEY_SENT;
1314 derive_auth_key (&auth_key, &kx->decrypt_key, m->iv_seed);
1315 GNUNET_CRYPTO_hmac (&auth_key, &m->sequence_number,
1316 size - ENCRYPTED_HEADER_SIZE, &ph);
1317 if (0 != memcmp (&ph, &m->hmac, sizeof (struct GNUNET_HashCode)))
1319 /* checksum failed */
1320 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1321 "Failed checksum validation for a message from `%s'\n",
1322 GNUNET_i2s (&kx->peer));
1325 derive_iv (&iv, &kx->decrypt_key, m->iv_seed, &GSC_my_identity);
1328 do_decrypt (kx, &iv, &m->sequence_number, &buf[ENCRYPTED_HEADER_SIZE],
1329 size - ENCRYPTED_HEADER_SIZE))
1331 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Decrypted %u bytes from %s\n",
1332 size - ENCRYPTED_HEADER_SIZE, GNUNET_i2s (&kx->peer));
1333 pt = (struct EncryptedMessage *) buf;
1335 /* validate sequence number */
1336 snum = ntohl (pt->sequence_number);
1337 if (kx->last_sequence_number_received == snum)
1339 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1340 "Received duplicate message, ignoring.\n");
1341 /* duplicate, ignore */
1342 GNUNET_STATISTICS_update (GSC_stats,
1343 gettext_noop ("# bytes dropped (duplicates)"),
1347 if ((kx->last_sequence_number_received > snum) &&
1348 (kx->last_sequence_number_received - snum > 32))
1350 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1351 "Received ancient out of sequence message, ignoring.\n");
1352 /* ancient out of sequence, ignore */
1353 GNUNET_STATISTICS_update (GSC_stats,
1355 ("# bytes dropped (out of sequence)"), size,
1359 if (kx->last_sequence_number_received > snum)
1361 unsigned int rotbit = 1 << (kx->last_sequence_number_received - snum - 1);
1363 if ((kx->last_packets_bitmap & rotbit) != 0)
1365 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1366 "Received duplicate message, ignoring.\n");
1367 GNUNET_STATISTICS_update (GSC_stats,
1368 gettext_noop ("# bytes dropped (duplicates)"),
1370 /* duplicate, ignore */
1373 kx->last_packets_bitmap |= rotbit;
1375 if (kx->last_sequence_number_received < snum)
1377 unsigned int shift = (snum - kx->last_sequence_number_received);
1379 if (shift >= 8 * sizeof (kx->last_packets_bitmap))
1380 kx->last_packets_bitmap = 0;
1382 kx->last_packets_bitmap <<= shift;
1383 kx->last_sequence_number_received = snum;
1386 /* check timestamp */
1387 t = GNUNET_TIME_absolute_ntoh (pt->timestamp);
1388 if (GNUNET_TIME_absolute_get_duration (t).rel_value >
1389 MAX_MESSAGE_AGE.rel_value)
1391 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1392 "Message received far too old (%s). Content ignored.\n",
1393 GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (t), GNUNET_YES));
1394 GNUNET_STATISTICS_update (GSC_stats,
1396 ("# bytes dropped (ancient message)"), size,
1401 /* process decrypted message(s) */
1402 update_timeout (kx);
1403 GNUNET_STATISTICS_update (GSC_stats,
1404 gettext_noop ("# bytes of payload decrypted"),
1405 size - sizeof (struct EncryptedMessage), GNUNET_NO);
1408 dmc.atsi_count = atsi_count;
1409 dmc.peer = &kx->peer;
1411 GNUNET_SERVER_mst_receive (mst, &dmc,
1412 &buf[sizeof (struct EncryptedMessage)],
1413 size - sizeof (struct EncryptedMessage),
1414 GNUNET_YES, GNUNET_NO))
1415 GNUNET_break_op (0);
1420 * Deliver P2P message to interested clients.
1421 * Invokes send twice, once for clients that want the full message, and once
1422 * for clients that only want the header
1424 * @param cls always NULL
1425 * @param client who sent us the message (struct GSC_KeyExchangeInfo)
1426 * @param m the message
1429 deliver_message (void *cls, void *client, const struct GNUNET_MessageHeader *m)
1431 struct DeliverMessageContext *dmc = client;
1433 if (KX_STATE_UP != dmc->kx->status)
1435 GNUNET_STATISTICS_update (GSC_stats,
1437 ("# PAYLOAD dropped (out of order)"),
1441 switch (ntohs (m->type))
1443 case GNUNET_MESSAGE_TYPE_CORE_BINARY_TYPE_MAP:
1444 case GNUNET_MESSAGE_TYPE_CORE_COMPRESSED_TYPE_MAP:
1445 GSC_SESSIONS_set_typemap (dmc->peer, m);
1448 GSC_CLIENTS_deliver_message (dmc->peer, dmc->atsi, dmc->atsi_count, m,
1450 GNUNET_CORE_OPTION_SEND_FULL_INBOUND);
1451 GSC_CLIENTS_deliver_message (dmc->peer, dmc->atsi, dmc->atsi_count, m,
1452 sizeof (struct GNUNET_MessageHeader),
1453 GNUNET_CORE_OPTION_SEND_HDR_INBOUND);
1460 * Setup the message that links the ephemeral key to our persistent
1461 * public key and generate the appropriate signature.
1464 sign_ephemeral_key ()
1466 current_ekm.header.size = htons (sizeof (struct EphemeralKeyMessage));
1467 current_ekm.header.type = htons (GNUNET_MESSAGE_TYPE_CORE_EPHEMERAL_KEY);
1468 current_ekm.sender_status = 0; /* to be set later */
1469 current_ekm.purpose.purpose = htonl (GNUNET_SIGNATURE_PURPOSE_SET_ECC_KEY);
1470 current_ekm.purpose.size = htonl (sizeof (struct GNUNET_CRYPTO_EccSignaturePurpose) +
1471 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
1472 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
1473 sizeof (struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded) +
1474 sizeof (struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded));
1475 current_ekm.creation_time = GNUNET_TIME_absolute_hton (GNUNET_TIME_absolute_get ());
1476 current_ekm.expiration_time = GNUNET_TIME_absolute_hton (GNUNET_TIME_relative_to_absolute (GNUNET_TIME_relative_add (REKEY_FREQUENCY,
1478 GNUNET_CRYPTO_ecc_key_get_public (my_ephemeral_key,
1479 ¤t_ekm.ephemeral_key);
1480 current_ekm.origin_public_key = my_public_key;
1481 GNUNET_assert (GNUNET_OK ==
1482 GNUNET_CRYPTO_ecc_sign (my_private_key,
1483 ¤t_ekm.purpose,
1484 ¤t_ekm.signature));
1489 * Task run to trigger rekeying.
1491 * @param cls closure, NULL
1492 * @param tc scheduler context
1495 do_rekey (void *cls,
1496 const struct GNUNET_SCHEDULER_TaskContext *tc)
1498 struct GSC_KeyExchangeInfo *pos;
1500 rekey_task = GNUNET_SCHEDULER_add_delayed (REKEY_FREQUENCY,
1503 if (NULL != my_ephemeral_key)
1504 GNUNET_CRYPTO_ecc_key_free (my_ephemeral_key);
1505 my_ephemeral_key = GNUNET_CRYPTO_ecc_key_create ();
1506 GNUNET_assert (NULL != my_ephemeral_key);
1507 sign_ephemeral_key ();
1508 for (pos = kx_head; NULL != pos; pos = pos->next)
1510 pos->status = KX_STATE_REKEY_SENT;
1517 * Initialize KX subsystem.
1519 * @param pk private key to use for the peer
1520 * @return GNUNET_OK on success, GNUNET_SYSERR on failure
1523 GSC_KX_init (struct GNUNET_CRYPTO_EccPrivateKey *pk)
1525 GNUNET_assert (NULL != pk);
1526 my_private_key = pk;
1527 GNUNET_CRYPTO_ecc_key_get_public (my_private_key, &my_public_key);
1528 GNUNET_CRYPTO_hash (&my_public_key, sizeof (my_public_key),
1529 &GSC_my_identity.hashPubKey);
1531 GNUNET_CONFIGURATION_get_value_yesno (GSC_cfg,
1533 "USE_EPHEMERAL_KEYS"))
1535 my_ephemeral_key = GNUNET_CRYPTO_ecc_key_create ();
1536 if (NULL == my_ephemeral_key)
1539 GNUNET_CRYPTO_ecc_key_free (my_private_key);
1540 my_private_key = NULL;
1541 return GNUNET_SYSERR;
1543 sign_ephemeral_key ();
1544 rekey_task = GNUNET_SCHEDULER_add_delayed (REKEY_FREQUENCY,
1550 my_ephemeral_key = my_private_key;
1551 sign_ephemeral_key ();
1553 mst = GNUNET_SERVER_mst_create (&deliver_message, NULL);
1559 * Shutdown KX subsystem.
1564 if (GNUNET_SCHEDULER_NO_TASK != rekey_task)
1566 GNUNET_SCHEDULER_cancel (rekey_task);
1567 rekey_task = GNUNET_SCHEDULER_NO_TASK;
1569 if ( (NULL != my_ephemeral_key) &&
1570 (my_ephemeral_key != my_private_key) )
1572 GNUNET_CRYPTO_ecc_key_free (my_ephemeral_key);
1573 my_ephemeral_key = NULL;
1575 if (NULL != my_private_key)
1577 GNUNET_CRYPTO_ecc_key_free (my_private_key);
1578 my_private_key = NULL;
1582 GNUNET_SERVER_mst_destroy (mst);
1587 /* end of gnunet-service-core_kx.c */