4fc116c7f2f5c0274c5809872b3f0d8c48cee679
[oweals/gnunet.git] / src / nse / perf_kdf.c
1 /*
2      This file is part of GNUnet.
3      Copyright (C) 2002, 2003, 2004, 2006, 2013 GNUnet e.V.
4
5      GNUnet is free software: you can redistribute it and/or modify it
6      under the terms of the GNU Affero General Public License as published
7      by the Free Software Foundation, either version 3 of the License,
8      or (at your 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      Affero General Public License for more details.
14     
15      You should have received a copy of the GNU Affero General Public License
16      along with this program.  If not, see <http://www.gnu.org/licenses/>.
17 */
18
19 /**
20  * @author Christian Grothoff
21  * @file nse/perf_kdf.c
22  * @brief measure performance of KDF hash function
23  */
24 #include "platform.h"
25 #include "gnunet_util_lib.h"
26 #include <gcrypt.h>
27 #include <gauger.h>
28
29
30
31 /**
32  * Calculate the 'proof-of-work' hash (an expensive hash).
33  *
34  * @param buf data to hash
35  * @param buf_len number of bytes in 'buf'
36  * @param result where to write the resulting hash
37  */
38 static void
39 pow_hash (const void *buf,
40           size_t buf_len,
41           struct GNUNET_HashCode *result)
42 {
43   GNUNET_break (0 ==
44                 gcry_kdf_derive (buf, buf_len,
45                                  GCRY_KDF_SCRYPT,
46                                  1 /* subalgo */,
47                                  "gnunet-proof-of-work", strlen ("gnunet-proof-of-work"),
48                                  2 /* iterations; keep cost of individual op small */,
49                                  sizeof (struct GNUNET_HashCode), result));
50 }
51
52
53 static void
54 perfHash ()
55 {
56   struct GNUNET_HashCode hc;
57   unsigned int i;
58   char buf[64];
59
60   memset (buf, 1,  sizeof (buf));
61   for (i = 0; i < 1024; i++)
62     pow_hash (buf, sizeof (buf), &hc);
63 }
64
65
66 int
67 main (int argc, char *argv[])
68 {
69   struct GNUNET_TIME_Absolute start;
70
71   start = GNUNET_TIME_absolute_get ();
72   perfHash ();
73   printf ("Hash perf took %s\n",
74           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
75                                                   GNUNET_YES));
76   GAUGER ("NSE", "Proof-of-work hashing",
77           1024.0 / (1.0 +
78                   GNUNET_TIME_absolute_get_duration
79                   (start).rel_value_us / 1000.0), "hashes/ms");
80   return 0;
81 }
82
83 /* end of perf_kdf.c */