1 /* $OpenBSD: ecb_enc.c,v 1.4 2013/11/18 18:49:53 brad Exp $ */ 2 3 /* lib/des/ecb_enc.c */ 4 /* Copyright (C) 1995 Eric Young (eay@mincom.oz.au) 5 * All rights reserved. 6 * 7 * This file is part of an SSL implementation written 8 * by Eric Young (eay@mincom.oz.au). 9 * The implementation was written so as to conform with Netscapes SSL 10 * specification. This library and applications are 11 * FREE FOR COMMERCIAL AND NON-COMMERCIAL USE 12 * as long as the following conditions are aheared to. 13 * 14 * Copyright remains Eric Young's, and as such any Copyright notices in 15 * the code are not to be removed. If this code is used in a product, 16 * Eric Young should be given attribution as the author of the parts used. 17 * This can be in the form of a textual message at program startup or 18 * in documentation (online or textual) provided with the package. 19 * 20 * Redistribution and use in source and binary forms, with or without 21 * modification, are permitted provided that the following conditions 22 * are met: 23 * 1. Redistributions of source code must retain the copyright 24 * notice, this list of conditions and the following disclaimer. 25 * 2. Redistributions in binary form must reproduce the above copyright 26 * notice, this list of conditions and the following disclaimer in the 27 * documentation and/or other materials provided with the distribution. 28 * 3. All advertising materials mentioning features or use of this software 29 * must display the following acknowledgement: 30 * This product includes software developed by Eric Young (eay@mincom.oz.au) 31 * 32 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 33 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 34 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 35 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 36 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 37 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 38 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 39 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 40 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 41 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 42 * SUCH DAMAGE. 43 * 44 * The licence and distribution terms for any publically available version or 45 * derivative of this code cannot be changed. i.e. this code cannot simply be 46 * copied and put under another distribution licence 47 * [including the GNU Public Licence.] 48 */ 49 50 #include "des_locl.h" 51 #include "spr.h" 52 53 const char *DES_version="libdes v 3.21 - 95/11/21 - eay"; 54 55 void 56 des_ecb_encrypt(des_cblock (*input), des_cblock (*output), des_key_schedule ks, 57 int encrypt) 58 { 59 register u_int32_t l0, l1; 60 register unsigned char *in, *out; 61 u_int32_t ll[2]; 62 63 in = (unsigned char *) input; 64 out = (unsigned char *) output; 65 c2l(in, l0); 66 ll[0] = l0; 67 c2l(in, l1); 68 ll[1] = l1; 69 des_encrypt(ll, ks, encrypt); 70 l0 = ll[0]; 71 l2c(l0, out); 72 l1 = ll[1]; 73 l2c(l1, out); 74 l0 = l1 = ll[0] = ll[1] = 0; 75 } 76 77 void 78 des_encrypt(u_int32_t *data, des_key_schedule ks, int encrypt) 79 { 80 register u_int32_t l, r, t, u; 81 #ifdef DES_USE_PTR 82 register unsigned char *des_SP=(unsigned char *)des_SPtrans; 83 #endif 84 register int i; 85 register u_int32_t *s; 86 87 u = data[0]; 88 r = data[1]; 89 90 IP(u, r); 91 /* Things have been modified so that the initial rotate is 92 * done outside the loop. This required the 93 * des_SPtrans values in sp.h to be rotated 1 bit to the right. 94 * One perl script later and things have a 5% speed up on a sparc2. 95 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM> 96 * for pointing this out. */ 97 l = (r << 1) | (r >> 31); 98 r = (u << 1) | (u >> 31); 99 100 /* clear the top bits on machines with 8byte longs */ 101 l &= 0xffffffffL; 102 r &= 0xffffffffL; 103 104 s = (u_int32_t *) ks; 105 /* I don't know if it is worth the effort of loop unrolling the 106 * inner loop */ 107 if (encrypt) { 108 for (i = 0; i < 32; i += 4) { 109 D_ENCRYPT(l, r, i + 0); /* 1 */ 110 D_ENCRYPT(r, l, i + 2); /* 2 */ 111 } 112 } else { 113 for (i = 30; i > 0; i -= 4) { 114 D_ENCRYPT(l, r, i - 0); /* 16 */ 115 D_ENCRYPT(r, l, i - 2); /* 15 */ 116 } 117 } 118 l = (l >> 1) | (l << 31); 119 r = (r >> 1) | (r << 31); 120 /* clear the top bits on machines with 8byte longs */ 121 l &= 0xffffffffL; 122 r &= 0xffffffffL; 123 124 FP(r, l); 125 data[0] = l; 126 data[1] = r; 127 l = r = t = u = 0; 128 } 129 130 void 131 des_encrypt2(u_int32_t *data, des_key_schedule ks, int encrypt) 132 { 133 register u_int32_t l, r, t, u; 134 #ifdef DES_USE_PTR 135 register unsigned char *des_SP=(unsigned char *)des_SPtrans; 136 #endif 137 register int i; 138 register u_int32_t *s; 139 140 u = data[0]; 141 r = data[1]; 142 143 /* Things have been modified so that the initial rotate is 144 * done outside the loop. This required the 145 * des_SPtrans values in sp.h to be rotated 1 bit to the right. 146 * One perl script later and things have a 5% speed up on a sparc2. 147 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM> 148 * for pointing this out. */ 149 l = (r << 1) | (r >> 31); 150 r = (u << 1) | (u >> 31); 151 152 /* clear the top bits on machines with 8byte longs */ 153 l &= 0xffffffffL; 154 r &= 0xffffffffL; 155 156 s = (u_int32_t *) ks; 157 /* I don't know if it is worth the effort of loop unrolling the 158 * inner loop */ 159 if (encrypt) { 160 for (i = 0; i < 32; i += 4) { 161 D_ENCRYPT(l, r, i + 0); /* 1 */ 162 D_ENCRYPT(r, l, i + 2); /* 2 */ 163 } 164 } else { 165 for (i = 30; i > 0; i -= 4) { 166 D_ENCRYPT(l, r, i - 0); /* 16 */ 167 D_ENCRYPT(r, l, i - 2); /* 15 */ 168 } 169 } 170 l = (l >> 1) | (l << 31); 171 r = (r >> 1) | (r << 31); 172 /* clear the top bits on machines with 8byte longs */ 173 l &= 0xffffffffL; 174 r &= 0xffffffffL; 175 176 data[0] = l; 177 data[1] = r; 178 l = r = t = u = 0; 179 } 180