1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/ossrv/ssl/libcrypto/src/crypto/des/str2key.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,174 @@
1.4 +/* crypto/des/str2key.c */
1.5 +/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
1.6 + * All rights reserved.
1.7 + *
1.8 + * This package is an SSL implementation written
1.9 + * by Eric Young (eay@cryptsoft.com).
1.10 + * The implementation was written so as to conform with Netscapes SSL.
1.11 + *
1.12 + * This library is free for commercial and non-commercial use as long as
1.13 + * the following conditions are aheared to. The following conditions
1.14 + * apply to all code found in this distribution, be it the RC4, RSA,
1.15 + * lhash, DES, etc., code; not just the SSL code. The SSL documentation
1.16 + * included with this distribution is covered by the same copyright terms
1.17 + * except that the holder is Tim Hudson (tjh@cryptsoft.com).
1.18 + *
1.19 + * Copyright remains Eric Young's, and as such any Copyright notices in
1.20 + * the code are not to be removed.
1.21 + * If this package is used in a product, Eric Young should be given attribution
1.22 + * as the author of the parts of the library used.
1.23 + * This can be in the form of a textual message at program startup or
1.24 + * in documentation (online or textual) provided with the package.
1.25 + *
1.26 + * Redistribution and use in source and binary forms, with or without
1.27 + * modification, are permitted provided that the following conditions
1.28 + * are met:
1.29 + * 1. Redistributions of source code must retain the copyright
1.30 + * notice, this list of conditions and the following disclaimer.
1.31 + * 2. Redistributions in binary form must reproduce the above copyright
1.32 + * notice, this list of conditions and the following disclaimer in the
1.33 + * documentation and/or other materials provided with the distribution.
1.34 + * 3. All advertising materials mentioning features or use of this software
1.35 + * must display the following acknowledgement:
1.36 + * "This product includes cryptographic software written by
1.37 + * Eric Young (eay@cryptsoft.com)"
1.38 + * The word 'cryptographic' can be left out if the rouines from the library
1.39 + * being used are not cryptographic related :-).
1.40 + * 4. If you include any Windows specific code (or a derivative thereof) from
1.41 + * the apps directory (application code) you must include an acknowledgement:
1.42 + * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
1.43 + *
1.44 + * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
1.45 + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
1.46 + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
1.47 + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
1.48 + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
1.49 + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
1.50 + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
1.51 + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
1.52 + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
1.53 + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
1.54 + * SUCH DAMAGE.
1.55 + *
1.56 + * The licence and distribution terms for any publically available version or
1.57 + * derivative of this code cannot be changed. i.e. this code cannot simply be
1.58 + * copied and put under another distribution licence
1.59 + * [including the GNU Public Licence.]
1.60 + */
1.61 +
1.62 +#include "des_locl.h"
1.63 +#include <openssl/crypto.h>
1.64 +
1.65 +EXPORT_C void DES_string_to_key(const char *str, DES_cblock *key)
1.66 + {
1.67 + DES_key_schedule ks;
1.68 + int i,length;
1.69 + register unsigned char j;
1.70 +
1.71 + memset(key,0,8);
1.72 + length=strlen(str);
1.73 +#ifdef OLD_STR_TO_KEY
1.74 + for (i=0; i<length; i++)
1.75 + (*key)[i%8]^=(str[i]<<1);
1.76 +#else /* MIT COMPATIBLE */
1.77 + for (i=0; i<length; i++)
1.78 + {
1.79 + j=str[i];
1.80 + if ((i%16) < 8)
1.81 + (*key)[i%8]^=(j<<1);
1.82 + else
1.83 + {
1.84 + /* Reverse the bit order 05/05/92 eay */
1.85 + j=((j<<4)&0xf0)|((j>>4)&0x0f);
1.86 + j=((j<<2)&0xcc)|((j>>2)&0x33);
1.87 + j=((j<<1)&0xaa)|((j>>1)&0x55);
1.88 + (*key)[7-(i%8)]^=j;
1.89 + }
1.90 + }
1.91 +#endif
1.92 + DES_set_odd_parity(key);
1.93 +#ifdef EXPERIMENTAL_STR_TO_STRONG_KEY
1.94 + if(DES_is_weak_key(key))
1.95 + (*key)[7] ^= 0xF0;
1.96 + DES_set_key(key,&ks);
1.97 +#else
1.98 + DES_set_key_unchecked(key,&ks);
1.99 +#endif
1.100 + DES_cbc_cksum((const unsigned char*)str,key,length,&ks,key);
1.101 + OPENSSL_cleanse(&ks,sizeof(ks));
1.102 + DES_set_odd_parity(key);
1.103 + }
1.104 +
1.105 +EXPORT_C void DES_string_to_2keys(const char *str, DES_cblock *key1, DES_cblock *key2)
1.106 + {
1.107 + DES_key_schedule ks;
1.108 + int i,length;
1.109 + register unsigned char j;
1.110 +
1.111 + memset(key1,0,8);
1.112 + memset(key2,0,8);
1.113 + length=strlen(str);
1.114 +#ifdef OLD_STR_TO_KEY
1.115 + if (length <= 8)
1.116 + {
1.117 + for (i=0; i<length; i++)
1.118 + {
1.119 + (*key2)[i]=(*key1)[i]=(str[i]<<1);
1.120 + }
1.121 + }
1.122 + else
1.123 + {
1.124 + for (i=0; i<length; i++)
1.125 + {
1.126 + if ((i/8)&1)
1.127 + (*key2)[i%8]^=(str[i]<<1);
1.128 + else
1.129 + (*key1)[i%8]^=(str[i]<<1);
1.130 + }
1.131 + }
1.132 +#else /* MIT COMPATIBLE */
1.133 + for (i=0; i<length; i++)
1.134 + {
1.135 + j=str[i];
1.136 + if ((i%32) < 16)
1.137 + {
1.138 + if ((i%16) < 8)
1.139 + (*key1)[i%8]^=(j<<1);
1.140 + else
1.141 + (*key2)[i%8]^=(j<<1);
1.142 + }
1.143 + else
1.144 + {
1.145 + j=((j<<4)&0xf0)|((j>>4)&0x0f);
1.146 + j=((j<<2)&0xcc)|((j>>2)&0x33);
1.147 + j=((j<<1)&0xaa)|((j>>1)&0x55);
1.148 + if ((i%16) < 8)
1.149 + (*key1)[7-(i%8)]^=j;
1.150 + else
1.151 + (*key2)[7-(i%8)]^=j;
1.152 + }
1.153 + }
1.154 + if (length <= 8) memcpy(key2,key1,8);
1.155 +#endif
1.156 + DES_set_odd_parity(key1);
1.157 + DES_set_odd_parity(key2);
1.158 +#ifdef EXPERIMENTAL_STR_TO_STRONG_KEY
1.159 + if(DES_is_weak_key(key1))
1.160 + (*key1)[7] ^= 0xF0;
1.161 + DES_set_key(key1,&ks);
1.162 +#else
1.163 + DES_set_key_unchecked(key1,&ks);
1.164 +#endif
1.165 + DES_cbc_cksum((const unsigned char*)str,key1,length,&ks,key1);
1.166 +#ifdef EXPERIMENTAL_STR_TO_STRONG_KEY
1.167 + if(DES_is_weak_key(key2))
1.168 + (*key2)[7] ^= 0xF0;
1.169 + DES_set_key(key2,&ks);
1.170 +#else
1.171 + DES_set_key_unchecked(key2,&ks);
1.172 +#endif
1.173 + DES_cbc_cksum((const unsigned char*)str,key2,length,&ks,key2);
1.174 + OPENSSL_cleanse(&ks,sizeof(ks));
1.175 + DES_set_odd_parity(key1);
1.176 + DES_set_odd_parity(key2);
1.177 + }