Added benchmark utility that tests the encryption time in TLS packets.

1 files changed, 189 insertions, 0 deletions

diff --git a/src/benchmark-tls.c b/src/benchmark-tls.c
new file mode 100644
index 0000000000..cc0c7a1341
--- /dev/null
+++ b/src/benchmark-tls.c
@@ -0,0 +1,189 @@
+/*
+ * Copyright (C) 2011 Free Software Foundation, Inc.
+ *
+ * Author: Nikos Mavrogiannopoulos
+ *
+ * This file is part of GnuTLS.
+ *
+ * GnuTLS 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 3 of the License, or
+ * (at your option) any later version.
+ *
+ * GnuTLS 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.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GnuTLS; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <gnutls/gnutls.h>
+#include <gnutls/crypto.h>
+
+#define fail(...) \
+	{ \
+		fprintf(stderr, __VA_ARGS__); \
+		exit(1); \
+	}
+
+#include "../tests/eagain-common.h"
+#include "benchmark.h"
+
+#define PRIO_AES_CBC_SHA1 "NONE:+VERS-TLS1.0:+AES-128-CBC:+SHA1:+SIGN-ALL:+COMP-NULL:+ANON-DH"
+#define PRIO_CAMELLIA_CBC_SHA1 "NONE:+VERS-TLS1.0:+CAMELLIA-128-CBC:+SHA1:+SIGN-ALL:+COMP-NULL:+ANON-DH"
+
+const char *pkcs3 =
+  "-----BEGIN DH PARAMETERS-----\n"
+  "MIGGAoGAtkxw2jlsVCsrfLqxrN+IrF/3W8vVFvDzYbLmxi2GQv9s/PQGWP1d9i22\n"
+  "P2DprfcJknWt7KhCI1SaYseOQIIIAYP78CfyIpGScW/vS8khrw0rlQiyeCvQgF3O\n"
+  "GeGOEywcw+oQT4SmFOD7H0smJe2CNyjYpexBXQ/A0mbTF9QKm1cCAQU=\n"
+  "-----END DH PARAMETERS-----\n";
+
+char buffer[64 * 1024];
+
+static void
+tls_log_func (int level, const char *str)
+{
+  fprintf (stderr, "|<%d>| %s", level, str);
+}
+
+static void
+test_ciphersuite (const char* cipher_prio, int size)
+{
+  /* Server stuff. */
+  gnutls_anon_server_credentials_t s_anoncred;
+  const gnutls_datum_t p3 = { (char *) pkcs3, strlen (pkcs3) };
+  static gnutls_dh_params_t dh_params;
+  gnutls_session_t server;
+  int sret, cret;
+  const char *str;
+  /* Client stuff. */
+  gnutls_anon_client_credentials_t c_anoncred;
+  gnutls_session_t client;
+  /* Need to enable anonymous KX specifically. */
+  int ret;
+  struct benchmark_st st;
+
+  /* Init server */
+  gnutls_anon_allocate_server_credentials (&s_anoncred);
+  gnutls_dh_params_init (&dh_params);
+  gnutls_dh_params_import_pkcs3 (dh_params, &p3, GNUTLS_X509_FMT_PEM);
+  gnutls_anon_set_server_dh_params (s_anoncred, dh_params);
+  gnutls_init (&server, GNUTLS_SERVER);
+  ret = gnutls_priority_set_direct (server, cipher_prio, &str);
+  if (ret < 0)
+    {
+      fprintf (stderr, "Error in %s\n", str);
+      exit (1);
+    }
+  gnutls_credentials_set (server, GNUTLS_CRD_ANON, s_anoncred);
+  gnutls_dh_set_prime_bits (server, 1024);
+  gnutls_transport_set_push_function (server, server_push);
+  gnutls_transport_set_pull_function (server, server_pull);
+  gnutls_transport_set_ptr (server, (gnutls_transport_ptr_t) server);
+  reset_buffers();
+
+  /* Init client */
+  gnutls_anon_allocate_client_credentials (&c_anoncred);
+  gnutls_init (&client, GNUTLS_CLIENT);
+
+  ret = gnutls_priority_set_direct (client, cipher_prio, &str);
+  if (ret < 0)
+    {
+      fprintf (stderr, "Error in %s\n", str);
+      exit (1);
+    }
+  gnutls_credentials_set (client, GNUTLS_CRD_ANON, c_anoncred);
+  gnutls_transport_set_push_function (client, client_push);
+  gnutls_transport_set_pull_function (client, client_pull);
+  gnutls_transport_set_ptr (client, (gnutls_transport_ptr_t) client);
+
+  HANDSHAKE (client, server);
+
+  fprintf (stdout, "Testing %s with %d packet size: ",
+           gnutls_cipher_suite_get_name(gnutls_kx_get(server),
+		gnutls_cipher_get(server), gnutls_mac_get(server)), size);
+  fflush (stdout);
+
+  gnutls_rnd (GNUTLS_RND_NONCE, buffer, sizeof (buffer));
+
+  start_benchmark (&st);
+
+  do
+    {
+      do
+        {
+          ret = gnutls_record_send (client, buffer, size);
+        }
+      while (ret == GNUTLS_E_AGAIN);
+
+      if (ret < 0)
+        {
+          fprintf (stderr, "Failed sending to server\n");
+          exit (1);
+        }
+
+      do
+        {
+          ret = gnutls_record_recv (server, buffer, sizeof (buffer));
+        }
+      while (ret == GNUTLS_E_AGAIN);
+
+      if (ret < 0)
+        {
+          fprintf (stderr, "Failed receiving from client\n");
+          exit (1);
+        }
+
+      st.size += size;
+    }
+  while (benchmark_must_finish == 0);
+
+  stop_benchmark (&st);
+
+  gnutls_bye (client, GNUTLS_SHUT_WR);
+  gnutls_bye (server, GNUTLS_SHUT_WR);
+
+  gnutls_deinit (client);
+  gnutls_deinit (server);
+
+  gnutls_anon_free_client_credentials (c_anoncred);
+  gnutls_anon_free_server_credentials (s_anoncred);
+
+  gnutls_dh_params_deinit (dh_params);
+
+}
+
+int
+main (int argc, char **argv)
+{
+  if (argc > 1)
+    {
+      gnutls_global_set_log_function (tls_log_func);
+      gnutls_global_set_log_level (2);
+    }
+  gnutls_global_init ();
+
+  test_ciphersuite (PRIO_AES_CBC_SHA1, 1024);
+  test_ciphersuite (PRIO_AES_CBC_SHA1, 4096);
+  test_ciphersuite (PRIO_AES_CBC_SHA1, 8*1024);
+  test_ciphersuite (PRIO_AES_CBC_SHA1, 15*1024);
+
+  test_ciphersuite (PRIO_CAMELLIA_CBC_SHA1, 1024);
+  test_ciphersuite (PRIO_CAMELLIA_CBC_SHA1, 4096);
+  test_ciphersuite (PRIO_CAMELLIA_CBC_SHA1, 8*1024);
+  test_ciphersuite (PRIO_CAMELLIA_CBC_SHA1, 15*1024);
+
+  gnutls_global_deinit ();
+}