Fixed one serious bug, working on another. Still very broken.
[oweals/gnunet.git] / src / util / perf_crypto_hash.c
1 /*
2      This file is part of GNUnet.
3      Copyright (C) 2002, 2003, 2004, 2006 Christian Grothoff (and other contributing authors)
4
5      GNUnet is free software; you can redistribute it and/or modify
6      it under the terms of the GNU General Public License as published
7      by the Free Software Foundation; either version 3, or (at your
8      option) any later version.
9
10      GNUnet is distributed in the hope that it will be useful, but
11      WITHOUT ANY WARRANTY; without even the implied warranty of
12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13      General Public License for more details.
14
15      You should have received a copy of the GNU General Public License
16      along with GNUnet; see the file COPYING.  If not, write to the
17      Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18      Boston, MA 02110-1301, USA.
19 */
20
21 /**
22  * @author Christian Grothoff
23  * @file util/perf_crypto_hash.c
24  * @brief measure performance of hash function
25  */
26 #include "platform.h"
27 #include "gnunet_util_lib.h"
28 #include <gauger.h>
29 #include <gcrypt.h>
30
31
32 static void
33 perfHash ()
34 {
35   struct GNUNET_HashCode hc;
36   unsigned int i;
37   char buf[64 * 1024];
38
39   memset (buf, 1, sizeof (buf));
40   for (i = 0; i < 1024; i++)
41     GNUNET_CRYPTO_hash (buf, sizeof (buf), &hc);
42 }
43
44
45 static void
46 perfHKDF ()
47 {
48   unsigned int i;
49   char res[128];
50   char buf[128];
51   char skm[64];
52
53   memset (buf, 1, sizeof (buf));
54   memset (skm, 2, sizeof (skm));
55   for (i = 0; i < 1024; i++)
56     GNUNET_CRYPTO_hkdf (res, sizeof (res),
57                         GCRY_MD_SHA512, GCRY_MD_SHA256,
58                         buf, sizeof (buf),
59                         skm, sizeof (skm),
60                         "test", (size_t) 4,
61                         NULL, 0);
62 }
63
64
65 int
66 main (int argc, char *argv[])
67 {
68   struct GNUNET_TIME_Absolute start;
69
70   start = GNUNET_TIME_absolute_get ();
71   perfHash ();
72   printf ("Hash perf took %s\n",
73           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
74                                                   GNUNET_YES));
75   GAUGER ("UTIL", "Cryptographic hashing",
76           64 * 1024 / (1 +
77                        GNUNET_TIME_absolute_get_duration
78                        (start).rel_value_us / 1000LL), "kb/ms");
79   start = GNUNET_TIME_absolute_get ();
80   perfHKDF ();
81   printf ("HKDF perf took %s\n",
82           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
83                                                   GNUNET_YES));
84   GAUGER ("UTIL", "Cryptographic HKDF",
85           64 * 1024 / (1 +
86                        GNUNET_TIME_absolute_get_duration
87                        (start).rel_value_us / 1000LL), "kb/ms");
88   return 0;
89 }
90
91 /* end of perf_crypto_hash.c */