keyctl.c 42.7 KB
Newer Older
1
/* Userspace key control operations
L
Linus Torvalds 已提交
2
 *
3
 * Copyright (C) 2004-5 Red Hat, Inc. All Rights Reserved.
L
Linus Torvalds 已提交
4 5 6 7 8 9 10 11 12 13 14
 * Written by David Howells (dhowells@redhat.com)
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version
 * 2 of the License, or (at your option) any later version.
 */

#include <linux/module.h>
#include <linux/init.h>
#include <linux/sched.h>
15
#include <linux/sched/task.h>
L
Linus Torvalds 已提交
16 17
#include <linux/slab.h>
#include <linux/syscalls.h>
18
#include <linux/key.h>
L
Linus Torvalds 已提交
19 20
#include <linux/keyctl.h>
#include <linux/fs.h>
21
#include <linux/capability.h>
22
#include <linux/cred.h>
23
#include <linux/string.h>
L
Linus Torvalds 已提交
24
#include <linux/err.h>
25
#include <linux/vmalloc.h>
26
#include <linux/security.h>
27
#include <linux/uio.h>
28
#include <linux/uaccess.h>
L
Linus Torvalds 已提交
29 30
#include "internal.h"

31 32
#define KEY_MAX_DESC_SIZE 4096

33 34 35 36 37 38 39 40
static int key_get_type_from_user(char *type,
				  const char __user *_type,
				  unsigned len)
{
	int ret;

	ret = strncpy_from_user(type, _type, len);
	if (ret < 0)
41
		return ret;
42 43
	if (ret == 0 || ret >= len)
		return -EINVAL;
44 45
	if (type[0] == '.')
		return -EPERM;
46 47 48 49
	type[len - 1] = '\0';
	return 0;
}

L
Linus Torvalds 已提交
50
/*
51 52 53
 * Extract the description of a new key from userspace and either add it as a
 * new key to the specified keyring or update a matching key in that keyring.
 *
54 55 56
 * If the description is NULL or an empty string, the key type is asked to
 * generate one from the payload.
 *
57 58 59 60
 * The keyring must be writable so that we can attach the key to it.
 *
 * If successful, the new key's serial number is returned, otherwise an error
 * code is returned.
L
Linus Torvalds 已提交
61
 */
62 63 64 65 66
SYSCALL_DEFINE5(add_key, const char __user *, _type,
		const char __user *, _description,
		const void __user *, _payload,
		size_t, plen,
		key_serial_t, ringid)
L
Linus Torvalds 已提交
67
{
68
	key_ref_t keyring_ref, key_ref;
L
Linus Torvalds 已提交
69 70
	char type[32], *description;
	void *payload;
71
	long ret;
L
Linus Torvalds 已提交
72 73

	ret = -EINVAL;
74
	if (plen > 1024 * 1024 - 1)
L
Linus Torvalds 已提交
75 76 77
		goto error;

	/* draw all the data into kernel space */
78
	ret = key_get_type_from_user(type, _type, sizeof(type));
L
Linus Torvalds 已提交
79 80 81
	if (ret < 0)
		goto error;

82 83
	description = NULL;
	if (_description) {
84
		description = strndup_user(_description, KEY_MAX_DESC_SIZE);
85 86 87 88 89 90 91
		if (IS_ERR(description)) {
			ret = PTR_ERR(description);
			goto error;
		}
		if (!*description) {
			kfree(description);
			description = NULL;
92 93 94 95
		} else if ((description[0] == '.') &&
			   (strncmp(type, "keyring", 7) == 0)) {
			ret = -EPERM;
			goto error2;
96
		}
97
	}
L
Linus Torvalds 已提交
98 99 100 101 102 103

	/* pull the payload in if one was supplied */
	payload = NULL;

	if (_payload) {
		ret = -ENOMEM;
104
		payload = kmalloc(plen, GFP_KERNEL | __GFP_NOWARN);
105 106 107 108 109 110 111
		if (!payload) {
			if (plen <= PAGE_SIZE)
				goto error2;
			payload = vmalloc(plen);
			if (!payload)
				goto error2;
		}
L
Linus Torvalds 已提交
112 113 114 115 116 117 118

		ret = -EFAULT;
		if (copy_from_user(payload, _payload, plen) != 0)
			goto error3;
	}

	/* find the target keyring (which must be writable) */
119
	keyring_ref = lookup_user_key(ringid, KEY_LOOKUP_CREATE, KEY_NEED_WRITE);
120 121
	if (IS_ERR(keyring_ref)) {
		ret = PTR_ERR(keyring_ref);
L
Linus Torvalds 已提交
122 123 124 125 126
		goto error3;
	}

	/* create or update the requested key and add it to the target
	 * keyring */
127
	key_ref = key_create_or_update(keyring_ref, type, description,
128 129
				       payload, plen, KEY_PERM_UNDEF,
				       KEY_ALLOC_IN_QUOTA);
130 131 132
	if (!IS_ERR(key_ref)) {
		ret = key_ref_to_ptr(key_ref)->serial;
		key_ref_put(key_ref);
L
Linus Torvalds 已提交
133 134
	}
	else {
135
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
136 137
	}

138
	key_ref_put(keyring_ref);
L
Linus Torvalds 已提交
139
 error3:
G
Geliang Tang 已提交
140
	kvfree(payload);
L
Linus Torvalds 已提交
141 142 143 144
 error2:
	kfree(description);
 error:
	return ret;
145
}
L
Linus Torvalds 已提交
146 147

/*
148 149 150 151 152 153 154 155 156 157 158
 * Search the process keyrings and keyring trees linked from those for a
 * matching key.  Keyrings must have appropriate Search permission to be
 * searched.
 *
 * If a key is found, it will be attached to the destination keyring if there's
 * one specified and the serial number of the key will be returned.
 *
 * If no key is found, /sbin/request-key will be invoked if _callout_info is
 * non-NULL in an attempt to create a key.  The _callout_info string will be
 * passed to /sbin/request-key to aid with completing the request.  If the
 * _callout_info string is "" then it will be changed to "-".
L
Linus Torvalds 已提交
159
 */
160 161 162 163
SYSCALL_DEFINE4(request_key, const char __user *, _type,
		const char __user *, _description,
		const char __user *, _callout_info,
		key_serial_t, destringid)
L
Linus Torvalds 已提交
164 165
{
	struct key_type *ktype;
166 167
	struct key *key;
	key_ref_t dest_ref;
168
	size_t callout_len;
L
Linus Torvalds 已提交
169
	char type[32], *description, *callout_info;
170
	long ret;
L
Linus Torvalds 已提交
171 172

	/* pull the type into kernel space */
173
	ret = key_get_type_from_user(type, _type, sizeof(type));
L
Linus Torvalds 已提交
174 175
	if (ret < 0)
		goto error;
176

L
Linus Torvalds 已提交
177
	/* pull the description into kernel space */
178
	description = strndup_user(_description, KEY_MAX_DESC_SIZE);
179 180
	if (IS_ERR(description)) {
		ret = PTR_ERR(description);
L
Linus Torvalds 已提交
181
		goto error;
182
	}
L
Linus Torvalds 已提交
183 184 185

	/* pull the callout info into kernel space */
	callout_info = NULL;
186
	callout_len = 0;
L
Linus Torvalds 已提交
187
	if (_callout_info) {
188 189 190
		callout_info = strndup_user(_callout_info, PAGE_SIZE);
		if (IS_ERR(callout_info)) {
			ret = PTR_ERR(callout_info);
L
Linus Torvalds 已提交
191
			goto error2;
192
		}
193
		callout_len = strlen(callout_info);
L
Linus Torvalds 已提交
194 195 196
	}

	/* get the destination keyring if specified */
197
	dest_ref = NULL;
L
Linus Torvalds 已提交
198
	if (destringid) {
199
		dest_ref = lookup_user_key(destringid, KEY_LOOKUP_CREATE,
200
					   KEY_NEED_WRITE);
201 202
		if (IS_ERR(dest_ref)) {
			ret = PTR_ERR(dest_ref);
L
Linus Torvalds 已提交
203 204 205 206 207 208 209 210 211 212 213 214
			goto error3;
		}
	}

	/* find the key type */
	ktype = key_type_lookup(type);
	if (IS_ERR(ktype)) {
		ret = PTR_ERR(ktype);
		goto error4;
	}

	/* do the search */
215 216
	key = request_key_and_link(ktype, description, callout_info,
				   callout_len, NULL, key_ref_to_ptr(dest_ref),
217
				   KEY_ALLOC_IN_QUOTA);
L
Linus Torvalds 已提交
218 219 220 221 222
	if (IS_ERR(key)) {
		ret = PTR_ERR(key);
		goto error5;
	}

223 224 225 226 227
	/* wait for the key to finish being constructed */
	ret = wait_for_key_construction(key, 1);
	if (ret < 0)
		goto error6;

L
Linus Torvalds 已提交
228 229
	ret = key->serial;

230
error6:
231
 	key_put(key);
232
error5:
L
Linus Torvalds 已提交
233
	key_type_put(ktype);
234
error4:
235
	key_ref_put(dest_ref);
236
error3:
L
Linus Torvalds 已提交
237
	kfree(callout_info);
238
error2:
L
Linus Torvalds 已提交
239
	kfree(description);
240
error:
L
Linus Torvalds 已提交
241
	return ret;
242
}
L
Linus Torvalds 已提交
243 244

