Change EVP_MAC method from copy to dup
[openssl.git] / crypto / siphash / siphash_meth.c
1 /*
2  * Copyright 2018 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the Apache License 2.0 (the "License").  You may not use
5  * this file except in compliance with the License.  You can obtain a copy
6  * in the file LICENSE in the source distribution or at
7  * https://www.openssl.org/source/license.html
8  */
9
10 #include <stdarg.h>
11 #include <string.h>
12 #include <openssl/evp.h>
13 #include <openssl/err.h>
14 #include "internal/siphash.h"
15 #include "siphash_local.h"
16 #include "internal/evp_int.h"
17
18 /* local SIPHASH structure is actually a SIPHASH */
19
20 struct evp_mac_impl_st {
21     SIPHASH ctx;
22 };
23
24 static EVP_MAC_IMPL *siphash_new(void)
25 {
26     return OPENSSL_zalloc(sizeof(EVP_MAC_IMPL));
27 }
28
29 static void siphash_free(EVP_MAC_IMPL *sctx)
30 {
31     OPENSSL_free(sctx);
32 }
33
34 static EVP_MAC_IMPL *siphash_dup(const EVP_MAC_IMPL *ssrc)
35 {
36     EVP_MAC_IMPL *sdst;
37
38     sdst = siphash_new();
39     if (sdst == NULL)
40         return NULL;
41
42     *sdst = *ssrc;
43
44     return sdst;
45 }
46
47 static size_t siphash_size(EVP_MAC_IMPL *sctx)
48 {
49     return SipHash_hash_size(&sctx->ctx);
50 }
51
52 static int siphash_init(EVP_MAC_IMPL *sctx)
53 {
54     /* Not much to do here, actual initialization happens through controls */
55     return 1;
56 }
57
58 static int siphash_update(EVP_MAC_IMPL *sctx, const unsigned char *data,
59                        size_t datalen)
60 {
61     SipHash_Update(&sctx->ctx, data, datalen);
62     return 1;
63 }
64
65 static int siphash_final(EVP_MAC_IMPL *sctx, unsigned char *out)
66 {
67     size_t hlen = siphash_size(sctx);
68
69     return SipHash_Final(&sctx->ctx, out, hlen);
70 }
71
72 static int siphash_ctrl(EVP_MAC_IMPL *sctx, int cmd, va_list args)
73 {
74     switch (cmd) {
75     case EVP_MAC_CTRL_SET_SIZE:
76         {
77             size_t size = va_arg(args, size_t);
78
79             return SipHash_set_hash_size(&sctx->ctx, size);
80         }
81         break;
82     case EVP_MAC_CTRL_SET_KEY:
83         {
84             const unsigned char *key = va_arg(args, const unsigned char *);
85             size_t keylen = va_arg(args, size_t);
86
87             if (key == NULL || keylen != SIPHASH_KEY_SIZE)
88                 return 0;
89
90             return SipHash_Init(&sctx->ctx, key, 0, 0);
91         }
92         break;
93     default:
94         return -2;
95     }
96     return 1;
97 }
98
99 static int siphash_ctrl_int(EVP_MAC_IMPL *sctx, int cmd, ...)
100 {
101     int rv;
102     va_list args;
103
104     va_start(args, cmd);
105     rv = siphash_ctrl(sctx, cmd, args);
106     va_end(args);
107
108     return rv;
109 }
110
111 static int siphash_ctrl_str_cb(void *ctx, int cmd, void *buf, size_t buflen)
112 {
113     return siphash_ctrl_int(ctx, cmd, buf, buflen);
114 }
115
116 static int siphash_ctrl_str(EVP_MAC_IMPL *ctx,
117                             const char *type, const char *value)
118 {
119     if (value == NULL)
120         return 0;
121     if (strcmp(type, "digestsize") == 0) {
122         size_t hash_size = atoi(value);
123
124         return siphash_ctrl_int(ctx, EVP_MAC_CTRL_SET_SIZE, hash_size);
125     }
126     if (strcmp(type, "key") == 0)
127         return EVP_str2ctrl(siphash_ctrl_str_cb, ctx, EVP_MAC_CTRL_SET_KEY,
128                             value);
129     if (strcmp(type, "hexkey") == 0)
130         return EVP_hex2ctrl(siphash_ctrl_str_cb, ctx, EVP_MAC_CTRL_SET_KEY,
131                             value);
132     return -2;
133 }
134
135 const EVP_MAC siphash_meth = {
136     EVP_MAC_SIPHASH,
137     siphash_new,
138     siphash_dup,
139     siphash_free,
140     siphash_size,
141     siphash_init,
142     siphash_update,
143     siphash_final,
144     siphash_ctrl,
145     siphash_ctrl_str
146 };