tls: add openssl engine

Change-Id: I6c215858d2c9c620787632b570950b15274c0df2
Signed-off-by: Florin Coras <fcoras@cisco.com>

4 files changed, 823 insertions, 28 deletions

diff --git a/src/plugins/Makefile.am b/src/plugins/Makefile.am
index 8b46986c9b8..0381502d3da 100644
--- a/src/plugins/Makefile.am
+++ b/src/plugins/Makefile.am
@@ -115,6 +115,10 @@ if ENABLE_TLSMBEDTLS_PLUGIN
 include tlsmbedtls.am
 endif
 
+if ENABLE_TLSOPENSSL_PLUGIN
+include tlsopenssl.am
+endif
+
 include ../suffix-rules.mk
 
 # Remove *.la files
diff --git a/src/plugins/tlsmbedtls/tls_mbedtls.c b/src/plugins/tlsmbedtls/tls_mbedtls.c
index 1bae1f726f8..aaad99f0fdb 100644
--- a/src/plugins/tlsmbedtls/tls_mbedtls.c
+++ b/src/plugins/tlsmbedtls/tls_mbedtls.c
@@ -28,6 +28,7 @@
 typedef struct tls_ctx_mbedtls_
 {
   tls_ctx_t ctx;			/**< First */
+  u32 mbedtls_ctx_index;
   mbedtls_ssl_context ssl;
   mbedtls_ssl_config conf;
   mbedtls_x509_crt srvcert;
@@ -40,6 +41,8 @@ typedef struct mbedtls_main_
   mbedtls_ctr_drbg_context *ctr_drbgs;
   mbedtls_entropy_context *entropy_pools;
   mbedtls_x509_crt cacert;
+  u8 **rx_bufs;
+  u8 **tx_bufs;
 } mbedtls_main_t;
 
 static mbedtls_main_t mbedtls_main;
@@ -64,7 +67,7 @@ mbedtls_free_fn (void *ptr)
 }
 #endif
 
-u32
+static u32
 mbedtls_ctx_alloc (void)
 {
   u8 thread_index = vlib_get_thread_index ();
@@ -77,10 +80,12 @@ mbedtls_ctx_alloc (void)
 
   memset (*ctx, 0, sizeof (mbedtls_ctx_t));
   (*ctx)->ctx.c_thread_index = thread_index;
-  return ctx - tm->ctx_pool[thread_index];
+  (*ctx)->ctx.tls_ctx_engine = TLS_ENGINE_MBEDTLS;
+  (*ctx)->mbedtls_ctx_index = ctx - tm->ctx_pool[thread_index];
+  return ((*ctx)->mbedtls_ctx_index);
 }
 
-void
+static void
 mbedtls_ctx_free (tls_ctx_t * ctx)
 {
   mbedtls_ctx_t *mc = (mbedtls_ctx_t *) ctx;
@@ -95,11 +100,11 @@ mbedtls_ctx_free (tls_ctx_t * ctx)
   mbedtls_ssl_free (&mc->ssl);
   mbedtls_ssl_config_free (&mc->conf);
 
-  pool_put_index (mbedtls_main.ctx_pool[vlib_get_thread_index ()],
-		  ctx->tls_ctx_idx);
+  pool_put_index (mbedtls_main.ctx_pool[ctx->c_thread_index],
+		  mc->mbedtls_ctx_index);
 }
 
-tls_ctx_t *
+static tls_ctx_t *
 mbedtls_ctx_get (u32 ctx_index)
 {
   mbedtls_ctx_t **ctx;
@@ -108,7 +113,7 @@ mbedtls_ctx_get (u32 ctx_index)
   return &(*ctx)->ctx;
 }
 
-tls_ctx_t *
+static tls_ctx_t *
 mbedtls_ctx_get_w_thread (u32 ctx_index, u8 thread_index)
 {
   mbedtls_ctx_t **ctx;
@@ -233,7 +238,7 @@ mbedtls_ctx_init_client (tls_ctx_t * ctx)
       return -1;
     }
 
-  ctx_ptr = uword_to_pointer (ctx->tls_ctx_idx, void *);
+  ctx_ptr = uword_to_pointer (mc->mbedtls_ctx_index, void *);
   mbedtls_ssl_set_bio (&mc->ssl, ctx_ptr, tls_net_send, tls_net_recv, NULL);
   mbedtls_debug_set_threshold (TLS_DEBUG_LEVEL_CLIENT);
 
@@ -241,7 +246,7 @@ mbedtls_ctx_init_client (tls_ctx_t * ctx)
    * 2. Do the first 2 steps in the handshake.
    */
   TLS_DBG (1, "Initiating handshake for [%u]%u", ctx->c_thread_index,
-	   ctx->tls_ctx_idx);
+	   mc->mbedtls_ctx_index);
   while (mc->ssl.state != MBEDTLS_SSL_HANDSHAKE_OVER)
     {
       rv = mbedtls_ssl_handshake_step (&mc->ssl);
@@ -249,7 +254,7 @@ mbedtls_ctx_init_client (tls_ctx_t * ctx)
 	break;
     }
   TLS_DBG (2, "tls state for [%u]%u is %u", ctx->c_thread_index,
-	   ctx->tls_ctx_idx, mc->ssl.state);
+	   mc->mbedtls_ctx_index, mc->ssl.state);
   return 0;
 }
 
