[thirdparty/openssl.git] / crypto / evp / e_camellia.c

/*
 * Copyright 2006-2018 The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the OpenSSL license (the "License").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */

#include <openssl/opensslconf.h>
#ifdef OPENSSL_NO_CAMELLIA
NON_EMPTY_TRANSLATION_UNIT
#else

# include <openssl/evp.h>
# include <openssl/err.h>
# include <string.h>
# include <assert.h>
# include <openssl/camellia.h>
# include "internal/evp_int.h"
# include "modes_lcl.h"

static int camellia_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
                             const unsigned char *iv, int enc);

/* Camellia subkey Structure */
typedef struct {
    CAMELLIA_KEY ks;
    block128_f block;
    union {
        cbc128_f cbc;
        ctr128_f ctr;
    } stream;
} EVP_CAMELLIA_KEY;

# define MAXBITCHUNK     ((size_t)1<<(sizeof(size_t)*8-4))

/* Attribute operation for Camellia */
# define data(ctx)       EVP_C_DATA(EVP_CAMELLIA_KEY,ctx)

# if defined(AES_ASM) && (defined(__sparc) || defined(__sparc__))
/* ---------^^^ this is not a typo, just a way to detect that
 * assembler support was in general requested... */
#  include "sparc_arch.h"

extern unsigned int OPENSSL_sparcv9cap_P[];

#  define SPARC_CMLL_CAPABLE      (OPENSSL_sparcv9cap_P[1] & CFR_CAMELLIA)

void cmll_t4_set_key(const unsigned char *key, int bits, CAMELLIA_KEY *ks);
void cmll_t4_encrypt(const unsigned char *in, unsigned char *out,
                     const CAMELLIA_KEY *key);
void cmll_t4_decrypt(const unsigned char *in, unsigned char *out,
                     const CAMELLIA_KEY *key);

void cmll128_t4_cbc_encrypt(const unsigned char *in, unsigned char *out,
                            size_t len, const CAMELLIA_KEY *key,
                            unsigned char *ivec);
void cmll128_t4_cbc_decrypt(const unsigned char *in, unsigned char *out,
                            size_t len, const CAMELLIA_KEY *key,
                            unsigned char *ivec);
void cmll256_t4_cbc_encrypt(const unsigned char *in, unsigned char *out,
                            size_t len, const CAMELLIA_KEY *key,
                            unsigned char *ivec);
void cmll256_t4_cbc_decrypt(const unsigned char *in, unsigned char *out,
                            size_t len, const CAMELLIA_KEY *key,
                            unsigned char *ivec);
void cmll128_t4_ctr32_encrypt(const unsigned char *in, unsigned char *out,
                              size_t blocks, const CAMELLIA_KEY *key,
                              unsigned char *ivec);
void cmll256_t4_ctr32_encrypt(const unsigned char *in, unsigned char *out,
                              size_t blocks, const CAMELLIA_KEY *key,
                              unsigned char *ivec);

static int cmll_t4_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
                            const unsigned char *iv, int enc)
{
    int ret, mode, bits;
    EVP_CAMELLIA_KEY *dat =
        (EVP_CAMELLIA_KEY *)EVP_CIPHER_CTX_get_cipher_data(ctx);

    mode = EVP_CIPHER_CTX_mode(ctx);
    bits = EVP_CIPHER_CTX_key_length(ctx) * 8;

    cmll_t4_set_key(key, bits, &dat->ks);

    if ((mode == EVP_CIPH_ECB_MODE || mode == EVP_CIPH_CBC_MODE)
        && !enc) {
        ret = 0;
        dat->block = (block128_f) cmll_t4_decrypt;
        switch (bits) {
        case 128:
            dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
                (cbc128_f) cmll128_t4_cbc_decrypt : NULL;
            break;
        case 192:
        case 256:
            dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
                (cbc128_f) cmll256_t4_cbc_decrypt : NULL;
            break;
        default:
            ret = -1;
        }
    } else {
        ret = 0;
        dat->block = (block128_f) cmll_t4_encrypt;
        switch (bits) {
        case 128:
            if (mode == EVP_CIPH_CBC_MODE)
                dat->stream.cbc = (cbc128_f) cmll128_t4_cbc_encrypt;
            else if (mode == EVP_CIPH_CTR_MODE)
                dat->stream.ctr = (ctr128_f) cmll128_t4_ctr32_encrypt;
            else
                dat->stream.cbc = NULL;
            break;
        case 192:
        case 256:
            if (mode == EVP_CIPH_CBC_MODE)
                dat->stream.cbc = (cbc128_f) cmll256_t4_cbc_encrypt;
            else if (mode == EVP_CIPH_CTR_MODE)
                dat->stream.ctr = (ctr128_f) cmll256_t4_ctr32_encrypt;
            else
                dat->stream.cbc = NULL;
            break;
        default:
            ret = -1;
        }
    }

    if (ret < 0) {
        EVPerr(EVP_F_CMLL_T4_INIT_KEY, EVP_R_CAMELLIA_KEY_SETUP_FAILED);
        return 0;
    }

    return 1;
}

