OLD | NEW |
| (Empty) |
1 /* crypto/des/str2key.c */ | |
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | |
3 * All rights reserved. | |
4 * | |
5 * This package is an SSL implementation written | |
6 * by Eric Young (eay@cryptsoft.com). | |
7 * The implementation was written so as to conform with Netscapes SSL. | |
8 * | |
9 * This library is free for commercial and non-commercial use as long as | |
10 * the following conditions are aheared to. The following conditions | |
11 * apply to all code found in this distribution, be it the RC4, RSA, | |
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation | |
13 * included with this distribution is covered by the same copyright terms | |
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com). | |
15 * | |
16 * Copyright remains Eric Young's, and as such any Copyright notices in | |
17 * the code are not to be removed. | |
18 * If this package is used in a product, Eric Young should be given attribution | |
19 * as the author of the parts of the library used. | |
20 * This can be in the form of a textual message at program startup or | |
21 * in documentation (online or textual) provided with the package. | |
22 * | |
23 * Redistribution and use in source and binary forms, with or without | |
24 * modification, are permitted provided that the following conditions | |
25 * are met: | |
26 * 1. Redistributions of source code must retain the copyright | |
27 * notice, this list of conditions and the following disclaimer. | |
28 * 2. Redistributions in binary form must reproduce the above copyright | |
29 * notice, this list of conditions and the following disclaimer in the | |
30 * documentation and/or other materials provided with the distribution. | |
31 * 3. All advertising materials mentioning features or use of this software | |
32 * must display the following acknowledgement: | |
33 * "This product includes cryptographic software written by | |
34 * Eric Young (eay@cryptsoft.com)" | |
35 * The word 'cryptographic' can be left out if the rouines from the library | |
36 * being used are not cryptographic related :-). | |
37 * 4. If you include any Windows specific code (or a derivative thereof) from | |
38 * the apps directory (application code) you must include an acknowledgement: | |
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | |
40 * | |
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | |
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | |
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
51 * SUCH DAMAGE. | |
52 * | |
53 * The licence and distribution terms for any publically available version or | |
54 * derivative of this code cannot be changed. i.e. this code cannot simply be | |
55 * copied and put under another distribution licence | |
56 * [including the GNU Public Licence.] | |
57 */ | |
58 | |
59 #include <openssl/crypto.h> | |
60 #include "des_locl.h" | |
61 | |
62 void DES_string_to_key(const char *str, DES_cblock *key) | |
63 { | |
64 DES_key_schedule ks; | |
65 int i,length; | |
66 register unsigned char j; | |
67 | |
68 memset(key,0,8); | |
69 length=strlen(str); | |
70 #ifdef OLD_STR_TO_KEY | |
71 for (i=0; i<length; i++) | |
72 (*key)[i%8]^=(str[i]<<1); | |
73 #else /* MIT COMPATIBLE */ | |
74 for (i=0; i<length; i++) | |
75 { | |
76 j=str[i]; | |
77 if ((i%16) < 8) | |
78 (*key)[i%8]^=(j<<1); | |
79 else | |
80 { | |
81 /* Reverse the bit order 05/05/92 eay */ | |
82 j=((j<<4)&0xf0)|((j>>4)&0x0f); | |
83 j=((j<<2)&0xcc)|((j>>2)&0x33); | |
84 j=((j<<1)&0xaa)|((j>>1)&0x55); | |
85 (*key)[7-(i%8)]^=j; | |
86 } | |
87 } | |
88 #endif | |
89 DES_set_odd_parity(key); | |
90 #ifdef EXPERIMENTAL_STR_TO_STRONG_KEY | |
91 if(DES_is_weak_key(key)) | |
92 (*key)[7] ^= 0xF0; | |
93 DES_set_key(key,&ks); | |
94 #else | |
95 DES_set_key_unchecked(key,&ks); | |
96 #endif | |
97 DES_cbc_cksum((const unsigned char*)str,key,length,&ks,key); | |
98 OPENSSL_cleanse(&ks,sizeof(ks)); | |
99 DES_set_odd_parity(key); | |
100 } | |
101 | |
102 void DES_string_to_2keys(const char *str, DES_cblock *key1, DES_cblock *key2) | |
103 { | |
104 DES_key_schedule ks; | |
105 int i,length; | |
106 register unsigned char j; | |
107 | |
108 memset(key1,0,8); | |
109 memset(key2,0,8); | |
110 length=strlen(str); | |
111 #ifdef OLD_STR_TO_KEY | |
112 if (length <= 8) | |
113 { | |
114 for (i=0; i<length; i++) | |
115 { | |
116 (*key2)[i]=(*key1)[i]=(str[i]<<1); | |
117 } | |
118 } | |
119 else | |
120 { | |
121 for (i=0; i<length; i++) | |
122 { | |
123 if ((i/8)&1) | |
124 (*key2)[i%8]^=(str[i]<<1); | |
125 else | |
126 (*key1)[i%8]^=(str[i]<<1); | |
127 } | |
128 } | |
129 #else /* MIT COMPATIBLE */ | |
130 for (i=0; i<length; i++) | |
131 { | |
132 j=str[i]; | |
133 if ((i%32) < 16) | |
134 { | |
135 if ((i%16) < 8) | |
136 (*key1)[i%8]^=(j<<1); | |
137 else | |
138 (*key2)[i%8]^=(j<<1); | |
139 } | |
140 else | |
141 { | |
142 j=((j<<4)&0xf0)|((j>>4)&0x0f); | |
143 j=((j<<2)&0xcc)|((j>>2)&0x33); | |
144 j=((j<<1)&0xaa)|((j>>1)&0x55); | |
145 if ((i%16) < 8) | |
146 (*key1)[7-(i%8)]^=j; | |
147 else | |
148 (*key2)[7-(i%8)]^=j; | |
149 } | |
150 } | |
151 if (length <= 8) memcpy(key2,key1,8); | |
152 #endif | |
153 DES_set_odd_parity(key1); | |
154 DES_set_odd_parity(key2); | |
155 #ifdef EXPERIMENTAL_STR_TO_STRONG_KEY | |
156 if(DES_is_weak_key(key1)) | |
157 (*key1)[7] ^= 0xF0; | |
158 DES_set_key(key1,&ks); | |
159 #else | |
160 DES_set_key_unchecked(key1,&ks); | |
161 #endif | |
162 DES_cbc_cksum((const unsigned char*)str,key1,length,&ks,key1); | |
163 #ifdef EXPERIMENTAL_STR_TO_STRONG_KEY | |
164 if(DES_is_weak_key(key2)) | |
165 (*key2)[7] ^= 0xF0; | |
166 DES_set_key(key2,&ks); | |
167 #else | |
168 DES_set_key_unchecked(key2,&ks); | |
169 #endif | |
170 DES_cbc_cksum((const unsigned char*)str,key2,length,&ks,key2); | |
171 OPENSSL_cleanse(&ks,sizeof(ks)); | |
172 DES_set_odd_parity(key1); | |
173 DES_set_odd_parity(key2); | |
174 } | |
OLD | NEW |