/*
245 246 247 248 249
 * Get the ID of the specified process keyring.
 *
 * The requested keyring must have search permission to be found.
 *
 * If successful, the ID of the requested keyring will be returned.
L
Linus Torvalds 已提交
250 251 252
 */
long keyctl_get_keyring_ID(key_serial_t id, int create)
{
253
	key_ref_t key_ref;
254
	unsigned long lflags;
L
Linus Torvalds 已提交
255 256
	long ret;

257
	lflags = create ? KEY_LOOKUP_CREATE : 0;
258
	key_ref = lookup_user_key(id, lflags, KEY_NEED_SEARCH);
259 260
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
261 262 263
		goto error;
	}

264 265
	ret = key_ref_to_ptr(key_ref)->serial;
	key_ref_put(key_ref);
266
error:
L
Linus Torvalds 已提交
267
	return ret;
268
}
L
Linus Torvalds 已提交
269 270

/*
271 272 273 274 275 276 277 278
 * Join a (named) session keyring.
 *
 * Create and join an anonymous session keyring or join a named session
 * keyring, creating it if necessary.  A named session keyring must have Search
 * permission for it to be joined.  Session keyrings without this permit will
 * be skipped over.
 *
 * If successful, the ID of the joined session keyring will be returned.
L
Linus Torvalds 已提交
279 280 281 282
 */
long keyctl_join_session_keyring(const char __user *_name)
{
	char *name;
283
	long ret;
L
Linus Torvalds 已提交
284 285 286 287

	/* fetch the name from userspace */
	name = NULL;
	if (_name) {
288
		name = strndup_user(_name, KEY_MAX_DESC_SIZE);
289 290
		if (IS_ERR(name)) {
			ret = PTR_ERR(name);
L
Linus Torvalds 已提交
291
			goto error;
292
		}
L
Linus Torvalds 已提交
293 294 295 296
	}

	/* join the session */
	ret = join_session_keyring(name);
297
	kfree(name);
L
Linus Torvalds 已提交
298

299
error:
L
Linus Torvalds 已提交
300
	return ret;
301
}
L
Linus Torvalds 已提交
302 303

/*
304 305 306 307 308 309 310 311
 * Update a key's data payload from the given data.
 *
 * The key must grant the caller Write permission and the key type must support
 * updating for this to work.  A negative key can be positively instantiated
 * with this call.
 *
 * If successful, 0 will be returned.  If the key type does not support
 * updating, then -EOPNOTSUPP will be returned.
L
Linus Torvalds 已提交
312 313 314 315 316
 */
long keyctl_update_key(key_serial_t id,
		       const void __user *_payload,
		       size_t plen)
{
317
	key_ref_t key_ref;
L
Linus Torvalds 已提交
318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338
	void *payload;
	long ret;

	ret = -EINVAL;
	if (plen > PAGE_SIZE)
		goto error;

	/* pull the payload in if one was supplied */
	payload = NULL;
	if (_payload) {
		ret = -ENOMEM;
		payload = kmalloc(plen, GFP_KERNEL);
		if (!payload)
			goto error;

		ret = -EFAULT;
		if (copy_from_user(payload, _payload, plen) != 0)
			goto error2;
	}

	/* find the target key (which must be writable) */
339
	key_ref = lookup_user_key(id, 0, KEY_NEED_WRITE);
340 341
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
342 343 344 345
		goto error2;
	}

	/* update the key */
346
	ret = key_update(key_ref, payload, plen);
L
Linus Torvalds 已提交
347

348
	key_ref_put(key_ref);
349
error2:
L
Linus Torvalds 已提交
350
	kfree(payload);
351
error:
L
Linus Torvalds 已提交
352
	return ret;
353
}
L
Linus Torvalds 已提交
354 355

/*
356 357 358 359 360 361 362
 * Revoke a key.
 *
 * The key must be grant the caller Write or Setattr permission for this to
 * work.  The key type should give up its quota claim when revoked.  The key
 * and any links to the key will be automatically garbage collected after a
 * certain amount of time (/proc/sys/kernel/keys/gc_delay).
 *
363 364
 * Keys with KEY_FLAG_KEEP set should not be revoked.
 *
365
 * If successful, 0 is returned.
L
Linus Torvalds 已提交
366 367 368
 */
long keyctl_revoke_key(key_serial_t id)
{
369
	key_ref_t key_ref;
370
	struct key *key;
L
Linus Torvalds 已提交
371 372
	long ret;

373
	key_ref = lookup_user_key(id, 0, KEY_NEED_WRITE);
374 375
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
376 377
		if (ret != -EACCES)
			goto error;
378
		key_ref = lookup_user_key(id, 0, KEY_NEED_SETATTR);
379 380 381 382
		if (IS_ERR(key_ref)) {
			ret = PTR_ERR(key_ref);
			goto error;
		}
L
Linus Torvalds 已提交
383 384
	}

385
	key = key_ref_to_ptr(key_ref);
L
Linus Torvalds 已提交
386
	ret = 0;
387
	if (test_bit(KEY_FLAG_KEEP, &key->flags))
M
Mimi Zohar 已提交
388 389
		ret = -EPERM;
	else
390
		key_revoke(key);
L
Linus Torvalds 已提交
391

392
	key_ref_put(key_ref);
393
error:
394
	return ret;
395
}
L
Linus Torvalds 已提交
396

D
David Howells 已提交
397 398 399 400 401 402 403
/*
 * Invalidate a key.
 *
 * The key must be grant the caller Invalidate permission for this to work.
 * The key and any links to the key will be automatically garbage collected
 * immediately.
 *
404 405
 * Keys with KEY_FLAG_KEEP set should not be invalidated.
 *
D
David Howells 已提交
406 407 408 409 410
 * If successful, 0 is returned.
 */
long keyctl_invalidate_key(key_serial_t id)
{
	key_ref_t key_ref;
411
	struct key *key;
D
David Howells 已提交
412 413 414 415
	long ret;

	kenter("%d", id);

416
	key_ref = lookup_user_key(id, 0, KEY_NEED_SEARCH);
D
David Howells 已提交
417 418
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
419 420 421 422 423 424 425 426 427 428 429 430

		/* Root is permitted to invalidate certain special keys */
		if (capable(CAP_SYS_ADMIN)) {
			key_ref = lookup_user_key(id, 0, 0);
			if (IS_ERR(key_ref))
				goto error;
			if (test_bit(KEY_FLAG_ROOT_CAN_INVAL,
				     &key_ref_to_ptr(key_ref)->flags))
				goto invalidate;
			goto error_put;
		}

D
David Howells 已提交
431 432 433
		goto error;
	}

434
invalidate:
435
	key = key_ref_to_ptr(key_ref);
D
David Howells 已提交
436
	ret = 0;
437 438
	if (test_bit(KEY_FLAG_KEEP, &key->flags))
		ret = -EPERM;
M
Mimi Zohar 已提交
439
	else
440
		key_invalidate(key);
441
error_put:
D
David Howells 已提交
442 443 444 445 446 447
	key_ref_put(key_ref);
error:
	kleave(" = %ld", ret);
	return ret;
}

