nettle-benchmark.c 7.53 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
/* nettle-benchmark.c
 *
 * Tries the performance of the various algorithms.
 *
 */
 
/* nettle, low-level cryptographics library
 *
 * Copyright (C) 2001 Niels Mller
 *  
 * The nettle library is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation; either version 2.1 of the License, or (at your
 * option) any later version.
 * 
 * The nettle library 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 Lesser General Public
 * License for more details.
 * 
 * You should have received a copy of the GNU Lesser General Public License
 * along with the nettle library; see the file COPYING.LIB.  If not, write to
 * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 * MA 02111-1307, USA.
 */

27 28
#if HAVE_CONFIG_H
# include "config.h"
29 30 31 32 33 34 35 36 37
#endif

#include <assert.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <time.h>
38

39
#include "aes.h"
Niels Möller's avatar
Niels Möller committed
40 41 42
#include "arcfour.h"
#include "blowfish.h"
#include "cast128.h"
Niels Möller's avatar
Niels Möller committed
43
#include "cbc.h"
Niels Möller's avatar
Niels Möller committed
44 45 46 47
#include "des.h"
#include "serpent.h"
#include "twofish.h"

48 49 50
#include "nettle-meta.h"
#include "nettle-internal.h"

Niels Möller's avatar
Niels Möller committed
51
#include "getopt.h"
52

53
static double frequency = 0.0;
Niels Möller's avatar
Niels Möller committed
54

55 56 57
/* Process BENCH_BLOCK bytes at a time, for BENCH_INTERVAL clocks. */
#define BENCH_BLOCK 10240
#define BENCH_INTERVAL (CLOCKS_PER_SEC / 4)
58

Niels Möller's avatar
Niels Möller committed
59 60 61
/* Total MB:s, for MB/s figures. */
#define BENCH_TOTAL 10.0

62
/* Returns second per function call */
63 64 65 66 67
static double
time_function(void (*f)(void *arg), void *arg)
{
  clock_t before;
  clock_t after;
68 69 70
  clock_t done;
  unsigned ncalls;
  
71
  before = clock();
72 73
  done = before + BENCH_INTERVAL;
  ncalls = 0;
74
  
75 76 77 78 79 80 81
  do 
    {
      f(arg);
      after = clock();
      ncalls++;
    }
  while (after < done);
82
  
83
  return ((double)(after - before)) / CLOCKS_PER_SEC / ncalls;
84 85
}

86 87 88 89 90 91 92 93 94 95 96 97 98 99
struct bench_hash_info
{
  void *ctx;
  nettle_hash_update_func update;
  const uint8_t *data;
};

static void
bench_hash(void *arg)
{
  struct bench_hash_info *info = arg;
  info->update(info->ctx, BENCH_BLOCK, info->data);
}

100 101 102
struct bench_cipher_info
{
  void *ctx;
103
  nettle_crypt_func crypt;
104 105 106 107 108 109 110
  uint8_t *data;
};

static void
bench_cipher(void *arg)
{
  struct bench_cipher_info *info = arg;
111
  info->crypt(info->ctx, BENCH_BLOCK, info->data, info->data);
112 113 114 115 116
}

struct bench_cbc_info
{
  void *ctx;
117 118
  nettle_crypt_func crypt;
 
119
  uint8_t *data;
120
  
121 122 123 124 125 126 127 128
  unsigned block_size;
  uint8_t *iv;
};

static void
bench_cbc_encrypt(void *arg)
{
  struct bench_cbc_info *info = arg;
129 130 131
  cbc_encrypt(info->ctx, info->crypt,
	      info->block_size, info->iv,
	      BENCH_BLOCK, info->data, info->data);
132 133 134 135 136 137
}

static void
bench_cbc_decrypt(void *arg)
{
  struct bench_cbc_info *info = arg;
138 139 140
  cbc_decrypt(info->ctx, info->crypt,
	      info->block_size, info->iv,
	      BENCH_BLOCK, info->data, info->data);
141 142 143 144 145 146 147
}

/* Set data[i] = floor(sqrt(i)) */
static void
init_data(uint8_t *data)
{
  unsigned i,j;
Niels Möller's avatar
Niels Möller committed
148
  for (i = j = 0; i<BENCH_BLOCK;  i++)
149 150 151 152 153 154 155 156
    {
      if (j*j < i)
	j++;
      data[i] = j;
    }
}

static void
Niels Möller's avatar
Niels Möller committed
157 158
init_key(unsigned length,
         uint8_t *key)
