1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/* See LICENSE file for copyright and license details. */
#include "common.h"
/**
* Absorb the last part of the message and fetch the hash
* and wipe sensitive data when possible
*
* You may use `&state->sponge` for continued squeezing
*
* @param state The hashing state
* @param msg The rest of the message, may be `NULL`, may be modified
* @param msglen The length of the partial message
* @param bits The number of bits at the end of the message not covered by `msglen`
* @param suffix The suffix concatenate to the message, only '1':s and '0':s, and NUL-termination
* @param hashsum Output parameter for the hashsum, may be `NULL`
* @return Zero on success, -1 on error
*/
int
libkeccak_hmac_digest(struct libkeccak_hmac_state *restrict state, const void *restrict msg_, size_t msglen,
size_t bits, const char *restrict suffix, void *restrict hashsum)
{
const char *restrict msg = msg_;
size_t hashsize = (size_t)(state->sponge.n >> 3);
char *tmp = malloc((size_t)((state->sponge.n + 7) >> 3) * sizeof(char));
char leftover[2];
size_t newlen;
if (!tmp)
return -1;
if (!(state->key_length & 7)) {
if (libkeccak_digest(&state->sponge, msg, msglen, bits, suffix, tmp) < 0)
goto fail;
goto stage_2;
}
if (libkeccak_hmac_update(state, msg, msglen) < 0)
goto fail;
leftover[0] = state->leftover;
if (bits) {
leftover[0] |= (char)(msg[msglen] >> (state->key_length & 7));
leftover[1] = (char)((unsigned char)msg[msglen] << (8 - (state->key_length & 7)));
}
newlen = (state->key_length & 7) + bits;
if (libkeccak_digest(&state->sponge, leftover, newlen >> 3, newlen & 7, suffix, tmp) < 0)
goto fail;
stage_2:
bits = state->sponge.n & 7;
state->key_ipad = state->key_opad;
if (libkeccak_hmac_update(state, NULL, 0) < 0)
goto fail;
if (!(state->key_length & 7)) {
if (libkeccak_digest(&state->sponge, tmp, hashsize, bits, suffix, hashsum) < 0)
goto fail;
goto stage_3;
}
if (libkeccak_hmac_update(state, tmp, hashsize) < 0)
goto fail;
leftover[0] = state->leftover;
if (bits) {
leftover[0] |= (char)(tmp[hashsize] >> (state->key_length & 7));
leftover[1] = (char)((unsigned char)tmp[hashsize] << (8 - (state->key_length & 7)));
}
newlen = (state->key_length & 7) + bits;
if (libkeccak_digest(&state->sponge, leftover, newlen >> 3, newlen & 7, suffix, tmp) < 0)
goto fail;
stage_3:
my_explicit_bzero(tmp, (size_t)((state->sponge.n + 7) >> 3) * sizeof(char));
free(tmp);
return 0;
fail:
my_explicit_bzero(tmp, (size_t)((state->sponge.n + 7) >> 3) * sizeof(char));
free(tmp);
return -1;
}
|
