]>
Commit | Line | Data |
---|---|---|
800d775e | 1 | /* |
a7ab6ec8 | 2 | * Copyright (c) 2010, Oracle America, Inc. |
cb636bb2 | 3 | * |
a7ab6ec8 UD |
4 | * Redistribution and use in source and binary forms, with or without |
5 | * modification, are permitted provided that the following conditions are | |
6 | * met: | |
dfd2257a | 7 | * |
a7ab6ec8 UD |
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. | |
dfd2257a | 17 | * |
a7ab6ec8 UD |
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. | |
800d775e UD |
30 | */ |
31 | ||
fe0ec73e | 32 | #if 0 |
800d775e | 33 | #ident "@(#)xcrypt.c 1.11 94/08/23 SMI" |
fe0ec73e | 34 | #endif |
800d775e UD |
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 | ||
dfd2257a | 44 | #include <ctype.h> |
800d775e UD |
45 | #include <stdio.h> |
46 | #include <stdlib.h> | |
47 | #include <string.h> | |
48 | #include <sys/types.h> | |
49 | #include <rpc/des_crypt.h> | |
07c58f8f | 50 | #include <shlib-compat.h> |
800d775e | 51 | |
c4563d2d | 52 | static const char hex[16] = |
800d775e UD |
53 | { |
54 | '0', '1', '2', '3', '4', '5', '6', '7', | |
55 | '8', '9', 'a', 'b', 'c', 'd', 'e', 'f', | |
56 | }; | |
57 | ||
dfd2257a UD |
58 | |
59 | #ifdef _LIBC | |
60 | # define hexval(c) \ | |
61 | (c >= '0' && c <= '9' \ | |
62 | ? c - '0' \ | |
63 | : ({ int upp = toupper (c); \ | |
61952351 | 64 | upp >= 'A' && upp <= 'Z' ? upp - 'A' + 10 : -1; })) |
dfd2257a UD |
65 | #else |
66 | static char hexval (char) internal_function; | |
67 | #endif | |
68 | ||
69 | static void hex2bin (int, char *, char *) internal_function; | |
70 | static void bin2hex (int, unsigned char *, char *) internal_function; | |
4f1a0393 AJ |
71 | void passwd2des_internal (char *pw, char *key); |
72 | #ifdef _LIBC | |
73 | libc_hidden_proto (passwd2des_internal) | |
74 | #endif | |
e436294b RM |
75 | |
76 | /* | |
77 | * Turn password into DES key | |
78 | */ | |
4f1a0393 | 79 | void |
e436294b RM |
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 | |
4f1a0393 | 92 | libc_hidden_def (passwd2des_internal) |
07c58f8f | 93 | libc_sunrpc_symbol(passwd2des_internal, passwd2des, GLIBC_2_1) |
e436294b RM |
94 | #else |
95 | void passwd2des (char *pw, char *key) | |
96 | { | |
97 | return passwd2des_internal (pw, key); | |
98 | } | |
99 | #endif | |
800d775e UD |
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); | |
e436294b | 118 | passwd2des_internal (passwd, key); |
800d775e UD |
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 | } | |
021db4be | 131 | libc_hidden_nolink_sunrpc (xencrypt, GLIBC_2_0) |
800d775e UD |
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); | |
e436294b | 151 | passwd2des_internal (passwd, key); |
800d775e UD |
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 | } | |
7b57bfe5 UD |
164 | #ifdef EXPORT_RPC_SYMBOLS |
165 | libc_hidden_def (xdecrypt) | |
166 | #else | |
021db4be | 167 | libc_hidden_nolink_sunrpc (xdecrypt, GLIBC_2_1) |
7b57bfe5 | 168 | #endif |
800d775e | 169 | |
800d775e UD |
170 | /* |
171 | * Hex to binary conversion | |
172 | */ | |
173 | static void | |
dfd2257a | 174 | internal_function |
800d775e UD |
175 | hex2bin (int len, char *hexnum, char *binnum) |
176 | { | |
177 | int i; | |
178 | ||
179 | for (i = 0; i < len; i++) | |
180 | *binnum++ = 16 * hexval (hexnum[2 * i]) + hexval (hexnum[2 * i + 1]); | |
181 | } | |
182 | ||
183 | /* | |
184 | * Binary to hex conversion | |
185 | */ | |
186 | static void | |
dfd2257a | 187 | internal_function |
800d775e UD |
188 | bin2hex (int len, unsigned char *binnum, char *hexnum) |
189 | { | |
190 | int i; | |
191 | unsigned val; | |
192 | ||
193 | for (i = 0; i < len; i++) | |
194 | { | |
195 | val = binnum[i]; | |
196 | hexnum[i * 2] = hex[val >> 4]; | |
197 | hexnum[i * 2 + 1] = hex[val & 0xf]; | |
198 | } | |
199 | hexnum[len * 2] = 0; | |
200 | } | |
201 | ||
dfd2257a | 202 | #ifndef _LIBC |
800d775e UD |
203 | static char |
204 | hexval (char c) | |
205 | { | |
206 | if (c >= '0' && c <= '9') | |
207 | return (c - '0'); | |
208 | else if (c >= 'a' && c <= 'z') | |
209 | return (c - 'a' + 10); | |
210 | else if (c >= 'A' && c <= 'Z') | |
211 | return (c - 'A' + 10); | |
212 | else | |
213 | return -1; | |
214 | } | |
dfd2257a | 215 | #endif |