1*0957b409SSimon J. Gerraty /*
2*0957b409SSimon J. Gerraty * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
3*0957b409SSimon J. Gerraty *
4*0957b409SSimon J. Gerraty * Permission is hereby granted, free of charge, to any person obtaining
5*0957b409SSimon J. Gerraty * a copy of this software and associated documentation files (the
6*0957b409SSimon J. Gerraty * "Software"), to deal in the Software without restriction, including
7*0957b409SSimon J. Gerraty * without limitation the rights to use, copy, modify, merge, publish,
8*0957b409SSimon J. Gerraty * distribute, sublicense, and/or sell copies of the Software, and to
9*0957b409SSimon J. Gerraty * permit persons to whom the Software is furnished to do so, subject to
10*0957b409SSimon J. Gerraty * the following conditions:
11*0957b409SSimon J. Gerraty *
12*0957b409SSimon J. Gerraty * The above copyright notice and this permission notice shall be
13*0957b409SSimon J. Gerraty * included in all copies or substantial portions of the Software.
14*0957b409SSimon J. Gerraty *
15*0957b409SSimon J. Gerraty * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
16*0957b409SSimon J. Gerraty * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17*0957b409SSimon J. Gerraty * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
18*0957b409SSimon J. Gerraty * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
19*0957b409SSimon J. Gerraty * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
20*0957b409SSimon J. Gerraty * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
21*0957b409SSimon J. Gerraty * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
22*0957b409SSimon J. Gerraty * SOFTWARE.
23*0957b409SSimon J. Gerraty */
24*0957b409SSimon J. Gerraty
25*0957b409SSimon J. Gerraty #include "inner.h"
26*0957b409SSimon J. Gerraty
27*0957b409SSimon J. Gerraty static inline size_t
block_size(const br_hash_class * dig)28*0957b409SSimon J. Gerraty block_size(const br_hash_class *dig)
29*0957b409SSimon J. Gerraty {
30*0957b409SSimon J. Gerraty unsigned ls;
31*0957b409SSimon J. Gerraty
32*0957b409SSimon J. Gerraty ls = (unsigned)(dig->desc >> BR_HASHDESC_LBLEN_OFF)
33*0957b409SSimon J. Gerraty & BR_HASHDESC_LBLEN_MASK;
34*0957b409SSimon J. Gerraty return (size_t)1 << ls;
35*0957b409SSimon J. Gerraty }
36*0957b409SSimon J. Gerraty
37*0957b409SSimon J. Gerraty static void
process_key(const br_hash_class ** hc,void * ks,const void * key,size_t key_len,unsigned bb)38*0957b409SSimon J. Gerraty process_key(const br_hash_class **hc, void *ks,
39*0957b409SSimon J. Gerraty const void *key, size_t key_len, unsigned bb)
40*0957b409SSimon J. Gerraty {
41*0957b409SSimon J. Gerraty unsigned char tmp[256];
42*0957b409SSimon J. Gerraty size_t blen, u;
43*0957b409SSimon J. Gerraty
44*0957b409SSimon J. Gerraty blen = block_size(*hc);
45*0957b409SSimon J. Gerraty memcpy(tmp, key, key_len);
46*0957b409SSimon J. Gerraty for (u = 0; u < key_len; u ++) {
47*0957b409SSimon J. Gerraty tmp[u] ^= (unsigned char)bb;
48*0957b409SSimon J. Gerraty }
49*0957b409SSimon J. Gerraty memset(tmp + key_len, bb, blen - key_len);
50*0957b409SSimon J. Gerraty (*hc)->init(hc);
51*0957b409SSimon J. Gerraty (*hc)->update(hc, tmp, blen);
52*0957b409SSimon J. Gerraty (*hc)->state(hc, ks);
53*0957b409SSimon J. Gerraty }
54*0957b409SSimon J. Gerraty
55*0957b409SSimon J. Gerraty /* see bearssl.h */
56*0957b409SSimon J. Gerraty void
br_hmac_key_init(br_hmac_key_context * kc,const br_hash_class * dig,const void * key,size_t key_len)57*0957b409SSimon J. Gerraty br_hmac_key_init(br_hmac_key_context *kc,
58*0957b409SSimon J. Gerraty const br_hash_class *dig, const void *key, size_t key_len)
59*0957b409SSimon J. Gerraty {
60*0957b409SSimon J. Gerraty br_hash_compat_context hc;
61*0957b409SSimon J. Gerraty unsigned char kbuf[64];
62*0957b409SSimon J. Gerraty
63*0957b409SSimon J. Gerraty kc->dig_vtable = dig;
64*0957b409SSimon J. Gerraty hc.vtable = dig;
65*0957b409SSimon J. Gerraty if (key_len > block_size(dig)) {
66*0957b409SSimon J. Gerraty dig->init(&hc.vtable);
67*0957b409SSimon J. Gerraty dig->update(&hc.vtable, key, key_len);
68*0957b409SSimon J. Gerraty dig->out(&hc.vtable, kbuf);
69*0957b409SSimon J. Gerraty key = kbuf;
70*0957b409SSimon J. Gerraty key_len = br_digest_size(dig);
71*0957b409SSimon J. Gerraty }
72*0957b409SSimon J. Gerraty process_key(&hc.vtable, kc->ksi, key, key_len, 0x36);
73*0957b409SSimon J. Gerraty process_key(&hc.vtable, kc->kso, key, key_len, 0x5C);
74*0957b409SSimon J. Gerraty }
75*0957b409SSimon J. Gerraty
76*0957b409SSimon J. Gerraty /* see bearssl.h */
77*0957b409SSimon J. Gerraty void
br_hmac_init(br_hmac_context * ctx,const br_hmac_key_context * kc,size_t out_len)78*0957b409SSimon J. Gerraty br_hmac_init(br_hmac_context *ctx,
79*0957b409SSimon J. Gerraty const br_hmac_key_context *kc, size_t out_len)
80*0957b409SSimon J. Gerraty {
81*0957b409SSimon J. Gerraty const br_hash_class *dig;
82*0957b409SSimon J. Gerraty size_t blen, hlen;
83*0957b409SSimon J. Gerraty
84*0957b409SSimon J. Gerraty dig = kc->dig_vtable;
85*0957b409SSimon J. Gerraty blen = block_size(dig);
86*0957b409SSimon J. Gerraty dig->init(&ctx->dig.vtable);
87*0957b409SSimon J. Gerraty dig->set_state(&ctx->dig.vtable, kc->ksi, (uint64_t)blen);
88*0957b409SSimon J. Gerraty memcpy(ctx->kso, kc->kso, sizeof kc->kso);
89*0957b409SSimon J. Gerraty hlen = br_digest_size(dig);
90*0957b409SSimon J. Gerraty if (out_len > 0 && out_len < hlen) {
91*0957b409SSimon J. Gerraty hlen = out_len;
92*0957b409SSimon J. Gerraty }
93*0957b409SSimon J. Gerraty ctx->out_len = hlen;
94*0957b409SSimon J. Gerraty }
95*0957b409SSimon J. Gerraty
96*0957b409SSimon J. Gerraty /* see bearssl.h */
97*0957b409SSimon J. Gerraty void
br_hmac_update(br_hmac_context * ctx,const void * data,size_t len)98*0957b409SSimon J. Gerraty br_hmac_update(br_hmac_context *ctx, const void *data, size_t len)
99*0957b409SSimon J. Gerraty {
100*0957b409SSimon J. Gerraty ctx->dig.vtable->update(&ctx->dig.vtable, data, len);
101*0957b409SSimon J. Gerraty }
102*0957b409SSimon J. Gerraty
103*0957b409SSimon J. Gerraty /* see bearssl.h */
104*0957b409SSimon J. Gerraty size_t
br_hmac_out(const br_hmac_context * ctx,void * out)105*0957b409SSimon J. Gerraty br_hmac_out(const br_hmac_context *ctx, void *out)
106*0957b409SSimon J. Gerraty {
107*0957b409SSimon J. Gerraty const br_hash_class *dig;
108*0957b409SSimon J. Gerraty br_hash_compat_context hc;
109*0957b409SSimon J. Gerraty unsigned char tmp[64];
110*0957b409SSimon J. Gerraty size_t blen, hlen;
111*0957b409SSimon J. Gerraty
112*0957b409SSimon J. Gerraty dig = ctx->dig.vtable;
113*0957b409SSimon J. Gerraty dig->out(&ctx->dig.vtable, tmp);
114*0957b409SSimon J. Gerraty blen = block_size(dig);
115*0957b409SSimon J. Gerraty dig->init(&hc.vtable);
116*0957b409SSimon J. Gerraty dig->set_state(&hc.vtable, ctx->kso, (uint64_t)blen);
117*0957b409SSimon J. Gerraty hlen = br_digest_size(dig);
118*0957b409SSimon J. Gerraty dig->update(&hc.vtable, tmp, hlen);
119*0957b409SSimon J. Gerraty dig->out(&hc.vtable, tmp);
120*0957b409SSimon J. Gerraty memcpy(out, tmp, ctx->out_len);
121*0957b409SSimon J. Gerraty return ctx->out_len;
122*0957b409SSimon J. Gerraty }
123