L
Linus Torvalds 已提交
448
/*
449 450 451
 * Clear the specified keyring, creating an empty process keyring if one of the
 * special keyring IDs is used.
 *
452 453
 * The keyring must grant the caller Write permission and not have
 * KEY_FLAG_KEEP set for this to work.  If successful, 0 will be returned.
L
Linus Torvalds 已提交
454 455 456
 */
long keyctl_keyring_clear(key_serial_t ringid)
{
457
	key_ref_t keyring_ref;
458
	struct key *keyring;
L
Linus Torvalds 已提交
459 460
	long ret;

461
	keyring_ref = lookup_user_key(ringid, KEY_LOOKUP_CREATE, KEY_NEED_WRITE);
462 463
	if (IS_ERR(keyring_ref)) {
		ret = PTR_ERR(keyring_ref);
464 465 466 467 468 469 470 471 472 473 474 475

		/* Root is permitted to invalidate certain special keyrings */
		if (capable(CAP_SYS_ADMIN)) {
			keyring_ref = lookup_user_key(ringid, 0, 0);
			if (IS_ERR(keyring_ref))
				goto error;
			if (test_bit(KEY_FLAG_ROOT_CAN_CLEAR,
				     &key_ref_to_ptr(keyring_ref)->flags))
				goto clear;
			goto error_put;
		}

L
Linus Torvalds 已提交
476 477 478
		goto error;
	}

479
clear:
480 481 482 483 484
	keyring = key_ref_to_ptr(keyring_ref);
	if (test_bit(KEY_FLAG_KEEP, &keyring->flags))
		ret = -EPERM;
	else
		ret = keyring_clear(keyring);
485
error_put:
486
	key_ref_put(keyring_ref);
487
error:
L
Linus Torvalds 已提交
488
	return ret;
489
}
L
Linus Torvalds 已提交
490 491

/*
492 493 494 495 496 497 498 499 500
 * Create a link from a keyring to a key if there's no matching key in the
 * keyring, otherwise replace the link to the matching key with a link to the
 * new key.
 *
 * The key must grant the caller Link permission and the the keyring must grant
 * the caller Write permission.  Furthermore, if an additional link is created,
 * the keyring's quota will be extended.
 *
 * If successful, 0 will be returned.
L
Linus Torvalds 已提交
501 502 503
 */
long keyctl_keyring_link(key_serial_t id, key_serial_t ringid)
{
504
	key_ref_t keyring_ref, key_ref;
L
Linus Torvalds 已提交
505 506
	long ret;

507
	keyring_ref = lookup_user_key(ringid, KEY_LOOKUP_CREATE, KEY_NEED_WRITE);
508 509
	if (IS_ERR(keyring_ref)) {
		ret = PTR_ERR(keyring_ref);
L
Linus Torvalds 已提交
510 511 512
		goto error;
	}

513
	key_ref = lookup_user_key(id, KEY_LOOKUP_CREATE, KEY_NEED_LINK);
514 515
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
516 517 518
		goto error2;
	}

519
	ret = key_link(key_ref_to_ptr(keyring_ref), key_ref_to_ptr(key_ref));
L
Linus Torvalds 已提交
520

521
	key_ref_put(key_ref);
522
error2:
523
	key_ref_put(keyring_ref);
524
error:
L
Linus Torvalds 已提交
525
	return ret;
526
}
L
Linus Torvalds 已提交
527 528

/*
529 530 531 532 533 534
 * Unlink a key from a keyring.
 *
 * The keyring must grant the caller Write permission for this to work; the key
 * itself need not grant the caller anything.  If the last link to a key is
 * removed then that key will be scheduled for destruction.
 *
535 536
 * Keys or keyrings with KEY_FLAG_KEEP set should not be unlinked.
 *
537
 * If successful, 0 will be returned.
L
Linus Torvalds 已提交
538 539 540
 */
long keyctl_keyring_unlink(key_serial_t id, key_serial_t ringid)
{
541
	key_ref_t keyring_ref, key_ref;
542
	struct key *keyring, *key;
L
Linus Torvalds 已提交
543 544
	long ret;

545
	keyring_ref = lookup_user_key(ringid, 0, KEY_NEED_WRITE);
546 547
	if (IS_ERR(keyring_ref)) {
		ret = PTR_ERR(keyring_ref);
L
Linus Torvalds 已提交
548 549 550
		goto error;
	}

551
	key_ref = lookup_user_key(id, KEY_LOOKUP_FOR_UNLINK, 0);
552 553
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
554 555 556
		goto error2;
	}

557 558 559 560 561 562 563
	keyring = key_ref_to_ptr(keyring_ref);
	key = key_ref_to_ptr(key_ref);
	if (test_bit(KEY_FLAG_KEEP, &keyring->flags) &&
	    test_bit(KEY_FLAG_KEEP, &key->flags))
		ret = -EPERM;
	else
		ret = key_unlink(keyring, key);
L
Linus Torvalds 已提交
564

565
	key_ref_put(key_ref);
566
error2:
567
	key_ref_put(keyring_ref);
568
error:
L
Linus Torvalds 已提交
569
	return ret;
570
}
L
Linus Torvalds 已提交
571 572

/*
573 574 575 576 577 578 579
 * Return a description of a key to userspace.
 *
 * The key must grant the caller View permission for this to work.
 *
 * If there's a buffer, we place up to buflen bytes of data into it formatted
 * in the following way:
 *
L
Linus Torvalds 已提交
580
 *	type;uid;gid;perm;description<NUL>
581 582 583
 *
 * If successful, we return the amount of description available, irrespective
 * of how much we may have copied into the buffer.
L
Linus Torvalds 已提交
584 585 586 587 588
 */
long keyctl_describe_key(key_serial_t keyid,
			 char __user *buffer,
			 size_t buflen)
{
589
	struct key *key, *instkey;
590
	key_ref_t key_ref;
591
	char *infobuf;
L
Linus Torvalds 已提交
592
	long ret;
593
	int desclen, infolen;
L
Linus Torvalds 已提交
594

595
	key_ref = lookup_user_key(keyid, KEY_LOOKUP_PARTIAL, KEY_NEED_VIEW);
596
	if (IS_ERR(key_ref)) {
597 598
		/* viewing a key under construction is permitted if we have the
		 * authorisation token handy */
599
		if (PTR_ERR(key_ref) == -EACCES) {
600 601 602
			instkey = key_get_instantiation_authkey(keyid);
			if (!IS_ERR(instkey)) {
				key_put(instkey);
603
				key_ref = lookup_user_key(keyid,
604 605
							  KEY_LOOKUP_PARTIAL,
							  0);
606
				if (!IS_ERR(key_ref))
607 608 609 610
					goto okay;
			}
		}

611
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
612 613 614
		goto error;
	}

615
okay:
616
	key = key_ref_to_ptr(key_ref);
617
	desclen = strlen(key->description);
618

619 620 621 622 623 624 625 626 627 628 629 630
	/* calculate how much information we're going to return */
	ret = -ENOMEM;
	infobuf = kasprintf(GFP_KERNEL,
			    "%s;%d;%d;%08x;",
			    key->type->name,
			    from_kuid_munged(current_user_ns(), key->uid),
			    from_kgid_munged(current_user_ns(), key->gid),
			    key->perm);
	if (!infobuf)
		goto error2;
	infolen = strlen(infobuf);
	ret = infolen + desclen + 1;
L
Linus Torvalds 已提交
631 632

	/* consider returning the data */
633 634 635 636
	if (buffer && buflen >= ret) {
		if (copy_to_user(buffer, infobuf, infolen) != 0 ||
		    copy_to_user(buffer + infolen, key->description,
				 desclen + 1) != 0)
L
Linus Torvalds 已提交
637 638 639
			ret = -EFAULT;
	}

640
	kfree(infobuf);
641
error2:
642
	key_ref_put(key_ref);
643
error:
L
Linus Torvalds 已提交
644
	return ret;
645
}
L
Linus Torvalds 已提交
646 647

/*
648 649 650 651 652 653 654 655
 * Search the specified keyring and any keyrings it links to for a matching
 * key.  Only keyrings that grant the caller Search permission will be searched
 * (this includes the starting keyring).  Only keys with Search permission can
 * be found.
 *
 * If successful, the found key will be linked to the destination keyring if
 * supplied and the key has Link permission, and the found key ID will be
 * returned.
L
Linus Torvalds 已提交
656 657 658 659 660 661 662
 */
