1 /*
2 * Copyright (c) 2010, Oracle America, Inc.
3 *
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are
6 * met:
7 *
8 * * Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * * Redistributions in binary form must reproduce the above
11 * copyright notice, this list of conditions and the following
12 * disclaimer in the documentation and/or other materials
13 * provided with the distribution.
14 * * Neither the name of the "Oracle America, Inc." nor the names of its
15 * contributors may be used to endorse or promote products derived
16 * from this software without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
21 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
22 * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
23 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
25 * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
27 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
28 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30 */
31
32 #if 0
33 #ident "@(#)xcrypt.c 1.11 94/08/23 SMI"
34 #endif
35
36 #if !defined(lint) && defined(SCCSIDS)
37 static char sccsid[] = "@(#)xcrypt.c 1.3 89/03/24 Copyr 1986 Sun Micro";
38 #endif
39
40 /*
41 * xcrypt.c: Hex encryption/decryption and utility routines
42 */
43
44 #include <ctype.h>
45 #include <stdio.h>
46 #include <stdlib.h>
47 #include <string.h>
48 #include <sys/types.h>
49 #include <rpc/des_crypt.h>
50 #include <shlib-compat.h>
51
52 static const char hex[16] =
53 {
54 '0', '1', '2', '3', '4', '5', '6', '7',
55 '8', '9', 'a', 'b', 'c', 'd', 'e', 'f',
56 };
57
58
59 #ifdef _LIBC
60 # define hexval(c) \
61 (c >= '0' && c <= '9' \
62 ? c - '0' \
63 : ({ int upp = toupper (c); \
64 upp >= 'A' && upp <= 'Z' ? upp - 'A' + 10 : -1; }))
65 #else
66 static char hexval (char);
67 #endif
68
69 static void hex2bin (int, char *, char *);
70 static void bin2hex (int, unsigned char *, char *);
71 void passwd2des_internal (char *pw, char *key);
72 #ifdef _LIBC
73 libc_hidden_proto (passwd2des_internal)
74 #endif
75
76 /*
77 * Turn password into DES key
78 */
79 void
80 passwd2des_internal (char *pw, char *key)
81 {
82 int i;
83
84 memset (key, 0, 8);
85 for (i = 0; *pw && i < 8; ++i)
86 key[i] ^= *pw++ << 1;
87
88 des_setparity (key);
89 }
90
91 #ifdef _LIBC
92 libc_hidden_def (passwd2des_internal)
93 libc_sunrpc_symbol(passwd2des_internal, passwd2des, GLIBC_2_1)
94 #else
95 void passwd2des (char *pw, char *key)
96 {
97 return passwd2des_internal (pw, key);
98 }
99 #endif
100
101 /*
102 * Encrypt a secret key given passwd
103 * The secret key is passed and returned in hex notation.
104 * Its length must be a multiple of 16 hex digits (64 bits).
105 */
106 int
107 xencrypt (char *secret, char *passwd)
108 {
109 char key[8];
110 char ivec[8];
111 char *buf;
112 int err;
113 int len;
114
115 len = strlen (secret) / 2;
116 buf = malloc ((unsigned) len);
117 hex2bin (len, secret, buf);
118 passwd2des_internal (passwd, key);
119 memset (ivec, 0, 8);
120
121 err = cbc_crypt (key, buf, len, DES_ENCRYPT | DES_HW, ivec);
122 if (DES_FAILED (err))
123 {
124 free (buf);
125 return 0;
126 }
127 bin2hex (len, (unsigned char *) buf, secret);
128 free (buf);
129 return 1;
130 }
131 libc_hidden_nolink_sunrpc (xencrypt, GLIBC_2_0)
132
133 /*
134 * Decrypt secret key using passwd
135 * The secret key is passed and returned in hex notation.
136 * Once again, the length is a multiple of 16 hex digits
137 */
138 int
139 xdecrypt (char *secret, char *passwd)
140 {
141 char key[8];
142 char ivec[8];
143 char *buf;
144 int err;
145 int len;
146
147 len = strlen (secret) / 2;
148 buf = malloc ((unsigned) len);
149
150 hex2bin (len, secret, buf);
151 passwd2des_internal (passwd, key);
152 memset (ivec, 0, 8);
153
154 err = cbc_crypt (key, buf, len, DES_DECRYPT | DES_HW, ivec);
155 if (DES_FAILED (err))
156 {
157 free (buf);
158 return 0;
159 }
160 bin2hex (len, (unsigned char *) buf, secret);
161 free (buf);
162 return 1;
163 }
164 #ifdef EXPORT_RPC_SYMBOLS
165 libc_hidden_def (xdecrypt)
166 #else
167 libc_hidden_nolink_sunrpc (xdecrypt, GLIBC_2_1)
168 #endif
169
170 /*
171 * Hex to binary conversion
172 */
173 static void
174 hex2bin (int len, char *hexnum, char *binnum)
175 {
176 int i;
177
178 for (i = 0; i < len; i++)
179 *binnum++ = 16 * hexval (hexnum[2 * i]) + hexval (hexnum[2 * i + 1]);
180 }
181
182 /*
183 * Binary to hex conversion
184 */
185 static void
186 bin2hex (int len, unsigned char *binnum, char *hexnum)
187 {
188 int i;
189 unsigned val;
190
191 for (i = 0; i < len; i++)
192 {
193 val = binnum[i];
194 hexnum[i * 2] = hex[val >> 4];
195 hexnum[i * 2 + 1] = hex[val & 0xf];
196 }
197 hexnum[len * 2] = 0;
198 }
199
200 #ifndef _LIBC
201 static char
202 hexval (char c)
203 {
204 if (c >= '0' && c <= '9')
205 return (c - '0');
206 else if (c >= 'a' && c <= 'z')
207 return (c - 'a' + 10);
208 else if (c >= 'A' && c <= 'Z')
209 return (c - 'A' + 10);
210 else
211 return -1;
212 }
213 #endif