bf_skey.c revision 1.2.2.2
1 1.2.2.2 bouyer /* $NetBSD: bf_skey.c,v 1.2.2.2 2000/11/20 22:21:42 bouyer Exp $ */ 2 1.2.2.2 bouyer /* $KAME: bf_skey.c,v 1.3 2000/03/27 04:36:27 sumikawa 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.2 bouyer #include <sys/systm.h> 65 1.2.2.2 bouyer #include <crypto/blowfish/blowfish.h> 66 1.2.2.2 bouyer #include <crypto/blowfish/bf_locl.h> 67 1.2.2.2 bouyer #include <crypto/blowfish/bf_pi.h> 68 1.2.2.2 bouyer 69 1.2.2.2 bouyer void BF_set_key(key,len,data) 70 1.2.2.2 bouyer BF_KEY *key; 71 1.2.2.2 bouyer int len; 72 1.2.2.2 bouyer unsigned char *data; 73 1.2.2.2 bouyer { 74 1.2.2.2 bouyer int i; 75 1.2.2.2 bouyer BF_LONG *p,ri,in[2]; 76 1.2.2.2 bouyer unsigned char *d,*end; 77 1.2.2.2 bouyer 78 1.2.2.2 bouyer 79 1.2.2.2 bouyer memcpy((char *)key,(char *)&bf_init,sizeof(BF_KEY)); 80 1.2.2.2 bouyer p=key->P; 81 1.2.2.2 bouyer 82 1.2.2.2 bouyer if (len > ((BF_ROUNDS+2)*4)) len=(BF_ROUNDS+2)*4; 83 1.2.2.2 bouyer 84 1.2.2.2 bouyer d=data; 85 1.2.2.2 bouyer end= &(data[len]); 86 1.2.2.2 bouyer for (i=0; i<(BF_ROUNDS+2); i++) 87 1.2.2.2 bouyer { 88 1.2.2.2 bouyer ri= *(d++); 89 1.2.2.2 bouyer if (d >= end) d=data; 90 1.2.2.2 bouyer 91 1.2.2.2 bouyer ri<<=8; 92 1.2.2.2 bouyer ri|= *(d++); 93 1.2.2.2 bouyer if (d >= end) d=data; 94 1.2.2.2 bouyer 95 1.2.2.2 bouyer ri<<=8; 96 1.2.2.2 bouyer ri|= *(d++); 97 1.2.2.2 bouyer if (d >= end) d=data; 98 1.2.2.2 bouyer 99 1.2.2.2 bouyer ri<<=8; 100 1.2.2.2 bouyer ri|= *(d++); 101 1.2.2.2 bouyer if (d >= end) d=data; 102 1.2.2.2 bouyer 103 1.2.2.2 bouyer p[i]^=ri; 104 1.2.2.2 bouyer } 105 1.2.2.2 bouyer 106 1.2.2.2 bouyer in[0]=0L; 107 1.2.2.2 bouyer in[1]=0L; 108 1.2.2.2 bouyer for (i=0; i<(BF_ROUNDS+2); i+=2) 109 1.2.2.2 bouyer { 110 1.2.2.2 bouyer BF_encrypt(in,key,BF_ENCRYPT); 111 1.2.2.2 bouyer p[i ]=in[0]; 112 1.2.2.2 bouyer p[i+1]=in[1]; 113 1.2.2.2 bouyer } 114 1.2.2.2 bouyer 115 1.2.2.2 bouyer p=key->S; 116 1.2.2.2 bouyer for (i=0; i<4*256; i+=2) 117 1.2.2.2 bouyer { 118 1.2.2.2 bouyer BF_encrypt(in,key,BF_ENCRYPT); 119 1.2.2.2 bouyer p[i ]=in[0]; 120 1.2.2.2 bouyer p[i+1]=in[1]; 121 1.2.2.2 bouyer } 122 1.2.2.2 bouyer } 123 1.2.2.2 bouyer 124
Indexes created Sat Oct 25 10:09:55 GMT 2025