@@ -332,7 +337,7 @@ mbedtls_ctx_init_server (tls_ctx_t * ctx)
     }
 
   mbedtls_ssl_session_reset (&mc->ssl);
-  ctx_ptr = uword_to_pointer (ctx->tls_ctx_idx, void *);
+  ctx_ptr = uword_to_pointer (mc->mbedtls_ctx_index, void *);
   mbedtls_ssl_set_bio (&mc->ssl, ctx_ptr, tls_net_send, tls_net_recv, NULL);
   mbedtls_debug_set_threshold (TLS_DEBUG_LEVEL_SERVER);
 
@@ -340,7 +345,7 @@ mbedtls_ctx_init_server (tls_ctx_t * ctx)
    * 3. Start handshake state machine
    */
   TLS_DBG (1, "Initiating handshake for [%u]%u", ctx->c_thread_index,
-	   ctx->tls_ctx_idx);
+	   mc->mbedtls_ctx_index);
   while (mc->ssl.state != MBEDTLS_SSL_HANDSHAKE_OVER)
     {
       rv = mbedtls_ssl_handshake_step (&mc->ssl);
@@ -349,7 +354,7 @@ mbedtls_ctx_init_server (tls_ctx_t * ctx)
     }
 
   TLS_DBG (2, "tls state for [%u]%u is %u", ctx->c_thread_index,
-	   ctx->tls_ctx_idx, mc->ssl.state);
+	   mc->mbedtls_ctx_index, mc->ssl.state);
   return 0;
 
 exit:
@@ -357,7 +362,7 @@ exit:
 }
 
 static int
-mbedtls_handshake_rx (tls_ctx_t * ctx)
+mbedtls_ctx_handshake_rx (tls_ctx_t * ctx)
 {
   mbedtls_ctx_t *mc = (mbedtls_ctx_t *) ctx;
   u32 flags;
@@ -368,10 +373,10 @@ mbedtls_handshake_rx (tls_ctx_t * ctx)
       if (rv != 0)
 	break;
     }
-  TLS_DBG (2, "tls state for %u is %u", ctx->tls_ctx_idx, mc->ssl.state);
+  TLS_DBG (2, "tls state for %u is %u", mc->mbedtls_ctx_index, mc->ssl.state);
 
   if (mc->ssl.state != MBEDTLS_SSL_HANDSHAKE_OVER)
-    return HANDSHAKE_NOT_OVER;
+    return 0;
 
   /*
    * Handshake complete
@@ -392,32 +397,120 @@ mbedtls_handshake_rx (tls_ctx_t * ctx)
 	   * Presence of hostname enforces strict certificate verification
 	   */
 	  if (ctx->srv_hostname)
-	    return CLIENT_HANDSHAKE_FAIL;
+	    {
+	      tls_notify_app_connected (ctx, /* is failed */ 0);
+	      return -1;
+	    }
 	}
-      rv = CLIENT_HANDSHAKE_OK;
+      tls_notify_app_connected (ctx, /* is failed */ 0);
     }
   else
     {
-      rv = SERVER_HANDSHAKE_OK;
+      tls_notify_app_accept (ctx);
     }
 
   TLS_DBG (1, "Handshake for %u complete. TLS cipher is %x",
-	   ctx->tls_ctx_idx, mc->ssl.session->ciphersuite);
-  return rv;
+	   mc->mbedtls_ctx_index, mc->ssl.session->ciphersuite);
+  return 0;
 }
 
 static int
