1 files changed, 134 insertions, 0 deletions

diff --git a/src/lib/libtls/tls_server.c b/src/lib/libtls/tls_server.c
new file mode 100644
index 0000000000..001f19ded4
--- /dev/null
+++ b/src/lib/libtls/tls_server.c
@@ -0,0 +1,134 @@
+/* $OpenBSD: tls_server.c,v 1.1 2014/10/31 13:46:17 jsing Exp $ */
+/*
+ * Copyright (c) 2014 Joel Sing <jsing@openbsd.org>
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include <openssl/ec.h>
+#include <openssl/ssl.h>
+
+#include <tls.h>
+#include "tls_internal.h"
+
+struct tls *
+tls_server(void)
+{
+        struct tls *ctx;
+
+        if ((ctx = tls_new()) == NULL)
+                return (NULL);
+
+        ctx->flags |= TLS_SERVER;
+
+        return (ctx);
+}
+
+struct tls *
+tls_server_conn(struct tls *ctx)
+{
+        struct tls *conn_ctx;
+
+        if ((conn_ctx = tls_new()) == NULL)
+                return (NULL);
+
+        conn_ctx->flags |= TLS_SERVER_CONN;
+
+        return (conn_ctx);
+}
+
+int
+tls_configure_server(struct tls *ctx)
+{
+        EC_KEY *ecdh_key;
+
+        if ((ctx->ssl_ctx = SSL_CTX_new(SSLv23_server_method())) == NULL) {
+                tls_set_error(ctx, "ssl context failure");
+                goto err;
+        }
+
+        if (tls_configure_ssl(ctx) != 0)
+                goto err;
+        if (tls_configure_keypair(ctx) != 0)
+                goto err;
+
+        if (ctx->config->ecdhcurve == -1) {
+                SSL_CTX_set_ecdh_auto(ctx->ssl_ctx, 1);
+        } else if (ctx->config->ecdhcurve != NID_undef) {
+                if ((ecdh_key = EC_KEY_new_by_curve_name(
+                    ctx->config->ecdhcurve)) == NULL) {
+                        tls_set_error(ctx, "failed to set ECDH curve");
+                        goto err;
+                }
+                SSL_CTX_set_options(ctx->ssl_ctx, SSL_OP_SINGLE_ECDH_USE);
+                SSL_CTX_set_tmp_ecdh(ctx->ssl_ctx, ecdh_key);
+                EC_KEY_free(ecdh_key);
+        }
+
+        return (0);
+
+err:
+        return (-1);
+}
+
+int
+tls_accept_socket(struct tls *ctx, struct tls **cctx, int socket)
+{
+        struct tls *conn_ctx = *cctx;
+        int ret, ssl_err;
+        
+        if ((ctx->flags & TLS_SERVER) == 0) {
+                tls_set_error(ctx, "not a server context");
+                goto err;
+        }
+
+        if (conn_ctx == NULL) {
+                if ((conn_ctx = tls_server_conn(ctx)) == NULL) {
+                        tls_set_error(ctx, "connection context failure");
+                        goto err;
+                }
+                *cctx = conn_ctx;
+
+                conn_ctx->socket = socket;
+
+                if ((conn_ctx->ssl_conn = SSL_new(ctx->ssl_ctx)) == NULL) {
+                        tls_set_error(ctx, "ssl failure");
+                        goto err;
+                }
+
+                if (SSL_set_fd(conn_ctx->ssl_conn, socket) != 1) {
+                        tls_set_error(ctx, "ssl set fd failure");
+                        goto err;
+                }
+                SSL_set_app_data(conn_ctx->ssl_conn, conn_ctx);
+        }
+
+        if ((ret = SSL_accept(conn_ctx->ssl_conn)) != 1) {
+                ssl_err = SSL_get_error(conn_ctx->ssl_conn, ret);
+                switch (ssl_err) {
+                case SSL_ERROR_WANT_READ:
+                        return (TLS_READ_AGAIN);
+                case SSL_ERROR_WANT_WRITE:
+                        return (TLS_WRITE_AGAIN);
+                default:
+                        tls_set_error(ctx, "ssl accept failure (%i)",
+                            ssl_err);
+                        goto err;
+                }
+        }
+
+        return (0);
+
+err:
+        return (-1);
+}