e_cast.c revision 1.9
1/* $OpenBSD: e_cast.c,v 1.9 2022/09/04 13:17:18 jsing Exp $ */ 2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 3 * All rights reserved. 4 * 5 * This package is an SSL implementation written 6 * by Eric Young (eay@cryptsoft.com). 7 * The implementation was written so as to conform with Netscapes SSL. 8 * 9 * This library is free for commercial and non-commercial use as long as 10 * the following conditions are aheared to. The following conditions 11 * apply to all code found in this distribution, be it the RC4, RSA, 12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation 13 * included with this distribution is covered by the same copyright terms 14 * except that the holder is Tim Hudson (tjh@cryptsoft.com). 15 * 16 * Copyright remains Eric Young's, and as such any Copyright notices in 17 * the code are not to be removed. 18 * If this package is used in a product, Eric Young should be given attribution 19 * as the author of the parts of the library used. 20 * This can be in the form of a textual message at program startup or 21 * in documentation (online or textual) provided with the package. 22 * 23 * Redistribution and use in source and binary forms, with or without 24 * modification, are permitted provided that the following conditions 25 * are met: 26 * 1. Redistributions of source code must retain the copyright 27 * notice, this list of conditions and the following disclaimer. 28 * 2. Redistributions in binary form must reproduce the above copyright 29 * notice, this list of conditions and the following disclaimer in the 30 * documentation and/or other materials provided with the distribution. 31 * 3. All advertising materials mentioning features or use of this software 32 * must display the following acknowledgement: 33 * "This product includes cryptographic software written by 34 * Eric Young (eay@cryptsoft.com)" 35 * The word 'cryptographic' can be left out if the rouines from the library 36 * being used are not cryptographic related :-). 37 * 4. If you include any Windows specific code (or a derivative thereof) from 38 * the apps directory (application code) you must include an acknowledgement: 39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 40 * 41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 51 * SUCH DAMAGE. 52 * 53 * The licence and distribution terms for any publically available version or 54 * derivative of this code cannot be changed. i.e. this code cannot simply be 55 * copied and put under another distribution licence 56 * [including the GNU Public Licence.] 57 */ 58 59#include <stdio.h> 60 61#include <openssl/opensslconf.h> 62 63#ifndef OPENSSL_NO_CAST 64 65#include <openssl/cast.h> 66#include <openssl/evp.h> 67#include <openssl/objects.h> 68 69#include "evp_locl.h" 70 71typedef struct { 72 CAST_KEY ks; 73} EVP_CAST_KEY; 74 75#define data(ctx) ((EVP_CAST_KEY *)(ctx)->cipher_data) 76 77static int 78cast_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key, 79 const unsigned char *iv, int enc) 80{ 81 CAST_set_key(&data(ctx)->ks, EVP_CIPHER_CTX_key_length(ctx), key); 82 return 1; 83} 84 85static int 86cast5_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 87{ 88 while (inl >= EVP_MAXCHUNK) { 89 CAST_cbc_encrypt(in, out, (long)EVP_MAXCHUNK, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, ctx->encrypt); 90 inl -= EVP_MAXCHUNK; 91 in += EVP_MAXCHUNK; 92 out += EVP_MAXCHUNK; 93 } 94 95 if (inl) 96 CAST_cbc_encrypt(in, out, (long)inl, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, ctx->encrypt); 97 98 return 1; 99} 100 101static int 102cast5_cfb64_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 103{ 104 size_t chunk = EVP_MAXCHUNK; 105 106 if (64 == 1) 107 chunk >>= 3; 108 109 if (inl < chunk) 110 chunk = inl; 111 112 while (inl && inl >= chunk) { 113 CAST_cfb64_encrypt(in, out, (long)((64 == 1) && !(ctx->flags & EVP_CIPH_FLAG_LENGTH_BITS) ? inl * 8 : inl), &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, &ctx->num, ctx->encrypt); 114 inl -= chunk; 115 in += chunk; 116 out += chunk; 117 if (inl < chunk) 118 chunk = inl; 119 } 120 121 return 1; 122} 123 124static int 125cast5_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 126{ 127 size_t i, bl; 128 129 bl = ctx->cipher->block_size; 130 131 if (inl < bl) 132 return 1; 133 134 inl -= bl; 135 136 for (i = 0; i <= inl; i += bl) 137 CAST_ecb_encrypt(in + i, out + i, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->encrypt); 138 139 return 1; 140} 141 142static int 143cast5_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 144{ 145 while (inl >= EVP_MAXCHUNK) { 146 CAST_ofb64_encrypt(in, out, (long)EVP_MAXCHUNK, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, &ctx->num); 147 inl -= EVP_MAXCHUNK; 148 in += EVP_MAXCHUNK; 149 out += EVP_MAXCHUNK; 150 } 151 152 if (inl) 153 CAST_ofb64_encrypt(in, out, (long)inl, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, &ctx->num); 154 155 return 1; 156} 157 158static const EVP_CIPHER cast5_cbc = { 159 .nid = NID_cast5_cbc, 160 .block_size = 8, 161 .key_len = CAST_KEY_LENGTH, 162 .iv_len = 8, 163 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CBC_MODE, 164 .init = cast_init_key, 165 .do_cipher = cast5_cbc_cipher, 166 .cleanup = NULL, 167 .ctx_size = sizeof(EVP_CAST_KEY), 168 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 169 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 170 .ctrl = NULL, 171 .app_data = NULL, 172}; 173 174const EVP_CIPHER * 175EVP_cast5_cbc(void) 176{ 177 return &cast5_cbc; 178} 179 180static const EVP_CIPHER cast5_cfb64 = { 181 .nid = NID_cast5_cfb64, 182 .block_size = 1, 183 .key_len = CAST_KEY_LENGTH, 184 .iv_len = 8, 185 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CFB_MODE, 186 .init = cast_init_key, 187 .do_cipher = cast5_cfb64_cipher, 188 .cleanup = NULL, 189 .ctx_size = sizeof(EVP_CAST_KEY), 190 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 191 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 192 .ctrl = NULL, 193 .app_data = NULL, 194}; 195 196const EVP_CIPHER * 197EVP_cast5_cfb64(void) 198{ 199 return &cast5_cfb64; 200} 201 202static const EVP_CIPHER cast5_ofb = { 203 .nid = NID_cast5_ofb64, 204 .block_size = 1, 205 .key_len = CAST_KEY_LENGTH, 206 .iv_len = 8, 207 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_OFB_MODE, 208 .init = cast_init_key, 209 .do_cipher = cast5_ofb_cipher, 210 .cleanup = NULL, 211 .ctx_size = sizeof(EVP_CAST_KEY), 212 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 213 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 214 .ctrl = NULL, 215 .app_data = NULL, 216}; 217 218const EVP_CIPHER * 219EVP_cast5_ofb(void) 220{ 221 return &cast5_ofb; 222} 223 224static const EVP_CIPHER cast5_ecb = { 225 .nid = NID_cast5_ecb, 226 .block_size = 8, 227 .key_len = CAST_KEY_LENGTH, 228 .iv_len = 0, 229 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_ECB_MODE, 230 .init = cast_init_key, 231 .do_cipher = cast5_ecb_cipher, 232 .cleanup = NULL, 233 .ctx_size = sizeof(EVP_CAST_KEY), 234 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 235 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 236 .ctrl = NULL, 237 .app_data = NULL, 238}; 239 240const EVP_CIPHER * 241EVP_cast5_ecb(void) 242{ 243 return &cast5_ecb; 244} 245#endif 246