long keyctl_keyring_search(key_serial_t ringid,
			   const char __user *_type,
			   const char __user *_description,
			   key_serial_t destringid)
{
	struct key_type *ktype;
663
	key_ref_t keyring_ref, key_ref, dest_ref;
L
Linus Torvalds 已提交
664
	char type[32], *description;
665
	long ret;
L
Linus Torvalds 已提交
666 667

	/* pull the type and description into kernel space */
668
	ret = key_get_type_from_user(type, _type, sizeof(type));
L
Linus Torvalds 已提交
669 670 671
	if (ret < 0)
		goto error;

672
	description = strndup_user(_description, KEY_MAX_DESC_SIZE);
673 674
	if (IS_ERR(description)) {
		ret = PTR_ERR(description);
L
Linus Torvalds 已提交
675
		goto error;
676
	}
L
Linus Torvalds 已提交
677 678

	/* get the keyring at which to begin the search */
679
	keyring_ref = lookup_user_key(ringid, 0, KEY_NEED_SEARCH);
680 681
	if (IS_ERR(keyring_ref)) {
		ret = PTR_ERR(keyring_ref);
L
Linus Torvalds 已提交
682 683 684 685
		goto error2;
	}

	/* get the destination keyring if specified */
686
	dest_ref = NULL;
L
Linus Torvalds 已提交
687
	if (destringid) {
688
		dest_ref = lookup_user_key(destringid, KEY_LOOKUP_CREATE,
689
					   KEY_NEED_WRITE);
690 691
		if (IS_ERR(dest_ref)) {
			ret = PTR_ERR(dest_ref);
L
Linus Torvalds 已提交
692 693 694 695 696 697 698 699 700 701 702 703
			goto error3;
		}
	}

	/* find the key type */
	ktype = key_type_lookup(type);
	if (IS_ERR(ktype)) {
		ret = PTR_ERR(ktype);
		goto error4;
	}

	/* do the search */
704 705 706
	key_ref = keyring_search(keyring_ref, ktype, description);
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
707 708 709 710 711 712 713 714

		/* treat lack or presence of a negative key the same */
		if (ret == -EAGAIN)
			ret = -ENOKEY;
		goto error5;
	}

	/* link the resulting key to the destination keyring if we can */
715
	if (dest_ref) {
716
		ret = key_permission(key_ref, KEY_NEED_LINK);
717
		if (ret < 0)
L
Linus Torvalds 已提交
718 719
			goto error6;

720
		ret = key_link(key_ref_to_ptr(dest_ref), key_ref_to_ptr(key_ref));
L
Linus Torvalds 已提交
721 722 723 724
		if (ret < 0)
			goto error6;
	}

725
	ret = key_ref_to_ptr(key_ref)->serial;
L
Linus Torvalds 已提交
726

727
error6:
728
	key_ref_put(key_ref);
729
error5:
L
Linus Torvalds 已提交
730
	key_type_put(ktype);
731
error4:
732
	key_ref_put(dest_ref);
733
error3:
734
	key_ref_put(keyring_ref);
735
error2:
L
Linus Torvalds 已提交
736
	kfree(description);
737
error:
L
Linus Torvalds 已提交
738
	return ret;
739
}
L
Linus Torvalds 已提交
740 741

/*
742 743 744 745 746 747 748 749
 * Read a key's payload.
 *
 * The key must either grant the caller Read permission, or it must grant the
 * caller Search permission when searched for from the process keyrings.
 *
 * If successful, we place up to buflen bytes of data into the buffer, if one
 * is provided, and return the amount of data that is available in the key,
 * irrespective of how much we copied into the buffer.
L
Linus Torvalds 已提交
750 751 752
 */
long keyctl_read_key(key_serial_t keyid, char __user *buffer, size_t buflen)
{
753 754
	struct key *key;
	key_ref_t key_ref;
L
Linus Torvalds 已提交
755 756 757
	long ret;

	/* find the key first */
758
	key_ref = lookup_user_key(keyid, 0, 0);
759 760 761
	if (IS_ERR(key_ref)) {
		ret = -ENOKEY;
		goto error;
L
Linus Torvalds 已提交
762 763
	}

764 765 766
	key = key_ref_to_ptr(key_ref);

	/* see if we can read it directly */
767
	ret = key_permission(key_ref, KEY_NEED_READ);
768
	if (ret == 0)
769
		goto can_read_key;
770 771
	if (ret != -EACCES)
		goto error;
772 773 774 775 776 777 778 779 780

	/* we can't; see if it's searchable from this process's keyrings
	 * - we automatically take account of the fact that it may be
	 *   dangling off an instantiation key
	 */
	if (!is_key_possessed(key_ref)) {
		ret = -EACCES;
		goto error2;
	}
L
Linus Torvalds 已提交
781 782

	/* the key is probably readable - now try to read it */
783
can_read_key:
784 785 786 787 788 789 790 791
	ret = -EOPNOTSUPP;
	if (key->type->read) {
		/* Read the data with the semaphore held (since we might sleep)
		 * to protect against the key being updated or revoked.
		 */
		down_read(&key->sem);
		ret = key_validate(key);
		if (ret == 0)
L
Linus Torvalds 已提交
792
			ret = key->type->read(key, buffer, buflen);
793
		up_read(&key->sem);
L
Linus Torvalds 已提交
794 795
	}

796
error2:
L
Linus Torvalds 已提交
797
	key_put(key);
798
error:
L
Linus Torvalds 已提交
799
	return ret;
800
}
L
Linus Torvalds 已提交
801 802

/*
803 804 805 806 807 808 809 810 811 812 813 814 815
 * Change the ownership of a key
 *
 * The key must grant the caller Setattr permission for this to work, though
 * the key need not be fully instantiated yet.  For the UID to be changed, or
 * for the GID to be changed to a group the caller is not a member of, the
 * caller must have sysadmin capability.  If either uid or gid is -1 then that
 * attribute is not changed.
 *
 * If the UID is to be changed, the new user must have sufficient quota to
 * accept the key.  The quota deduction will be removed from the old user to
 * the new user should the attribute be changed.
 *
 * If successful, 0 will be returned.
L
Linus Torvalds 已提交
816
 */
817
long keyctl_chown_key(key_serial_t id, uid_t user, gid_t group)
L
Linus Torvalds 已提交
818
{
819
	struct key_user *newowner, *zapowner = NULL;
L
Linus Torvalds 已提交
820
	struct key *key;
821
	key_ref_t key_ref;
L
Linus Torvalds 已提交
822
	long ret;
823 824 825 826 827 828 829 830 831 832
	kuid_t uid;
	kgid_t gid;

	uid = make_kuid(current_user_ns(), user);
	gid = make_kgid(current_user_ns(), group);
	ret = -EINVAL;
	if ((user != (uid_t) -1) && !uid_valid(uid))
		goto error;
	if ((group != (gid_t) -1) && !gid_valid(gid))
		goto error;
L
Linus Torvalds 已提交
833 834

	ret = 0;
835
	if (user == (uid_t) -1 && group == (gid_t) -1)
L
Linus Torvalds 已提交
836 837
		goto error;

838
	key_ref = lookup_user_key(id, KEY_LOOKUP_CREATE | KEY_LOOKUP_PARTIAL,
839
				  KEY_NEED_SETATTR);
840 841
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
842 843 844
		goto error;
	}

845 846
	key = key_ref_to_ptr(key_ref);

L
Linus Torvalds 已提交
847 848 849 850 851 852
	/* make the changes with the locks held to prevent chown/chown races */
	ret = -EACCES;
	down_write(&key->sem);

	if (!capable(CAP_SYS_ADMIN)) {
		/* only the sysadmin can chown a key to some other UID */
853
		if (user != (uid_t) -1 && !uid_eq(key->uid, uid))
854
			goto error_put;
L
Linus Torvalds 已提交
855 856 857

		/* only the sysadmin can set the key's GID to a group other
		 * than one of those that the current process subscribes to */
858
		if (group != (gid_t) -1 && !gid_eq(gid, key->gid) && !in_group_p(gid))
859
			goto error_put;
L
Linus Torvalds 已提交
860 861
	}

862
	/* change the UID */
