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