X-Git-Url: http://git.meshlink.io/?a=blobdiff_plain;f=src%2Flibmeshlink.c;h=cd9e8a745f496ecdbe3e38a19aec652e364acfdc;hb=4ea5d218c5c8e5739071bc6e57cf8404db5323ef;hp=c05d17813a3fbe6e63bee1062222e712f83c5c6d;hpb=3113556aba931142a93384ebd9ba43c842761561;p=meshlink diff --git a/src/libmeshlink.c b/src/libmeshlink.c index c05d1781..cd9e8a74 100644 --- a/src/libmeshlink.c +++ b/src/libmeshlink.c @@ -1,6 +1,6 @@ /* libmeshlink.h -- Tincd Library - Copyright (C) 2014 Guus Sliepen Saverio Proto + Copyright (C) 2014 Guus Sliepen Saverio Proto 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 @@ -17,95 +17,203 @@ 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. */ -#include "libmeshlink.h" +#include "system.h" + +#include + +#include "connection.h" #include "crypto.h" #include "ecdsagen.h" +#include "edge.h" +#include "libmeshlink.h" +#include "net.h" +#include "node.h" +#include "protocol.h" + char *hosts_dir = NULL; +recvdata_cb_t recv_callback; static char *name = NULL; +char *tinc_conf = NULL; +static bool tty = false; + +#ifdef HAVE_MLOCKALL +/* If nonzero, disable swapping for this process. */ +static bool do_mlock = false; +#endif + +/* Open a file with the desired permissions, minus the umask. + Also, if we want to create an executable file, we call fchmod() + to set the executable bits. */ + +FILE *fopenmask(const char *filename, const char *mode, mode_t perms) { + mode_t mask = umask(0); + perms &= ~mask; + umask(~perms); + FILE *f = fopen(filename, mode); +#ifdef HAVE_FCHMOD + if((perms & 0444) && f) + fchmod(fileno(f), perms); +#endif + umask(mask); + return f; +} +static void disable_old_keys(const char *filename, const char *what) { + char tmpfile[PATH_MAX] = ""; + char buf[1024]; + bool disabled = false; + bool block = false; + bool error = false; + FILE *r, *w; + + r = fopen(filename, "r"); + if(!r) + return; + + snprintf(tmpfile, sizeof tmpfile, "%s.tmp", filename); + + struct stat st = {.st_mode = 0600}; + fstat(fileno(r), &st); + w = fopenmask(tmpfile, "w", st.st_mode); + + while(fgets(buf, sizeof buf, r)) { + if(!block && !strncmp(buf, "-----BEGIN ", 11)) { + if((strstr(buf, " EC ") && strstr(what, "ECDSA")) || (strstr(buf, " RSA ") && strstr(what, "RSA"))) { + disabled = true; + block = true; + } + } -/* - Generate a public/private ECDSA keypair, and ask for a file to store - them in. -*/ -bool ecdsa_keygen(bool ask) { - ecdsa_t *key; - FILE *f; - char *pubname, *privname; + bool ecdsapubkey = !strncasecmp(buf, "ECDSAPublicKey", 14) && strchr(" \t=", buf[14]) && strstr(what, "ECDSA"); - fprintf(stderr, "Generating ECDSA keypair:\n"); + if(ecdsapubkey) + disabled = true; - if(!(key = ecdsa_generate())) { - fprintf(stderr, "Error during key generation!\n"); - return false; - } else - fprintf(stderr, "Done.\n"); + if(w) { + if(block || ecdsapubkey) + fputc('#', w); + if(fputs(buf, w) < 0) { + error = true; + break; + } + } - xasprintf(&privname, "%s" SLASH "ecdsa_key.priv", confbase); - //f = ask_and_open(privname, "private ECDSA key", "a", ask, 0600); //this function is not ported to lib because makes no sense - free(privname); + if(block && !strncmp(buf, "-----END ", 9)) + block = false; + } - if(!f) - return false; + if(w) + if(fclose(w) < 0) + error = true; + if(ferror(r) || fclose(r) < 0) + error = true; + + if(disabled) { + if(!w || error) { + fprintf(stderr, "Warning: old key(s) found, remove them by hand!\n"); + if(w) + unlink(tmpfile); + return; + } - if(!ecdsa_write_pem_private_key(key, f)) { - fprintf(stderr, "Error writing private key!\n"); - ecdsa_free(key); - fclose(f); - return false; +#ifdef HAVE_MINGW + // We cannot atomically replace files on Windows. + char bakfile[PATH_MAX] = ""; + snprintf(bakfile, sizeof bakfile, "%s.bak", filename); + if(rename(filename, bakfile) || rename(tmpfile, filename)) { + rename(bakfile, filename); +#else + if(rename(tmpfile, filename)) { +#endif + fprintf(stderr, "Warning: old key(s) found, remove them by hand!\n"); + } else { +#ifdef HAVE_MINGW + unlink(bakfile); +#endif + fprintf(stderr, "Warning: old key(s) found and disabled.\n"); + } } - fclose(f); + unlink(tmpfile); +} - if(name) - xasprintf(&pubname, "%s" SLASH "hosts" SLASH "%s", confbase, name); - else - xasprintf(&pubname, "%s" SLASH "ecdsa_key.pub", confbase); +static FILE *ask_and_open(const char *filename, const char *what, const char *mode, bool ask, mode_t perms) { + FILE *r; + char *directory; + char buf[PATH_MAX]; + char buf2[PATH_MAX]; - //f = ask_and_open(pubname, "public ECDSA key", "a", ask, 0666); - free(pubname); + /* Check stdin and stdout */ + if(ask && tty) { + /* Ask for a file and/or directory name. */ + fprintf(stderr, "Please enter a file to save %s to [%s]: ", what, filename); - if(!f) - return false; + if(fgets(buf, sizeof buf, stdin) == NULL) { + fprintf(stderr, "Error while reading stdin: %s\n", strerror(errno)); + return NULL; + } - char *pubkey = ecdsa_get_base64_public_key(key); - fprintf(f, "ECDSAPublicKey = %s\n", pubkey); - free(pubkey); + size_t len = strlen(buf); + if(len) + buf[--len] = 0; - fclose(f); - ecdsa_free(key); + if(len) + filename = buf; + } - return true; +#ifdef HAVE_MINGW + if(filename[0] != '\\' && filename[0] != '/' && !strchr(filename, ':')) { +#else + if(filename[0] != '/') { +#endif + /* The directory is a relative path or a filename. */ + directory = get_current_dir_name(); + snprintf(buf2, sizeof buf2, "%s" SLASH "%s", directory, filename); + filename = buf2; + } + + disable_old_keys(filename, what); + + /* Open it first to keep the inode busy */ + + r = fopenmask(filename, mode, perms); + + if(!r) { + fprintf(stderr, "Error opening file `%s': %s\n", filename, strerror(errno)); + return NULL; + } + + return r; } /* - Generate a public/private RSA keypair, and ask for a file to store + Generate a public/private ECDSA keypair, and ask for a file to store them in. */ -bool rsa_keygen(int bits, bool ask) { - rsa_t *key; +bool ecdsa_keygen(bool ask) { + ecdsa_t *key; FILE *f; char *pubname, *privname; - fprintf(stderr, "Generating %d bits keys:\n", bits); + fprintf(stderr, "Generating ECDSA keypair:\n"); - if(!(key = rsa_generate(bits, 0x10001))) { + if(!(key = ecdsa_generate())) { fprintf(stderr, "Error during key generation!\n"); return false; } else fprintf(stderr, "Done.\n"); - xasprintf(&privname, "%s" SLASH "rsa_key.priv", confbase); - //f = ask_and_open(privname, "private RSA key", "a", ask, 0600); + xasprintf(&privname, "%s" SLASH "ecdsa_key.priv", confbase); + f = ask_and_open(privname, "private ECDSA key", "a", ask, 0600); free(privname); if(!f) return false; - if(!rsa_write_pem_private_key(key, f)) { + if(!ecdsa_write_pem_private_key(key, f)) { fprintf(stderr, "Error writing private key!\n"); + ecdsa_free(key); fclose(f); - rsa_free(key); return false; } @@ -114,23 +222,20 @@ bool rsa_keygen(int bits, bool ask) { if(name) xasprintf(&pubname, "%s" SLASH "hosts" SLASH "%s", confbase, name); else - xasprintf(&pubname, "%s" SLASH "rsa_key.pub", confbase); + xasprintf(&pubname, "%s" SLASH "ecdsa_key.pub", confbase); - //f = ask_and_open(pubname, "public RSA key", "a", ask, 0666); + f = ask_and_open(pubname, "public ECDSA key", "a", ask, 0666); free(pubname); if(!f) return false; - if(!rsa_write_pem_public_key(key, f)) { - fprintf(stderr, "Error writing public key!\n"); - fclose(f); - rsa_free(key); - return false; - } + char *pubkey = ecdsa_get_base64_public_key(key); + fprintf(f, "ECDSAPublicKey = %s\n", pubkey); + free(pubkey); fclose(f); - rsa_free(key); + ecdsa_free(key); return true; } @@ -164,7 +269,7 @@ static bool try_bind(int port) { return true; } -int check_port(char *name) { +int check_port(const char *name) { if(try_bind(655)) return 655; @@ -193,7 +298,10 @@ int check_port(char *name) { return 0; } //tinc_setup() should basically do what cmd_init() from src/tincctl.c does, except it doesn't have to generate a tinc-up script. -bool tinc_setup(const char* tinc_conf, const char* name) { +bool tinc_setup(const char* confbaseapi, const char* name) { + confbase = xstrdup(confbaseapi); + xasprintf(&tinc_conf, "%s" SLASH "tinc.conf", confbase); + xasprintf(&hosts_dir, "%s" SLASH "hosts", confbase); if(!access(tinc_conf, F_OK)) { fprintf(stderr, "Configuration file %s already exists!\n", tinc_conf); return false; @@ -204,11 +312,6 @@ bool tinc_setup(const char* tinc_conf, const char* name) { return false; } - if(!confbase_given && mkdir(confdir, 0755) && errno != EEXIST) { - fprintf(stderr, "Could not create directory %s: %s\n", confdir, strerror(errno)); - return false; - } - if(mkdir(confbase, 0777) && errno != EEXIST) { fprintf(stderr, "Could not create directory %s: %s\n", confbase, strerror(errno)); return false; @@ -228,7 +331,7 @@ bool tinc_setup(const char* tinc_conf, const char* name) { fprintf(f, "Name = %s\n", name); fclose(f); - if(!rsa_keygen(2048, false) || !ecdsa_keygen(false)) + if(!ecdsa_keygen(false)) return false; check_port(name); @@ -238,12 +341,97 @@ bool tinc_setup(const char* tinc_conf, const char* name) { } -bool tinc_start(const char* path); +bool tinc_start(const char* confbaseapi) { + pthread_t tincThread; + confbase = xstrdup(confbaseapi); + pthread_create(&tincThread,NULL,tinc_main_thread,confbase); + pthread_detach(tincThread); +return true; +} + +__attribute__((constructor)) static void meshlink_init(void) { + /* Slllluuuuuuurrrrp! */ + + gettimeofday(&now, NULL); + srand(now.tv_sec + now.tv_usec); + crypto_init(); +} + +__attribute__((destructor)) static void meshlink_exit(void) { + crypto_exit(); +} + + +void *tinc_main_thread(void * in) { + static bool status = false; + /* If nonzero, write log entries to a separate file. */ + bool use_logfile = false; + + confbase = (char*) in; + + openlogger("tinc", LOGMODE_STDERR); + + init_configuration(&config_tree); + + if(!read_server_config()) + return false; + + //char *priority = NULL; //shoud be not needed in libmeshlink + + /* Setup sockets and open device. */ + + if(!setup_network()) + goto end; + + /* Start main loop. It only exits when tinc is killed. */ + + logger(DEBUG_ALWAYS, LOG_NOTICE, "Ready"); + + try_outgoing_connections(); + + status = main_loop(); + + /* Shutdown properly. */ + +end: + close_network_connections(); + + logger(DEBUG_ALWAYS, LOG_NOTICE, "Terminating"); + + //free(priority); + + exit_configuration(&config_tree); + + return (void *)status; +} bool tinc_stop(); // can be called from any thread -bool tinc_send_packet(node_t *receiver, const char* buf, unsigned int len); +bool tinc_send_packet(node_t *receiver, const char* buf, unsigned int len) { + + vpn_packet_t packet; + tincpackethdr* hdr = (tincpackethdr *)packet.data; + if (sizeof(tincpackethdr) + len > MAXSIZE) { + + //log something + return false; + } + + packet.probe = false; + memset(hdr, 0, sizeof *hdr); + memcpy(hdr->destination,receiver->name,sizeof(hdr->destination)); + memcpy(hdr->source,mesh->self->name,sizeof(hdr->source)); + + packet.len = sizeof(tincpackethdr) + len; + memcpy(packet.data+sizeof(tincpackethdr),buf,len); + + mesh->self->in_packets++; + mesh->self->in_bytes += packet.len; + route(mesh->self, &packet); + +return true; +} // handler runs in tinc thread and should return immediately bool tinc_set_packet_receive_handler(void (*handler)(const char* sender, const char* buf, unsigned int len)); @@ -252,7 +440,11 @@ bool tinc_set_packet_receive_handler(void (*handler)(const char* sender, const c //It might also be a good idea to add the option of looking up hosts by public //key (fingerprints) instead of names. -node_t *tinc_get_host(const char *name); +node_t *tinc_get_host(const char *name) { + + + +}; bool tinc_get_hosts(node_t** hosts); @@ -297,6 +489,8 @@ automatically distributed blacklist or whitelist would be the next step. */ bool tinc_blacklist(node_t *host); - +void recvdata_register_cb(recvdata_cb_t cb) { +recv_callback = cb; +};