1/*
2 * Copyright 2019-2022 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 <openssl/params.h>
11#include <openssl/core_dispatch.h>
12#include <openssl/core_names.h>
13#include <openssl/evp.h>
14#include "internal/cryptlib.h"
15#include "crypto/modes.h"
16
17# define MAXCHUNK    ((size_t)1 << 30)
18# define MAXBITCHUNK ((size_t)1 << (sizeof(size_t) * 8 - 4))
19
20#define GENERIC_BLOCK_SIZE 16
21#define IV_STATE_UNINITIALISED 0  /* initial state is not initialized */
22#define IV_STATE_BUFFERED      1  /* iv has been copied to the iv buffer */
23#define IV_STATE_COPIED        2  /* iv has been copied from the iv buffer */
24#define IV_STATE_FINISHED      3  /* the iv has been used - so don't reuse it */
25
26#define PROV_CIPHER_FUNC(type, name, args) typedef type (* OSSL_##name##_fn)args
27
28typedef struct prov_cipher_hw_st PROV_CIPHER_HW;
29typedef struct prov_cipher_ctx_st PROV_CIPHER_CTX;
30
31typedef int (PROV_CIPHER_HW_FN)(PROV_CIPHER_CTX *dat, unsigned char *out,
32                                const unsigned char *in, size_t len);
33
34/* Internal flags that can be queried */
35#define PROV_CIPHER_FLAG_AEAD             0x0001
36#define PROV_CIPHER_FLAG_CUSTOM_IV        0x0002
37#define PROV_CIPHER_FLAG_CTS              0x0004
38#define PROV_CIPHER_FLAG_TLS1_MULTIBLOCK  0x0008
39#define PROV_CIPHER_FLAG_RAND_KEY         0x0010
40/* Internal flags that are only used within the provider */
41#define PROV_CIPHER_FLAG_VARIABLE_LENGTH  0x0100
42#define PROV_CIPHER_FLAG_INVERSE_CIPHER   0x0200
43
44struct prov_cipher_ctx_st {
45    block128_f block;
46    union {
47        cbc128_f cbc;
48        ctr128_f ctr;
49        ecb128_f ecb;
50    } stream;
51
52    unsigned int mode;
53    size_t keylen;           /* key size (in bytes) */
54    size_t ivlen;
55    size_t blocksize;
56    size_t bufsz;            /* Number of bytes in buf */
57    unsigned int cts_mode;   /* Use to set the type for CTS modes */
58    unsigned int pad : 1;    /* Whether padding should be used or not */
59    unsigned int enc : 1;    /* Set to 1 for encrypt, or 0 otherwise */
60    unsigned int iv_set : 1; /* Set when the iv is copied to the iv/oiv buffers */
61    unsigned int updated : 1; /* Set to 1 during update for one shot ciphers */
62    unsigned int variable_keylength : 1;
63    unsigned int inverse_cipher : 1; /* set to 1 to use inverse cipher */
64    unsigned int use_bits : 1; /* Set to 0 for cfb1 to use bits instead of bytes */
65
66    unsigned int tlsversion; /* If TLS padding is in use the TLS version number */
67    unsigned char *tlsmac;   /* tls MAC extracted from the last record */
68    int alloced;             /*
69                              * Whether the tlsmac data has been allocated or
70                              * points into the user buffer.
71                              */
72    size_t tlsmacsize;       /* Size of the TLS MAC */
73    int removetlspad;        /* Whether TLS padding should be removed or not */
74    size_t removetlsfixed;   /*
75                              * Length of the fixed size data to remove when
76                              * processing TLS data (equals mac size plus
77                              * IV size if applicable)
78                              */
79
80    /*
81     * num contains the number of bytes of |iv| which are valid for modes that
82     * manage partial blocks themselves.
83     */
84    unsigned int num;
85
86    /* The original value of the iv */
87    unsigned char oiv[GENERIC_BLOCK_SIZE];
88    /* Buffer of partial blocks processed via update calls */
89    unsigned char buf[GENERIC_BLOCK_SIZE];
90    unsigned char iv[GENERIC_BLOCK_SIZE];
91    const PROV_CIPHER_HW *hw; /* hardware specific functions */
92    const void *ks; /* Pointer to algorithm specific key data */
93    OSSL_LIB_CTX *libctx;
94};
95
96struct prov_cipher_hw_st {
97    int (*init)(PROV_CIPHER_CTX *dat, const uint8_t *key, size_t keylen);
98    PROV_CIPHER_HW_FN *cipher;
99    void (*copyctx)(PROV_CIPHER_CTX *dst, const PROV_CIPHER_CTX *src);
100};
101
102void ossl_cipher_generic_reset_ctx(PROV_CIPHER_CTX *ctx);
103OSSL_FUNC_cipher_encrypt_init_fn ossl_cipher_generic_einit;
104OSSL_FUNC_cipher_decrypt_init_fn ossl_cipher_generic_dinit;
105OSSL_FUNC_cipher_update_fn ossl_cipher_generic_block_update;
106OSSL_FUNC_cipher_final_fn ossl_cipher_generic_block_final;
107OSSL_FUNC_cipher_update_fn ossl_cipher_generic_stream_update;
108OSSL_FUNC_cipher_final_fn ossl_cipher_generic_stream_final;
109OSSL_FUNC_cipher_cipher_fn ossl_cipher_generic_cipher;
110OSSL_FUNC_cipher_get_ctx_params_fn ossl_cipher_generic_get_ctx_params;
111OSSL_FUNC_cipher_set_ctx_params_fn ossl_cipher_generic_set_ctx_params;
112OSSL_FUNC_cipher_gettable_params_fn     ossl_cipher_generic_gettable_params;
113OSSL_FUNC_cipher_gettable_ctx_params_fn ossl_cipher_generic_gettable_ctx_params;
114OSSL_FUNC_cipher_settable_ctx_params_fn ossl_cipher_generic_settable_ctx_params;
115OSSL_FUNC_cipher_set_ctx_params_fn ossl_cipher_var_keylen_set_ctx_params;
116OSSL_FUNC_cipher_settable_ctx_params_fn ossl_cipher_var_keylen_settable_ctx_params;
117OSSL_FUNC_cipher_gettable_ctx_params_fn ossl_cipher_aead_gettable_ctx_params;
118OSSL_FUNC_cipher_settable_ctx_params_fn ossl_cipher_aead_settable_ctx_params;
119
120int ossl_cipher_generic_get_params(OSSL_PARAM params[], unsigned int md,
121                                   uint64_t flags,
122                                   size_t kbits, size_t blkbits, size_t ivbits);
123void ossl_cipher_generic_initkey(void *vctx, size_t kbits, size_t blkbits,
124                                 size_t ivbits, unsigned int mode,
125                                 uint64_t flags,
126                                 const PROV_CIPHER_HW *hw, void *provctx);
127
128#define IMPLEMENT_generic_cipher_func(alg, UCALG, lcmode, UCMODE, flags, kbits,\
129                                      blkbits, ivbits, typ)                    \
130const OSSL_DISPATCH ossl_##alg##kbits##lcmode##_functions[] = {                \
131    { OSSL_FUNC_CIPHER_NEWCTX,                                                 \
132      (void (*)(void)) alg##_##kbits##_##lcmode##_newctx },                    \
133    { OSSL_FUNC_CIPHER_FREECTX, (void (*)(void)) alg##_freectx },              \
134    { OSSL_FUNC_CIPHER_DUPCTX, (void (*)(void)) alg##_dupctx },                \
135    { OSSL_FUNC_CIPHER_ENCRYPT_INIT, (void (*)(void))ossl_cipher_generic_einit },   \
136    { OSSL_FUNC_CIPHER_DECRYPT_INIT, (void (*)(void))ossl_cipher_generic_dinit },   \
137    { OSSL_FUNC_CIPHER_UPDATE, (void (*)(void))ossl_cipher_generic_##typ##_update },\
138    { OSSL_FUNC_CIPHER_FINAL, (void (*)(void))ossl_cipher_generic_##typ##_final },  \
139    { OSSL_FUNC_CIPHER_CIPHER, (void (*)(void))ossl_cipher_generic_cipher },        \
140    { OSSL_FUNC_CIPHER_GET_PARAMS,                                             \
141      (void (*)(void)) alg##_##kbits##_##lcmode##_get_params },                \
142    { OSSL_FUNC_CIPHER_GET_CTX_PARAMS,                                         \
143      (void (*)(void))ossl_cipher_generic_get_ctx_params },                    \
144    { OSSL_FUNC_CIPHER_SET_CTX_PARAMS,                                         \
145      (void (*)(void))ossl_cipher_generic_set_ctx_params },                    \
146    { OSSL_FUNC_CIPHER_GETTABLE_PARAMS,                                        \
147      (void (*)(void))ossl_cipher_generic_gettable_params },                   \
148    { OSSL_FUNC_CIPHER_GETTABLE_CTX_PARAMS,                                    \
149      (void (*)(void))ossl_cipher_generic_gettable_ctx_params },               \
150    { OSSL_FUNC_CIPHER_SETTABLE_CTX_PARAMS,                                    \
151     (void (*)(void))ossl_cipher_generic_settable_ctx_params },                \
152    { 0, NULL }                                                                \
153};
154
155#define IMPLEMENT_var_keylen_cipher_func(alg, UCALG, lcmode, UCMODE, flags,    \
156                                         kbits, blkbits, ivbits, typ)          \
157const OSSL_DISPATCH ossl_##alg##kbits##lcmode##_functions[] = {                \
158    { OSSL_FUNC_CIPHER_NEWCTX,                                                 \
159      (void (*)(void)) alg##_##kbits##_##lcmode##_newctx },                    \
160    { OSSL_FUNC_CIPHER_FREECTX, (void (*)(void)) alg##_freectx },              \
161    { OSSL_FUNC_CIPHER_DUPCTX, (void (*)(void)) alg##_dupctx },                \
162    { OSSL_FUNC_CIPHER_ENCRYPT_INIT, (void (*)(void))ossl_cipher_generic_einit },\
163    { OSSL_FUNC_CIPHER_DECRYPT_INIT, (void (*)(void))ossl_cipher_generic_dinit },\
164    { OSSL_FUNC_CIPHER_UPDATE, (void (*)(void))ossl_cipher_generic_##typ##_update },\
165    { OSSL_FUNC_CIPHER_FINAL, (void (*)(void))ossl_cipher_generic_##typ##_final },  \
166    { OSSL_FUNC_CIPHER_CIPHER, (void (*)(void))ossl_cipher_generic_cipher },   \
167    { OSSL_FUNC_CIPHER_GET_PARAMS,                                             \
168      (void (*)(void)) alg##_##kbits##_##lcmode##_get_params },                \
169    { OSSL_FUNC_CIPHER_GET_CTX_PARAMS,                                         \
170      (void (*)(void))ossl_cipher_generic_get_ctx_params },                    \
171    { OSSL_FUNC_CIPHER_SET_CTX_PARAMS,                                         \
172      (void (*)(void))ossl_cipher_var_keylen_set_ctx_params },                 \
173    { OSSL_FUNC_CIPHER_GETTABLE_PARAMS,                                        \
174      (void (*)(void))ossl_cipher_generic_gettable_params },                   \
175    { OSSL_FUNC_CIPHER_GETTABLE_CTX_PARAMS,                                    \
176      (void (*)(void))ossl_cipher_generic_gettable_ctx_params },               \
177    { OSSL_FUNC_CIPHER_SETTABLE_CTX_PARAMS,                                    \
178     (void (*)(void))ossl_cipher_var_keylen_settable_ctx_params },             \
179    { 0, NULL }                                                                \
180};
181
182
183#define IMPLEMENT_generic_cipher_genfn(alg, UCALG, lcmode, UCMODE, flags,      \
184                                       kbits, blkbits, ivbits, typ)            \
185static OSSL_FUNC_cipher_get_params_fn alg##_##kbits##_##lcmode##_get_params;   \
186static int alg##_##kbits##_##lcmode##_get_params(OSSL_PARAM params[])          \
187{                                                                              \
188    return ossl_cipher_generic_get_params(params, EVP_CIPH_##UCMODE##_MODE,    \
189                                          flags, kbits, blkbits, ivbits);      \
190}                                                                              \
191static OSSL_FUNC_cipher_newctx_fn alg##_##kbits##_##lcmode##_newctx;           \
192static void * alg##_##kbits##_##lcmode##_newctx(void *provctx)                 \
193{                                                                              \
194     PROV_##UCALG##_CTX *ctx = ossl_prov_is_running() ? OPENSSL_zalloc(sizeof(*ctx))\
195                                                     : NULL;                   \
196     if (ctx != NULL) {                                                        \
197         ossl_cipher_generic_initkey(ctx, kbits, blkbits, ivbits,              \
198                                     EVP_CIPH_##UCMODE##_MODE, flags,          \
199                                     ossl_prov_cipher_hw_##alg##_##lcmode(kbits),\
200                                     provctx);                                 \
201     }                                                                         \
202     return ctx;                                                               \
203}                                                                              \
204
205#define IMPLEMENT_generic_cipher(alg, UCALG, lcmode, UCMODE, flags, kbits,     \
206                                 blkbits, ivbits, typ)                         \
207IMPLEMENT_generic_cipher_genfn(alg, UCALG, lcmode, UCMODE, flags, kbits,       \
208                               blkbits, ivbits, typ)                           \
209IMPLEMENT_generic_cipher_func(alg, UCALG, lcmode, UCMODE, flags, kbits,        \
210                              blkbits, ivbits, typ)
211
212#define IMPLEMENT_var_keylen_cipher(alg, UCALG, lcmode, UCMODE, flags, kbits,  \
213                                    blkbits, ivbits, typ)                      \
214IMPLEMENT_generic_cipher_genfn(alg, UCALG, lcmode, UCMODE, flags, kbits,       \
215                               blkbits, ivbits, typ)                           \
216IMPLEMENT_var_keylen_cipher_func(alg, UCALG, lcmode, UCMODE, flags, kbits,     \
217                                 blkbits, ivbits, typ)
218
219PROV_CIPHER_HW_FN ossl_cipher_hw_generic_cbc;
220PROV_CIPHER_HW_FN ossl_cipher_hw_generic_ecb;
221PROV_CIPHER_HW_FN ossl_cipher_hw_generic_ofb128;
222PROV_CIPHER_HW_FN ossl_cipher_hw_generic_cfb128;
223PROV_CIPHER_HW_FN ossl_cipher_hw_generic_cfb8;
224PROV_CIPHER_HW_FN ossl_cipher_hw_generic_cfb1;
225PROV_CIPHER_HW_FN ossl_cipher_hw_generic_ctr;
226PROV_CIPHER_HW_FN ossl_cipher_hw_chunked_cbc;
227PROV_CIPHER_HW_FN ossl_cipher_hw_chunked_cfb8;
228PROV_CIPHER_HW_FN ossl_cipher_hw_chunked_cfb128;
229PROV_CIPHER_HW_FN ossl_cipher_hw_chunked_ofb128;
230#define ossl_cipher_hw_chunked_ecb  ossl_cipher_hw_generic_ecb
231#define ossl_cipher_hw_chunked_ctr  ossl_cipher_hw_generic_ctr
232#define ossl_cipher_hw_chunked_cfb1 ossl_cipher_hw_generic_cfb1
233
234#define IMPLEMENT_CIPHER_HW_OFB(MODE, NAME, CTX_NAME, KEY_NAME, FUNC_PREFIX)   \
235static int cipher_hw_##NAME##_##MODE##_cipher(PROV_CIPHER_CTX *ctx,            \
236                                         unsigned char *out,                   \
237                                         const unsigned char *in, size_t len)  \
238{                                                                              \
239    int num = ctx->num;                                                        \
240    KEY_NAME *key = &(((CTX_NAME *)ctx)->ks.ks);                               \
241                                                                               \
242    while (len >= MAXCHUNK) {                                                  \
243        FUNC_PREFIX##_encrypt(in, out, MAXCHUNK, key, ctx->iv, &num);          \
244        len -= MAXCHUNK;                                                       \
245        in += MAXCHUNK;                                                        \
246        out += MAXCHUNK;                                                       \
247    }                                                                          \
248    if (len > 0) {                                                             \
249        FUNC_PREFIX##_encrypt(in, out, (long)len, key, ctx->iv, &num);         \
250    }                                                                          \
251    ctx->num = num;                                                            \
252    return 1;                                                                  \
253}
254
255#define IMPLEMENT_CIPHER_HW_ECB(MODE, NAME, CTX_NAME, KEY_NAME, FUNC_PREFIX)   \
256static int cipher_hw_##NAME##_##MODE##_cipher(PROV_CIPHER_CTX *ctx,            \
257                                         unsigned char *out,                   \
258                                         const unsigned char *in, size_t len)  \
259{                                                                              \
260    size_t i, bl = ctx->blocksize;                                             \
261    KEY_NAME *key = &(((CTX_NAME *)ctx)->ks.ks);                               \
262                                                                               \
263    if (len < bl)                                                              \
264        return 1;                                                              \
265    for (i = 0, len -= bl; i <= len; i += bl)                                  \
266        FUNC_PREFIX##_encrypt(in + i, out + i, key, ctx->enc);                 \
267    return 1;                                                                  \
268}
269
270#define IMPLEMENT_CIPHER_HW_CBC(MODE, NAME, CTX_NAME, KEY_NAME, FUNC_PREFIX)   \
271static int cipher_hw_##NAME##_##MODE##_cipher(PROV_CIPHER_CTX *ctx,            \
272                                         unsigned char *out,                   \
273                                         const unsigned char *in, size_t len)  \
274{                                                                              \
275    KEY_NAME *key = &(((CTX_NAME *)ctx)->ks.ks);                               \
276                                                                               \
277    while (len >= MAXCHUNK) {                                                  \
278        FUNC_PREFIX##_encrypt(in, out, MAXCHUNK, key, ctx->iv, ctx->enc);      \
279        len -= MAXCHUNK;                                                       \
280        in += MAXCHUNK;                                                        \
281        out += MAXCHUNK;                                                       \
282    }                                                                          \
283    if (len > 0)                                                               \
284        FUNC_PREFIX##_encrypt(in, out, (long)len, key, ctx->iv, ctx->enc);     \
285    return 1;                                                                  \
286}
287
288#define IMPLEMENT_CIPHER_HW_CFB(MODE, NAME, CTX_NAME, KEY_NAME, FUNC_PREFIX)   \
289static int cipher_hw_##NAME##_##MODE##_cipher(PROV_CIPHER_CTX *ctx,            \
290                                         unsigned char *out,                   \
291                                         const unsigned char *in, size_t len)  \
292{                                                                              \
293    size_t chunk = MAXCHUNK;                                                   \
294    KEY_NAME *key = &(((CTX_NAME *)ctx)->ks.ks);                               \
295    int num = ctx->num;                                                        \
296                                                                               \
297    if (len < chunk)                                                           \
298        chunk = len;                                                           \
299    while (len > 0 && len >= chunk) {                                          \
300        FUNC_PREFIX##_encrypt(in, out, (long)chunk, key, ctx->iv, &num,        \
301                              ctx->enc);                                       \
302        len -= chunk;                                                          \
303        in += chunk;                                                           \
304        out += chunk;                                                          \
305        if (len < chunk)                                                       \
306            chunk = len;                                                       \
307    }                                                                          \
308    ctx->num = num;                                                            \
309    return 1;                                                                  \
310}
311
312#define IMPLEMENT_CIPHER_HW_COPYCTX(name, CTX_TYPE)                            \
313static void name(PROV_CIPHER_CTX *dst, const PROV_CIPHER_CTX *src)             \
314{                                                                              \
315    CTX_TYPE *sctx = (CTX_TYPE *)src;                                          \
316    CTX_TYPE *dctx = (CTX_TYPE *)dst;                                          \
317                                                                               \
318    *dctx = *sctx;                                                             \
319    dst->ks = &dctx->ks.ks;                                                    \
320}
321
322#define CIPHER_DEFAULT_GETTABLE_CTX_PARAMS_START(name)                         \
323static const OSSL_PARAM name##_known_gettable_ctx_params[] = {                 \
324    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_KEYLEN, NULL),                         \
325    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_IVLEN, NULL),                          \
326    OSSL_PARAM_uint(OSSL_CIPHER_PARAM_PADDING, NULL),                          \
327    OSSL_PARAM_uint(OSSL_CIPHER_PARAM_NUM, NULL),                              \
328    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_IV, NULL, 0),                    \
329    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_UPDATED_IV, NULL, 0),
330
331#define CIPHER_DEFAULT_GETTABLE_CTX_PARAMS_END(name)                           \
332    OSSL_PARAM_END                                                             \
333};                                                                             \
334const OSSL_PARAM * name##_gettable_ctx_params(ossl_unused void *cctx,          \
335                                              ossl_unused void *provctx)       \
336{                                                                              \
337    return name##_known_gettable_ctx_params;                                   \
338}
339
340#define CIPHER_DEFAULT_SETTABLE_CTX_PARAMS_START(name)                         \
341static const OSSL_PARAM name##_known_settable_ctx_params[] = {                 \
342    OSSL_PARAM_uint(OSSL_CIPHER_PARAM_PADDING, NULL),                          \
343    OSSL_PARAM_uint(OSSL_CIPHER_PARAM_NUM, NULL),
344#define CIPHER_DEFAULT_SETTABLE_CTX_PARAMS_END(name)                           \
345    OSSL_PARAM_END                                                             \
346};                                                                             \
347const OSSL_PARAM * name##_settable_ctx_params(ossl_unused void *cctx,          \
348                                              ossl_unused void *provctx)       \
349{                                                                              \
350    return name##_known_settable_ctx_params;                                   \
351}
352
353int ossl_cipher_generic_initiv(PROV_CIPHER_CTX *ctx, const unsigned char *iv,
354                               size_t ivlen);
355
356size_t ossl_cipher_fillblock(unsigned char *buf, size_t *buflen,
357                             size_t blocksize,
358                             const unsigned char **in, size_t *inlen);
359int ossl_cipher_trailingdata(unsigned char *buf, size_t *buflen,
360                             size_t blocksize,
361                             const unsigned char **in, size_t *inlen);
362