bf_skey.c revision 1.2.2.3
1 1.2.2.3 bouyer /* $NetBSD: bf_skey.c,v 1.2.2.3 2000/11/22 16:03:04 bouyer Exp $ */ 2 1.2.2.3 bouyer /* $KAME: bf_skey.c,v 1.5 2000/11/06 13:58:08 itojun Exp $ */ 3 1.2.2.2 bouyer 4 1.2.2.2 bouyer /* crypto/bf/bf_skey.c */ 5 1.2.2.2 bouyer /* Copyright (C) 1995-1997 Eric Young (eay (at) mincom.oz.au) 6 1.2.2.2 bouyer * All rights reserved. 7 1.2.2.2 bouyer * 8 1.2.2.2 bouyer * This package is an SSL implementation written 9 1.2.2.2 bouyer * by Eric Young (eay (at) mincom.oz.au). 10 1.2.2.2 bouyer * The implementation was written so as to conform with Netscapes SSL. 11 1.2.2.2 bouyer * 12 1.2.2.2 bouyer * This library is free for commercial and non-commercial use as long as 13 1.2.2.2 bouyer * the following conditions are aheared to. The following conditions 14 1.2.2.2 bouyer * apply to all code found in this distribution, be it the RC4, RSA, 15 1.2.2.2 bouyer * lhash, DES, etc., code; not just the SSL code. The SSL documentation 16 1.2.2.2 bouyer * included with this distribution is covered by the same copyright terms 17 1.2.2.2 bouyer * except that the holder is Tim Hudson (tjh (at) mincom.oz.au). 18 1.2.2.2 bouyer * 19 1.2.2.2 bouyer * Copyright remains Eric Young's, and as such any Copyright notices in 20 1.2.2.2 bouyer * the code are not to be removed. 21 1.2.2.2 bouyer * If this package is used in a product, Eric Young should be given attribution 22 1.2.2.2 bouyer * as the author of the parts of the library used. 23 1.2.2.2 bouyer * This can be in the form of a textual message at program startup or 24 1.2.2.2 bouyer * in documentation (online or textual) provided with the package. 25 1.2.2.2 bouyer * 26 1.2.2.2 bouyer * Redistribution and use in source and binary forms, with or without 27 1.2.2.2 bouyer * modification, are permitted provided that the following conditions 28 1.2.2.2 bouyer * are met: 29 1.2.2.2 bouyer * 1. Redistributions of source code must retain the copyright 30 1.2.2.2 bouyer * notice, this list of conditions and the following disclaimer. 31 1.2.2.2 bouyer * 2. Redistributions in binary form must reproduce the above copyright 32 1.2.2.2 bouyer * notice, this list of conditions and the following disclaimer in the 33 1.2.2.2 bouyer * documentation and/or other materials provided with the distribution. 34 1.2.2.2 bouyer * 3. All advertising materials mentioning features or use of this software 35 1.2.2.2 bouyer * must display the following acknowledgement: 36 1.2.2.2 bouyer * "This product includes cryptographic software written by 37 1.2.2.2 bouyer * Eric Young (eay (at) mincom.oz.au)" 38 1.2.2.2 bouyer * The word 'cryptographic' can be left out if the rouines from the library 39 1.2.2.2 bouyer * being used are not cryptographic related :-). 40 1.2.2.2 bouyer * 4. If you include any Windows specific code (or a derivative thereof) from 41 1.2.2.2 bouyer * the apps directory (application code) you must include an acknowledgement: 42 1.2.2.2 bouyer * "This product includes software written by Tim Hudson (tjh (at) mincom.oz.au)" 43 1.2.2.2 bouyer * 44 1.2.2.2 bouyer * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 45 1.2.2.2 bouyer * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 46 1.2.2.2 bouyer * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 47 1.2.2.2 bouyer * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 48 1.2.2.2 bouyer * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 49 1.2.2.2 bouyer * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 50 1.2.2.2 bouyer * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 51 1.2.2.2 bouyer * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 52 1.2.2.2 bouyer * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 53 1.2.2.2 bouyer * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 54 1.2.2.2 bouyer * SUCH DAMAGE. 55 1.2.2.2 bouyer * 56 1.2.2.2 bouyer * The licence and distribution terms for any publically available version or 57 1.2.2.2 bouyer * derivative of this code cannot be changed. i.e. this code cannot simply be 58 1.2.2.2 bouyer * copied and put under another distribution licence 59 1.2.2.2 bouyer * [including the GNU Public Licence.] 60 1.2.2.2 bouyer */ 61 1.2.2.2 bouyer 62 1.2.2.2 bouyer #include <sys/types.h> 63 1.2.2.2 bouyer #include <sys/time.h> 64 1.2.2.3 bouyer #ifdef _KERNEL 65 1.2.2.2 bouyer #include <sys/systm.h> 66 1.2.2.3 bouyer #else 67 1.2.2.3 bouyer #include <string.h> 68 1.2.2.3 bouyer #endif 69 1.2.2.2 bouyer #include <crypto/blowfish/blowfish.h> 70 1.2.2.2 bouyer #include <crypto/blowfish/bf_locl.h> 71 1.2.2.2 bouyer #include <crypto/blowfish/bf_pi.h> 72 1.2.2.2 bouyer 73 1.2.2.3 bouyer void 74 1.2.2.3 bouyer BF_set_key(key, len, data) 75 1.2.2.3 bouyer BF_KEY *key; 76 1.2.2.3 bouyer int len; 77 1.2.2.3 bouyer unsigned char *data; 78 1.2.2.3 bouyer { 79 1.2.2.2 bouyer int i; 80 1.2.2.3 bouyer BF_LONG *p, ri, in[2]; 81 1.2.2.3 bouyer unsigned char *d, *end; 82 1.2.2.2 bouyer 83 1.2.2.3 bouyer memcpy((char *)key, (char *)&bf_init, sizeof(BF_KEY)); 84 1.2.2.3 bouyer p = key->P; 85 1.2.2.2 bouyer 86 1.2.2.3 bouyer if (len > ((BF_ROUNDS + 2) * 4)) 87 1.2.2.3 bouyer len = (BF_ROUNDS + 2) * 4; 88 1.2.2.2 bouyer 89 1.2.2.3 bouyer d = data; 90 1.2.2.2 bouyer end= &(data[len]); 91 1.2.2.3 bouyer for (i = 0; i < BF_ROUNDS + 2; i++) { 92 1.2.2.3 bouyer ri = *(d++); 93 1.2.2.3 bouyer if (d >= end) d = data; 94 1.2.2.3 bouyer 95 1.2.2.3 bouyer ri <<= 8; 96 1.2.2.3 bouyer ri |= *(d++); 97 1.2.2.3 bouyer if (d >= end) d = data; 98 1.2.2.3 bouyer 99 1.2.2.3 bouyer ri <<= 8; 100 1.2.2.3 bouyer ri |= *(d++); 101 1.2.2.3 bouyer if (d >= end) d = data; 102 1.2.2.3 bouyer 103 1.2.2.3 bouyer ri <<= 8; 104 1.2.2.3 bouyer ri |= *(d++); 105 1.2.2.3 bouyer if (d >= end) d = data; 106 1.2.2.3 bouyer 107 1.2.2.3 bouyer p[i] ^= ri; 108 1.2.2.2 bouyer } 109 1.2.2.2 bouyer 110 1.2.2.3 bouyer in[0] = 0L; 111 1.2.2.3 bouyer in[1] = 0L; 112 1.2.2.3 bouyer for (i = 0; i < BF_ROUNDS + 2; i += 2) { 113 1.2.2.3 bouyer BF_encrypt(in, key, BF_ENCRYPT); 114 1.2.2.3 bouyer p[i ] = in[0]; 115 1.2.2.3 bouyer p[i+1] = in[1]; 116 1.2.2.3 bouyer } 117 1.2.2.3 bouyer 118 1.2.2.3 bouyer p = key->S; 119 1.2.2.3 bouyer for (i = 0; i < 4 * 256; i += 2) { 120 1.2.2.3 bouyer BF_encrypt(in, key, BF_ENCRYPT); 121 1.2.2.3 bouyer p[i ] = in[0]; 122 1.2.2.3 bouyer p[i+1] = in[1]; 123 1.2.2.3 bouyer } 124 1.2.2.3 bouyer } 125
Indexes created Sun Oct 26 21:10:03 GMT 2025