Merge branch 'master' of ssh://gnunet.org/gnunet
[oweals/gnunet.git] / src / util / perf_crypto_hash.c
1 /*
2      This file is part of GNUnet.
3      Copyright (C) 2002, 2003, 2004, 2006 GNUnet e.V.
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 perfHashSmall ()
47 {
48   struct GNUNET_HashCode hc;
49   unsigned int i;
50   char buf[64];
51
52   memset (buf, 1, sizeof (buf));
53   for (i = 0; i < 1024; i++)
54     GNUNET_CRYPTO_hash (buf, sizeof (buf), &hc);
55 }
56
57
58 static void
59 perfHKDF ()
60 {
61   unsigned int i;
62   char res[128];
63   char buf[128];
64   char skm[64];
65
66   memset (buf, 1, sizeof (buf));
67   memset (skm, 2, sizeof (skm));
68   for (i = 0; i < 1024; i++)
69     GNUNET_CRYPTO_hkdf (res, sizeof (res),
70                         GCRY_MD_SHA512, GCRY_MD_SHA256,
71                         buf, sizeof (buf),
72                         skm, sizeof (skm),
73                         "test", (size_t) 4,
74                         NULL, 0);
75 }
76
77
78 int
79 main (int argc, char *argv[])
80 {
81   struct GNUNET_TIME_Absolute start;
82
83   start = GNUNET_TIME_absolute_get ();
84   perfHashSmall ();
85   printf ("1024x 64-byte Hash perf took %s\n",
86           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
87                                                   GNUNET_YES));
88
89   start = GNUNET_TIME_absolute_get ();
90   perfHash ();
91   printf ("1024x 64k Hash perf took %s\n",
92           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
93                                                   GNUNET_YES));
94   GAUGER ("UTIL", "Cryptographic hashing",
95           64 * 1024 / (1 +
96                        GNUNET_TIME_absolute_get_duration
97                        (start).rel_value_us / 1000LL), "kb/ms");
98   start = GNUNET_TIME_absolute_get ();
99   perfHKDF ();
100   printf ("HKDF perf took %s\n",
101           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
102                                                   GNUNET_YES));
103   GAUGER ("UTIL", "Cryptographic HKDF",
104           64 * 1024 / (1 +
105                        GNUNET_TIME_absolute_get_duration
106                        (start).rel_value_us / 1000LL), "kb/ms");
107   return 0;
108 }
109
110 /* end of perf_crypto_hash.c */