misc fixes
[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
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 nse/perf_kdf.c
24  * @brief measure performance of KDF hash function
25  */
26 #include "platform.h"
27 #include "gnunet_util_lib.h"
28 #include <gcrypt.h>
29 #include <gauger.h>
30
31
32
33 /**
34  * Calculate the 'proof-of-work' hash (an expensive hash).
35  *
36  * @param buf data to hash
37  * @param buf_len number of bytes in 'buf'
38  * @param result where to write the resulting hash
39  */
40 static void
41 pow_hash (const void *buf,
42           size_t buf_len,
43           struct GNUNET_HashCode *result)
44 {
45   GNUNET_break (0 ==
46                 gcry_kdf_derive (buf, buf_len,
47                                  GCRY_KDF_SCRYPT,
48                                  1 /* subalgo */,
49                                  "gnunet-proof-of-work", strlen ("gnunet-proof-of-work"),
50                                  2 /* iterations; keep cost of individual op small */,
51                                  sizeof (struct GNUNET_HashCode), result));
52 }
53
54
55 static void
56 perfHash ()
57 {
58   struct GNUNET_HashCode hc;
59   unsigned int i;
60   char buf[64];
61
62   memset (buf, 1,  sizeof (buf));
63   for (i = 0; i < 1024; i++)
64     pow_hash (buf, sizeof (buf), &hc);
65 }
66
67
68 int
69 main (int argc, char *argv[])
70 {
71   struct GNUNET_TIME_Absolute start;
72
73   start = GNUNET_TIME_absolute_get ();
74   perfHash ();
75   printf ("Hash perf took %s\n",
76           GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration (start),
77                                                   GNUNET_YES));
78   GAUGER ("NSE", "Proof-of-work hashing",
79           1024.0 / (1.0 +
80                   GNUNET_TIME_absolute_get_duration
81                   (start).rel_value_us / 1000.0), "hashes/ms");
82   return 0;
83 }
84
85 /* end of perf_kdf.c */