-mbedtls_write (tls_ctx_t * ctx, u8 * buf, u32 len)
+mbedtls_ctx_write (tls_ctx_t * ctx, stream_session_t * app_session)
 {
   mbedtls_ctx_t *mc = (mbedtls_ctx_t *) ctx;
-  return mbedtls_ssl_write (&mc->ssl, buf, len);
+  u8 thread_index = ctx->c_thread_index;
+  mbedtls_main_t *mm = &mbedtls_main;
+  u32 enq_max, deq_max, deq_now;
+  stream_session_t *tls_session;
+  int wrote;
+
+  ASSERT (mc->ssl.state == MBEDTLS_SSL_HANDSHAKE_OVER);
+
+  deq_max = svm_fifo_max_dequeue (app_session->server_tx_fifo);
+  if (!deq_max)
+    return 0;
+
+  tls_session = session_get_from_handle (ctx->tls_session_handle);
+  enq_max = svm_fifo_max_enqueue (tls_session->server_tx_fifo);
+  deq_now = clib_min (deq_max, TLS_CHUNK_SIZE);
+
+  if (PREDICT_FALSE (enq_max == 0))
+    {
+      tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+      return 0;
+    }
+
+  vec_validate (mm->tx_bufs[thread_index], deq_now);
+  svm_fifo_peek (app_session->server_tx_fifo, 0, deq_now,
+		 mm->tx_bufs[thread_index]);
+
+  wrote = mbedtls_ssl_write (&mc->ssl, mm->tx_bufs[thread_index], deq_now);
+  if (wrote <= 0)
+    {
+      tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+      return 0;
+    }
+
+  svm_fifo_dequeue_drop (app_session->server_tx_fifo, wrote);
+  vec_reset_length (mm->tx_bufs[thread_index]);
+  tls_add_vpp_q_evt (tls_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+
+  if (deq_now < deq_max)
+    tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+
+  return 0;
 }
 
 static int
-mbedtls_read (tls_ctx_t * ctx, u8 * buf, u32 len)
+mbedtls_ctx_read (tls_ctx_t * ctx, stream_session_t * tls_session)
 {
   mbedtls_ctx_t *mc = (mbedtls_ctx_t *) ctx;
-  return mbedtls_ssl_read (&mc->ssl, buf, len);
+  mbedtls_main_t *mm = &mbedtls_main;
+  u8 thread_index = ctx->c_thread_index;
+  u32 deq_max, enq_max, enq_now;
+  stream_session_t *app_session;
+  int read, enq;
+
+  if (PREDICT_FALSE (mc->ssl.state != MBEDTLS_SSL_HANDSHAKE_OVER))
+    {
+      mbedtls_ctx_handshake_rx (ctx);
+      return 0;
+    }
+
+  deq_max = svm_fifo_max_dequeue (tls_session->server_rx_fifo);
+  if (!deq_max)
+    return 0;
+
+  app_session = session_get_from_handle (ctx->app_session_handle);
+  enq_max = svm_fifo_max_enqueue (app_session->server_rx_fifo);
+  enq_now = clib_min (enq_max, TLS_CHUNK_SIZE);
+
+  if (PREDICT_FALSE (enq_now == 0))
+    {
+      tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+      return 0;
+    }
+
+  vec_validate (mm->rx_bufs[thread_index], enq_now);
+  read = mbedtls_ssl_read (&mc->ssl, mm->rx_bufs[thread_index], enq_now);
+  if (read <= 0)
+    {
+      tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+      return 0;
+    }
+
+  enq = svm_fifo_enqueue_nowait (app_session->server_rx_fifo, read,
+				 mm->rx_bufs[thread_index]);
+  ASSERT (enq == read);
+  vec_reset_length (mm->rx_bufs[thread_index]);
+
+  if (svm_fifo_max_dequeue (tls_session->server_rx_fifo))
+    tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+
+  if (enq > 0)
+    tls_notify_app_enqueue (ctx, app_session);
+
+  return enq;
 }
 
 static u8
@@ -434,9 +527,8 @@ const static tls_engine_vft_t mbedtls_engine = {
   .ctx_get_w_thread = mbedtls_ctx_get_w_thread,
   .ctx_init_server = mbedtls_ctx_init_server,
   .ctx_init_client = mbedtls_ctx_init_client,
-  .ctx_handshake_rx = mbedtls_handshake_rx,
-  .ctx_write = mbedtls_write,
-  .ctx_read = mbedtls_read,
+  .ctx_write = mbedtls_ctx_write,
+  .ctx_read = mbedtls_ctx_read,
   .ctx_handshake_is_over = mbedtls_handshake_is_over,
 };
 
@@ -526,6 +618,9 @@ tls_mbedtls_init (vlib_main_t * vm)
     }
 
   vec_validate (mm->ctx_pool, num_threads - 1);
+  vec_validate (mm->rx_bufs, num_threads - 1);
+  vec_validate (mm->tx_bufs, num_threads - 1);
+
   tls_register_engine (&mbedtls_engine, TLS_ENGINE_MBEDTLS);
   return 0;
 }