#  define cmll_t4_cbc_cipher camellia_cbc_cipher
static int cmll_t4_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                              const unsigned char *in, size_t len);

#  define cmll_t4_ecb_cipher camellia_ecb_cipher
static int cmll_t4_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                              const unsigned char *in, size_t len);

#  define cmll_t4_ofb_cipher camellia_ofb_cipher
static int cmll_t4_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                              const unsigned char *in, size_t len);

#  define cmll_t4_cfb_cipher camellia_cfb_cipher
static int cmll_t4_cfb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                              const unsigned char *in, size_t len);

#  define cmll_t4_cfb8_cipher camellia_cfb8_cipher
static int cmll_t4_cfb8_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len);

#  define cmll_t4_cfb1_cipher camellia_cfb1_cipher
static int cmll_t4_cfb1_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len);

#  define cmll_t4_ctr_cipher camellia_ctr_cipher
static int cmll_t4_ctr_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                              const unsigned char *in, size_t len);

#  define BLOCK_CIPHER_generic(nid,keylen,blocksize,ivlen,nmode,mode,MODE,flags) \
static const EVP_CIPHER cmll_t4_##keylen##_##mode = { \
        nid##_##keylen##_##nmode,blocksize,keylen/8,ivlen, \
        flags|EVP_CIPH_##MODE##_MODE,   \
        cmll_t4_init_key,               \
        cmll_t4_##mode##_cipher,        \
        NULL,                           \
        sizeof(EVP_CAMELLIA_KEY),       \
        NULL,NULL,NULL,NULL }; \
static const EVP_CIPHER camellia_##keylen##_##mode = { \
        nid##_##keylen##_##nmode,blocksize,     \
        keylen/8,ivlen, \
        flags|EVP_CIPH_##MODE##_MODE,   \
        camellia_init_key,              \
        camellia_##mode##_cipher,       \
        NULL,                           \
        sizeof(EVP_CAMELLIA_KEY),       \
        NULL,NULL,NULL,NULL }; \
const EVP_CIPHER *EVP_camellia_##keylen##_##mode(void) \
{ return SPARC_CMLL_CAPABLE?&cmll_t4_##keylen##_##mode:&camellia_##keylen##_##mode; }

# else

#  define BLOCK_CIPHER_generic(nid,keylen,blocksize,ivlen,nmode,mode,MODE,flags) \
static const EVP_CIPHER camellia_##keylen##_##mode = { \
        nid##_##keylen##_##nmode,blocksize,keylen/8,ivlen, \
        flags|EVP_CIPH_##MODE##_MODE,   \
        camellia_init_key,              \
        camellia_##mode##_cipher,       \
        NULL,                           \
        sizeof(EVP_CAMELLIA_KEY),       \
        NULL,NULL,NULL,NULL }; \
const EVP_CIPHER *EVP_camellia_##keylen##_##mode(void) \
{ return &camellia_##keylen##_##mode; }

# endif

# define BLOCK_CIPHER_generic_pack(nid,keylen,flags)             \
        BLOCK_CIPHER_generic(nid,keylen,16,16,cbc,cbc,CBC,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)     \
        BLOCK_CIPHER_generic(nid,keylen,16,0,ecb,ecb,ECB,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)      \
        BLOCK_CIPHER_generic(nid,keylen,1,16,ofb128,ofb,OFB,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)   \
        BLOCK_CIPHER_generic(nid,keylen,1,16,cfb128,cfb,CFB,flags|EVP_CIPH_FLAG_DEFAULT_ASN1)   \
        BLOCK_CIPHER_generic(nid,keylen,1,16,cfb1,cfb1,CFB,flags)       \
        BLOCK_CIPHER_generic(nid,keylen,1,16,cfb8,cfb8,CFB,flags)       \
        BLOCK_CIPHER_generic(nid, keylen, 1, 16, ctr, ctr, CTR, flags)

/* The subkey for Camellia is generated. */
static int camellia_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
                             const unsigned char *iv, int enc)
{
    int ret, mode;
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    ret = Camellia_set_key(key, EVP_CIPHER_CTX_key_length(ctx) * 8, &dat->ks);
    if (ret < 0) {
        EVPerr(EVP_F_CAMELLIA_INIT_KEY, EVP_R_CAMELLIA_KEY_SETUP_FAILED);
        return 0;
    }

    mode = EVP_CIPHER_CTX_mode(ctx);
    if ((mode == EVP_CIPH_ECB_MODE || mode == EVP_CIPH_CBC_MODE)
        && !enc) {
        dat->block = (block128_f) Camellia_decrypt;
        dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
            (cbc128_f) Camellia_cbc_encrypt : NULL;
    } else {
        dat->block = (block128_f) Camellia_encrypt;
        dat->stream.cbc = mode == EVP_CIPH_CBC_MODE ?
            (cbc128_f) Camellia_cbc_encrypt : NULL;
    }

    return 1;
}

