ac5dc744fa152c7b9de65658f2d0f38d645d42e9
[tinc] / src / gcrypt / digest.c
1 /*
2     digest.c -- Digest handling
3     Copyright (C) 2007-2012 Guus Sliepen <guus@tinc-vpn.org>
4
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13     GNU General Public License for more details.
14
15     You should have received a copy of the GNU General Public License along
16     with this program; if not, write to the Free Software Foundation, Inc.,
17     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 */
19
20 #include "system.h"
21
22 #include "digest.h"
23 #include "logger.h"
24
25 static struct {
26         const char *name;
27         int algo;
28         int nid;
29 } digesttable[] = {
30         {"none", GCRY_MD_NONE, 0},
31         {"sha1", GCRY_MD_SHA1, 64},
32         {"sha256", GCRY_MD_SHA256, 672},
33         {"sha384", GCRY_MD_SHA384, 673},
34         {"sha512", GCRY_MD_SHA512, 674},
35 };
36
37 static bool nametodigest(const char *name, int *algo) {
38         int i;
39
40         for(i = 0; i < sizeof(digesttable) / sizeof * digesttable; i++) {
41                 if(digesttable[i].name && !strcasecmp(name, digesttable[i].name)) {
42                         *algo = digesttable[i].algo;
43                         return true;
44                 }
45         }
46
47         return false;
48 }
49
50 static bool nidtodigest(int nid, int *algo) {
51         int i;
52
53         for(i = 0; i < sizeof(digesttable) / sizeof * digesttable; i++) {
54                 if(nid == digesttable[i].nid) {
55                         *algo = digesttable[i].algo;
56                         return true;
57                 }
58         }
59
60         return false;
61 }
62
63 static bool digesttonid(int algo, int *nid) {
64         int i;
65
66         for(i = 0; i < sizeof(digesttable) / sizeof * digesttable; i++) {
67                 if(algo == digesttable[i].algo) {
68                         *nid = digesttable[i].nid;
69                         return true;
70                 }
71         }
72
73         return false;
74 }
75
76 static bool digest_open(digest_t *digest, int algo, int maclength) {
77         if(!digesttonid(algo, &digest->nid)) {
78                 logger(DEBUG_ALWAYS, LOG_DEBUG, "Digest %d has no corresponding nid!", algo);
79                 return false;
80         }
81
82         unsigned int len = gcry_md_get_algo_dlen(algo);
83
84         if(maclength > len || maclength < 0) {
85                 digest->maclength = len;
86         } else {
87                 digest->maclength = maclength;
88         }
89
90         digest->algo = algo;
91         digest->hmac = NULL;
92
93         return true;
94 }
95
96 bool digest_open_by_name(digest_t *digest, const char *name, int maclength) {
97         int algo;
98
99         if(!nametodigest(name, &algo)) {
100                 logger(DEBUG_ALWAYS, LOG_DEBUG, "Unknown digest name '%s'!", name);
101                 return false;
102         }
103
104         return digest_open(digest, algo, maclength);
105 }
106
107 bool digest_open_by_nid(digest_t *digest, int nid, int maclength) {
108         int algo;
109
110         if(!nidtodigest(nid, &algo)) {
111                 logger(DEBUG_ALWAYS, LOG_DEBUG, "Unknown digest ID %d!", nid);
112                 return false;
113         }
114
115         return digest_open(digest, algo, maclength);
116 }
117
118 bool digest_open_sha1(digest_t *digest, int maclength) {
119         return digest_open(digest, GCRY_MD_SHA1, maclength);
120 }
121
122 void digest_close(digest_t *digest) {
123         if(digest->hmac) {
124                 gcry_md_close(digest->hmac);
125         }
126
127         digest->hmac = NULL;
128 }
129
130 bool digest_set_key(digest_t *digest, const void *key, size_t len) {
131         if(!digest->hmac) {
132                 gcry_md_open(&digest->hmac, digest->algo, GCRY_MD_FLAG_HMAC);
133         }
134
135         if(!digest->hmac) {
136                 return false;
137         }
138
139         return !gcry_md_setkey(digest->hmac, key, len);
140 }
141
142 bool digest_create(digest_t *digest, const void *indata, size_t inlen, void *outdata) {
143         unsigned int len = gcry_md_get_algo_dlen(digest->algo);
144
145         if(digest->hmac) {
146                 char *tmpdata;
147                 gcry_md_reset(digest->hmac);
148                 gcry_md_write(digest->hmac, indata, inlen);
149                 tmpdata = gcry_md_read(digest->hmac, digest->algo);
150
151                 if(!tmpdata) {
152                         return false;
153                 }
154
155                 memcpy(outdata, tmpdata, digest->maclength);
156         } else {
157                 char tmpdata[len];
158                 gcry_md_hash_buffer(digest->algo, tmpdata, indata, inlen);
159                 memcpy(outdata, tmpdata, digest->maclength);
160         }
161
162         return true;
163 }
164
165 bool digest_verify(digest_t *digest, const void *indata, size_t inlen, const void *cmpdata) {
166         unsigned int len = digest->maclength;
167         char outdata[len];
168
169         return digest_create(digest, indata, inlen, outdata) && !memcmp(cmpdata, outdata, len);
170 }
171
172 int digest_get_nid(const digest_t *digest) {
173         return digest->nid;
174 }
175
176 size_t digest_length(const digest_t *digest) {
177         return digest->maclength;
178 }
179
180 bool digest_active(const digest_t *digest) {
181         return digest->algo != GCRY_MD_NONE;
182 }