159
{
Niels Möller's avatar
Niels Möller committed
160 161 162
  unsigned i;
  for (i = 0; i<length; i++)
    key[i] = i;
163 164
}

165 166 167 168 169
static void
header(void)
{
  printf("%18s %11s Mbyte/s%s\n",
	 "Algorithm", "mode", 
Niels Möller's avatar
Niels Möller committed
170
	 frequency > 0.0 ? " cycles/byte cycles/block" : "");  
171 172
}

Niels Möller's avatar
Niels Möller committed
173
static void
Niels Möller's avatar
Niels Möller committed
174
display(const char *name, const char *mode, unsigned block_size,
175
	double time)
Niels Möller's avatar
Niels Möller committed
176
{
177
  printf("%18s %11s %7.2f",
Niels Möller's avatar
Niels Möller committed
178
	 name, mode,
179
	 BENCH_BLOCK / (time * 1048576.0));
180
  if (frequency > 0.0)
Niels Möller's avatar
Niels Möller committed
181
    {
182
      printf(" %11.2f", time * frequency / BENCH_BLOCK);
Niels Möller's avatar
Niels Möller committed
183
      if (block_size > 0)
184
	printf(" %12.2f", time * frequency * block_size / BENCH_BLOCK);
Niels Möller's avatar
Niels Möller committed
185
    }
186
  printf("\n");
Niels Möller's avatar
Niels Möller committed
187 188
}

189 190 191 192 193 194 195 196 197 198 199 200 201
static void *
xalloc(size_t size)
{
  void *p = malloc(size);
  if (!p)
    {
      fprintf(stderr, "Virtual memory exhausted.\n");
      abort();
    }

  return p;
}

202 203 204 205 206
static void
time_hash(const struct nettle_hash *hash)
{
  static uint8_t data[BENCH_BLOCK];
  struct bench_hash_info info;
207
  info.ctx = xalloc(hash->context_size); 
208 209 210 211 212 213
  info.update = hash->update;
  info.data = data;

  init_data(data);
  hash->init(info.ctx);

Niels Möller's avatar
Niels Möller committed
214
  display(hash->name, "update", hash->block_size,
215
	  time_function(bench_hash, &info));
216 217

  free(info.ctx);
218 219
}

Niels Möller's avatar
Niels Möller committed
220
static void
221
time_cipher(const struct nettle_cipher *cipher)
Niels Möller's avatar
Niels Möller committed
222
{
223 224
  void *ctx = xalloc(cipher->context_size);
  uint8_t *key = xalloc(cipher->key_size);
Niels Möller's avatar
Niels Möller committed
225

226
  static uint8_t data[BENCH_BLOCK];
Niels Möller's avatar
Niels Möller committed
227 228 229 230

  printf("\n");
  
  init_data(data);
231 232

  {
Niels Möller's avatar
Niels Möller committed
233 234 235 236 237
    /* Decent initializers are a GNU extension, so don't use it here. */
    struct bench_cipher_info info;
    info.ctx = ctx;
    info.crypt = cipher->encrypt;
    info.data = data;
238
    
Niels Möller's avatar
Niels Möller committed
239
    init_key(cipher->key_size, key);
240
    cipher->set_encrypt_key(ctx, cipher->key_size, key);
Niels Möller's avatar
Niels Möller committed
241

Niels Möller's avatar
Niels Möller committed
242
    display(cipher->name, "ECB encrypt", cipher->block_size,
Niels Möller's avatar
Niels Möller committed
243
	    time_function(bench_cipher, &info));
244
  }
Niels Möller's avatar
Niels Möller committed
245
  
246
  {
Niels Möller's avatar
Niels Möller committed
247 248 249 250
    struct bench_cipher_info info;
    info.ctx = ctx;
    info.crypt = cipher->decrypt;
    info.data = data;
251
    
Niels Möller's avatar
Niels Möller committed
252
    init_key(cipher->key_size, key);
253
    cipher->set_decrypt_key(ctx, cipher->key_size, key);
Niels Möller's avatar
Niels Möller committed
254

Niels Möller's avatar
Niels Möller committed
255
    display(cipher->name, "ECB decrypt", cipher->block_size,
Niels Möller's avatar
Niels Möller committed
256
	    time_function(bench_cipher, &info));
257 258
  }

Niels Möller's avatar
Niels Möller committed
259 260
  /* Don't use nettle cbc to benchmark openssl ciphers */
  if (cipher->block_size && cipher->name[0] != 'o')
Niels Möller's avatar
Niels Möller committed
261
    {
262
      uint8_t *iv = xalloc(cipher->block_size);
Niels Möller's avatar
Niels Möller committed
263 264 265
      
      /* Do CBC mode */
      {
Niels Möller's avatar
Niels Möller committed
266 267 268 269 270 271
        struct bench_cbc_info info;
	info.ctx = ctx;
	info.crypt = cipher->encrypt;
	info.data = data;
	info.block_size = cipher->block_size;
	info.iv = iv;
272
    
Niels Möller's avatar
Niels Möller committed
273
        memset(iv, 0, sizeof(iv));
274
    
275
        cipher->set_encrypt_key(ctx, cipher->key_size, key);
276

Niels Möller's avatar
Niels Möller committed
277
	display(cipher->name, "CBC encrypt", cipher->block_size,
Niels Möller's avatar
Niels Möller committed
278
		time_function(bench_cbc_encrypt, &info));
Niels Möller's avatar
Niels Möller committed
279
      }
280

Niels Möller's avatar
Niels Möller committed
281
      {
Niels Möller's avatar
Niels Möller committed
282 283 284 285 286 287
        struct bench_cbc_info info;
	info.ctx = ctx;
	info.crypt = cipher->decrypt;
	info.data = data;
	info.block_size = cipher->block_size;
	info.iv = iv;
288
    
Niels Möller's avatar
Niels Möller committed
289
        memset(iv, 0, sizeof(iv));
290

291
        cipher->set_decrypt_key(ctx, cipher->key_size, key);
292

Niels Möller's avatar
Niels Möller committed
293
	display(cipher->name, "CBC decrypt", cipher->block_size,
Niels Möller's avatar
Niels Möller committed
294
		time_function(bench_cbc_decrypt, &info));
Niels Möller's avatar
Niels Möller committed
295
      }
296
      free(iv);
Niels Möller's avatar
Niels Möller committed
297
    }
298 299
  free(ctx);
  free(key);
Niels Möller's avatar
Niels Möller committed
300 301
}

