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 | * svcauth_des.c, server-side des authentication |
32 | * |
33 | * We insure for the service the following: |
34 | * (1) The timestamp microseconds do not exceed 1 million. |
35 | * (2) The timestamp plus the window is less than the current time. |
36 | * (3) The timestamp is not less than the one previously |
37 | * seen in the current session. |
38 | * |
39 | * It is up to the server to determine if the window size is |
40 | * too small . |
41 | * |
42 | */ |
43 | |
44 | #include <limits.h> |
45 | #include <string.h> |
46 | #include <stdint.h> |
47 | #include <sys/param.h> |
48 | #include <netinet/in.h> |
49 | #include <rpc/rpc.h> |
50 | #include <rpc/xdr.h> |
51 | #include <rpc/auth.h> |
52 | #include <rpc/auth_des.h> |
53 | #include <rpc/svc_auth.h> |
54 | #include <rpc/svc.h> |
55 | #include <rpc/des_crypt.h> |
56 | |
57 | #define debug(msg) /*printf("svcauth_des: %s\n", msg) */ |
58 | |
59 | #define USEC_PER_SEC ((uint32_t) 1000000L) |
60 | #define BEFORE(t1, t2) timercmp(t1, t2, <) |
61 | |
62 | /* |
63 | * LRU cache of conversation keys and some other useful items. |
64 | */ |
65 | #define AUTHDES_CACHESZ 64 |
66 | struct cache_entry |
67 | { |
68 | des_block key; /* conversation key */ |
69 | char *rname; /* client's name */ |
70 | u_int window; /* credential lifetime window */ |
71 | struct rpc_timeval laststamp; /* detect replays of creds */ |
72 | char *localcred; /* generic local credential */ |
73 | }; |
74 | #ifdef _RPC_THREAD_SAFE_ |
75 | #define authdes_cache RPC_THREAD_VARIABLE(authdes_cache_s) |
76 | #define authdes_lru RPC_THREAD_VARIABLE(authdes_lru_s) |
77 | #else |
78 | static struct cache_entry *authdes_cache; |
79 | static int *authdes_lru; |
80 | #endif |
81 | |
82 | static void cache_init (void) internal_function; /* initialize the cache */ |
83 | static short cache_spot (des_block *, char *, struct rpc_timeval *) |
84 | internal_function; /* find an entry in the cache */ |
85 | static void cache_ref (uint32_t sid) internal_function; |
86 | /* note that sid was ref'd */ |
87 | |
88 | static void invalidate (char *cred) internal_function; |
89 | /* invalidate entry in cache */ |
90 | |
91 | /* |
92 | * cache statistics |
93 | */ |
94 | struct |
95 | { |
96 | u_long ncachehits; /* times cache hit, and is not replay */ |
97 | u_long ncachereplays; /* times cache hit, and is replay */ |
98 | u_long ncachemisses; /* times cache missed */ |
99 | } |
100 | svcauthdes_stats; |
101 | |
102 | /* |
103 | * Service side authenticator for AUTH_DES |
104 | */ |
105 | enum auth_stat |
106 | _svcauth_des (register struct svc_req *rqst, register struct rpc_msg *msg) |
107 | { |
108 | register uint32_t *ixdr; |
109 | des_block cryptbuf[2]; |
110 | register struct authdes_cred *cred; |
111 | struct authdes_verf verf; |
112 | int status; |
113 | register struct cache_entry *entry; |
114 | uint32_t sid = 0; |
115 | des_block *sessionkey; |
116 | des_block ivec; |
117 | u_int window; |
118 | struct rpc_timeval timestamp; |
119 | uint32_t namelen; |
120 | struct area |
121 | { |
122 | struct authdes_cred area_cred; |
123 | char area_netname[MAXNETNAMELEN + 1]; |
124 | } |
125 | *area; |
126 | |
127 | if (authdes_cache == NULL) |
128 | cache_init (); |
129 | if (authdes_cache == NULL) /* No free memory */ |
130 | return AUTH_FAILED; |
131 | |
132 | area = (struct area *) rqst->rq_clntcred; |
133 | cred = (struct authdes_cred *) &area->area_cred; |
134 | |
135 | /* |
136 | * Get the credential |
137 | */ |
138 | if (msg->rm_call.cb_cred.oa_length <= 0 || |
139 | msg->rm_call.cb_cred.oa_length > MAX_AUTH_BYTES) |
140 | return AUTH_BADCRED; |
141 | |
142 | ixdr = (uint32_t *) msg->rm_call.cb_cred.oa_base; |
143 | cred->adc_namekind = IXDR_GET_ENUM (ixdr, enum authdes_namekind); |
144 | switch (cred->adc_namekind) |
145 | { |
146 | case ADN_FULLNAME: |
147 | namelen = IXDR_GET_U_INT32 (ixdr); |
148 | if (namelen > MAXNETNAMELEN) |
149 | { |
150 | return AUTH_BADCRED; |
151 | } |
152 | cred->adc_fullname.name = area->area_netname; |
153 | memcpy (cred->adc_fullname.name, (char *) ixdr, namelen); |
154 | cred->adc_fullname.name[namelen] = 0; |
155 | ixdr += (RNDUP (namelen) / BYTES_PER_XDR_UNIT); |
156 | cred->adc_fullname.key.key.high = *ixdr++; |
157 | cred->adc_fullname.key.key.low = *ixdr++; |
158 | cred->adc_fullname.window = *ixdr++; |
159 | break; |
160 | case ADN_NICKNAME: |
161 | cred->adc_nickname = *ixdr++; |
162 | break; |
163 | default: |
164 | return AUTH_BADCRED; |
165 | } |
166 | |
167 | /* |
168 | * Get the verifier |
169 | */ |
170 | if (msg->rm_call.cb_verf.oa_length <= 0 || |
171 | msg->rm_call.cb_verf.oa_length > MAX_AUTH_BYTES) |
172 | return AUTH_BADCRED; |
173 | |
174 | ixdr = (uint32_t *) msg->rm_call.cb_verf.oa_base; |
175 | verf.adv_xtimestamp.key.high = *ixdr++; |
176 | verf.adv_xtimestamp.key.low = *ixdr++; |
177 | verf.adv_int_u = *ixdr++; |
178 | |
179 | /* |
180 | * Get the conversation key |
181 | */ |
182 | if (cred->adc_namekind == ADN_FULLNAME) |
183 | { |
184 | netobj pkey; |
185 | char pkey_data[1024]; |
186 | |
187 | sessionkey = &cred->adc_fullname.key; |
188 | if (!getpublickey (cred->adc_fullname.name, pkey_data)) |
189 | { |
190 | debug("getpublickey" ); |
191 | return AUTH_BADCRED; |
192 | } |
193 | pkey.n_bytes = pkey_data; |
194 | pkey.n_len = strlen (pkey_data) + 1; |
195 | if (key_decryptsession_pk (cred->adc_fullname.name, &pkey, |
196 | sessionkey) < 0) |
197 | { |
198 | debug ("decryptsessionkey" ); |
199 | return AUTH_BADCRED; /* key not found */ |
200 | } |
201 | } |
202 | else |
203 | { /* ADN_NICKNAME */ |
204 | if (cred->adc_nickname >= AUTHDES_CACHESZ) |
205 | { |
206 | debug ("bad nickname" ); |
207 | return AUTH_BADCRED; /* garbled credential */ |
208 | } |
209 | else |
210 | sid = cred->adc_nickname; |
211 | |
212 | /* XXX This could be wrong, but else we have a |
213 | security problem */ |
214 | if (authdes_cache[sid].rname == NULL) |
215 | return AUTH_BADCRED; |
216 | sessionkey = &authdes_cache[sid].key; |
217 | } |
218 | |
219 | |
220 | /* |
221 | * Decrypt the timestamp |
222 | */ |
223 | cryptbuf[0] = verf.adv_xtimestamp; |
224 | if (cred->adc_namekind == ADN_FULLNAME) |
225 | { |
226 | cryptbuf[1].key.high = cred->adc_fullname.window; |
227 | cryptbuf[1].key.low = verf.adv_winverf; |
228 | ivec.key.high = ivec.key.low = 0; |
229 | status = cbc_crypt ((char *) sessionkey, (char *) cryptbuf, |
230 | 2 * sizeof (des_block), DES_DECRYPT | DES_HW, |
231 | (char *) &ivec); |
232 | } |
233 | else |
234 | status = ecb_crypt ((char *) sessionkey, (char *) cryptbuf, |
235 | sizeof (des_block), DES_DECRYPT | DES_HW); |
236 | |
237 | if (DES_FAILED (status)) |
238 | { |
239 | debug ("decryption failure" ); |
240 | return AUTH_FAILED; /* system error */ |
241 | } |
242 | |
243 | /* |
244 | * XDR the decrypted timestamp |
245 | */ |
246 | ixdr = (uint32_t *) cryptbuf; |
247 | timestamp.tv_sec = IXDR_GET_INT32 (ixdr); |
248 | timestamp.tv_usec = IXDR_GET_INT32 (ixdr); |
249 | |
250 | /* |
251 | * Check for valid credentials and verifiers. |
252 | * They could be invalid because the key was flushed |
253 | * out of the cache, and so a new session should begin. |
254 | * Be sure and send AUTH_REJECTED{CRED, VERF} if this is the case. |
255 | */ |
256 | { |
257 | struct timeval current; |
258 | int nick; |
259 | u_int winverf; |
260 | |
261 | if (cred->adc_namekind == ADN_FULLNAME) |
262 | { |
263 | short tmp_spot; |
264 | |
265 | window = IXDR_GET_U_INT32 (ixdr); |
266 | winverf = IXDR_GET_U_INT32 (ixdr); |
267 | if (winverf != window - 1) |
268 | { |
269 | debug ("window verifier mismatch" ); |
270 | return AUTH_BADCRED; /* garbled credential */ |
271 | } |
272 | tmp_spot = cache_spot (sessionkey, cred->adc_fullname.name, |
273 | ×tamp); |
274 | if (tmp_spot < 0 || tmp_spot > AUTHDES_CACHESZ) |
275 | { |
276 | debug ("replayed credential" ); |
277 | return AUTH_REJECTEDCRED; /* replay */ |
278 | } |
279 | sid = tmp_spot; |
280 | nick = 0; |
281 | } |
282 | else |
283 | { /* ADN_NICKNAME */ |
284 | window = authdes_cache[sid].window; |
285 | nick = 1; |
286 | } |
287 | |
288 | if (timestamp.tv_usec >= USEC_PER_SEC) |
289 | { |
290 | debug ("invalid usecs" ); |
291 | /* cached out (bad key), or garbled verifier */ |
292 | return nick ? AUTH_REJECTEDVERF : AUTH_BADVERF; |
293 | } |
294 | if (nick && BEFORE (×tamp, &authdes_cache[sid].laststamp)) |
295 | { |
296 | debug ("timestamp before last seen" ); |
297 | return AUTH_REJECTEDVERF; /* replay */ |
298 | } |
299 | __gettimeofday (¤t, (struct timezone *) NULL); |
300 | current.tv_sec -= window; /* allow for expiration */ |
301 | if (!BEFORE (¤t, ×tamp)) |
302 | { |
303 | debug ("timestamp expired" ); |
304 | /* replay, or garbled credential */ |
305 | return nick ? AUTH_REJECTEDVERF : AUTH_BADCRED; |
306 | } |
307 | } |
308 | |
309 | /* |
310 | * Set up the reply verifier |
311 | */ |
312 | verf.adv_nickname = sid; |
313 | |
314 | /* |
315 | * xdr the timestamp before encrypting |
316 | */ |
317 | ixdr = (uint32_t *) cryptbuf; |
318 | IXDR_PUT_INT32 (ixdr, timestamp.tv_sec - 1); |
319 | IXDR_PUT_INT32 (ixdr, timestamp.tv_usec); |
320 | |
321 | /* |
322 | * encrypt the timestamp |
323 | */ |
324 | status = ecb_crypt ((char *) sessionkey, (char *) cryptbuf, |
325 | sizeof (des_block), DES_ENCRYPT | DES_HW); |
326 | if (DES_FAILED (status)) |
327 | { |
328 | debug ("encryption failure" ); |
329 | return AUTH_FAILED; /* system error */ |
330 | } |
331 | verf.adv_xtimestamp = cryptbuf[0]; |
332 | |
333 | /* |
334 | * Serialize the reply verifier, and update rqst |
335 | */ |
336 | ixdr = (uint32_t *) msg->rm_call.cb_verf.oa_base; |
337 | *ixdr++ = verf.adv_xtimestamp.key.high; |
338 | *ixdr++ = verf.adv_xtimestamp.key.low; |
339 | *ixdr++ = verf.adv_int_u; |
340 | |
341 | rqst->rq_xprt->xp_verf.oa_flavor = AUTH_DES; |
342 | rqst->rq_xprt->xp_verf.oa_base = msg->rm_call.cb_verf.oa_base; |
343 | rqst->rq_xprt->xp_verf.oa_length = |
344 | (char *) ixdr - msg->rm_call.cb_verf.oa_base; |
345 | |
346 | /* |
347 | * We succeeded, commit the data to the cache now and |
348 | * finish cooking the credential. |
349 | */ |
350 | entry = &authdes_cache[sid]; |
351 | entry->laststamp = timestamp; |
352 | cache_ref (sid); |
353 | if (cred->adc_namekind == ADN_FULLNAME) |
354 | { |
355 | size_t full_len; |
356 | |
357 | cred->adc_fullname.window = window; |
358 | cred->adc_nickname = sid; /* save nickname */ |
359 | if (entry->rname != NULL) |
360 | mem_free (entry->rname, strlen (entry->rname) + 1); |
361 | full_len = strlen (cred->adc_fullname.name) + 1; |
362 | entry->rname = mem_alloc ((u_int) full_len); |
363 | if (entry->rname != NULL) |
364 | memcpy (entry->rname, cred->adc_fullname.name, full_len); |
365 | else |
366 | { |
367 | debug ("out of memory" ); |
368 | return AUTH_FAILED; /* out of memory is bad */ |
369 | } |
370 | entry->key = *sessionkey; |
371 | entry->window = window; |
372 | invalidate (entry->localcred); /* mark any cached cred invalid */ |
373 | } |
374 | else |
375 | { /* ADN_NICKNAME */ |
376 | /* |
377 | * nicknames are cooked into fullnames |
378 | */ |
379 | cred->adc_namekind = ADN_FULLNAME; |
380 | cred->adc_fullname.name = entry->rname; |
381 | cred->adc_fullname.key = entry->key; |
382 | cred->adc_fullname.window = entry->window; |
383 | } |
384 | return AUTH_OK; /* we made it! */ |
385 | } |
386 | |
387 | |
388 | /* |
389 | * Initialize the cache |
390 | */ |
391 | static void |
392 | internal_function |
393 | cache_init (void) |
394 | { |
395 | register int i; |
396 | |
397 | authdes_cache = (struct cache_entry *) |
398 | calloc (sizeof (struct cache_entry) * AUTHDES_CACHESZ, 1); |
399 | if (authdes_cache == NULL) |
400 | return; |
401 | |
402 | authdes_lru = (int *) mem_alloc (sizeof (int) * AUTHDES_CACHESZ); |
403 | /* |
404 | * Initialize the lru list |
405 | */ |
406 | for (i = 0; i < AUTHDES_CACHESZ; ++i) |
407 | authdes_lru[i] = i; |
408 | } |
409 | |
410 | |
411 | /* |
412 | * Find the lru victim |
413 | */ |
414 | static short |
415 | cache_victim (void) |
416 | { |
417 | return authdes_lru[AUTHDES_CACHESZ - 1]; |
418 | } |
419 | |
420 | /* |
421 | * Note that sid was referenced |
422 | */ |
423 | static void |
424 | internal_function |
425 | cache_ref (register uint32_t sid) |
426 | { |
427 | register int i; |
428 | register int curr; |
429 | register int prev; |
430 | |
431 | prev = authdes_lru[0]; |
432 | authdes_lru[0] = sid; |
433 | for (i = 1; prev != sid; ++i) |
434 | { |
435 | curr = authdes_lru[i]; |
436 | authdes_lru[i] = prev; |
437 | prev = curr; |
438 | } |
439 | } |
440 | |
441 | /* |
442 | * Find a spot in the cache for a credential containing |
443 | * the items given. Return -1 if a replay is detected, otherwise |
444 | * return the spot in the cache. |
445 | */ |
446 | static short |
447 | internal_function |
448 | cache_spot (register des_block *key, char *name, |
449 | struct rpc_timeval *timestamp) |
450 | { |
451 | register struct cache_entry *cp; |
452 | register int i; |
453 | register uint32_t hi; |
454 | |
455 | hi = key->key.high; |
456 | for (cp = authdes_cache, i = 0; i < AUTHDES_CACHESZ; ++i, ++cp) |
457 | { |
458 | if (cp->key.key.high == hi && |
459 | cp->key.key.low == key->key.low && |
460 | cp->rname != NULL && |
461 | memcmp (cp->rname, name, strlen (name) + 1) == 0) |
462 | { |
463 | if (BEFORE (timestamp, &cp->laststamp)) |
464 | { |
465 | ++svcauthdes_stats.ncachereplays; |
466 | return -1; /* replay */ |
467 | } |
468 | ++svcauthdes_stats.ncachehits; |
469 | return i; /* refresh */ |
470 | } |
471 | } |
472 | ++svcauthdes_stats.ncachemisses; |
473 | return cache_victim (); /* new credential */ |
474 | } |
475 | |
476 | /* |
477 | * Local credential handling stuff. |
478 | * NOTE: bsd unix dependent. |
479 | * Other operating systems should put something else here. |
480 | */ |
481 | #define UNKNOWN -2 /* grouplen, if cached cred is unknown user */ |
482 | #define INVALID -1 /* grouplen, if cache entry is invalid */ |
483 | |
484 | struct bsdcred |
485 | { |
486 | uid_t uid; /* cached uid */ |
487 | gid_t gid; /* cached gid */ |
488 | int grouplen; /* length of cached groups */ |
489 | int grouplen_max; /* length of allocated cached groups */ |
490 | gid_t groups[0]; /* cached groups */ |
491 | }; |
492 | |
493 | /* |
494 | * Map a des credential into a unix cred. |
495 | * We cache the credential here so the application does |
496 | * not have to make an rpc call every time to interpret |
497 | * the credential. |
498 | */ |
499 | int |
500 | authdes_getucred (const struct authdes_cred *adc, uid_t * uid, gid_t * gid, |
501 | short *grouplen, gid_t * groups) |
502 | { |
503 | unsigned sid; |
504 | register int i; |
505 | uid_t i_uid; |
506 | gid_t i_gid; |
507 | int i_grouplen; |
508 | struct bsdcred *cred; |
509 | |
510 | sid = adc->adc_nickname; |
511 | if (sid >= AUTHDES_CACHESZ) |
512 | { |
513 | debug ("invalid nickname" ); |
514 | return 0; |
515 | } |
516 | cred = (struct bsdcred *) authdes_cache[sid].localcred; |
517 | if (cred == NULL || cred->grouplen == INVALID) |
518 | { |
519 | /* |
520 | * not in cache: lookup |
521 | */ |
522 | if (!netname2user (adc->adc_fullname.name, &i_uid, &i_gid, |
523 | &i_grouplen, groups)) |
524 | { |
525 | debug ("unknown netname" ); |
526 | if (cred != NULL) |
527 | cred->grouplen = UNKNOWN; /* mark as lookup up, but not found */ |
528 | return 0; |
529 | } |
530 | |
531 | if (cred != NULL && cred->grouplen_max < i_grouplen) |
532 | { |
533 | /* We already have an allocated data structure. But it is |
534 | too small. */ |
535 | free (cred); |
536 | authdes_cache[sid].localcred = NULL; |
537 | cred = NULL; |
538 | } |
539 | |
540 | if (cred == NULL) |
541 | { |
542 | /* We should allocate room for at least NGROUPS groups. */ |
543 | int ngroups_max = MAX (i_grouplen, NGROUPS); |
544 | |
545 | cred = (struct bsdcred *) mem_alloc (sizeof (struct bsdcred) |
546 | + ngroups_max * sizeof (gid_t)); |
547 | if (cred == NULL) |
548 | return 0; |
549 | |
550 | authdes_cache[sid].localcred = (char *) cred; |
551 | cred->grouplen = INVALID; |
552 | cred->grouplen_max = ngroups_max; |
553 | } |
554 | |
555 | debug ("missed ucred cache" ); |
556 | *uid = cred->uid = i_uid; |
557 | *gid = cred->gid = i_gid; |
558 | cred->grouplen = i_grouplen; |
559 | for (i = i_grouplen - 1; i >= 0; --i) |
560 | cred->groups[i] = groups[i]; |
561 | /* Make sure no too large values are reported. */ |
562 | *grouplen = MIN (SHRT_MAX, i_grouplen); |
563 | return 1; |
564 | } |
565 | else if (cred->grouplen == UNKNOWN) |
566 | { |
567 | /* |
568 | * Already lookup up, but no match found |
569 | */ |
570 | return 0; |
571 | } |
572 | |
573 | /* |
574 | * cached credentials |
575 | */ |
576 | *uid = cred->uid; |
577 | *gid = cred->gid; |
578 | |
579 | /* Another stupidity in the interface: *grouplen is of type short. |
580 | So we might have to cut the information passed up short. */ |
581 | int grouplen_copy = MIN (SHRT_MAX, cred->grouplen); |
582 | *grouplen = grouplen_copy; |
583 | for (i = grouplen_copy - 1; i >= 0; --i) |
584 | groups[i] = cred->groups[i]; |
585 | return 1; |
586 | } |
587 | libc_hidden_nolink_sunrpc (authdes_getucred, GLIBC_2_1) |
588 | |
589 | static void |
590 | internal_function |
591 | invalidate (char *cred) |
592 | { |
593 | if (cred == NULL) |
594 | return; |
595 | ((struct bsdcred *) cred)->grouplen = INVALID; |
596 | } |
597 | |