ede_cbcm_enc.c revision 296465
1/* ede_cbcm_enc.c */ 2/* 3 * Written by Ben Laurie <ben@algroup.co.uk> for the OpenSSL project 13 Feb 4 * 1999. 5 */ 6/* ==================================================================== 7 * Copyright (c) 1999 The OpenSSL Project. All rights reserved. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in 18 * the documentation and/or other materials provided with the 19 * distribution. 20 * 21 * 3. All advertising materials mentioning features or use of this 22 * software must display the following acknowledgment: 23 * "This product includes software developed by the OpenSSL Project 24 * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" 25 * 26 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to 27 * endorse or promote products derived from this software without 28 * prior written permission. For written permission, please contact 29 * licensing@OpenSSL.org. 30 * 31 * 5. Products derived from this software may not be called "OpenSSL" 32 * nor may "OpenSSL" appear in their names without prior written 33 * permission of the OpenSSL Project. 34 * 35 * 6. Redistributions of any form whatsoever must retain the following 36 * acknowledgment: 37 * "This product includes software developed by the OpenSSL Project 38 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" 39 * 40 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY 41 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 42 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 43 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR 44 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 45 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 46 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 47 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 49 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 50 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 51 * OF THE POSSIBILITY OF SUCH DAMAGE. 52 * ==================================================================== 53 * 54 * This product includes cryptographic software written by Eric Young 55 * (eay@cryptsoft.com). This product includes software written by Tim 56 * Hudson (tjh@cryptsoft.com). 57 * 58 */ 59 60/* 61 * 62 * This is an implementation of Triple DES Cipher Block Chaining with Output 63 * Feedback Masking, by Coppersmith, Johnson and Matyas, (IBM and Certicom). 64 * 65 * Note that there is a known attack on this by Biham and Knudsen but it 66 * takes a lot of work: 67 * 68 * http://www.cs.technion.ac.il/users/wwwb/cgi-bin/tr-get.cgi/1998/CS/CS0928.ps.gz 69 * 70 */ 71 72#include <openssl/opensslconf.h> /* To see if OPENSSL_NO_DESCBCM is defined */ 73 74#ifndef OPENSSL_NO_DESCBCM 75# include "des_locl.h" 76 77void DES_ede3_cbcm_encrypt(const unsigned char *in, unsigned char *out, 78 long length, DES_key_schedule *ks1, 79 DES_key_schedule *ks2, DES_key_schedule *ks3, 80 DES_cblock *ivec1, DES_cblock *ivec2, int enc) 81{ 82 register DES_LONG tin0, tin1; 83 register DES_LONG tout0, tout1, xor0, xor1, m0, m1; 84 register long l = length; 85 DES_LONG tin[2]; 86 unsigned char *iv1, *iv2; 87 88 iv1 = &(*ivec1)[0]; 89 iv2 = &(*ivec2)[0]; 90 91 if (enc) { 92 c2l(iv1, m0); 93 c2l(iv1, m1); 94 c2l(iv2, tout0); 95 c2l(iv2, tout1); 96 for (l -= 8; l >= -7; l -= 8) { 97 tin[0] = m0; 98 tin[1] = m1; 99 DES_encrypt1(tin, ks3, 1); 100 m0 = tin[0]; 101 m1 = tin[1]; 102 103 if (l < 0) { 104 c2ln(in, tin0, tin1, l + 8); 105 } else { 106 c2l(in, tin0); 107 c2l(in, tin1); 108 } 109 tin0 ^= tout0; 110 tin1 ^= tout1; 111 112 tin[0] = tin0; 113 tin[1] = tin1; 114 DES_encrypt1(tin, ks1, 1); 115 tin[0] ^= m0; 116 tin[1] ^= m1; 117 DES_encrypt1(tin, ks2, 0); 118 tin[0] ^= m0; 119 tin[1] ^= m1; 120 DES_encrypt1(tin, ks1, 1); 121 tout0 = tin[0]; 122 tout1 = tin[1]; 123 124 l2c(tout0, out); 125 l2c(tout1, out); 126 } 127 iv1 = &(*ivec1)[0]; 128 l2c(m0, iv1); 129 l2c(m1, iv1); 130 131 iv2 = &(*ivec2)[0]; 132 l2c(tout0, iv2); 133 l2c(tout1, iv2); 134 } else { 135 register DES_LONG t0, t1; 136 137 c2l(iv1, m0); 138 c2l(iv1, m1); 139 c2l(iv2, xor0); 140 c2l(iv2, xor1); 141 for (l -= 8; l >= -7; l -= 8) { 142 tin[0] = m0; 143 tin[1] = m1; 144 DES_encrypt1(tin, ks3, 1); 145 m0 = tin[0]; 146 m1 = tin[1]; 147 148 c2l(in, tin0); 149 c2l(in, tin1); 150 151 t0 = tin0; 152 t1 = tin1; 153 154 tin[0] = tin0; 155 tin[1] = tin1; 156 DES_encrypt1(tin, ks1, 0); 157 tin[0] ^= m0; 158 tin[1] ^= m1; 159 DES_encrypt1(tin, ks2, 1); 160 tin[0] ^= m0; 161 tin[1] ^= m1; 162 DES_encrypt1(tin, ks1, 0); 163 tout0 = tin[0]; 164 tout1 = tin[1]; 165 166 tout0 ^= xor0; 167 tout1 ^= xor1; 168 if (l < 0) { 169 l2cn(tout0, tout1, out, l + 8); 170 } else { 171 l2c(tout0, out); 172 l2c(tout1, out); 173 } 174 xor0 = t0; 175 xor1 = t1; 176 } 177 178 iv1 = &(*ivec1)[0]; 179 l2c(m0, iv1); 180 l2c(m1, iv1); 181 182 iv2 = &(*ivec2)[0]; 183 l2c(xor0, iv2); 184 l2c(xor1, iv2); 185 } 186 tin0 = tin1 = tout0 = tout1 = xor0 = xor1 = 0; 187 tin[0] = tin[1] = 0; 188} 189#endif 190