1/*
2 * Copyright 2006-2021 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/*
11 * Camellia low level APIs are deprecated for public use, but still ok for
12 * internal use.
13 */
14#include "internal/deprecated.h"
15
16#include <openssl/opensslconf.h>
17
18#include <openssl/evp.h>
19#include <openssl/err.h>
20#include <string.h>
21#include <assert.h>
22#include <openssl/camellia.h>
23#include "crypto/evp.h"
24#include "crypto/modes.h"
25#include "crypto/cmll_platform.h"
26#include "evp_local.h"
27
28static int camellia_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
29                             const unsigned char *iv, int enc);
30
31/* Camellia subkey Structure */
32typedef struct {
33    CAMELLIA_KEY ks;
34    block128_f block;
35    union {
36        cbc128_f cbc;
37        ctr128_f ctr;
38    } stream;
39} EVP_CAMELLIA_KEY;
40
41#define MAXBITCHUNK     ((size_t)1<<(sizeof(size_t)*8-4))
42
43/* Attribute operation for Camellia */
44#define data(ctx)       EVP_C_DATA(EVP_CAMELLIA_KEY,ctx)
45
46#if defined(AES_ASM) && (defined(__sparc) || defined(__sparc__))
47/* ---------^^^ this is not a typo, just a way to detect that
48 * assembler support was in general requested... */
49# include "crypto/sparc_arch.h"
50
51static int cmll_t4_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
52                            const unsigned char *iv, int enc)
53{
54    int ret, mode, bits;
55    EVP_CAMELLIA_KEY *dat =
56        (EVP_CAMELLIA_KEY *)EVP_CIPHER_CTX_get_cipher_data(ctx);
57
58    mode = EVP_CIPHER_CTX_get_mode(ctx);
59    bits = EVP_CIPHER_CTX_get_key_length(ctx) * 8;
60
61    cmll_t4_set_key(key, bits, &dat->ks);
62
63    if ((mode == EVP_CIPH_ECB_MODE || mode == EVP_CIPH_CBC_MODE)
64        && !enc) {
65        ret = 0;
66        dat->block = (block128_f) cmll_t4_decrypt;
67        switch (bits) {
68        case 128:
69            dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
70                (cbc128_f) cmll128_t4_cbc_decrypt : NULL;
71            break;
72        case 192:
73        case 256:
74            dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
75                (cbc128_f) cmll256_t4_cbc_decrypt : NULL;
76            break;
77        default:
78            ret = -1;
79        }
80    } else {
81        ret = 0;
82        dat->block = (block128_f) cmll_t4_encrypt;
83        switch (bits) {
84        case 128:
85            if (mode == EVP_CIPH_CBC_MODE)
86                dat->stream.cbc = (cbc128_f) cmll128_t4_cbc_encrypt;
87            else if (mode == EVP_CIPH_CTR_MODE)
88                dat->stream.ctr = (ctr128_f) cmll128_t4_ctr32_encrypt;
89            else
90                dat->stream.cbc = NULL;
91            break;
92        case 192:
93        case 256:
94            if (mode == EVP_CIPH_CBC_MODE)
95                dat->stream.cbc = (cbc128_f) cmll256_t4_cbc_encrypt;
96            else if (mode == EVP_CIPH_CTR_MODE)
97                dat->stream.ctr = (ctr128_f) cmll256_t4_ctr32_encrypt;
98            else
99                dat->stream.cbc = NULL;
100            break;
101        default:
102            ret = -1;
103        }
104    }
105
106    if (ret < 0) {
107        ERR_raise(ERR_LIB_EVP, EVP_R_CAMELLIA_KEY_SETUP_FAILED);
108        return 0;
109    }
110
111    return 1;
112}
113
114# define cmll_t4_cbc_cipher camellia_cbc_cipher
115static int cmll_t4_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
116                              const unsigned char *in, size_t len);
117
118# define cmll_t4_ecb_cipher camellia_ecb_cipher
119static int cmll_t4_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
120                              const unsigned char *in, size_t len);
121
122# define cmll_t4_ofb_cipher camellia_ofb_cipher
123static int cmll_t4_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
124                              const unsigned char *in, size_t len);
125
126# define cmll_t4_cfb_cipher camellia_cfb_cipher
127static int cmll_t4_cfb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
128                              const unsigned char *in, size_t len);
129
130# define cmll_t4_cfb8_cipher camellia_cfb8_cipher
131static int cmll_t4_cfb8_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
132                               const unsigned char *in, size_t len);
133
134# define cmll_t4_cfb1_cipher camellia_cfb1_cipher
135static int cmll_t4_cfb1_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
136                               const unsigned char *in, size_t len);
137
138# define cmll_t4_ctr_cipher camellia_ctr_cipher
139static int cmll_t4_ctr_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
140                              const unsigned char *in, size_t len);
141
142# define BLOCK_CIPHER_generic(nid,keylen,blocksize,ivlen,nmode,mode,MODE,flags) \
143static const EVP_CIPHER cmll_t4_##keylen##_##mode = { \
144        nid##_##keylen##_##nmode,blocksize,keylen/8,ivlen, \
145        flags|EVP_CIPH_##MODE##_MODE,   \
146        EVP_ORIG_GLOBAL,                \
147        cmll_t4_init_key,               \
148        cmll_t4_##mode##_cipher,        \
149        NULL,                           \
150        sizeof(EVP_CAMELLIA_KEY),       \
151        NULL,NULL,NULL,NULL }; \
152static const EVP_CIPHER camellia_##keylen##_##mode = { \
153        nid##_##keylen##_##nmode,blocksize,     \
154        keylen/8,ivlen, \
155        flags|EVP_CIPH_##MODE##_MODE,   \
156        EVP_ORIG_GLOBAL,                \
157        camellia_init_key,              \
158        camellia_##mode##_cipher,       \
159        NULL,                           \
160        sizeof(EVP_CAMELLIA_KEY),       \
161        NULL,NULL,NULL,NULL }; \
162const EVP_CIPHER *EVP_camellia_##keylen##_##mode(void) \
163{ return SPARC_CMLL_CAPABLE?&cmll_t4_##keylen##_##mode:&camellia_##keylen##_##mode; }
164
165#else
166
167# define BLOCK_CIPHER_generic(nid,keylen,blocksize,ivlen,nmode,mode,MODE,flags) \
168static const EVP_CIPHER camellia_##keylen##_##mode = { \
169        nid##_##keylen##_##nmode,blocksize,keylen/8,ivlen, \
170        flags|EVP_CIPH_##MODE##_MODE,   \
171        EVP_ORIG_GLOBAL,                \
172        camellia_init_key,              \
173        camellia_##mode##_cipher,       \
174        NULL,                           \
175        sizeof(EVP_CAMELLIA_KEY),       \
176        NULL,NULL,NULL,NULL }; \
177const EVP_CIPHER *EVP_camellia_##keylen##_##mode(void) \
178{ return &camellia_##keylen##_##mode; }
179
180#endif
181
182#define BLOCK_CIPHER_generic_pack(nid,keylen,flags)             \
183        BLOCK_CIPHER_generic(nid,keylen,16,16,cbc,cbc,CBC,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)     \
184        BLOCK_CIPHER_generic(nid,keylen,16,0,ecb,ecb,ECB,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)      \
185        BLOCK_CIPHER_generic(nid,keylen,1,16,ofb128,ofb,OFB,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)   \
186        BLOCK_CIPHER_generic(nid,keylen,1,16,cfb128,cfb,CFB,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)   \
187        BLOCK_CIPHER_generic(nid,keylen,1,16,cfb1,cfb1,CFB,flags)       \
188        BLOCK_CIPHER_generic(nid,keylen,1,16,cfb8,cfb8,CFB,flags)       \
189        BLOCK_CIPHER_generic(nid, keylen, 1, 16, ctr, ctr, CTR, flags)
190
191/* The subkey for Camellia is generated. */
192static int camellia_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
193                             const unsigned char *iv, int enc)
194{
195    int ret, mode;
196    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
197
198    ret = Camellia_set_key(key, EVP_CIPHER_CTX_get_key_length(ctx) * 8,
199                           &dat->ks);
200    if (ret < 0) {
201        ERR_raise(ERR_LIB_EVP, EVP_R_CAMELLIA_KEY_SETUP_FAILED);
202        return 0;
203    }
204
205    mode = EVP_CIPHER_CTX_get_mode(ctx);
206    if ((mode == EVP_CIPH_ECB_MODE || mode == EVP_CIPH_CBC_MODE)
207        && !enc) {
208        dat->block = (block128_f) Camellia_decrypt;
209        dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
210            (cbc128_f) Camellia_cbc_encrypt : NULL;
211    } else {
212        dat->block = (block128_f) Camellia_encrypt;
213        dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
214            (cbc128_f) Camellia_cbc_encrypt : NULL;
215    }
216
217    return 1;
218}
219
220static int camellia_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
221                               const unsigned char *in, size_t len)
222{
223    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
224
225    if (dat->stream.cbc)
226        (*dat->stream.cbc) (in, out, len, &dat->ks, ctx->iv,
227                            EVP_CIPHER_CTX_is_encrypting(ctx));
228    else if (EVP_CIPHER_CTX_is_encrypting(ctx))
229        CRYPTO_cbc128_encrypt(in, out, len, &dat->ks, ctx->iv, dat->block);
230    else
231        CRYPTO_cbc128_decrypt(in, out, len, &dat->ks, ctx->iv, dat->block);
232
233    return 1;
234}
235
236static int camellia_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
237                               const unsigned char *in, size_t len)
238{
239    size_t bl = EVP_CIPHER_CTX_get_block_size(ctx);
240    size_t i;
241    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
242
243    if (len < bl)
244        return 1;
245
246    for (i = 0, len -= bl; i <= len; i += bl)
247        (*dat->block) (in + i, out + i, &dat->ks);
248
249    return 1;
250}
251
252static int camellia_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
253                               const unsigned char *in, size_t len)
254{
255    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
256
257    int num = EVP_CIPHER_CTX_get_num(ctx);
258    CRYPTO_ofb128_encrypt(in, out, len, &dat->ks, ctx->iv, &num, dat->block);
259    EVP_CIPHER_CTX_set_num(ctx, num);
260    return 1;
261}
262
263static int camellia_cfb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
264                               const unsigned char *in, size_t len)
265{
266    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
267
268    int num = EVP_CIPHER_CTX_get_num(ctx);
269    CRYPTO_cfb128_encrypt(in, out, len, &dat->ks, ctx->iv, &num,
270                          EVP_CIPHER_CTX_is_encrypting(ctx), dat->block);
271    EVP_CIPHER_CTX_set_num(ctx, num);
272    return 1;
273}
274
275static int camellia_cfb8_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
276                                const unsigned char *in, size_t len)
277{
278    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
279
280    int num = EVP_CIPHER_CTX_get_num(ctx);
281    CRYPTO_cfb128_8_encrypt(in, out, len, &dat->ks, ctx->iv, &num,
282                            EVP_CIPHER_CTX_is_encrypting(ctx), dat->block);
283    EVP_CIPHER_CTX_set_num(ctx, num);
284    return 1;
285}
286
287static int camellia_cfb1_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
288                                const unsigned char *in, size_t len)
289{
290    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
291
292    if (EVP_CIPHER_CTX_test_flags(ctx, EVP_CIPH_FLAG_LENGTH_BITS)) {
293        int num = EVP_CIPHER_CTX_get_num(ctx);
294        CRYPTO_cfb128_1_encrypt(in, out, len, &dat->ks, ctx->iv, &num,
295                                EVP_CIPHER_CTX_is_encrypting(ctx),
296                                dat->block);
297        EVP_CIPHER_CTX_set_num(ctx, num);
298        return 1;
299    }
300
301    while (len >= MAXBITCHUNK) {
302        int num = EVP_CIPHER_CTX_get_num(ctx);
303        CRYPTO_cfb128_1_encrypt(in, out, MAXBITCHUNK * 8, &dat->ks,
304                                ctx->iv, &num,
305                                EVP_CIPHER_CTX_is_encrypting(ctx),
306                                dat->block);
307        EVP_CIPHER_CTX_set_num(ctx, num);
308        len -= MAXBITCHUNK;
309        out += MAXBITCHUNK;
310        in  += MAXBITCHUNK;
311    }
312    if (len) {
313        int num = EVP_CIPHER_CTX_get_num(ctx);
314        CRYPTO_cfb128_1_encrypt(in, out, len * 8, &dat->ks,
315                                ctx->iv, &num,
316                                EVP_CIPHER_CTX_is_encrypting(ctx),
317                                dat->block);
318        EVP_CIPHER_CTX_set_num(ctx, num);
319    }
320
321    return 1;
322}
323
324static int camellia_ctr_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
325                               const unsigned char *in, size_t len)
326{
327    int snum = EVP_CIPHER_CTX_get_num(ctx);
328    unsigned int num;
329    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);
330
331    if (snum < 0)
332        return 0;
333    num = snum;
334    if (dat->stream.ctr)
335        CRYPTO_ctr128_encrypt_ctr32(in, out, len, &dat->ks, ctx->iv,
336                                    EVP_CIPHER_CTX_buf_noconst(ctx),
337                                    &num,
338                                    dat->stream.ctr);
339    else
340        CRYPTO_ctr128_encrypt(in, out, len, &dat->ks, ctx->iv,
341                              EVP_CIPHER_CTX_buf_noconst(ctx), &num,
342                              dat->block);
343    EVP_CIPHER_CTX_set_num(ctx, num);
344    return 1;
345}
346
347BLOCK_CIPHER_generic_pack(NID_camellia, 128, 0)
348    BLOCK_CIPHER_generic_pack(NID_camellia, 192, 0)
349    BLOCK_CIPHER_generic_pack(NID_camellia, 256, 0)
350