crypto/evp/e_camellia.c

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