993 lines
29 KiB
C
Executable File
993 lines
29 KiB
C
Executable File
/**
|
|
* @file stroke_configuration.c
|
|
*
|
|
* @brief Implementation of stroke_configuration_t.
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* Copyright (C) 2005 Jan Hutter, Martin Willi
|
|
* Hochschule fuer Technik Rapperswil
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify it
|
|
* under the terms of the GNU General Public License as published by the
|
|
* Free Software Foundation; either version 2 of the License, or (at your
|
|
* option) any later version. See <http://www.fsf.org/copyleft/gpl.txt>.
|
|
*
|
|
* This program is distributed in the hope that it will be useful, but
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
* for more details.
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/socket.h>
|
|
#include <sys/un.h>
|
|
#include <sys/fcntl.h>
|
|
#include <unistd.h>
|
|
#include <errno.h>
|
|
#include <pthread.h>
|
|
|
|
#include "stroke_configuration.h"
|
|
|
|
#include <types.h>
|
|
#include <daemon.h>
|
|
#include <utils/allocator.h>
|
|
#include <queues/jobs/initiate_ike_sa_job.h>
|
|
|
|
/**
|
|
* First retransmit timeout in milliseconds.
|
|
*
|
|
* Timeout value is increasing in each retransmit round.
|
|
*/
|
|
#define RETRANSMIT_TIMEOUT 3000
|
|
|
|
/**
|
|
* Timeout in milliseconds after that a half open IKE_SA gets deleted.
|
|
*/
|
|
#define HALF_OPEN_IKE_SA_TIMEOUT 30000
|
|
|
|
/**
|
|
* Max retransmit count.
|
|
* 0 for infinite. The max time a half open IKE_SA is alive is set by
|
|
* RETRANSMIT_TIMEOUT.
|
|
*/
|
|
#define MAX_RETRANSMIT_COUNT 0
|
|
|
|
|
|
struct sockaddr_un socket_addr = { AF_UNIX, "/var/run/charon.ctl"};
|
|
|
|
|
|
typedef struct preshared_secret_entry_t preshared_secret_entry_t;
|
|
|
|
/**
|
|
* A preshared secret entry combines an identifier and a
|
|
* preshared secret.
|
|
*/
|
|
struct preshared_secret_entry_t {
|
|
|
|
/**
|
|
* Identification.
|
|
*/
|
|
identification_t *identification;
|
|
|
|
/**
|
|
* Preshared secret as chunk_t. The NULL termination is not included.
|
|
*/
|
|
chunk_t preshared_secret;
|
|
};
|
|
|
|
|
|
typedef struct rsa_private_key_entry_t rsa_private_key_entry_t;
|
|
|
|
/**
|
|
* Entry for a rsa private key.
|
|
*/
|
|
struct rsa_private_key_entry_t {
|
|
|
|
/**
|
|
* Identification.
|
|
*/
|
|
identification_t *identification;
|
|
|
|
/**
|
|
* Private key.
|
|
*/
|
|
rsa_private_key_t* private_key;
|
|
};
|
|
|
|
typedef struct rsa_public_key_entry_t rsa_public_key_entry_t;
|
|
|
|
/**
|
|
* Entry for a rsa private key.
|
|
*/
|
|
struct rsa_public_key_entry_t {
|
|
|
|
/**
|
|
* Identification.
|
|
*/
|
|
identification_t *identification;
|
|
|
|
/**
|
|
* Private key.
|
|
*/
|
|
rsa_public_key_t* public_key;
|
|
};
|
|
|
|
typedef struct configuration_entry_t configuration_entry_t;
|
|
|
|
/**
|
|
* A configuration entry combines a configuration name with a init and sa
|
|
* configuration represented as init_config_t and sa_config_t objects.
|
|
*
|
|
* @b Constructors:
|
|
* - configuration_entry_create()
|
|
*/
|
|
struct configuration_entry_t {
|
|
|
|
/**
|
|
* Configuration name.
|
|
*
|
|
*/
|
|
char *name;
|
|
|
|
/**
|
|
* Configuration for IKE_SA_INIT exchange.
|
|
*/
|
|
init_config_t *init_config;
|
|
|
|
/**
|
|
* Configuration for all phases after IKE_SA_INIT exchange.
|
|
*/
|
|
sa_config_t *sa_config;
|
|
|
|
/**
|
|
* Destroys a configuration_entry_t
|
|
*
|
|
* @param this calling object
|
|
*/
|
|
void (*destroy) (configuration_entry_t *this);
|
|
};
|
|
|
|
/**
|
|
* Implementation of configuration_entry_t.destroy.
|
|
*/
|
|
static void configuration_entry_destroy (configuration_entry_t *this)
|
|
{
|
|
allocator_free(this->name);
|
|
allocator_free(this);
|
|
}
|
|
|
|
/**
|
|
* @brief Creates a configuration_entry_t object.
|
|
*
|
|
* @param name name of the configuration entry (gets copied)
|
|
* @param init_config object of type init_config_t
|
|
* @param sa_config object of type sa_config_t
|
|
*/
|
|
static configuration_entry_t * configuration_entry_create(char * name, init_config_t * init_config, sa_config_t * sa_config)
|
|
{
|
|
configuration_entry_t *entry = allocator_alloc_thing(configuration_entry_t);
|
|
|
|
/* functions */
|
|
entry->destroy = configuration_entry_destroy;
|
|
|
|
/* private data */
|
|
entry->init_config = init_config;
|
|
entry->sa_config = sa_config;
|
|
entry->name = allocator_alloc(strlen(name) + 1);
|
|
strcpy(entry->name,name);
|
|
return entry;
|
|
}
|
|
|
|
typedef struct private_stroke_configuration_t private_stroke_configuration_t;
|
|
|
|
/**
|
|
* Private data of an stroke_configuration_t object.
|
|
*/
|
|
struct private_stroke_configuration_t {
|
|
|
|
/**
|
|
* Public part of stroke_configuration_t object.
|
|
*/
|
|
stroke_configuration_t public;
|
|
|
|
/**
|
|
* Holding all configurations.
|
|
*/
|
|
linked_list_t *configurations;
|
|
|
|
/**
|
|
* Holding all managed init_configs.
|
|
*/
|
|
linked_list_t *init_configs;
|
|
|
|
/**
|
|
* Holding all managed init_configs.
|
|
*/
|
|
linked_list_t *sa_configs;
|
|
|
|
/**
|
|
* Holding all managed preshared secrets.
|
|
*/
|
|
linked_list_t *preshared_secrets;
|
|
|
|
/**
|
|
* Holding all managed private secrets.
|
|
*/
|
|
linked_list_t *rsa_private_keys;
|
|
|
|
/**
|
|
* Holding all managed public secrets.
|
|
*/
|
|
linked_list_t *rsa_public_keys;
|
|
|
|
/**
|
|
* Assigned logger_t object.
|
|
*/
|
|
logger_t *logger;
|
|
|
|
/**
|
|
* Max number of requests to be retransmitted.
|
|
* 0 for infinite.
|
|
*/
|
|
u_int32_t max_retransmit_count;
|
|
|
|
/**
|
|
* First retransmit timeout in ms.
|
|
*/
|
|
u_int32_t first_retransmit_timeout;
|
|
|
|
/**
|
|
* Timeout in ms after that time a IKE_SA gets deleted.
|
|
*/
|
|
u_int32_t half_open_ike_sa_timeout;
|
|
|
|
int socket;
|
|
|
|
pthread_t assigned_thread;
|
|
|
|
/**
|
|
* Adds a new IKE_SA configuration.
|
|
*
|
|
* @param this calling object
|
|
* @param name name for the configuration
|
|
* @param init_config init_config_t object
|
|
* @param sa_config sa_config_t object
|
|
*/
|
|
void (*add_new_configuration) (private_stroke_configuration_t *this, char *name, init_config_t *init_config, sa_config_t *sa_config);
|
|
|
|
/**
|
|
* Adds a new preshared secret.
|
|
*
|
|
* @param this calling object
|
|
* @param type type of identification
|
|
* @param id_string identification as string
|
|
* @param preshared_secret preshared secret as string
|
|
*/
|
|
void (*add_new_preshared_secret) (private_stroke_configuration_t *this,id_type_t type, char *id_string, char *preshared_secret);
|
|
|
|
/**
|
|
* Adds a new rsa private key.
|
|
*
|
|
* @param this calling object
|
|
* @param type type of identification
|
|
* @param id_string identification as string
|
|
* @param key_pos location of key
|
|
* @param key_len length of key
|
|
*/
|
|
void (*add_new_rsa_private_key) (private_stroke_configuration_t *this,id_type_t type, char *id_string, u_int8_t *key_pos, size_t key_len);
|
|
|
|
/**
|
|
* Adds a new rsa public key.
|
|
*
|
|
* @param this calling object
|
|
* @param type type of identification
|
|
* @param id_string identification as string
|
|
* @param key_pos location of key
|
|
* @param key_len length of key
|
|
*/
|
|
void (*add_new_rsa_public_key) (private_stroke_configuration_t *this,id_type_t type, char *id_string, u_int8_t *key_pos, size_t key_len);
|
|
|
|
void (*whack_receive) (private_stroke_configuration_t *this);
|
|
};
|
|
|
|
extern u_int8_t public_key_1[];
|
|
extern u_int8_t private_key_1[];
|
|
extern u_int8_t public_key_2[];
|
|
extern u_int8_t private_key_2[];
|
|
|
|
static void fix_string(stroke_msg_t *msg, char **string)
|
|
{
|
|
/* check for sanity of string pointer and string */
|
|
if (string < (char**)msg ||
|
|
string > (char**)msg + sizeof(stroke_msg_t) ||
|
|
*string < (char*)msg->buffer - (u_int)msg ||
|
|
*string > (char*)(u_int)msg->length)
|
|
{
|
|
*string = "(invalid char* in stroke msg)";
|
|
}
|
|
else
|
|
{
|
|
*string = (char*)msg + (u_int)*string;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Implementation of private_stroke_configuration_t.listen.
|
|
*/
|
|
static void whack_receive(private_stroke_configuration_t *this)
|
|
{
|
|
stroke_msg_t *msg;
|
|
u_int16_t msg_length;
|
|
struct sockaddr_un whackaddr;
|
|
int whackaddrlen = sizeof(whackaddr);
|
|
ssize_t n;
|
|
int whackfd;
|
|
|
|
while (1)
|
|
{
|
|
whackfd = accept(this->socket, (struct sockaddr *)&whackaddr, &whackaddrlen);
|
|
|
|
if (whackfd < 0)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "accepting stroke connection failed");
|
|
continue;
|
|
}
|
|
|
|
/* peek the length */
|
|
n = recv(whackfd, &msg_length, sizeof(msg_length), MSG_PEEK);
|
|
if (n != sizeof(msg_length))
|
|
{
|
|
this->logger->log(this->logger, ERROR, "reading lenght of stroke message failed");
|
|
close(whackfd);
|
|
continue;
|
|
}
|
|
|
|
/* read message */
|
|
msg = allocator_alloc(msg_length);
|
|
n = recv(whackfd, msg, msg_length, 0);
|
|
if (n != msg_length)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "reading stroke message failed");
|
|
close(whackfd);
|
|
continue;
|
|
}
|
|
|
|
this->logger->log_bytes(this->logger, RAW|LEVEL1, "Whackinput", (void*)msg, msg_length);
|
|
|
|
switch (msg->type)
|
|
{
|
|
case STR_INITIATE:
|
|
{
|
|
initiate_ike_sa_job_t *job;
|
|
fix_string(msg, &(msg->initiate.name));
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "received stroke: initiate \"%s\"", msg->initiate.name);
|
|
job = initiate_ike_sa_job_create(msg->initiate.name);
|
|
charon->job_queue->add(charon->job_queue, (job_t*)job);
|
|
break;
|
|
}
|
|
case STR_INSTALL:
|
|
{
|
|
fix_string(msg, &(msg->install.name));
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "received stroke: install \"%s\"", msg->install.name);
|
|
break;
|
|
}
|
|
case STR_ADD_CONN:
|
|
{
|
|
sa_config_t *sa_config;
|
|
init_config_t *init_config;
|
|
host_t *me, *other;
|
|
proposal_t *proposal;
|
|
traffic_selector_t *ts;
|
|
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "my id is: \"%p\"", msg->add_conn.me.id);
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "other id is: \"%p\"", msg->add_conn.other.id);
|
|
fix_string(msg, &msg->add_conn.name);
|
|
fix_string(msg, &msg->add_conn.me.id);
|
|
fix_string(msg, &msg->add_conn.other.id);
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "received stroke: add connection \"%s\"", msg->add_conn.name);
|
|
|
|
msg->add_conn.me.address.v4.sin_port = htons(500);
|
|
msg->add_conn.other.address.v4.sin_port = htons(500);
|
|
me = host_create_from_sockaddr(&msg->add_conn.me.address.saddr);
|
|
other = host_create_from_sockaddr(&msg->add_conn.other.address.saddr);
|
|
|
|
init_config = init_config_create(me, other);
|
|
proposal = proposal_create(1);
|
|
proposal->add_algorithm(proposal, IKE, ENCRYPTION_ALGORITHM, ENCR_AES_CBC, 16);
|
|
proposal->add_algorithm(proposal, IKE, INTEGRITY_ALGORITHM, AUTH_HMAC_SHA1_96, 0);
|
|
proposal->add_algorithm(proposal, IKE, PSEUDO_RANDOM_FUNCTION, PRF_HMAC_SHA1, 0);
|
|
proposal->add_algorithm(proposal, IKE, DIFFIE_HELLMAN_GROUP, MODP_1024_BIT, 0);
|
|
init_config->add_proposal(init_config, proposal);
|
|
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "my id is: \"%s\"", msg->add_conn.me.id);
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "other id is: \"%s\"", msg->add_conn.other.id);
|
|
|
|
sa_config = sa_config_create(ID_IPV4_ADDR, msg->add_conn.me.id,
|
|
ID_IPV4_ADDR, msg->add_conn.other.id,
|
|
SHARED_KEY_MESSAGE_INTEGRITY_CODE, 30000);
|
|
|
|
this->add_new_preshared_secret(this, ID_IPV4_ADDR, "192.168.0.1","verschluesselt");
|
|
this->add_new_preshared_secret(this, ID_IPV4_ADDR, "192.168.0.2","verschluesselt");
|
|
|
|
proposal = proposal_create(1);
|
|
proposal->add_algorithm(proposal, ESP, ENCRYPTION_ALGORITHM, ENCR_AES_CBC, 16);
|
|
proposal->add_algorithm(proposal, ESP, INTEGRITY_ALGORITHM, AUTH_HMAC_SHA1_96, 0);
|
|
sa_config->add_proposal(sa_config, proposal);
|
|
|
|
me = host_create_from_sockaddr(&msg->add_conn.me.subnet.saddr);
|
|
ts = traffic_selector_create_from_subnet(me, msg->add_conn.me.subnet_netbits);
|
|
sa_config->add_my_traffic_selector(sa_config,ts);
|
|
chunk_t chunk = ts->get_to_address(ts);
|
|
this->logger->log_chunk(this->logger, CONTROL|LEVEL1, "my toaddr", &chunk);
|
|
other = host_create_from_sockaddr(&msg->add_conn.other.subnet.saddr);
|
|
ts = traffic_selector_create_from_subnet(other, msg->add_conn.other.subnet_netbits);
|
|
sa_config->add_other_traffic_selector(sa_config,ts);
|
|
chunk = ts->get_to_address(ts);
|
|
this->logger->log_chunk(this->logger, CONTROL|LEVEL1, "other toaddr", &chunk);
|
|
|
|
this->add_new_configuration(this, msg->add_conn.name, init_config, sa_config);
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "connection added \"%s\"", msg->add_conn.name);
|
|
|
|
break;
|
|
}
|
|
case STR_DEL_CONN:
|
|
default:
|
|
this->logger->log(this->logger, ERROR, "received invalid stroke");
|
|
}
|
|
|
|
allocator_free(msg);
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_init_config_for_host.
|
|
*/
|
|
static status_t get_init_config_for_host (private_stroke_configuration_t *this, host_t *my_host, host_t *other_host,init_config_t **init_config)
|
|
{
|
|
iterator_t *iterator;
|
|
status_t status = NOT_FOUND;
|
|
|
|
iterator = this->configurations->create_iterator(this->configurations,TRUE);
|
|
|
|
this->logger->log(this->logger, CONTROL|LEVEL1, "getting config for hosts %s - %s",
|
|
my_host->get_address(my_host), other_host->get_address(other_host));
|
|
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
configuration_entry_t *entry;
|
|
host_t *config_my_host;
|
|
host_t *config_other_host;
|
|
|
|
iterator->current(iterator,(void **) &entry);
|
|
|
|
config_my_host = entry->init_config->get_my_host(entry->init_config);
|
|
config_other_host = entry->init_config->get_other_host(entry->init_config);
|
|
|
|
/* first check if ip is equal */
|
|
if(config_other_host->ip_is_equal(config_other_host,other_host))
|
|
{
|
|
this->logger->log(this->logger, CONTROL|LEVEL2, "config entry with remote host %s",
|
|
config_other_host->get_address(config_other_host));
|
|
/* could be right one, check my_host for default route*/
|
|
if (config_my_host->is_default_route(config_my_host))
|
|
{
|
|
*init_config = entry->init_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
/* check now if host informations are the same */
|
|
else if (config_my_host->ip_is_equal(config_my_host,my_host))
|
|
{
|
|
*init_config = entry->init_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
|
|
}
|
|
/* Then check for wildcard hosts!
|
|
* TODO
|
|
* actually its only checked if other host with default route can be found! */
|
|
else if (config_other_host->is_default_route(config_other_host))
|
|
{
|
|
/* could be right one, check my_host for default route*/
|
|
if (config_my_host->is_default_route(config_my_host))
|
|
{
|
|
*init_config = entry->init_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
/* check now if host informations are the same */
|
|
else if (config_my_host->ip_is_equal(config_my_host,my_host))
|
|
{
|
|
*init_config = entry->init_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
iterator->destroy(iterator);
|
|
|
|
return status;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_init_config_for_name.
|
|
*/
|
|
static status_t get_init_config_for_name (private_stroke_configuration_t *this, char *name, init_config_t **init_config)
|
|
{
|
|
iterator_t *iterator;
|
|
status_t status = NOT_FOUND;
|
|
|
|
iterator = this->configurations->create_iterator(this->configurations,TRUE);
|
|
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
configuration_entry_t *entry;
|
|
iterator->current(iterator,(void **) &entry);
|
|
|
|
if (strcmp(entry->name,name) == 0)
|
|
{
|
|
|
|
/* found configuration */
|
|
*init_config = entry->init_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
}
|
|
|
|
iterator->destroy(iterator);
|
|
|
|
return status;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_sa_config_for_name.
|
|
*/
|
|
static status_t get_sa_config_for_name (private_stroke_configuration_t *this, char *name, sa_config_t **sa_config)
|
|
{
|
|
iterator_t *iterator;
|
|
status_t status = NOT_FOUND;
|
|
|
|
iterator = this->configurations->create_iterator(this->configurations,TRUE);
|
|
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
configuration_entry_t *entry;
|
|
iterator->current(iterator,(void **) &entry);
|
|
|
|
if (strcmp(entry->name,name) == 0)
|
|
{
|
|
/* found configuration */
|
|
*sa_config = entry->sa_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
}
|
|
|
|
iterator->destroy(iterator);
|
|
|
|
return status;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_sa_config_for_init_config_and_id.
|
|
*/
|
|
static status_t get_sa_config_for_init_config_and_id (private_stroke_configuration_t *this, init_config_t *init_config, identification_t *other_id, identification_t *my_id,sa_config_t **sa_config)
|
|
{
|
|
iterator_t *iterator;
|
|
status_t status = NOT_FOUND;
|
|
|
|
iterator = this->configurations->create_iterator(this->configurations,TRUE);
|
|
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
configuration_entry_t *entry;
|
|
iterator->current(iterator,(void **) &entry);
|
|
|
|
if (entry->init_config == init_config)
|
|
{
|
|
identification_t *config_my_id = entry->sa_config->get_my_id(entry->sa_config);
|
|
identification_t *config_other_id = entry->sa_config->get_other_id(entry->sa_config);
|
|
|
|
/* host informations seem to be the same */
|
|
if (config_other_id->equals(config_other_id,other_id))
|
|
{
|
|
/* other ids seems to match */
|
|
|
|
if (my_id == NULL)
|
|
{
|
|
/* first matching one is selected */
|
|
|
|
/* TODO priorize found entries */
|
|
*sa_config = entry->sa_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
|
|
if (config_my_id->equals(config_my_id,my_id))
|
|
{
|
|
*sa_config = entry->sa_config;
|
|
status = SUCCESS;
|
|
break;
|
|
}
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
iterator->destroy(iterator);
|
|
|
|
return status;
|
|
}
|
|
|
|
/**
|
|
* Implementation of private_stroke_configuration_t.add_new_configuration.
|
|
*/
|
|
static void add_new_configuration (private_stroke_configuration_t *this, char *name, init_config_t *init_config, sa_config_t *sa_config)
|
|
{
|
|
iterator_t *iterator;
|
|
bool found;
|
|
|
|
iterator = this->init_configs->create_iterator(this->init_configs,TRUE);
|
|
found = FALSE;
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
init_config_t *found_init_config;
|
|
iterator->current(iterator,(void **) &found_init_config);
|
|
if (init_config == found_init_config)
|
|
{
|
|
found = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
iterator->destroy(iterator);
|
|
if (!found)
|
|
{
|
|
this->init_configs->insert_first(this->init_configs,init_config);
|
|
}
|
|
|
|
iterator = this->sa_configs->create_iterator(this->sa_configs,TRUE);
|
|
found = FALSE;
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
sa_config_t *found_sa_config;
|
|
iterator->current(iterator,(void **) &found_sa_config);
|
|
if (sa_config == found_sa_config)
|
|
{
|
|
found = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
iterator->destroy(iterator);
|
|
if (!found)
|
|
{
|
|
this->sa_configs->insert_first(this->sa_configs,sa_config);
|
|
}
|
|
|
|
this->configurations->insert_last(this->configurations,configuration_entry_create(name,init_config,sa_config));
|
|
}
|
|
|
|
/**
|
|
* Implementation of private_stroke_configuration_t.add_new_preshared_secret.
|
|
*/
|
|
static void add_new_preshared_secret (private_stroke_configuration_t *this,id_type_t type, char *id_string, char *preshared_secret)
|
|
{
|
|
preshared_secret_entry_t *entry = allocator_alloc_thing(preshared_secret_entry_t);
|
|
|
|
entry->identification = identification_create_from_string(type,id_string);
|
|
entry->preshared_secret.len = strlen(preshared_secret) + 1;
|
|
entry->preshared_secret.ptr = allocator_alloc(entry->preshared_secret.len);
|
|
memcpy(entry->preshared_secret.ptr,preshared_secret,entry->preshared_secret.len);
|
|
|
|
this->preshared_secrets->insert_last(this->preshared_secrets,entry);
|
|
}
|
|
|
|
/**
|
|
* Implementation of private_stroke_configuration_t.add_new_preshared_secret.
|
|
*/
|
|
static void add_new_rsa_public_key (private_stroke_configuration_t *this, id_type_t type, char *id_string, u_int8_t* key_pos, size_t key_len)
|
|
{
|
|
chunk_t key;
|
|
key.ptr = key_pos;
|
|
key.len = key_len;
|
|
|
|
rsa_public_key_entry_t *entry = allocator_alloc_thing(rsa_public_key_entry_t);
|
|
|
|
entry->identification = identification_create_from_string(type,id_string);
|
|
entry->public_key = rsa_public_key_create();
|
|
entry->public_key->set_key(entry->public_key, key);
|
|
|
|
this->rsa_public_keys->insert_last(this->rsa_public_keys, entry);
|
|
}
|
|
|
|
/**
|
|
* Implementation of private_stroke_configuration_t.add_new_preshared_secret.
|
|
*/
|
|
static void add_new_rsa_private_key (private_stroke_configuration_t *this, id_type_t type, char *id_string, u_int8_t* key_pos, size_t key_len)
|
|
{
|
|
chunk_t key;
|
|
key.ptr = key_pos;
|
|
key.len = key_len;
|
|
|
|
rsa_private_key_entry_t *entry = allocator_alloc_thing(rsa_private_key_entry_t);
|
|
|
|
entry->identification = identification_create_from_string(type,id_string);
|
|
entry->private_key = rsa_private_key_create();
|
|
entry->private_key->set_key(entry->private_key, key);
|
|
|
|
this->rsa_private_keys->insert_last(this->rsa_private_keys, entry);
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_shared_secret.
|
|
*/
|
|
static status_t get_shared_secret(private_stroke_configuration_t *this, identification_t *identification, chunk_t *preshared_secret)
|
|
{
|
|
iterator_t *iterator;
|
|
|
|
iterator = this->preshared_secrets->create_iterator(this->preshared_secrets,TRUE);
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
preshared_secret_entry_t *entry;
|
|
iterator->current(iterator,(void **) &entry);
|
|
if (entry->identification->equals(entry->identification,identification))
|
|
{
|
|
*preshared_secret = entry->preshared_secret;
|
|
iterator->destroy(iterator);
|
|
return SUCCESS;
|
|
}
|
|
}
|
|
iterator->destroy(iterator);
|
|
return NOT_FOUND;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_shared_secret.
|
|
*/
|
|
static status_t get_rsa_public_key(private_stroke_configuration_t *this, identification_t *identification, rsa_public_key_t **public_key)
|
|
{
|
|
iterator_t *iterator;
|
|
|
|
iterator = this->rsa_public_keys->create_iterator(this->rsa_public_keys,TRUE);
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
rsa_public_key_entry_t *entry;
|
|
iterator->current(iterator,(void **) &entry);
|
|
if (entry->identification->equals(entry->identification,identification))
|
|
{
|
|
*public_key = entry->public_key;
|
|
iterator->destroy(iterator);
|
|
return SUCCESS;
|
|
}
|
|
}
|
|
iterator->destroy(iterator);
|
|
return NOT_FOUND;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_shared_secret.
|
|
*/
|
|
static status_t get_rsa_private_key(private_stroke_configuration_t *this, identification_t *identification, rsa_private_key_t **private_key)
|
|
{
|
|
iterator_t *iterator;
|
|
|
|
iterator = this->rsa_private_keys->create_iterator(this->rsa_private_keys,TRUE);
|
|
while (iterator->has_next(iterator))
|
|
{
|
|
rsa_private_key_entry_t *entry;
|
|
iterator->current(iterator,(void **) &entry);
|
|
if (entry->identification->equals(entry->identification,identification))
|
|
{
|
|
*private_key = entry->private_key;
|
|
iterator->destroy(iterator);
|
|
return SUCCESS;
|
|
}
|
|
}
|
|
iterator->destroy(iterator);
|
|
return NOT_FOUND;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_retransmit_timeout.
|
|
*/
|
|
static status_t get_retransmit_timeout (private_stroke_configuration_t *this, u_int32_t retransmit_count, u_int32_t *timeout)
|
|
{
|
|
int new_timeout = this->first_retransmit_timeout, i;
|
|
if ((retransmit_count > this->max_retransmit_count) && (this->max_retransmit_count != 0))
|
|
{
|
|
return FAILED;
|
|
}
|
|
|
|
|
|
for (i = 0; i < retransmit_count; i++)
|
|
{
|
|
new_timeout *= 2;
|
|
}
|
|
|
|
*timeout = new_timeout;
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.get_half_open_ike_sa_timeout.
|
|
*/
|
|
static u_int32_t get_half_open_ike_sa_timeout (private_stroke_configuration_t *this)
|
|
{
|
|
return this->half_open_ike_sa_timeout;
|
|
}
|
|
|
|
/**
|
|
* Implementation of stroke_configuration_t.destroy.
|
|
*/
|
|
static void destroy(private_stroke_configuration_t *this)
|
|
{
|
|
this->logger->log(this->logger,CONTROL | LEVEL1, "Going to destroy configuration backend ");
|
|
|
|
this->logger->log(this->logger,CONTROL | LEVEL2, "Destroy configuration entries");
|
|
while (this->configurations->get_count(this->configurations) > 0)
|
|
{
|
|
configuration_entry_t *entry;
|
|
this->configurations->remove_first(this->configurations,(void **) &entry);
|
|
entry->destroy(entry);
|
|
}
|
|
this->configurations->destroy(this->configurations);
|
|
|
|
this->logger->log(this->logger,CONTROL | LEVEL2, "Destroy sa_config_t objects");
|
|
while (this->sa_configs->get_count(this->sa_configs) > 0)
|
|
{
|
|
sa_config_t *sa_config;
|
|
this->sa_configs->remove_first(this->sa_configs,(void **) &sa_config);
|
|
sa_config->destroy(sa_config);
|
|
}
|
|
|
|
this->sa_configs->destroy(this->sa_configs);
|
|
|
|
this->logger->log(this->logger,CONTROL | LEVEL2, "Destroy init_config_t objects");
|
|
while (this->init_configs->get_count(this->init_configs) > 0)
|
|
{
|
|
init_config_t *init_config;
|
|
this->init_configs->remove_first(this->init_configs,(void **) &init_config);
|
|
init_config->destroy(init_config);
|
|
}
|
|
this->init_configs->destroy(this->init_configs);
|
|
|
|
while (this->preshared_secrets->get_count(this->preshared_secrets) > 0)
|
|
{
|
|
preshared_secret_entry_t *entry;
|
|
this->preshared_secrets->remove_first(this->preshared_secrets,(void **) &entry);
|
|
entry->identification->destroy(entry->identification);
|
|
allocator_free_chunk(&(entry->preshared_secret));
|
|
allocator_free(entry);
|
|
}
|
|
this->preshared_secrets->destroy(this->preshared_secrets);
|
|
|
|
this->logger->log(this->logger,CONTROL | LEVEL2, "Destroy rsa private keys");
|
|
while (this->rsa_private_keys->get_count(this->rsa_private_keys) > 0)
|
|
{
|
|
rsa_private_key_entry_t *entry;
|
|
this->rsa_private_keys->remove_first(this->rsa_private_keys,(void **) &entry);
|
|
entry->identification->destroy(entry->identification);
|
|
entry->private_key->destroy(entry->private_key);
|
|
allocator_free(entry);
|
|
}
|
|
this->rsa_private_keys->destroy(this->rsa_private_keys);
|
|
|
|
this->logger->log(this->logger,CONTROL | LEVEL2, "Destroy rsa public keys");
|
|
while (this->rsa_public_keys->get_count(this->rsa_public_keys) > 0)
|
|
{
|
|
rsa_public_key_entry_t *entry;
|
|
this->rsa_public_keys->remove_first(this->rsa_public_keys,(void **) &entry);
|
|
entry->identification->destroy(entry->identification);
|
|
entry->public_key->destroy(entry->public_key);
|
|
allocator_free(entry);
|
|
}
|
|
this->rsa_public_keys->destroy(this->rsa_public_keys);
|
|
|
|
this->logger->log(this->logger,CONTROL | LEVEL2, "Destroy assigned logger");
|
|
charon->logger_manager->destroy_logger(charon->logger_manager,this->logger);
|
|
close(this->socket);
|
|
unlink(socket_addr.sun_path);
|
|
allocator_free(this);
|
|
}
|
|
|
|
/*
|
|
* Described in header-file
|
|
*/
|
|
stroke_configuration_t *stroke_configuration_create()
|
|
{
|
|
private_stroke_configuration_t *this = allocator_alloc_thing(private_stroke_configuration_t);
|
|
mode_t old;
|
|
bool on = TRUE;
|
|
|
|
/* public functions */
|
|
this->public.configuration_interface.destroy = (void(*)(configuration_t*))destroy;
|
|
this->public.configuration_interface.get_init_config_for_name = (status_t (*) (configuration_t *, char *, init_config_t **)) get_init_config_for_name;
|
|
this->public.configuration_interface.get_init_config_for_host = (status_t (*) (configuration_t *, host_t *, host_t *,init_config_t **)) get_init_config_for_host;
|
|
this->public.configuration_interface.get_sa_config_for_name =(status_t (*) (configuration_t *, char *, sa_config_t **)) get_sa_config_for_name;
|
|
this->public.configuration_interface.get_sa_config_for_init_config_and_id =(status_t (*) (configuration_t *, init_config_t *, identification_t *, identification_t *,sa_config_t **)) get_sa_config_for_init_config_and_id;
|
|
this->public.configuration_interface.get_retransmit_timeout = (status_t (*) (configuration_t *, u_int32_t retransmit_count, u_int32_t *timeout))get_retransmit_timeout;
|
|
this->public.configuration_interface.get_half_open_ike_sa_timeout = (u_int32_t (*) (configuration_t *)) get_half_open_ike_sa_timeout;
|
|
this->public.configuration_interface.get_shared_secret = (status_t (*) (configuration_t *, identification_t *, chunk_t *))get_shared_secret;
|
|
this->public.configuration_interface.get_rsa_private_key = (status_t (*) (configuration_t *, identification_t *, rsa_private_key_t**))get_rsa_private_key;
|
|
this->public.configuration_interface.get_rsa_public_key = (status_t (*) (configuration_t *, identification_t *, rsa_public_key_t**))get_rsa_public_key;
|
|
|
|
/* private functions */
|
|
this->add_new_configuration = add_new_configuration;
|
|
this->add_new_preshared_secret = add_new_preshared_secret;
|
|
this->add_new_rsa_public_key = add_new_rsa_public_key;
|
|
this->add_new_rsa_private_key = add_new_rsa_private_key;
|
|
this->whack_receive = whack_receive;
|
|
|
|
this->logger = charon->logger_manager->create_logger(charon->logger_manager,CONFIG,NULL);
|
|
|
|
/* set up unix socket */
|
|
this->socket = socket(AF_UNIX, SOCK_STREAM, 0);
|
|
if (this->socket == -1)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "could not create whack socket");
|
|
charon->logger_manager->destroy_logger(charon->logger_manager,this->logger);
|
|
allocator_free(this);
|
|
return NULL;
|
|
}
|
|
if (fcntl(this->socket, F_SETFD, FD_CLOEXEC) < 0)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "could not FD_CLOEXEC on whack socket");
|
|
charon->logger_manager->destroy_logger(charon->logger_manager,this->logger);
|
|
close(this->socket);
|
|
allocator_free(this);
|
|
return NULL;
|
|
}
|
|
if (setsockopt(this->socket, SOL_SOCKET, SO_REUSEADDR, (const void *)&on, sizeof(on)) < 0)
|
|
|
|
old = umask(~S_IRWXU);
|
|
if (bind(this->socket, (struct sockaddr *)&socket_addr, sizeof(socket_addr)) < 0)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "could not bind whack socket: %s", strerror(errno));
|
|
charon->logger_manager->destroy_logger(charon->logger_manager,this->logger);
|
|
close(this->socket);
|
|
allocator_free(this);
|
|
return NULL;
|
|
}
|
|
umask(old);
|
|
|
|
if (listen(this->socket, 0) < 0)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "could not listen on whack socket: %s", strerror(errno));
|
|
charon->logger_manager->destroy_logger(charon->logger_manager,this->logger);
|
|
close(this->socket);
|
|
unlink(socket_addr.sun_path);
|
|
allocator_free(this);
|
|
return NULL;
|
|
}
|
|
|
|
/* start a thread reading from the socket */
|
|
if (pthread_create(&(this->assigned_thread), NULL, (void*(*)(void*))this->whack_receive, this) != 0)
|
|
{
|
|
this->logger->log(this->logger, ERROR, "Could not spawn whack thread");
|
|
charon->logger_manager->destroy_logger(charon->logger_manager, this->logger);
|
|
close(this->socket);
|
|
unlink(socket_addr.sun_path);
|
|
allocator_free(this);
|
|
}
|
|
|
|
/* private variables */
|
|
this->configurations = linked_list_create();
|
|
this->sa_configs = linked_list_create();
|
|
this->init_configs = linked_list_create();
|
|
this->preshared_secrets = linked_list_create();
|
|
this->rsa_private_keys = linked_list_create();
|
|
this->rsa_public_keys = linked_list_create();
|
|
this->max_retransmit_count = MAX_RETRANSMIT_COUNT;
|
|
this->first_retransmit_timeout = RETRANSMIT_TIMEOUT;
|
|
this->half_open_ike_sa_timeout = HALF_OPEN_IKE_SA_TIMEOUT;
|
|
|
|
return (&this->public);
|
|
}
|