1 /* $OpenBSD: ecb_enc.c,v 1.1 2000/02/28 23:13:05 deraadt 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 des_ecb_encrypt(input, output, ks, encrypt) 56 des_cblock (*input); 57 des_cblock (*output); 58 des_key_schedule ks; 59 int encrypt; 60 { 61 register unsigned long l0,l1; 62 register unsigned char *in,*out; 63 unsigned long ll[2]; 64 65 in=(unsigned char *)input; 66 out=(unsigned char *)output; 67 c2l(in,l0); ll[0]=l0; 68 c2l(in,l1); ll[1]=l1; 69 des_encrypt(ll,ks,encrypt); 70 l0=ll[0]; l2c(l0,out); 71 l1=ll[1]; l2c(l1,out); 72 l0=l1=ll[0]=ll[1]=0; 73 } 74 75 void des_encrypt(data, ks, encrypt) 76 unsigned long *data; 77 des_key_schedule ks; 78 int encrypt; 79 { 80 register unsigned long l,r,t,u; 81 #ifdef DES_USE_PTR 82 register unsigned char *des_SP=(unsigned char *)des_SPtrans; 83 #endif 84 #ifdef MSDOS 85 union fudge { 86 unsigned long l; 87 unsigned short s[2]; 88 unsigned char c[4]; 89 } U,T; 90 #endif 91 register int i; 92 register unsigned long *s; 93 94 u=data[0]; 95 r=data[1]; 96 97 IP(u,r); 98 /* Things have been modified so that the initial rotate is 99 * done outside the loop. This required the 100 * des_SPtrans values in sp.h to be rotated 1 bit to the right. 101 * One perl script later and things have a 5% speed up on a sparc2. 102 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM> 103 * for pointing this out. */ 104 l=(r<<1)|(r>>31); 105 r=(u<<1)|(u>>31); 106 107 /* clear the top bits on machines with 8byte longs */ 108 l&=0xffffffffL; 109 r&=0xffffffffL; 110 111 s=(unsigned long *)ks; 112 /* I don't know if it is worth the effort of loop unrolling the 113 * inner loop */ 114 if (encrypt) 115 { 116 for (i=0; i<32; i+=4) 117 { 118 D_ENCRYPT(l,r,i+0); /* 1 */ 119 D_ENCRYPT(r,l,i+2); /* 2 */ 120 } 121 } 122 else 123 { 124 for (i=30; i>0; i-=4) 125 { 126 D_ENCRYPT(l,r,i-0); /* 16 */ 127 D_ENCRYPT(r,l,i-2); /* 15 */ 128 } 129 } 130 l=(l>>1)|(l<<31); 131 r=(r>>1)|(r<<31); 132 /* clear the top bits on machines with 8byte longs */ 133 l&=0xffffffffL; 134 r&=0xffffffffL; 135 136 FP(r,l); 137 data[0]=l; 138 data[1]=r; 139 l=r=t=u=0; 140 } 141 142 void des_encrypt2(data, ks, encrypt) 143 unsigned long *data; 144 des_key_schedule ks; 145 int encrypt; 146 { 147 register unsigned long l,r,t,u; 148 #ifdef DES_USE_PTR 149 register unsigned char *des_SP=(unsigned char *)des_SPtrans; 150 #endif 151 #ifdef MSDOS 152 union fudge { 153 unsigned long l; 154 unsigned short s[2]; 155 unsigned char c[4]; 156 } U,T; 157 #endif 158 register int i; 159 register unsigned long *s; 160 161 u=data[0]; 162 r=data[1]; 163 164 /* Things have been modified so that the initial rotate is 165 * done outside the loop. This required the 166 * des_SPtrans values in sp.h to be rotated 1 bit to the right. 167 * One perl script later and things have a 5% speed up on a sparc2. 168 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM> 169 * for pointing this out. */ 170 l=(r<<1)|(r>>31); 171 r=(u<<1)|(u>>31); 172 173 /* clear the top bits on machines with 8byte longs */ 174 l&=0xffffffffL; 175 r&=0xffffffffL; 176 177 s=(unsigned long *)ks; 178 /* I don't know if it is worth the effort of loop unrolling the 179 * inner loop */ 180 if (encrypt) 181 { 182 for (i=0; i<32; i+=4) 183 { 184 D_ENCRYPT(l,r,i+0); /* 1 */ 185 D_ENCRYPT(r,l,i+2); /* 2 */ 186 } 187 } 188 else 189 { 190 for (i=30; i>0; i-=4) 191 { 192 D_ENCRYPT(l,r,i-0); /* 16 */ 193 D_ENCRYPT(r,l,i-2); /* 15 */ 194 } 195 } 196 l=(l>>1)|(l<<31); 197 r=(r>>1)|(r<<31); 198 /* clear the top bits on machines with 8byte longs */ 199 l&=0xffffffffL; 200 r&=0xffffffffL; 201 202 data[0]=l; 203 data[1]=r; 204 l=r=t=u=0; 205 } 206