863
	if (user != (uid_t) -1 && !uid_eq(uid, key->uid)) {
864
		ret = -ENOMEM;
865
		newowner = key_user_lookup(uid);
866 867 868 869 870
		if (!newowner)
			goto error_put;

		/* transfer the quota burden to the new user */
		if (test_bit(KEY_FLAG_IN_QUOTA, &key->flags)) {
871
			unsigned maxkeys = uid_eq(uid, GLOBAL_ROOT_UID) ?
872
				key_quota_root_maxkeys : key_quota_maxkeys;
873
			unsigned maxbytes = uid_eq(uid, GLOBAL_ROOT_UID) ?
874 875
				key_quota_root_maxbytes : key_quota_maxbytes;

876
			spin_lock(&newowner->lock);
877 878 879 880
			if (newowner->qnkeys + 1 >= maxkeys ||
			    newowner->qnbytes + key->quotalen >= maxbytes ||
			    newowner->qnbytes + key->quotalen <
			    newowner->qnbytes)
881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903
				goto quota_overrun;

			newowner->qnkeys++;
			newowner->qnbytes += key->quotalen;
			spin_unlock(&newowner->lock);

			spin_lock(&key->user->lock);
			key->user->qnkeys--;
			key->user->qnbytes -= key->quotalen;
			spin_unlock(&key->user->lock);
		}

		atomic_dec(&key->user->nkeys);
		atomic_inc(&newowner->nkeys);

		if (test_bit(KEY_FLAG_INSTANTIATED, &key->flags)) {
			atomic_dec(&key->user->nikeys);
			atomic_inc(&newowner->nikeys);
		}

		zapowner = key->user;
		key->user = newowner;
		key->uid = uid;
L
Linus Torvalds 已提交
904 905 906
	}

	/* change the GID */
907
	if (group != (gid_t) -1)
L
Linus Torvalds 已提交
908 909 910 911
		key->gid = gid;

	ret = 0;

912
error_put:
L
Linus Torvalds 已提交
913 914
	up_write(&key->sem);
	key_put(key);
915 916 917
	if (zapowner)
		key_user_put(zapowner);
error:
L
Linus Torvalds 已提交
918 919
	return ret;

920 921 922 923 924
quota_overrun:
	spin_unlock(&newowner->lock);
	zapowner = newowner;
	ret = -EDQUOT;
	goto error_put;
925
}
926

L
Linus Torvalds 已提交
927
/*
928 929 930 931 932
 * Change the permission mask on a key.
 *
 * The key must grant the caller Setattr permission for this to work, though
 * the key need not be fully instantiated yet.  If the caller does not have
 * sysadmin capability, it may only change the permission on keys that it owns.
L
Linus Torvalds 已提交
933 934 935 936
 */
long keyctl_setperm_key(key_serial_t id, key_perm_t perm)
{
	struct key *key;
937
	key_ref_t key_ref;
L
Linus Torvalds 已提交
938 939 940
	long ret;

	ret = -EINVAL;
941
	if (perm & ~(KEY_POS_ALL | KEY_USR_ALL | KEY_GRP_ALL | KEY_OTH_ALL))
L
Linus Torvalds 已提交
942 943
		goto error;

944
	key_ref = lookup_user_key(id, KEY_LOOKUP_CREATE | KEY_LOOKUP_PARTIAL,
945
				  KEY_NEED_SETATTR);
946 947
	if (IS_ERR(key_ref)) {
		ret = PTR_ERR(key_ref);
L
Linus Torvalds 已提交
948 949 950
		goto error;
	}

951 952
	key = key_ref_to_ptr(key_ref);

953
	/* make the changes with the locks held to prevent chown/chmod races */
L
Linus Torvalds 已提交
954 955 956
	ret = -EACCES;
	down_write(&key->sem);

957
	/* if we're not the sysadmin, we can only change a key that we own */
958
	if (capable(CAP_SYS_ADMIN) || uid_eq(key->uid, current_fsuid())) {
959 960 961
		key->perm = perm;
		ret = 0;
	}
L
Linus Torvalds 已提交
962 963 964

	up_write(&key->sem);
	key_put(key);
965
error:
L
Linus Torvalds 已提交
966
	return ret;
967
}
L
Linus Torvalds 已提交
968

969
/*
970 971
 * Get the destination keyring for instantiation and check that the caller has
 * Write permission on it.
972 973 974 975 976 977 978
 */
static long get_instantiation_keyring(key_serial_t ringid,
				      struct request_key_auth *rka,
				      struct key **_dest_keyring)
{
	key_ref_t dkref;

979 980
	*_dest_keyring = NULL;

981
	/* just return a NULL pointer if we weren't asked to make a link */
982
	if (ringid == 0)
983 984 985 986
		return 0;

	/* if a specific keyring is nominated by ID, then use that */
	if (ringid > 0) {
987
		dkref = lookup_user_key(ringid, KEY_LOOKUP_CREATE, KEY_NEED_WRITE);
988 989 990 991 992 993 994 995 996 997 998 999
		if (IS_ERR(dkref))
			return PTR_ERR(dkref);
		*_dest_keyring = key_ref_to_ptr(dkref);
		return 0;
	}

	if (ringid == KEY_SPEC_REQKEY_AUTH_KEY)
		return -EINVAL;

	/* otherwise specify the destination keyring recorded in the
	 * authorisation key (any KEY_SPEC_*_KEYRING) */
	if (ringid >= KEY_SPEC_REQUESTOR_KEYRING) {
1000
		*_dest_keyring = key_get(rka->dest_keyring);
1001 1002 1003 1004 1005 1006
		return 0;
	}

	return -ENOKEY;
}

D
David Howells 已提交
1007
/*
1008
 * Change the request_key authorisation key on the current process.
D
David Howells 已提交
1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023
 */
static int keyctl_change_reqkey_auth(struct key *key)
{
	struct cred *new;

	new = prepare_creds();
	if (!new)
		return -ENOMEM;

	key_put(new->request_key_auth);
	new->request_key_auth = key_get(key);

	return commit_creds(new);
}

L
Linus Torvalds 已提交
1024
/*
1025 1026 1027 1028 1029 1030 1031
 * Instantiate a key with the specified payload and link the key into the
 * destination keyring if one is given.
 *
 * The caller must have the appropriate instantiation permit set for this to
 * work (see keyctl_assume_authority).  No other permissions are required.
 *
 * If successful, 0 will be returned.
L
Linus Torvalds 已提交
1032
 */
1033
long keyctl_instantiate_key_common(key_serial_t id,
1034
				   struct iov_iter *from,
1035
				   key_serial_t ringid)
L
Linus Torvalds 已提交
1036
{
D
David Howells 已提交
1037
	const struct cred *cred = current_cred();
1038
	struct request_key_auth *rka;
1039
	struct key *instkey, *dest_keyring;
1040
	size_t plen = from ? iov_iter_count(from) : 0;
L
Linus Torvalds 已提交
1041 1042 1043
	void *payload;
	long ret;

D
David Howells 已提交
1044 1045
	kenter("%d,,%zu,%d", id, plen, ringid);

1046 1047 1048
	if (!plen)
		from = NULL;

L
Linus Torvalds 已提交
1049
	ret = -EINVAL;
1050
	if (plen > 1024 * 1024 - 1)
L
Linus Torvalds 已提交
1051 1052
		goto error;

1053 1054 1055
	/* the appropriate instantiation authorisation key must have been
	 * assumed before calling this */
	ret = -EPERM;
D
David Howells 已提交
1056
	instkey = cred->request_key_auth;
1057 1058 1059
	if (!instkey)
		goto error;

1060
	rka = instkey->payload.data[0];
1061 1062 1063
	if (rka->target_key->serial != id)
		goto error;

L
Linus Torvalds 已提交
1064 1065 1066
	/* pull the payload in if one was supplied */
	payload = NULL;

1067
	if (from) {
L
Linus Torvalds 已提交
1068 1069
		ret = -ENOMEM;
		payload = kmalloc(plen, GFP_KERNEL);
1070 1071 1072 1073 1074 1075 1076
		if (!payload) {
			if (plen <= PAGE_SIZE)
				goto error;
			payload = vmalloc(plen);
			if (!payload)
				goto error;
		}
L
Linus Torvalds 已提交
1077

1078
		ret = -EFAULT;
1079
		if (!copy_from_iter_full(payload, plen, from))
L
Linus Torvalds 已提交
1080 1081 1082
			goto error2;
	}

1083 1084
	/* find the destination keyring amongst those belonging to the
	 * requesting task */
1085 1086 1087
	ret = get_instantiation_keyring(ringid, rka, &dest_keyring);
	if (ret < 0)
		goto error2;
L
Linus Torvalds 已提交
1088 1089

	/* instantiate the key and link it into a keyring */
1090
	ret = key_instantiate_and_link(rka->target_key, payload, plen,
1091
				       dest_keyring, instkey);
L
Linus Torvalds 已提交
1092

1093
	key_put(dest_keyring);
1094 1095 1096

	/* discard the assumed authority if it's just been disabled by
	 * instantiation of the key */
D
David Howells 已提交
1097 1098
	if (ret == 0)
		keyctl_change_reqkey_auth(NULL);
1099 1100

error2:
1101
	kvfree(payload);
1102
error:
L
Linus Torvalds 已提交
1103
	return ret;
1104
}
L
Linus Torvalds 已提交
1105