static int camellia_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len)
{
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    if (dat->stream.cbc)
        (*dat->stream.cbc) (in, out, len, &dat->ks,
                            EVP_CIPHER_CTX_iv_noconst(ctx),
                            EVP_CIPHER_CTX_encrypting(ctx));
    else if (EVP_CIPHER_CTX_encrypting(ctx))
        CRYPTO_cbc128_encrypt(in, out, len, &dat->ks,
                              EVP_CIPHER_CTX_iv_noconst(ctx), dat->block);
    else
        CRYPTO_cbc128_decrypt(in, out, len, &dat->ks,
                              EVP_CIPHER_CTX_iv_noconst(ctx), dat->block);

    return 1;
}

static int camellia_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len)
{
    size_t bl = EVP_CIPHER_CTX_block_size(ctx);
    size_t i;
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    if (len < bl)
        return 1;

    for (i = 0, len -= bl; i <= len; i += bl)
        (*dat->block) (in + i, out + i, &dat->ks);

    return 1;
}

static int camellia_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len)
{
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    int num = EVP_CIPHER_CTX_num(ctx);
    CRYPTO_ofb128_encrypt(in, out, len, &dat->ks,
                          EVP_CIPHER_CTX_iv_noconst(ctx), &num, dat->block);
    EVP_CIPHER_CTX_set_num(ctx, num);
    return 1;
}

static int camellia_cfb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len)
{
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    int num = EVP_CIPHER_CTX_num(ctx);
    CRYPTO_cfb128_encrypt(in, out, len, &dat->ks,
                          EVP_CIPHER_CTX_iv_noconst(ctx), &num, EVP_CIPHER_CTX_encrypting(ctx), dat->block);
    EVP_CIPHER_CTX_set_num(ctx, num);
    return 1;
}

static int camellia_cfb8_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                                const unsigned char *in, size_t len)
{
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    int num = EVP_CIPHER_CTX_num(ctx);
    CRYPTO_cfb128_8_encrypt(in, out, len, &dat->ks,
                            EVP_CIPHER_CTX_iv_noconst(ctx), &num, EVP_CIPHER_CTX_encrypting(ctx), dat->block);
    EVP_CIPHER_CTX_set_num(ctx, num);
    return 1;
}

static int camellia_cfb1_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                                const unsigned char *in, size_t len)
{
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    if (EVP_CIPHER_CTX_test_flags(ctx, EVP_CIPH_FLAG_LENGTH_BITS)) {
        int num = EVP_CIPHER_CTX_num(ctx);
        CRYPTO_cfb128_1_encrypt(in, out, len, &dat->ks,
                                EVP_CIPHER_CTX_iv_noconst(ctx), &num, EVP_CIPHER_CTX_encrypting(ctx), dat->block);
        EVP_CIPHER_CTX_set_num(ctx, num);
        return 1;
    }

    while (len >= MAXBITCHUNK) {
        int num = EVP_CIPHER_CTX_num(ctx);
        CRYPTO_cfb128_1_encrypt(in, out, MAXBITCHUNK * 8, &dat->ks,
                                EVP_CIPHER_CTX_iv_noconst(ctx), &num, EVP_CIPHER_CTX_encrypting(ctx), dat->block);
        EVP_CIPHER_CTX_set_num(ctx, num);
        len -= MAXBITCHUNK;
        out += MAXBITCHUNK;
        in  += MAXBITCHUNK;
    }
    if (len) {
        int num = EVP_CIPHER_CTX_num(ctx);
        CRYPTO_cfb128_1_encrypt(in, out, len * 8, &dat->ks,
                                EVP_CIPHER_CTX_iv_noconst(ctx), &num, EVP_CIPHER_CTX_encrypting(ctx), dat->block);
        EVP_CIPHER_CTX_set_num(ctx, num);
    }

    return 1;
}

static int camellia_ctr_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
                               const unsigned char *in, size_t len)
{
    unsigned int num = EVP_CIPHER_CTX_num(ctx);
    EVP_CAMELLIA_KEY *dat = EVP_C_DATA(EVP_CAMELLIA_KEY,ctx);

    if (dat->stream.ctr)
        CRYPTO_ctr128_encrypt_ctr32(in, out, len, &dat->ks,
                                    EVP_CIPHER_CTX_iv_noconst(ctx),
                                    EVP_CIPHER_CTX_buf_noconst(ctx), &num,
                                    dat->stream.ctr);
    else
        CRYPTO_ctr128_encrypt(in, out, len, &dat->ks,
                              EVP_CIPHER_CTX_iv_noconst(ctx),
                              EVP_CIPHER_CTX_buf_noconst(ctx), &num,
                              dat->block);
    EVP_CIPHER_CTX_set_num(ctx, num);
    return 1;
}

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