Niels Möller's avatar
Niels Möller committed
302
#if WITH_OPENSSL
303 304 305 306
# define OPENSSL(x) x,
#else
# define OPENSSL(x)
#endif
Niels Möller's avatar
Niels Möller committed
307 308

int
Niels Möller's avatar
Niels Möller committed
309
main(int argc UNUSED, char **argv UNUSED)
Niels Möller's avatar
Niels Möller committed
310 311
{
  unsigned i;
312
  int c;
313 314 315 316

  const struct nettle_hash *hashes[] =
    {
      &nettle_md2, &nettle_md4, &nettle_md5,
317
      OPENSSL(&nettle_openssl_md5)
318 319
      &nettle_sha1, OPENSSL(&nettle_openssl_sha1)
      &nettle_sha256,
320 321 322
      NULL
    };

323
  const struct nettle_cipher *ciphers[] =
Niels Möller's avatar
Niels Möller committed
324
    {
325
      &nettle_aes128, &nettle_aes192, &nettle_aes256,
Niels Möller's avatar
Niels Möller committed
326 327 328 329 330
      OPENSSL(&nettle_openssl_aes128)
      OPENSSL(&nettle_openssl_aes192)
      OPENSSL(&nettle_openssl_aes256)
      &nettle_arcfour128, OPENSSL(&nettle_openssl_arcfour128)
      &nettle_blowfish128, OPENSSL(&nettle_openssl_blowfish128)
331 332 333
      &nettle_cast128, OPENSSL(&nettle_openssl_cast128)
      &nettle_des, OPENSSL(&nettle_openssl_des)
      &nettle_des3,
334 335
      &nettle_serpent256,
      &nettle_twofish128, &nettle_twofish192, &nettle_twofish256,
336
      NULL
Niels Möller's avatar
Niels Möller committed
337
    };
338

339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356
  while ( (c = getopt(argc, argv, "f:")) != -1)
    switch (c)
      {
      case 'f':
	frequency = atof(optarg);
	if (frequency > 0.0)
	  break;

      case ':': case '?':
	fprintf(stderr, "Usage: nettle-benchmark [-f clock frequency]\n");
	return EXIT_FAILURE;

      default:
	abort();
    }

  header();

357 358 359
  for (i = 0; hashes[i]; i++)
    time_hash(hashes[i]);
  
360
  for (i = 0; ciphers[i]; i++)
361
    time_cipher(ciphers[i]);
Niels Möller's avatar
Niels Möller committed
362
  
363 364
  return 0;
}