1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120
/*
 * Instantiate a key with the specified payload and link the key into the
 * destination keyring if one is given.
 *
 * The caller must have the appropriate instantiation permit set for this to
 * work (see keyctl_assume_authority).  No other permissions are required.
 *
 * If successful, 0 will be returned.
 */
long keyctl_instantiate_key(key_serial_t id,
			    const void __user *_payload,
			    size_t plen,
			    key_serial_t ringid)
{
	if (_payload && plen) {
1121 1122 1123
		struct iovec iov;
		struct iov_iter from;
		int ret;
1124

1125 1126 1127 1128 1129 1130
		ret = import_single_range(WRITE, (void __user *)_payload, plen,
					  &iov, &from);
		if (unlikely(ret))
			return ret;

		return keyctl_instantiate_key_common(id, &from, ringid);
1131 1132
	}

1133
	return keyctl_instantiate_key_common(id, NULL, ringid);
1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150
}

/*
 * Instantiate a key with the specified multipart payload and link the key into
 * the destination keyring if one is given.
 *
 * The caller must have the appropriate instantiation permit set for this to
 * work (see keyctl_assume_authority).  No other permissions are required.
 *
 * If successful, 0 will be returned.
 */
long keyctl_instantiate_key_iov(key_serial_t id,
				const struct iovec __user *_payload_iov,
				unsigned ioc,
				key_serial_t ringid)
{
	struct iovec iovstack[UIO_FASTIOV], *iov = iovstack;
1151
	struct iov_iter from;
1152 1153
	long ret;

1154 1155
	if (!_payload_iov)
		ioc = 0;
1156

1157 1158
	ret = import_iovec(WRITE, _payload_iov, ioc,
				    ARRAY_SIZE(iovstack), &iov, &from);
1159
	if (ret < 0)
1160 1161 1162
		return ret;
	ret = keyctl_instantiate_key_common(id, &from, ringid);
	kfree(iov);
1163 1164 1165
	return ret;
}

L
Linus Torvalds 已提交
1166
/*
1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179
 * Negatively instantiate the key with the given timeout (in seconds) and link
 * the key into the destination keyring if one is given.
 *
 * The caller must have the appropriate instantiation permit set for this to
 * work (see keyctl_assume_authority).  No other permissions are required.
 *
 * The key and any links to the key will be automatically garbage collected
 * after the timeout expires.
 *
 * Negative keys are used to rate limit repeated request_key() calls by causing
 * them to return -ENOKEY until the negative key expires.
 *
 * If successful, 0 will be returned.
L
Linus Torvalds 已提交
1180 1181
 */
long keyctl_negate_key(key_serial_t id, unsigned timeout, key_serial_t ringid)
1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202
{
	return keyctl_reject_key(id, timeout, ENOKEY, ringid);
}

/*
 * Negatively instantiate the key with the given timeout (in seconds) and error
 * code and link the key into the destination keyring if one is given.
 *
 * The caller must have the appropriate instantiation permit set for this to
 * work (see keyctl_assume_authority).  No other permissions are required.
 *
 * The key and any links to the key will be automatically garbage collected
 * after the timeout expires.
 *
 * Negative keys are used to rate limit repeated request_key() calls by causing
 * them to return the specified error code until the negative key expires.
 *
 * If successful, 0 will be returned.
 */
long keyctl_reject_key(key_serial_t id, unsigned timeout, unsigned error,
		       key_serial_t ringid)
L
Linus Torvalds 已提交
1203
{
D
David Howells 已提交
1204
	const struct cred *cred = current_cred();
1205
	struct request_key_auth *rka;
1206
	struct key *instkey, *dest_keyring;
L
Linus Torvalds 已提交
1207 1208
	long ret;

1209 1210 1211 1212 1213 1214 1215 1216 1217 1218
	kenter("%d,%u,%u,%d", id, timeout, error, ringid);

	/* must be a valid error code and mustn't be a kernel special */
	if (error <= 0 ||
	    error >= MAX_ERRNO ||
	    error == ERESTARTSYS ||
	    error == ERESTARTNOINTR ||
	    error == ERESTARTNOHAND ||
	    error == ERESTART_RESTARTBLOCK)
		return -EINVAL;
D
David Howells 已提交
1219

1220 1221 1222
	/* the appropriate instantiation authorisation key must have been
	 * assumed before calling this */
	ret = -EPERM;
D
David Howells 已提交
1223
	instkey = cred->request_key_auth;
1224
	if (!instkey)
L
Linus Torvalds 已提交
1225 1226
		goto error;

1227
	rka = instkey->payload.data[0];
1228 1229
	if (rka->target_key->serial != id)
		goto error;
1230

L
Linus Torvalds 已提交
1231 1232
	/* find the destination keyring if present (which must also be
	 * writable) */
1233 1234 1235
	ret = get_instantiation_keyring(ringid, rka, &dest_keyring);
	if (ret < 0)
		goto error;
L
Linus Torvalds 已提交
1236 1237

	/* instantiate the key and link it into a keyring */
1238
	ret = key_reject_and_link(rka->target_key, timeout, error,
1239
				  dest_keyring, instkey);
L
Linus Torvalds 已提交
1240

1241
	key_put(dest_keyring);
1242 1243 1244

	/* discard the assumed authority if it's just been disabled by
	 * instantiation of the key */
D
David Howells 已提交
1245 1246
	if (ret == 0)
		keyctl_change_reqkey_auth(NULL);
1247 1248

error:
L
Linus Torvalds 已提交
1249
	return ret;
1250
}
L
Linus Torvalds 已提交
1251

1252
/*
1253 1254 1255 1256 1257
 * Read or set the default keyring in which request_key() will cache keys and
 * return the old setting.
 *
 * If a process keyring is specified then this will be created if it doesn't
 * yet exist.  The old setting will be returned if successful.
1258 1259 1260
 */
long keyctl_set_reqkey_keyring(int reqkey_defl)
{
D
David Howells 已提交
1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271
	struct cred *new;
	int ret, old_setting;

	old_setting = current_cred_xxx(jit_keyring);

	if (reqkey_defl == KEY_REQKEY_DEFL_NO_CHANGE)
		return old_setting;

	new = prepare_creds();
	if (!new)
		return -ENOMEM;
1272 1273 1274

	switch (reqkey_defl) {
	case KEY_REQKEY_DEFL_THREAD_KEYRING:
D
David Howells 已提交
1275
		ret = install_thread_keyring_to_cred(new);
1276
		if (ret < 0)
D
David Howells 已提交
1277
			goto error;
1278 1279 1280
		goto set;

	case KEY_REQKEY_DEFL_PROCESS_KEYRING:
D
David Howells 已提交
1281 1282 1283 1284 1285 1286 1287
		ret = install_process_keyring_to_cred(new);
		if (ret < 0) {
			if (ret != -EEXIST)
				goto error;
			ret = 0;
		}
		goto set;
1288 1289 1290 1291 1292

	case KEY_REQKEY_DEFL_DEFAULT:
	case KEY_REQKEY_DEFL_SESSION_KEYRING:
	case KEY_REQKEY_DEFL_USER_KEYRING:
	case KEY_REQKEY_DEFL_USER_SESSION_KEYRING:
D
David Howells 已提交
1293 1294
	case KEY_REQKEY_DEFL_REQUESTOR_KEYRING:
		goto set;
1295 1296 1297 1298

	case KEY_REQKEY_DEFL_NO_CHANGE:
	case KEY_REQKEY_DEFL_GROUP_KEYRING:
	default:
D
David Howells 已提交
1299 1300
		ret = -EINVAL;
		goto error;
1301 1302
	}

D
David Howells 已提交
1303 1304 1305 1306 1307 1308
set:
	new->jit_keyring = reqkey_defl;
	commit_creds(new);
	return old_setting;
error:
	abort_creds(new);
1309
	return ret;
1310
}
D
David Howells 已提交
1311

