e_cast.c revision 1.8
1/* $OpenBSD: e_cast.c,v 1.8 2022/09/03 19:51:53 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 71static int cast_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key, 72 const unsigned char *iv, int enc); 73 74typedef struct { 75 CAST_KEY ks; 76} EVP_CAST_KEY; 77 78#define data(ctx) ((EVP_CAST_KEY *)(ctx)->cipher_data) 79 80static int 81cast5_cbc_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 82{ 83 while (inl >= EVP_MAXCHUNK) { 84 CAST_cbc_encrypt(in, out, (long)EVP_MAXCHUNK, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, ctx->encrypt); 85 inl -= EVP_MAXCHUNK; 86 in += EVP_MAXCHUNK; 87 out += EVP_MAXCHUNK; 88 } 89 90 if (inl) 91 CAST_cbc_encrypt(in, out, (long)inl, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, ctx->encrypt); 92 93 return 1; 94} 95 96static int 97cast5_cfb64_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 98{ 99 size_t chunk = EVP_MAXCHUNK; 100 101 if (64 == 1) 102 chunk >>= 3; 103 104 if (inl < chunk) 105 chunk = inl; 106 107 while (inl && inl >= chunk) { 108 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); 109 inl -= chunk; 110 in += chunk; 111 out += chunk; 112 if (inl < chunk) 113 chunk = inl; 114 } 115 116 return 1; 117} 118 119static int 120cast5_ecb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 121{ 122 size_t i, bl; 123 124 bl = ctx->cipher->block_size; 125 126 if (inl < bl) 127 return 1; 128 129 inl -= bl; 130 131 for (i = 0; i <= inl; i += bl) 132 CAST_ecb_encrypt(in + i, out + i, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->encrypt); 133 134 return 1; 135} 136 137static int 138cast5_ofb_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out, const unsigned char *in, size_t inl) 139{ 140 while (inl >= EVP_MAXCHUNK) { 141 CAST_ofb64_encrypt(in, out, (long)EVP_MAXCHUNK, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, &ctx->num); 142 inl -= EVP_MAXCHUNK; 143 in += EVP_MAXCHUNK; 144 out += EVP_MAXCHUNK; 145 } 146 147 if (inl) 148 CAST_ofb64_encrypt(in, out, (long)inl, &((EVP_CAST_KEY *)ctx->cipher_data)->ks, ctx->iv, &ctx->num); 149 150 return 1; 151} 152 153static const EVP_CIPHER cast5_cbc = { 154 .nid = NID_cast5_cbc, 155 .block_size = 8, 156 .key_len = CAST_KEY_LENGTH, 157 .iv_len = 8, 158 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CBC_MODE, 159 .init = cast_init_key, 160 .do_cipher = cast5_cbc_cipher, 161 .cleanup = NULL, 162 .ctx_size = sizeof(EVP_CAST_KEY), 163 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 164 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 165 .ctrl = NULL, 166 .app_data = NULL, 167}; 168 169const EVP_CIPHER * 170EVP_cast5_cbc(void) 171{ 172 return &cast5_cbc; 173} 174 175static const EVP_CIPHER cast5_cfb64 = { 176 .nid = NID_cast5_cfb64, 177 .block_size = 1, 178 .key_len = CAST_KEY_LENGTH, 179 .iv_len = 8, 180 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CFB_MODE, 181 .init = cast_init_key, 182 .do_cipher = cast5_cfb64_cipher, 183 .cleanup = NULL, 184 .ctx_size = sizeof(EVP_CAST_KEY), 185 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 186 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 187 .ctrl = NULL, 188 .app_data = NULL, 189}; 190 191const EVP_CIPHER * 192EVP_cast5_cfb64(void) 193{ 194 return &cast5_cfb64; 195} 196 197static const EVP_CIPHER cast5_ofb = { 198 .nid = NID_cast5_ofb64, 199 .block_size = 1, 200 .key_len = CAST_KEY_LENGTH, 201 .iv_len = 8, 202 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_OFB_MODE, 203 .init = cast_init_key, 204 .do_cipher = cast5_ofb_cipher, 205 .cleanup = NULL, 206 .ctx_size = sizeof(EVP_CAST_KEY), 207 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 208 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 209 .ctrl = NULL, 210 .app_data = NULL, 211}; 212 213const EVP_CIPHER * 214EVP_cast5_ofb(void) 215{ 216 return &cast5_ofb; 217} 218 219static const EVP_CIPHER cast5_ecb = { 220 .nid = NID_cast5_ecb, 221 .block_size = 8, 222 .key_len = CAST_KEY_LENGTH, 223 .iv_len = 0, 224 .flags = EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_ECB_MODE, 225 .init = cast_init_key, 226 .do_cipher = cast5_ecb_cipher, 227 .cleanup = NULL, 228 .ctx_size = sizeof(EVP_CAST_KEY), 229 .set_asn1_parameters = EVP_CIPHER_set_asn1_iv, 230 .get_asn1_parameters = EVP_CIPHER_get_asn1_iv, 231 .ctrl = NULL, 232 .app_data = NULL, 233}; 234 235const EVP_CIPHER * 236EVP_cast5_ecb(void) 237{ 238 return &cast5_ecb; 239} 240 241static int 242cast_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key, 243 const unsigned char *iv, int enc) 244{ 245 CAST_set_key(&data(ctx)->ks, EVP_CIPHER_CTX_key_length(ctx), key); 246 return 1; 247} 248#endif 249