diff --git a/src/plugins/tlsopenssl.am b/src/plugins/tlsopenssl.am
new file mode 100644
index 00000000000..d4cab621eea
--- /dev/null
+++ b/src/plugins/tlsopenssl.am
@@ -0,0 +1,21 @@
+# Copyright (c) 2018 Cisco Systems, Inc.
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at:
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
+vppplugins_LTLIBRARIES += tlsopenssl_plugin.la
+
+tlsopenssl_plugin_la_SOURCES = tlsopenssl/tls_openssl.c
+tlsopenssl_plugin_la_LDFLAGS = $(AM_LDFLAGS) -lssl -lcrypto
+tlsopenssl_plugin_la_CFLAGS = $(AM_CFLAGS)
+
+# vi:syntax=automake
diff --git a/src/plugins/tlsopenssl/tls_openssl.c b/src/plugins/tlsopenssl/tls_openssl.c
new file mode 100644
index 00000000000..0817f606ad8
--- /dev/null
+++ b/src/plugins/tlsopenssl/tls_openssl.c
@@ -0,0 +1,675 @@
+/*
+ * Copyright (c) 2018 Cisco and/or its affiliates.
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at:
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include <openssl/ssl.h>
+#include <openssl/conf.h>
+#include <openssl/err.h>
+#include <vnet/plugin/plugin.h>
+#include <vpp/app/version.h>
+#include <vnet/tls/tls.h>
+
+typedef struct tls_ctx_openssl_
+{
+  tls_ctx_t ctx;			/**< First */
+  u32 openssl_ctx_index;
+  SSL_CTX *ssl_ctx;
+  SSL *ssl;
+  BIO *rbio;
+  BIO *wbio;
+  X509 *srvcert;
+  EVP_PKEY *pkey;
+} openssl_ctx_t;
+
+typedef struct openssl_main_
+{
+  openssl_ctx_t ***ctx_pool;
+  X509_STORE *cert_store;
+} openssl_main_t;
+
+static openssl_main_t openssl_main;
+
+static u32
+openssl_ctx_alloc (void)
+{
+  u8 thread_index = vlib_get_thread_index ();
+  openssl_main_t *tm = &openssl_main;
+  openssl_ctx_t **ctx;
+
+  pool_get (tm->ctx_pool[thread_index], ctx);
+  if (!(*ctx))
+    *ctx = clib_mem_alloc (sizeof (openssl_ctx_t));
+
+  memset (*ctx, 0, sizeof (openssl_ctx_t));
+  (*ctx)->ctx.c_thread_index = thread_index;
+  (*ctx)->ctx.tls_ctx_engine = TLS_ENGINE_OPENSSL;
+  (*ctx)->ctx.app_session_handle = SESSION_INVALID_HANDLE;
+  (*ctx)->openssl_ctx_index = ctx - tm->ctx_pool[thread_index];
+  return ((*ctx)->openssl_ctx_index);
+}
+
+static void
+openssl_ctx_free (tls_ctx_t * ctx)
+{
+  openssl_ctx_t *oc = (openssl_ctx_t *) ctx;
+
+  if (SSL_is_init_finished (oc->ssl) && !ctx->is_passive_close)
+    SSL_shutdown (oc->ssl);
+
+  if (SSL_is_server (oc->ssl))
+    {
+      X509_free (oc->srvcert);
+      EVP_PKEY_free (oc->pkey);
+    }
+  SSL_free (oc->ssl);
+
+  pool_put_index (openssl_main.ctx_pool[ctx->c_thread_index],
+		  oc->openssl_ctx_index);
+}
+
+static tls_ctx_t *
+openssl_ctx_get (u32 ctx_index)
+{
+  openssl_ctx_t **ctx;
+  ctx = pool_elt_at_index (openssl_main.ctx_pool[vlib_get_thread_index ()],
+			   ctx_index);
+  return &(*ctx)->ctx;
+}
+
+static tls_ctx_t *
+openssl_ctx_get_w_thread (u32 ctx_index, u8 thread_index)
+{
+  openssl_ctx_t **ctx;
+  ctx = pool_elt_at_index (openssl_main.ctx_pool[thread_index], ctx_index);
+  return &(*ctx)->ctx;
+}
+
+static int
+openssl_try_handshake_read (openssl_ctx_t * oc,
+			    stream_session_t * tls_session)
+{
+  u32 deq_max, deq_now;
+  svm_fifo_t *f;
+  int wrote, rv;
+
+  f = tls_session->server_rx_fifo;
+  deq_max = svm_fifo_max_dequeue (f);
+  if (!deq_max)
+    return 0;
+
+  deq_now = clib_min (svm_fifo_max_read_chunk (f), deq_max);
+  wrote = BIO_write (oc->wbio, svm_fifo_head (f), deq_now);
+  if (wrote <= 0)
+    return 0;
+
+  svm_fifo_dequeue_drop (f, wrote);
+  if (wrote < deq_max)
+    {
+      deq_now = clib_min (svm_fifo_max_read_chunk (f), deq_max - wrote);
+      rv = BIO_write (oc->wbio, svm_fifo_head (f), deq_now);
+      if (rv > 0)
+	{
+	  svm_fifo_dequeue_drop (f, rv);
+	  wrote += rv;
+	}
+    }
+  return wrote;
+}
+
+static int
+openssl_try_handshake_write (openssl_ctx_t * oc,
+			     stream_session_t * tls_session)
+{
+  u32 enq_max, deq_now;
+  svm_fifo_t *f;
+  int read, rv;
+
+  if (BIO_ctrl_pending (oc->rbio) <= 0)
+    return 0;
+
+  f = tls_session->server_tx_fifo;
+  enq_max = svm_fifo_max_enqueue (f);
+  if (!enq_max)
+    return 0;
+
+  deq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max);
+  read = BIO_read (oc->rbio, svm_fifo_tail (f), deq_now);
+  if (read <= 0)
+    return 0;
+
+  svm_fifo_enqueue_nocopy (f, read);
+  tls_add_vpp_q_evt (f, FIFO_EVENT_APP_TX);
+
+  if (read < enq_max)
+    {
+      deq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max - read);
+      rv = BIO_read (oc->rbio, svm_fifo_tail (f), deq_now);
+      if (rv > 0)
+	{
+	  svm_fifo_enqueue_nocopy (f, rv);
+	  read += rv;
+	}
+    }
+
+  return read;
+}
+
+static int
+openssl_ctx_handshake_rx (tls_ctx_t * ctx, stream_session_t * tls_session)
+{
+  openssl_ctx_t *oc = (openssl_ctx_t *) ctx;
+  int rv = 0, err;
+  while (SSL_in_init (oc->ssl))
+    {
+      if (!openssl_try_handshake_read (oc, tls_session))
+	break;
+
+      rv = SSL_do_handshake (oc->ssl);
+      err = SSL_get_error (oc->ssl, rv);
+      openssl_try_handshake_write (oc, tls_session);
+      if (err != SSL_ERROR_WANT_WRITE)
+	{
+	  if (err == SSL_ERROR_SSL)
+	    {
+	      char buf[512];
+	      ERR_error_string (ERR_get_error (), buf);
+	      clib_warning ("Err: %s", buf);
+	    }
+	  break;
+	}
+    }
+  TLS_DBG (2, "tls state for %u is %s", oc->openssl_ctx_index,
+	   SSL_state_string_long (oc->ssl));
+
+  if (SSL_in_init (oc->ssl))
+    return 0;
+
+  /*
+   * Handshake complete
+   */
+  if (!SSL_is_server (oc->ssl))
+    {
+      /*
+       * Verify server certificate
+       */
+      if ((rv = SSL_get_verify_result (oc->ssl)) != X509_V_OK)
+	{
+	  TLS_DBG (1, " failed verify: %s\n",
+		   X509_verify_cert_error_string (rv));
+
+	  /*
+	   * Presence of hostname enforces strict certificate verification
+	   */
+	  if (ctx->srv_hostname)
+	    {
+	      tls_notify_app_connected (ctx, /* is failed */ 0);
+	      return -1;
+	    }
+	}
+      tls_notify_app_connected (ctx, /* is failed */ 0);
+    }
+  else
+    {
+      tls_notify_app_accept (ctx);
+    }
+
+  TLS_DBG (1, "Handshake for %u complete. TLS cipher is %s",
+	   oc->openssl_ctx_index, SSL_get_cipher (oc->ssl));
+  return rv;
+}
+
+static inline int
+openssl_ctx_write (tls_ctx_t * ctx, stream_session_t * app_session)
+{
+  openssl_ctx_t *oc = (openssl_ctx_t *) ctx;
+  int wrote = 0, rv, read, max_buf = 100 * TLS_CHUNK_SIZE, max_space;
+  u32 enq_max, deq_max, deq_now, to_write;
+  stream_session_t *tls_session;
+  svm_fifo_t *f;
+
+  f = app_session->server_tx_fifo;
+  deq_max = svm_fifo_max_dequeue (f);
+  if (!deq_max)
+    goto check_tls_fifo;
+
+  max_space = max_buf - BIO_ctrl_pending (oc->rbio);
+  max_space = (max_space < 0) ? 0 : max_space;
+  deq_now = clib_min (deq_max, (u32) max_space);
+  to_write = clib_min (svm_fifo_max_read_chunk (f), deq_now);
+  wrote = SSL_write (oc->ssl, svm_fifo_head (f), to_write);
+  if (wrote <= 0)
+    {
+      tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+      goto check_tls_fifo;
+    }
+  svm_fifo_dequeue_drop (app_session->server_tx_fifo, wrote);
+  if (wrote < deq_now)
+    {
+      to_write = clib_min (svm_fifo_max_read_chunk (f), deq_now - wrote);
+      rv = SSL_write (oc->ssl, svm_fifo_head (f), to_write);
+      if (rv > 0)
+	{
+	  svm_fifo_dequeue_drop (app_session->server_tx_fifo, rv);
+	  wrote += rv;
+	}
+    }
+
+  if (deq_now < deq_max)
+    tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+
+check_tls_fifo:
+
+  if (BIO_ctrl_pending (oc->rbio) <= 0)
+    return wrote;
+
+  tls_session = session_get_from_handle (ctx->tls_session_handle);
+  f = tls_session->server_tx_fifo;
+  enq_max = svm_fifo_max_enqueue (f);
+  if (!enq_max)
+    {
+      tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+      return wrote;
+    }
+
+  deq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max);
+  read = BIO_read (oc->rbio, svm_fifo_tail (f), deq_now);
+  if (read <= 0)
+    {
+      tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+      return wrote;
+    }
+
+  svm_fifo_enqueue_nocopy (f, read);
+  tls_add_vpp_q_evt (f, FIFO_EVENT_APP_TX);
+
+  if (read < enq_max && BIO_ctrl_pending (oc->rbio) > 0)
+    {
+      deq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max - read);
+      read = BIO_read (oc->rbio, svm_fifo_tail (f), deq_now);
+      if (read > 0)
+	svm_fifo_enqueue_nocopy (f, read);
+    }
+
+  if (BIO_ctrl_pending (oc->rbio) > 0)
+    tls_add_vpp_q_evt (app_session->server_tx_fifo, FIFO_EVENT_APP_TX);
+
+  return wrote;
+}
+
+static inline int
+openssl_ctx_read (tls_ctx_t * ctx, stream_session_t * tls_session)
+{
+  int read, wrote = 0, max_space, max_buf = 100 * TLS_CHUNK_SIZE, rv;
+  openssl_ctx_t *oc = (openssl_ctx_t *) ctx;
+  u32 deq_max, enq_max, deq_now, to_read;
+  stream_session_t *app_session;
+  svm_fifo_t *f;
+
+  if (PREDICT_FALSE (SSL_in_init (oc->ssl)))
+    {
+      openssl_ctx_handshake_rx (ctx, tls_session);
+      return 0;
+    }
+
+  f = tls_session->server_rx_fifo;
+  deq_max = svm_fifo_max_dequeue (f);
+  max_space = max_buf - BIO_ctrl_pending (oc->wbio);
+  max_space = max_space < 0 ? 0 : max_space;
+  deq_now = clib_min (deq_max, max_space);
+  if (!deq_now)
+    goto check_app_fifo;
+
+  to_read = clib_min (svm_fifo_max_read_chunk (f), deq_now);
+  wrote = BIO_write (oc->wbio, svm_fifo_head (f), to_read);
+  if (wrote <= 0)
+    {
+      tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+      goto check_app_fifo;
+    }
+  svm_fifo_dequeue_drop (f, wrote);
+  if (wrote < deq_now)
+    {
+      to_read = clib_min (svm_fifo_max_read_chunk (f), deq_now - wrote);
+      rv = BIO_write (oc->wbio, svm_fifo_head (f), to_read);
+      if (rv > 0)
+	{
+	  svm_fifo_dequeue_drop (f, rv);
+	  wrote += rv;
+	}
+    }
+  if (svm_fifo_max_dequeue (f))
+    tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+
+check_app_fifo:
+
+  if (BIO_ctrl_pending (oc->wbio) <= 0)
+    return wrote;
+
+  app_session = session_get_from_handle (ctx->app_session_handle);
+  f = app_session->server_rx_fifo;
+  enq_max = svm_fifo_max_enqueue (f);
+  if (!enq_max)
+    {
+      tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+      return wrote;
+    }
+
+  deq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max);
+  read = SSL_read (oc->ssl, svm_fifo_tail (f), deq_now);
+  if (read <= 0)
+    {
+      tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+      return wrote;
+    }
+  svm_fifo_enqueue_nocopy (f, read);
+  if (read < enq_max && BIO_ctrl_pending (oc->wbio) > 0)
+    {
+      deq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max - read);
+      read = SSL_read (oc->ssl, svm_fifo_tail (f), deq_now);
+      if (read > 0)
+	svm_fifo_enqueue_nocopy (f, read);
+    }
+
+  tls_notify_app_enqueue (ctx, app_session);
+  if (BIO_ctrl_pending (oc->wbio) > 0)
+    tls_add_vpp_q_evt (tls_session->server_rx_fifo, FIFO_EVENT_BUILTIN_RX);
+
+  return wrote;
+}
+
+static int
+openssl_ctx_init_client (tls_ctx_t * ctx)
+{
+  char *ciphers = "ALL:!ADH:!LOW:!EXP:!MD5:!RC4-SHA:!DES-CBC3-SHA:@STRENGTH";
+  long flags = SSL_OP_NO_SSLv2 | SSL_OP_NO_SSLv3 | SSL_OP_NO_COMPRESSION;
+  openssl_ctx_t *oc = (openssl_ctx_t *) ctx;
+  openssl_main_t *om = &openssl_main;
+  stream_session_t *tls_session;
+  const SSL_METHOD *method;
+  int rv, err;
+
+  method = SSLv23_client_method ();
+  if (method == NULL)
+    {
+      TLS_DBG (1, "SSLv23_method returned null");
+      return -1;
+    }
+
+  oc->ssl_ctx = SSL_CTX_new (method);
+  if (oc->ssl_ctx == NULL)
+    {
+      TLS_DBG (1, "SSL_CTX_new returned null");
+      return -1;
+    }
+
+  SSL_CTX_set_ecdh_auto (oc->ssl_ctx, 1);
+  SSL_CTX_set_mode (oc->ssl_ctx, SSL_MODE_ENABLE_PARTIAL_WRITE);
+  rv = SSL_CTX_set_cipher_list (oc->ssl_ctx, (const char *) ciphers);
+  if (rv != 1)
+    {
+      TLS_DBG (1, "Couldn't set cipher");
+      return -1;
+    }
+
+  SSL_CTX_set_options (oc->ssl_ctx, flags);
+  SSL_CTX_set_cert_store (oc->ssl_ctx, om->cert_store);
+
+  oc->ssl = SSL_new (oc->ssl_ctx);
+  if (oc->ssl == NULL)
+    {
+      TLS_DBG (1, "Couldn't initialize ssl struct");
+      return -1;
+    }
+
+  oc->rbio = BIO_new (BIO_s_mem ());
+  oc->wbio = BIO_new (BIO_s_mem ());
+
+  BIO_set_mem_eof_return (oc->rbio, -1);
+  BIO_set_mem_eof_return (oc->wbio, -1);
+
+  SSL_set_bio (oc->ssl, oc->wbio, oc->rbio);
+  SSL_set_connect_state (oc->ssl);
+
+  rv = SSL_set_tlsext_host_name (oc->ssl, ctx->srv_hostname);
+  if (rv != 1)
+    {
+      TLS_DBG (1, "Couldn't set hostname");
+      return -1;
+    }
+
+  /*
+   * 2. Do the first steps in the handshake.
+   */
+  TLS_DBG (1, "Initiating handshake for [%u]%u", ctx->c_thread_index,
+	   oc->openssl_ctx_index);
+
+  tls_session = session_get_from_handle (ctx->tls_session_handle);
+  while (1)
+    {
+      rv = SSL_do_handshake (oc->ssl);
+      err = SSL_get_error (oc->ssl, rv);
+      openssl_try_handshake_write (oc, tls_session);
+      if (err != SSL_ERROR_WANT_WRITE)
+	break;
+    }
+
+  TLS_DBG (2, "tls state for [%u]%u is su", ctx->c_thread_index,
+	   oc->openssl_ctx_index, SSL_state_string_long (oc->ssl));
+  return 0;
+}
+
+static int
+openssl_ctx_init_server (tls_ctx_t * ctx)
+{
+  char *ciphers = "ALL:!ADH:!LOW:!EXP:!MD5:!RC4-SHA:!DES-CBC3-SHA:@STRENGTH";
+  long flags = SSL_OP_NO_SSLv2 | SSL_OP_NO_SSLv3 | SSL_OP_NO_COMPRESSION;
+  openssl_ctx_t *oc = (openssl_ctx_t *) ctx;
+  stream_session_t *tls_session;
+  const SSL_METHOD *method;
+  application_t *app;
+  int rv, err;
+  BIO *cert_bio;
+
+  app = application_get (ctx->parent_app_index);
+  if (!app->tls_cert || !app->tls_key)
+    {
+      TLS_DBG (1, "tls cert and/or key not configured %d",
+	       ctx->parent_app_index);
+      return -1;
+    }
+
+  method = SSLv23_method ();
+  oc->ssl_ctx = SSL_CTX_new (method);
+  if (!oc->ssl_ctx)
+    {
+      clib_warning ("Unable to create SSL context");
+      return -1;
+    }
+
+  SSL_CTX_set_mode (oc->ssl_ctx, SSL_MODE_ENABLE_PARTIAL_WRITE);
+  SSL_CTX_set_options (oc->ssl_ctx, flags);
+  SSL_CTX_set_ecdh_auto (oc->ssl_ctx, 1);
+
+  rv = SSL_CTX_set_cipher_list (oc->ssl_ctx, (const char *) ciphers);
+  if (rv != 1)
+    {
+      TLS_DBG (1, "Couldn't set cipher");
+      return -1;
+    }
+
+  /*
+   * Set the key and cert
+   */
+  cert_bio = BIO_new (BIO_s_mem ());
+  BIO_write (cert_bio, app->tls_cert, vec_len (app->tls_cert));
+  oc->srvcert = PEM_read_bio_X509 (cert_bio, NULL, NULL, NULL);
+  if (!oc->srvcert)
+    {
+      clib_warning ("unable to parse certificate");
+      return -1;
+    }
+  BIO_free (cert_bio);
+  cert_bio = BIO_new (BIO_s_mem ());
+  BIO_write (cert_bio, app->tls_key, vec_len (app->tls_key));
+  oc->pkey = PEM_read_bio_PrivateKey (cert_bio, NULL, NULL, NULL);
+  if (!oc->pkey)
+    {
+      clib_warning ("unable to parse pkey");
+      return -1;
+    }
+
+  BIO_free (cert_bio);
+
+  oc->ssl = SSL_new (oc->ssl_ctx);
+  if (oc->ssl == NULL)
+    {
+      TLS_DBG (1, "Couldn't initialize ssl struct");
+      return -1;
+    }
+
+  oc->rbio = BIO_new (BIO_s_mem ());
+  oc->wbio = BIO_new (BIO_s_mem ());
+
+  BIO_set_mem_eof_return (oc->rbio, -1);
+  BIO_set_mem_eof_return (oc->wbio, -1);
+
+  SSL_set_bio (oc->ssl, oc->wbio, oc->rbio);
+  SSL_set_accept_state (oc->ssl);
+
+  TLS_DBG (1, "Initiating handshake for [%u]%u", ctx->c_thread_index,
+	   oc->openssl_ctx_index);
+
+  tls_session = session_get_from_handle (ctx->tls_session_handle);
+  while (1)
+    {
+      rv = SSL_do_handshake (oc->ssl);
+      err = SSL_get_error (oc->ssl, rv);
+      openssl_try_handshake_write (oc, tls_session);
+      if (err != SSL_ERROR_WANT_WRITE)
+	break;
+    }
+
+  TLS_DBG (2, "tls state for [%u]%u is su", ctx->c_thread_index,
+	   oc->openssl_ctx_index, SSL_state_string_long (oc->ssl));
+  return 0;
+}
+
+static u8
+openssl_handshake_is_over (tls_ctx_t * ctx)
+{
+  openssl_ctx_t *mc = (openssl_ctx_t *) ctx;
+  if (!mc->ssl)
+    return 0;
+  return SSL_is_init_finished (mc->ssl);
+}
+
+const static tls_engine_vft_t openssl_engine = {
+  .ctx_alloc = openssl_ctx_alloc,
+  .ctx_free = openssl_ctx_free,
+  .ctx_get = openssl_ctx_get,
+  .ctx_get_w_thread = openssl_ctx_get_w_thread,
+  .ctx_init_server = openssl_ctx_init_server,
+  .ctx_init_client = openssl_ctx_init_client,
+  .ctx_write = openssl_ctx_write,
+  .ctx_read = openssl_ctx_read,
+  .ctx_handshake_is_over = openssl_handshake_is_over,
+};
+
+int
+tls_init_ca_chain (void)
+{
+  openssl_main_t *om = &openssl_main;
+  tls_main_t *tm = vnet_tls_get_main ();
+  BIO *cert_bio;
+  X509 *testcert;
+  int rv;
+
+  if (access (tm->ca_cert_path, F_OK | R_OK) == -1)
+    {
+      clib_warning ("Could not initialize TLS CA certificates");
+      return -1;
+    }
+
+  if (!(om->cert_store = X509_STORE_new ()))
+    {
+      clib_warning ("failed to create cert store");
+      return -1;
+    }
+
+  rv = X509_STORE_load_locations (om->cert_store, tm->ca_cert_path, 0);
+  if (rv < 0)
+    {
+      clib_warning ("failed to load ca certificate");
+    }
+
+  if (tm->use_test_cert_in_ca)
+    {
+      cert_bio = BIO_new (BIO_s_mem ());
+      BIO_write (cert_bio, test_srv_crt_rsa, test_srv_crt_rsa_len);
+      testcert = PEM_read_bio_X509 (cert_bio, NULL, NULL, NULL);
+      if (!testcert)
+	{
+	  clib_warning ("unable to parse certificate");
+	  return -1;
+	}
+      X509_STORE_add_cert (om->cert_store, testcert);
+      rv = 0;
+    }
+  return (rv < 0 ? -1 : 0);
+}
+
+static clib_error_t *
+tls_openssl_init (vlib_main_t * vm)
+{
+  vlib_thread_main_t *vtm = vlib_get_thread_main ();
+  openssl_main_t *om = &openssl_main;
+  clib_error_t *error;
+  u32 num_threads;
+
+  num_threads = 1 /* main thread */  + vtm->n_threads;
+
+  if ((error = vlib_call_init_function (vm, tls_init)))
+    return error;
+
+  SSL_library_init ();
+  SSL_load_error_strings ();
+
+  if (tls_init_ca_chain ())
+    {
+      clib_warning ("failed to initialize TLS CA chain");
+      return 0;
+    }
+
+  vec_validate (om->ctx_pool, num_threads - 1);
+
+  tls_register_engine (&openssl_engine, TLS_ENGINE_OPENSSL);
+  return 0;
+}
+
+VLIB_INIT_FUNCTION (tls_openssl_init);
+
+/* *INDENT-OFF* */
+VLIB_PLUGIN_REGISTER () = {
+    .version = VPP_BUILD_VER,
+    .description = "openssl based TLS Engine",
+};
+/* *INDENT-ON* */
+
+/*
+ * fd.io coding-style-patch-verification: ON
+ *
+ * Local Variables:
+ * eval: (c-set-style "gnu")
+ * End:
+ */