1312
/*
1313 1314 1315 1316 1317 1318 1319 1320 1321
 * Set or clear the timeout on a key.
 *
 * Either the key must grant the caller Setattr permission or else the caller
 * must hold an instantiation authorisation token for the key.
 *
 * The timeout is either 0 to clear the timeout, or a number of seconds from
 * the current time.  The key and any links to the key will be automatically
 * garbage collected after the timeout expires.
 *
1322 1323
 * Keys with KEY_FLAG_KEEP set should not be timed out.
 *
1324
 * If successful, 0 is returned.
1325 1326 1327
 */
long keyctl_set_timeout(key_serial_t id, unsigned timeout)
{
1328
	struct key *key, *instkey;
1329 1330 1331
	key_ref_t key_ref;
	long ret;

1332
	key_ref = lookup_user_key(id, KEY_LOOKUP_CREATE | KEY_LOOKUP_PARTIAL,
1333
				  KEY_NEED_SETATTR);
1334
	if (IS_ERR(key_ref)) {
1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348
		/* setting the timeout on a key under construction is permitted
		 * if we have the authorisation token handy */
		if (PTR_ERR(key_ref) == -EACCES) {
			instkey = key_get_instantiation_authkey(id);
			if (!IS_ERR(instkey)) {
				key_put(instkey);
				key_ref = lookup_user_key(id,
							  KEY_LOOKUP_PARTIAL,
							  0);
				if (!IS_ERR(key_ref))
					goto okay;
			}
		}

1349 1350 1351 1352
		ret = PTR_ERR(key_ref);
		goto error;
	}

1353
okay:
1354
	key = key_ref_to_ptr(key_ref);
M
Mimi Zohar 已提交
1355
	ret = 0;
1356 1357
	if (test_bit(KEY_FLAG_KEEP, &key->flags))
		ret = -EPERM;
M
Mimi Zohar 已提交
1358
	else
1359
		key_set_timeout(key, timeout);
1360 1361 1362 1363
	key_put(key);

error:
	return ret;
1364
}
1365

1366
/*
1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381
 * Assume (or clear) the authority to instantiate the specified key.
 *
 * This sets the authoritative token currently in force for key instantiation.
 * This must be done for a key to be instantiated.  It has the effect of making
 * available all the keys from the caller of the request_key() that created a
 * key to request_key() calls made by the caller of this function.
 *
 * The caller must have the instantiation key in their process keyrings with a
 * Search permission grant available to the caller.
 *
 * If the ID given is 0, then the setting will be cleared and 0 returned.
 *
 * If the ID given has a matching an authorisation key, then that key will be
 * set and its ID will be returned.  The authorisation key can be read to get
 * the callout information passed to request_key().
1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394
 */
long keyctl_assume_authority(key_serial_t id)
{
	struct key *authkey;
	long ret;

	/* special key IDs aren't permitted */
	ret = -EINVAL;
	if (id < 0)
		goto error;

	/* we divest ourselves of authority if given an ID of 0 */
	if (id == 0) {
D
David Howells 已提交
1395
		ret = keyctl_change_reqkey_auth(NULL);
1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409
		goto error;
	}

	/* attempt to assume the authority temporarily granted to us whilst we
	 * instantiate the specified key
	 * - the authorisation key must be in the current task's keyrings
	 *   somewhere
	 */
	authkey = key_get_instantiation_authkey(id);
	if (IS_ERR(authkey)) {
		ret = PTR_ERR(authkey);
		goto error;
	}

D
David Howells 已提交
1410 1411 1412 1413
	ret = keyctl_change_reqkey_auth(authkey);
	if (ret < 0)
		goto error;
	key_put(authkey);
1414

D
David Howells 已提交
1415
	ret = authkey->serial;
1416 1417
error:
	return ret;
1418
}
1419

1420
/*
1421 1422 1423 1424 1425 1426 1427 1428
 * Get a key's the LSM security label.
 *
 * The key must grant the caller View permission for this to work.
 *
 * If there's a buffer, then up to buflen bytes of data will be placed into it.
 *
 * If successful, the amount of information available will be returned,
 * irrespective of how much was copied (including the terminal NUL).
1429 1430 1431 1432 1433 1434 1435 1436 1437 1438
 */
long keyctl_get_security(key_serial_t keyid,
			 char __user *buffer,
			 size_t buflen)
{
	struct key *key, *instkey;
	key_ref_t key_ref;
	char *context;
	long ret;

1439
	key_ref = lookup_user_key(keyid, KEY_LOOKUP_PARTIAL, KEY_NEED_VIEW);
1440 1441 1442 1443 1444 1445 1446 1447
	if (IS_ERR(key_ref)) {
		if (PTR_ERR(key_ref) != -EACCES)
			return PTR_ERR(key_ref);

		/* viewing a key under construction is also permitted if we
		 * have the authorisation token handy */
		instkey = key_get_instantiation_authkey(keyid);
		if (IS_ERR(instkey))
1448
			return PTR_ERR(instkey);
1449 1450
		key_put(instkey);

1451
		key_ref = lookup_user_key(keyid, KEY_LOOKUP_PARTIAL, 0);
1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481
		if (IS_ERR(key_ref))
			return PTR_ERR(key_ref);
	}

	key = key_ref_to_ptr(key_ref);
	ret = security_key_getsecurity(key, &context);
	if (ret == 0) {
		/* if no information was returned, give userspace an empty
		 * string */
		ret = 1;
		if (buffer && buflen > 0 &&
		    copy_to_user(buffer, "", 1) != 0)
			ret = -EFAULT;
	} else if (ret > 0) {
		/* return as much data as there's room for */
		if (buffer && buflen > 0) {
			if (buflen > ret)
				buflen = ret;

			if (copy_to_user(buffer, context, buflen) != 0)
				ret = -EFAULT;
		}

		kfree(context);
	}

	key_ref_put(key_ref);
	return ret;
}

1482
/*
1483 1484 1485 1486 1487 1488 1489 1490 1491 1492
 * Attempt to install the calling process's session keyring on the process's
 * parent process.
 *
 * The keyring must exist and must grant the caller LINK permission, and the
 * parent process must be single-threaded and must have the same effective
 * ownership as this process and mustn't be SUID/SGID.
 *
 * The keyring will be emplaced on the parent when it next resumes userspace.
 *
 * If successful, 0 will be returned.
1493 1494 1495 1496 1497
 */
long keyctl_session_to_parent(void)
{
	struct task_struct *me, *parent;
	const struct cred *mycred, *pcred;
1498
	struct callback_head *newwork, *oldwork;
1499
	key_ref_t keyring_r;
1500
	struct cred *cred;
1501 1502
	int ret;

1503
	keyring_r = lookup_user_key(KEY_SPEC_SESSION_KEYRING, 0, KEY_NEED_LINK);
1504 1505 1506
	if (IS_ERR(keyring_r))
		return PTR_ERR(keyring_r);

1507 1508
	ret = -ENOMEM;

1509 1510 1511 1512 1513
	/* our parent is going to need a new cred struct, a new tgcred struct
	 * and new security data, so we allocate them here to prevent ENOMEM in
	 * our parent */
	cred = cred_alloc_blank();
	if (!cred)
1514 1515
		goto error_keyring;
	newwork = &cred->rcu;
1516

1517 1518
	cred->session_keyring = key_ref_to_ptr(keyring_r);
	keyring_r = NULL;
1519
	init_task_work(newwork, key_change_session_keyring);
1520 1521

	me = current;
1522
	rcu_read_lock();
1523 1524 1525
	write_lock_irq(&tasklist_lock);

	ret = -EPERM;
1526 1527
	oldwork = NULL;
	parent = me->real_parent;
1528 1529 1530

	/* the parent mustn't be init and mustn't be a kernel thread */
	if (parent->pid <= 1 || !parent->mm)
1531
		goto unlock;
1532 1533

	/* the parent must be single threaded */
1534
	if (!thread_group_empty(parent))
1535
		goto unlock;
1536 1537 1538 1539 1540 1541

	/* the parent and the child must have different session keyrings or
	 * there's no point */
	mycred = current_cred();
	pcred = __task_cred(parent);
	if (mycred == pcred ||
1542
	    mycred->session_keyring == pcred->session_keyring) {
1543 1544 1545
		ret = 0;
		goto unlock;
	}
1546 1547 1548

	/* the parent must have the same effective ownership and mustn't be
	 * SUID/SGID */
1549 1550 1551 1552 1553 1554
	if (!uid_eq(pcred->uid,	 mycred->euid) ||
	    !uid_eq(pcred->euid, mycred->euid) ||
	    !uid_eq(pcred->suid, mycred->euid) ||
	    !gid_eq(pcred->gid,	 mycred->egid) ||
	    !gid_eq(pcred->egid, mycred->egid) ||
	    !gid_eq(pcred->sgid, mycred->egid))
1555
		goto unlock;
1556 1557

	/* the keyrings must have the same UID */
1558
	if ((pcred->session_keyring &&
1559 1560
	     !uid_eq(pcred->session_keyring->uid, mycred->euid)) ||
	    !uid_eq(mycred->session_keyring->uid, mycred->euid))
1561
		goto unlock;
1562

1563 1564
	/* cancel an already pending keyring replacement */
	oldwork = task_work_cancel(parent, key_change_session_keyring);
1565 1566 1567

	/* the replacement session keyring is applied just prior to userspace
	 * restarting */
1568
	ret = task_work_add(parent, newwork, true);
1569 1570 1571
	if (!ret)
		newwork = NULL;
unlock:
1572
	write_unlock_irq(&tasklist_lock);
1573
	rcu_read_unlock();
1574 1575 1576 1577
	if (oldwork)
		put_cred(container_of(oldwork, struct cred, rcu));
	if (newwork)
		put_cred(cred);
1578 1579 1580 1581 1582 1583 1584
	return ret;

error_keyring:
	key_ref_put(keyring_r);
	return ret;
}

1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637
/*
 * Apply a restriction to a given keyring.
 *
 * The caller must have Setattr permission to change keyring restrictions.
 *
 * The requested type name may be a NULL pointer to reject all attempts
 * to link to the keyring. If _type is non-NULL, _restriction can be
 * NULL or a pointer to a string describing the restriction. If _type is
 * NULL, _restriction must also be NULL.
 *
 * Returns 0 if successful.
 */
long keyctl_restrict_keyring(key_serial_t id, const char __user *_type,
			     const char __user *_restriction)
{
	key_ref_t key_ref;
	bool link_reject = !_type;
	char type[32];
	char *restriction = NULL;
	long ret;

	key_ref = lookup_user_key(id, 0, KEY_NEED_SETATTR);
	if (IS_ERR(key_ref))
		return PTR_ERR(key_ref);

	if (_type) {
		ret = key_get_type_from_user(type, _type, sizeof(type));
		if (ret < 0)
			goto error;
	}

	if (_restriction) {
		if (!_type) {
			ret = -EINVAL;
			goto error;
		}

		restriction = strndup_user(_restriction, PAGE_SIZE);
		if (IS_ERR(restriction)) {
			ret = PTR_ERR(restriction);
			goto error;
		}
	}

	ret = keyring_restrict(key_ref, link_reject ? NULL : type, restriction);
	kfree(restriction);

error:
	key_ref_put(key_ref);

	return ret;
}

L
Linus Torvalds 已提交
1638
/*
1639
 * The key control system call
L
Linus Torvalds 已提交
1640
 */
1641 1642
SYSCALL_DEFINE5(keyctl, int, option, unsigned long, arg2, unsigned long, arg3,
		unsigned long, arg4, unsigned long, arg5)
L
Linus Torvalds 已提交
1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706
{
	switch (option) {
	case KEYCTL_GET_KEYRING_ID:
		return keyctl_get_keyring_ID((key_serial_t) arg2,
					     (int) arg3);

	case KEYCTL_JOIN_SESSION_KEYRING:
		return keyctl_join_session_keyring((const char __user *) arg2);

	case KEYCTL_UPDATE:
		return keyctl_update_key((key_serial_t) arg2,
					 (const void __user *) arg3,
					 (size_t) arg4);

	case KEYCTL_REVOKE:
		return keyctl_revoke_key((key_serial_t) arg2);

	case KEYCTL_DESCRIBE:
		return keyctl_describe_key((key_serial_t) arg2,
					   (char __user *) arg3,
					   (unsigned) arg4);

	case KEYCTL_CLEAR:
		return keyctl_keyring_clear((key_serial_t) arg2);

	case KEYCTL_LINK:
		return keyctl_keyring_link((key_serial_t) arg2,
					   (key_serial_t) arg3);

	case KEYCTL_UNLINK:
		return keyctl_keyring_unlink((key_serial_t) arg2,
					     (key_serial_t) arg3);

	case KEYCTL_SEARCH:
		return keyctl_keyring_search((key_serial_t) arg2,
					     (const char __user *) arg3,
					     (const char __user *) arg4,
					     (key_serial_t) arg5);

	case KEYCTL_READ:
		return keyctl_read_key((key_serial_t) arg2,
				       (char __user *) arg3,
				       (size_t) arg4);

	case KEYCTL_CHOWN:
		return keyctl_chown_key((key_serial_t) arg2,
					(uid_t) arg3,
					(gid_t) arg4);

	case KEYCTL_SETPERM:
		return keyctl_setperm_key((key_serial_t) arg2,
					  (key_perm_t) arg3);

	case KEYCTL_INSTANTIATE:
		return keyctl_instantiate_key((key_serial_t) arg2,
					      (const void __user *) arg3,
					      (size_t) arg4,
					      (key_serial_t) arg5);

	case KEYCTL_NEGATE:
		return keyctl_negate_key((key_serial_t) arg2,
					 (unsigned) arg3,
					 (key_serial_t) arg4);

1707 1708 1709
	case KEYCTL_SET_REQKEY_KEYRING:
		return keyctl_set_reqkey_keyring(arg2);

1710 1711 1712 1713
	case KEYCTL_SET_TIMEOUT:
		return keyctl_set_timeout((key_serial_t) arg2,
					  (unsigned) arg3);

1714 1715 1716
	case KEYCTL_ASSUME_AUTHORITY:
		return keyctl_assume_authority((key_serial_t) arg2);

1717 1718
	case KEYCTL_GET_SECURITY:
		return keyctl_get_security((key_serial_t) arg2,
1719
					   (char __user *) arg3,
1720 1721
					   (size_t) arg4);

1722 1723 1724
	case KEYCTL_SESSION_TO_PARENT:
		return keyctl_session_to_parent();

1725 1726 1727 1728 1729 1730
	case KEYCTL_REJECT:
		return keyctl_reject_key((key_serial_t) arg2,
					 (unsigned) arg3,
					 (unsigned) arg4,
					 (key_serial_t) arg5);

1731 1732 1733 1734 1735 1736 1737
	case KEYCTL_INSTANTIATE_IOV:
		return keyctl_instantiate_key_iov(
			(key_serial_t) arg2,
			(const struct iovec __user *) arg3,
			(unsigned) arg4,
			(key_serial_t) arg5);

D
David Howells 已提交
1738 1739 1740
	case KEYCTL_INVALIDATE:
		return keyctl_invalidate_key((key_serial_t) arg2);

1741 1742 1743
	case KEYCTL_GET_PERSISTENT:
		return keyctl_get_persistent((uid_t)arg2, (key_serial_t)arg3);

1744 1745
	case KEYCTL_DH_COMPUTE:
		return keyctl_dh_compute((struct keyctl_dh_params __user *) arg2,
1746
					 (char __user *) arg3, (size_t) arg4,
1747
					 (struct keyctl_kdf_params __user *) arg5);
1748

1749 1750 1751 1752 1753
	case KEYCTL_RESTRICT_KEYRING:
		return keyctl_restrict_keyring((key_serial_t) arg2,
					       (const char __user *) arg3,
					       (const char __user *) arg4);

L
Linus Torvalds 已提交
1754 1755 1756
	default:
		return -EOPNOTSUPP;
	}
1757
}