1 // SPDX-License-Identifier: GPL-2.0-or-later 2 /* Kerberos-based RxRPC security 3 * 4 * Copyright (C) 2007 Red Hat, Inc. All Rights Reserved. 5 * Written by David Howells (dhowells@redhat.com) 6 */ 7 8 #define pr_fmt(fmt) KBUILD_MODNAME ": " fmt 9 10 #include <crypto/skcipher.h> 11 #include <linux/module.h> 12 #include <linux/net.h> 13 #include <linux/skbuff.h> 14 #include <linux/udp.h> 15 #include <linux/scatterlist.h> 16 #include <linux/ctype.h> 17 #include <linux/slab.h> 18 #include <linux/key-type.h> 19 #include <net/sock.h> 20 #include <net/af_rxrpc.h> 21 #include <keys/rxrpc-type.h> 22 #include "ar-internal.h" 23 24 #define RXKAD_VERSION 2 25 #define MAXKRB5TICKETLEN 1024 26 #define RXKAD_TKT_TYPE_KERBEROS_V5 256 27 #define ANAME_SZ 40 /* size of authentication name */ 28 #define INST_SZ 40 /* size of principal's instance */ 29 #define REALM_SZ 40 /* size of principal's auth domain */ 30 #define SNAME_SZ 40 /* size of service name */ 31 #define RXKAD_ALIGN 8 32 33 struct rxkad_level1_hdr { 34 __be32 data_size; /* true data size (excluding padding) */ 35 }; 36 37 struct rxkad_level2_hdr { 38 __be32 data_size; /* true data size (excluding padding) */ 39 __be32 checksum; /* decrypted data checksum */ 40 }; 41 42 static int rxkad_prime_packet_security(struct rxrpc_connection *conn, 43 struct crypto_sync_skcipher *ci); 44 45 /* 46 * this holds a pinned cipher so that keventd doesn't get called by the cipher 47 * alloc routine, but since we have it to hand, we use it to decrypt RESPONSE 48 * packets 49 */ 50 static struct crypto_sync_skcipher *rxkad_ci; 51 static struct skcipher_request *rxkad_ci_req; 52 static DEFINE_MUTEX(rxkad_ci_mutex); 53 54 /* 55 * Parse the information from a server key 56 * 57 * The data should be the 8-byte secret key. 58 */ 59 static int rxkad_preparse_server_key(struct key_preparsed_payload *prep) 60 { 61 struct crypto_skcipher *ci; 62 63 if (prep->datalen != 8) 64 return -EINVAL; 65 66 memcpy(&prep->payload.data[2], prep->data, 8); 67 68 ci = crypto_alloc_skcipher("pcbc(des)", 0, CRYPTO_ALG_ASYNC); 69 if (IS_ERR(ci)) { 70 _leave(" = %ld", PTR_ERR(ci)); 71 return PTR_ERR(ci); 72 } 73 74 if (crypto_skcipher_setkey(ci, prep->data, 8) < 0) 75 BUG(); 76 77 prep->payload.data[0] = ci; 78 _leave(" = 0"); 79 return 0; 80 } 81 82 static void rxkad_free_preparse_server_key(struct key_preparsed_payload *prep) 83 { 84 85 if (prep->payload.data[0]) 86 crypto_free_skcipher(prep->payload.data[0]); 87 } 88 89 static void rxkad_destroy_server_key(struct key *key) 90 { 91 if (key->payload.data[0]) { 92 crypto_free_skcipher(key->payload.data[0]); 93 key->payload.data[0] = NULL; 94 } 95 } 96 97 /* 98 * initialise connection security 99 */ 100 static int rxkad_init_connection_security(struct rxrpc_connection *conn, 101 struct rxrpc_key_token *token) 102 { 103 struct crypto_sync_skcipher *ci; 104 int ret; 105 106 _enter("{%d},{%x}", conn->debug_id, key_serial(conn->key)); 107 108 conn->security_ix = token->security_index; 109 110 ci = crypto_alloc_sync_skcipher("pcbc(fcrypt)", 0, 0); 111 if (IS_ERR(ci)) { 112 _debug("no cipher"); 113 ret = PTR_ERR(ci); 114 goto error; 115 } 116 117 if (crypto_sync_skcipher_setkey(ci, token->kad->session_key, 118 sizeof(token->kad->session_key)) < 0) 119 BUG(); 120 121 switch (conn->security_level) { 122 case RXRPC_SECURITY_PLAIN: 123 case RXRPC_SECURITY_AUTH: 124 case RXRPC_SECURITY_ENCRYPT: 125 break; 126 default: 127 ret = -EKEYREJECTED; 128 goto error; 129 } 130 131 ret = rxkad_prime_packet_security(conn, ci); 132 if (ret < 0) 133 goto error_ci; 134 135 conn->rxkad.cipher = ci; 136 return 0; 137 138 error_ci: 139 crypto_free_sync_skcipher(ci); 140 error: 141 _leave(" = %d", ret); 142 return ret; 143 } 144 145 /* 146 * Work out how much data we can put in a packet. 147 */ 148 static int rxkad_how_much_data(struct rxrpc_call *call, size_t remain, 149 size_t *_buf_size, size_t *_data_size, size_t *_offset) 150 { 151 size_t shdr, buf_size, chunk; 152 153 switch (call->conn->security_level) { 154 default: 155 buf_size = chunk = min_t(size_t, remain, RXRPC_JUMBO_DATALEN); 156 shdr = 0; 157 goto out; 158 case RXRPC_SECURITY_AUTH: 159 shdr = sizeof(struct rxkad_level1_hdr); 160 break; 161 case RXRPC_SECURITY_ENCRYPT: 162 shdr = sizeof(struct rxkad_level2_hdr); 163 break; 164 } 165 166 buf_size = round_down(RXRPC_JUMBO_DATALEN, RXKAD_ALIGN); 167 168 chunk = buf_size - shdr; 169 if (remain < chunk) 170 buf_size = round_up(shdr + remain, RXKAD_ALIGN); 171 172 out: 173 *_buf_size = buf_size; 174 *_data_size = chunk; 175 *_offset = shdr; 176 return 0; 177 } 178 179 /* 180 * prime the encryption state with the invariant parts of a connection's 181 * description 182 */ 183 static int rxkad_prime_packet_security(struct rxrpc_connection *conn, 184 struct crypto_sync_skcipher *ci) 185 { 186 struct skcipher_request *req; 187 struct rxrpc_key_token *token; 188 struct scatterlist sg; 189 struct rxrpc_crypt iv; 190 __be32 *tmpbuf; 191 size_t tmpsize = 4 * sizeof(__be32); 192 193 _enter(""); 194 195 if (!conn->key) 196 return 0; 197 198 tmpbuf = kmalloc(tmpsize, GFP_KERNEL); 199 if (!tmpbuf) 200 return -ENOMEM; 201 202 req = skcipher_request_alloc(&ci->base, GFP_NOFS); 203 if (!req) { 204 kfree(tmpbuf); 205 return -ENOMEM; 206 } 207 208 token = conn->key->payload.data[0]; 209 memcpy(&iv, token->kad->session_key, sizeof(iv)); 210 211 tmpbuf[0] = htonl(conn->proto.epoch); 212 tmpbuf[1] = htonl(conn->proto.cid); 213 tmpbuf[2] = 0; 214 tmpbuf[3] = htonl(conn->security_ix); 215 216 sg_init_one(&sg, tmpbuf, tmpsize); 217 skcipher_request_set_sync_tfm(req, ci); 218 skcipher_request_set_callback(req, 0, NULL, NULL); 219 skcipher_request_set_crypt(req, &sg, &sg, tmpsize, iv.x); 220 crypto_skcipher_encrypt(req); 221 skcipher_request_free(req); 222 223 memcpy(&conn->rxkad.csum_iv, tmpbuf + 2, sizeof(conn->rxkad.csum_iv)); 224 kfree(tmpbuf); 225 _leave(" = 0"); 226 return 0; 227 } 228 229 /* 230 * Allocate and prepare the crypto request on a call. For any particular call, 231 * this is called serially for the packets, so no lock should be necessary. 232 */ 233 static struct skcipher_request *rxkad_get_call_crypto(struct rxrpc_call *call) 234 { 235 struct crypto_skcipher *tfm = &call->conn->rxkad.cipher->base; 236 237 return skcipher_request_alloc(tfm, GFP_NOFS); 238 } 239 240 /* 241 * Clean up the crypto on a call. 242 */ 243 static void rxkad_free_call_crypto(struct rxrpc_call *call) 244 { 245 } 246 247 /* 248 * partially encrypt a packet (level 1 security) 249 */ 250 static int rxkad_secure_packet_auth(const struct rxrpc_call *call, 251 struct rxrpc_txbuf *txb, 252 struct skcipher_request *req) 253 { 254 struct rxkad_level1_hdr *hdr = (void *)txb->data; 255 struct rxrpc_crypt iv; 256 struct scatterlist sg; 257 size_t pad; 258 u16 check; 259 260 _enter(""); 261 262 check = txb->seq ^ ntohl(txb->wire.callNumber); 263 hdr->data_size = htonl((u32)check << 16 | txb->len); 264 265 txb->len += sizeof(struct rxkad_level1_hdr); 266 pad = txb->len; 267 pad = RXKAD_ALIGN - pad; 268 pad &= RXKAD_ALIGN - 1; 269 if (pad) { 270 memset(txb->data + txb->offset, 0, pad); 271 txb->len += pad; 272 } 273 274 /* start the encryption afresh */ 275 memset(&iv, 0, sizeof(iv)); 276 277 sg_init_one(&sg, txb->data, 8); 278 skcipher_request_set_sync_tfm(req, call->conn->rxkad.cipher); 279 skcipher_request_set_callback(req, 0, NULL, NULL); 280 skcipher_request_set_crypt(req, &sg, &sg, 8, iv.x); 281 crypto_skcipher_encrypt(req); 282 skcipher_request_zero(req); 283 284 _leave(" = 0"); 285 return 0; 286 } 287 288 /* 289 * wholly encrypt a packet (level 2 security) 290 */ 291 static int rxkad_secure_packet_encrypt(const struct rxrpc_call *call, 292 struct rxrpc_txbuf *txb, 293 struct skcipher_request *req) 294 { 295 const struct rxrpc_key_token *token; 296 struct rxkad_level2_hdr *rxkhdr = (void *)txb->data; 297 struct rxrpc_crypt iv; 298 struct scatterlist sg; 299 size_t pad; 300 u16 check; 301 int ret; 302 303 _enter(""); 304 305 check = txb->seq ^ ntohl(txb->wire.callNumber); 306 307 rxkhdr->data_size = htonl(txb->len | (u32)check << 16); 308 rxkhdr->checksum = 0; 309 310 txb->len += sizeof(struct rxkad_level2_hdr); 311 pad = txb->len; 312 pad = RXKAD_ALIGN - pad; 313 pad &= RXKAD_ALIGN - 1; 314 if (pad) { 315 memset(txb->data + txb->offset, 0, pad); 316 txb->len += pad; 317 } 318 319 /* encrypt from the session key */ 320 token = call->conn->key->payload.data[0]; 321 memcpy(&iv, token->kad->session_key, sizeof(iv)); 322 323 sg_init_one(&sg, txb->data, txb->len); 324 skcipher_request_set_sync_tfm(req, call->conn->rxkad.cipher); 325 skcipher_request_set_callback(req, 0, NULL, NULL); 326 skcipher_request_set_crypt(req, &sg, &sg, txb->len, iv.x); 327 ret = crypto_skcipher_encrypt(req); 328 skcipher_request_zero(req); 329 return ret; 330 } 331 332 /* 333 * checksum an RxRPC packet header 334 */ 335 static int rxkad_secure_packet(struct rxrpc_call *call, struct rxrpc_txbuf *txb) 336 { 337 struct skcipher_request *req; 338 struct rxrpc_crypt iv; 339 struct scatterlist sg; 340 union { 341 __be32 buf[2]; 342 } crypto __aligned(8); 343 u32 x, y; 344 int ret; 345 346 _enter("{%d{%x}},{#%u},%u,", 347 call->debug_id, key_serial(call->conn->key), 348 txb->seq, txb->len); 349 350 if (!call->conn->rxkad.cipher) 351 return 0; 352 353 ret = key_validate(call->conn->key); 354 if (ret < 0) 355 return ret; 356 357 req = rxkad_get_call_crypto(call); 358 if (!req) 359 return -ENOMEM; 360 361 /* continue encrypting from where we left off */ 362 memcpy(&iv, call->conn->rxkad.csum_iv.x, sizeof(iv)); 363 364 /* calculate the security checksum */ 365 x = (ntohl(txb->wire.cid) & RXRPC_CHANNELMASK) << (32 - RXRPC_CIDSHIFT); 366 x |= txb->seq & 0x3fffffff; 367 crypto.buf[0] = txb->wire.callNumber; 368 crypto.buf[1] = htonl(x); 369 370 sg_init_one(&sg, crypto.buf, 8); 371 skcipher_request_set_sync_tfm(req, call->conn->rxkad.cipher); 372 skcipher_request_set_callback(req, 0, NULL, NULL); 373 skcipher_request_set_crypt(req, &sg, &sg, 8, iv.x); 374 crypto_skcipher_encrypt(req); 375 skcipher_request_zero(req); 376 377 y = ntohl(crypto.buf[1]); 378 y = (y >> 16) & 0xffff; 379 if (y == 0) 380 y = 1; /* zero checksums are not permitted */ 381 txb->cksum = htons(y); 382 383 switch (call->conn->security_level) { 384 case RXRPC_SECURITY_PLAIN: 385 ret = 0; 386 break; 387 case RXRPC_SECURITY_AUTH: 388 ret = rxkad_secure_packet_auth(call, txb, req); 389 break; 390 case RXRPC_SECURITY_ENCRYPT: 391 ret = rxkad_secure_packet_encrypt(call, txb, req); 392 break; 393 default: 394 ret = -EPERM; 395 break; 396 } 397 398 skcipher_request_free(req); 399 _leave(" = %d [set %x]", ret, y); 400 return ret; 401 } 402 403 /* 404 * decrypt partial encryption on a packet (level 1 security) 405 */ 406 static int rxkad_verify_packet_1(struct rxrpc_call *call, struct sk_buff *skb, 407 rxrpc_seq_t seq, 408 struct skcipher_request *req) 409 { 410 struct rxkad_level1_hdr sechdr; 411 struct rxrpc_skb_priv *sp = rxrpc_skb(skb); 412 struct rxrpc_crypt iv; 413 struct scatterlist sg[16]; 414 u32 data_size, buf; 415 u16 check; 416 int ret; 417 418 _enter(""); 419 420 if (sp->len < 8) 421 return rxrpc_abort_eproto(call, skb, RXKADSEALEDINCON, 422 rxkad_abort_1_short_header); 423 424 /* Decrypt the skbuff in-place. TODO: We really want to decrypt 425 * directly into the target buffer. 426 */ 427 sg_init_table(sg, ARRAY_SIZE(sg)); 428 ret = skb_to_sgvec(skb, sg, sp->offset, 8); 429 if (unlikely(ret < 0)) 430 return ret; 431 432 /* start the decryption afresh */ 433 memset(&iv, 0, sizeof(iv)); 434 435 skcipher_request_set_sync_tfm(req, call->conn->rxkad.cipher); 436 skcipher_request_set_callback(req, 0, NULL, NULL); 437 skcipher_request_set_crypt(req, sg, sg, 8, iv.x); 438 crypto_skcipher_decrypt(req); 439 skcipher_request_zero(req); 440 441 /* Extract the decrypted packet length */ 442 if (skb_copy_bits(skb, sp->offset, &sechdr, sizeof(sechdr)) < 0) 443 return rxrpc_abort_eproto(call, skb, RXKADDATALEN, 444 rxkad_abort_1_short_encdata); 445 sp->offset += sizeof(sechdr); 446 sp->len -= sizeof(sechdr); 447 448 buf = ntohl(sechdr.data_size); 449 data_size = buf & 0xffff; 450 451 check = buf >> 16; 452 check ^= seq ^ call->call_id; 453 check &= 0xffff; 454 if (check != 0) 455 return rxrpc_abort_eproto(call, skb, RXKADSEALEDINCON, 456 rxkad_abort_1_short_check); 457 if (data_size > sp->len) 458 return rxrpc_abort_eproto(call, skb, RXKADDATALEN, 459 rxkad_abort_1_short_data); 460 sp->len = data_size; 461 462 _leave(" = 0 [dlen=%x]", data_size); 463 return 0; 464 } 465 466 /* 467 * wholly decrypt a packet (level 2 security) 468 */ 469 static int rxkad_verify_packet_2(struct rxrpc_call *call, struct sk_buff *skb, 470 rxrpc_seq_t seq, 471 struct skcipher_request *req) 472 { 473 const struct rxrpc_key_token *token; 474 struct rxkad_level2_hdr sechdr; 475 struct rxrpc_skb_priv *sp = rxrpc_skb(skb); 476 struct rxrpc_crypt iv; 477 struct scatterlist _sg[4], *sg; 478 u32 data_size, buf; 479 u16 check; 480 int nsg, ret; 481 482 _enter(",{%d}", sp->len); 483 484 if (sp->len < 8) 485 return rxrpc_abort_eproto(call, skb, RXKADSEALEDINCON, 486 rxkad_abort_2_short_header); 487 488 /* Decrypt the skbuff in-place. TODO: We really want to decrypt 489 * directly into the target buffer. 490 */ 491 sg = _sg; 492 nsg = skb_shinfo(skb)->nr_frags + 1; 493 if (nsg <= 4) { 494 nsg = 4; 495 } else { 496 sg = kmalloc_array(nsg, sizeof(*sg), GFP_NOIO); 497 if (!sg) 498 return -ENOMEM; 499 } 500 501 sg_init_table(sg, nsg); 502 ret = skb_to_sgvec(skb, sg, sp->offset, sp->len); 503 if (unlikely(ret < 0)) { 504 if (sg != _sg) 505 kfree(sg); 506 return ret; 507 } 508 509 /* decrypt from the session key */ 510 token = call->conn->key->payload.data[0]; 511 memcpy(&iv, token->kad->session_key, sizeof(iv)); 512 513 skcipher_request_set_sync_tfm(req, call->conn->rxkad.cipher); 514 skcipher_request_set_callback(req, 0, NULL, NULL); 515 skcipher_request_set_crypt(req, sg, sg, sp->len, iv.x); 516 crypto_skcipher_decrypt(req); 517 skcipher_request_zero(req); 518 if (sg != _sg) 519 kfree(sg); 520 521 /* Extract the decrypted packet length */ 522 if (skb_copy_bits(skb, sp->offset, &sechdr, sizeof(sechdr)) < 0) 523 return rxrpc_abort_eproto(call, skb, RXKADDATALEN, 524 rxkad_abort_2_short_len); 525 sp->offset += sizeof(sechdr); 526 sp->len -= sizeof(sechdr); 527 528 buf = ntohl(sechdr.data_size); 529 data_size = buf & 0xffff; 530 531 check = buf >> 16; 532 check ^= seq ^ call->call_id; 533 check &= 0xffff; 534 if (check != 0) 535 return rxrpc_abort_eproto(call, skb, RXKADSEALEDINCON, 536 rxkad_abort_2_short_check); 537 538 if (data_size > sp->len) 539 return rxrpc_abort_eproto(call, skb, RXKADDATALEN, 540 rxkad_abort_2_short_data); 541 542 sp->len = data_size; 543 _leave(" = 0 [dlen=%x]", data_size); 544 return 0; 545 } 546 547 /* 548 * Verify the security on a received packet and the subpackets therein. 549 */ 550 static int rxkad_verify_packet(struct rxrpc_call *call, struct sk_buff *skb) 551 { 552 struct rxrpc_skb_priv *sp = rxrpc_skb(skb); 553 struct skcipher_request *req; 554 struct rxrpc_crypt iv; 555 struct scatterlist sg; 556 union { 557 __be32 buf[2]; 558 } crypto __aligned(8); 559 rxrpc_seq_t seq = sp->hdr.seq; 560 int ret; 561 u16 cksum; 562 u32 x, y; 563 564 _enter("{%d{%x}},{#%u}", 565 call->debug_id, key_serial(call->conn->key), seq); 566 567 if (!call->conn->rxkad.cipher) 568 return 0; 569 570 req = rxkad_get_call_crypto(call); 571 if (!req) 572 return -ENOMEM; 573 574 /* continue encrypting from where we left off */ 575 memcpy(&iv, call->conn->rxkad.csum_iv.x, sizeof(iv)); 576 577 /* validate the security checksum */ 578 x = (call->cid & RXRPC_CHANNELMASK) << (32 - RXRPC_CIDSHIFT); 579 x |= seq & 0x3fffffff; 580 crypto.buf[0] = htonl(call->call_id); 581 crypto.buf[1] = htonl(x); 582 583 sg_init_one(&sg, crypto.buf, 8); 584 skcipher_request_set_sync_tfm(req, call->conn->rxkad.cipher); 585 skcipher_request_set_callback(req, 0, NULL, NULL); 586 skcipher_request_set_crypt(req, &sg, &sg, 8, iv.x); 587 crypto_skcipher_encrypt(req); 588 skcipher_request_zero(req); 589 590 y = ntohl(crypto.buf[1]); 591 cksum = (y >> 16) & 0xffff; 592 if (cksum == 0) 593 cksum = 1; /* zero checksums are not permitted */ 594 595 if (cksum != sp->hdr.cksum) { 596 ret = rxrpc_abort_eproto(call, skb, RXKADSEALEDINCON, 597 rxkad_abort_bad_checksum); 598 goto out; 599 } 600 601 switch (call->conn->security_level) { 602 case RXRPC_SECURITY_PLAIN: 603 ret = 0; 604 break; 605 case RXRPC_SECURITY_AUTH: 606 ret = rxkad_verify_packet_1(call, skb, seq, req); 607 break; 608 case RXRPC_SECURITY_ENCRYPT: 609 ret = rxkad_verify_packet_2(call, skb, seq, req); 610 break; 611 default: 612 ret = -ENOANO; 613 break; 614 } 615 616 out: 617 skcipher_request_free(req); 618 return ret; 619 } 620 621 /* 622 * issue a challenge 623 */ 624 static int rxkad_issue_challenge(struct rxrpc_connection *conn) 625 { 626 struct rxkad_challenge challenge; 627 struct rxrpc_wire_header whdr; 628 struct msghdr msg; 629 struct kvec iov[2]; 630 size_t len; 631 u32 serial; 632 int ret; 633 634 _enter("{%d}", conn->debug_id); 635 636 get_random_bytes(&conn->rxkad.nonce, sizeof(conn->rxkad.nonce)); 637 638 challenge.version = htonl(2); 639 challenge.nonce = htonl(conn->rxkad.nonce); 640 challenge.min_level = htonl(0); 641 challenge.__padding = 0; 642 643 msg.msg_name = &conn->peer->srx.transport; 644 msg.msg_namelen = conn->peer->srx.transport_len; 645 msg.msg_control = NULL; 646 msg.msg_controllen = 0; 647 msg.msg_flags = 0; 648 649 whdr.epoch = htonl(conn->proto.epoch); 650 whdr.cid = htonl(conn->proto.cid); 651 whdr.callNumber = 0; 652 whdr.seq = 0; 653 whdr.type = RXRPC_PACKET_TYPE_CHALLENGE; 654 whdr.flags = conn->out_clientflag; 655 whdr.userStatus = 0; 656 whdr.securityIndex = conn->security_ix; 657 whdr._rsvd = 0; 658 whdr.serviceId = htons(conn->service_id); 659 660 iov[0].iov_base = &whdr; 661 iov[0].iov_len = sizeof(whdr); 662 iov[1].iov_base = &challenge; 663 iov[1].iov_len = sizeof(challenge); 664 665 len = iov[0].iov_len + iov[1].iov_len; 666 667 serial = rxrpc_get_next_serial(conn); 668 whdr.serial = htonl(serial); 669 670 ret = kernel_sendmsg(conn->local->socket, &msg, iov, 2, len); 671 if (ret < 0) { 672 trace_rxrpc_tx_fail(conn->debug_id, serial, ret, 673 rxrpc_tx_point_rxkad_challenge); 674 return -EAGAIN; 675 } 676 677 conn->peer->last_tx_at = ktime_get_seconds(); 678 trace_rxrpc_tx_packet(conn->debug_id, &whdr, 679 rxrpc_tx_point_rxkad_challenge); 680 _leave(" = 0"); 681 return 0; 682 } 683 684 /* 685 * send a Kerberos security response 686 */ 687 static int rxkad_send_response(struct rxrpc_connection *conn, 688 struct rxrpc_host_header *hdr, 689 struct rxkad_response *resp, 690 const struct rxkad_key *s2) 691 { 692 struct rxrpc_wire_header whdr; 693 struct msghdr msg; 694 struct kvec iov[3]; 695 size_t len; 696 u32 serial; 697 int ret; 698 699 _enter(""); 700 701 msg.msg_name = &conn->peer->srx.transport; 702 msg.msg_namelen = conn->peer->srx.transport_len; 703 msg.msg_control = NULL; 704 msg.msg_controllen = 0; 705 msg.msg_flags = 0; 706 707 memset(&whdr, 0, sizeof(whdr)); 708 whdr.epoch = htonl(hdr->epoch); 709 whdr.cid = htonl(hdr->cid); 710 whdr.type = RXRPC_PACKET_TYPE_RESPONSE; 711 whdr.flags = conn->out_clientflag; 712 whdr.securityIndex = hdr->securityIndex; 713 whdr.serviceId = htons(hdr->serviceId); 714 715 iov[0].iov_base = &whdr; 716 iov[0].iov_len = sizeof(whdr); 717 iov[1].iov_base = resp; 718 iov[1].iov_len = sizeof(*resp); 719 iov[2].iov_base = (void *)s2->ticket; 720 iov[2].iov_len = s2->ticket_len; 721 722 len = iov[0].iov_len + iov[1].iov_len + iov[2].iov_len; 723 724 serial = rxrpc_get_next_serial(conn); 725 whdr.serial = htonl(serial); 726 727 rxrpc_local_dont_fragment(conn->local, false); 728 ret = kernel_sendmsg(conn->local->socket, &msg, iov, 3, len); 729 if (ret < 0) { 730 trace_rxrpc_tx_fail(conn->debug_id, serial, ret, 731 rxrpc_tx_point_rxkad_response); 732 return -EAGAIN; 733 } 734 735 conn->peer->last_tx_at = ktime_get_seconds(); 736 _leave(" = 0"); 737 return 0; 738 } 739 740 /* 741 * calculate the response checksum 742 */ 743 static void rxkad_calc_response_checksum(struct rxkad_response *response) 744 { 745 u32 csum = 1000003; 746 int loop; 747 u8 *p = (u8 *) response; 748 749 for (loop = sizeof(*response); loop > 0; loop--) 750 csum = csum * 0x10204081 + *p++; 751 752 response->encrypted.checksum = htonl(csum); 753 } 754 755 /* 756 * encrypt the response packet 757 */ 758 static int rxkad_encrypt_response(struct rxrpc_connection *conn, 759 struct rxkad_response *resp, 760 const struct rxkad_key *s2) 761 { 762 struct skcipher_request *req; 763 struct rxrpc_crypt iv; 764 struct scatterlist sg[1]; 765 766 req = skcipher_request_alloc(&conn->rxkad.cipher->base, GFP_NOFS); 767 if (!req) 768 return -ENOMEM; 769 770 /* continue encrypting from where we left off */ 771 memcpy(&iv, s2->session_key, sizeof(iv)); 772 773 sg_init_table(sg, 1); 774 sg_set_buf(sg, &resp->encrypted, sizeof(resp->encrypted)); 775 skcipher_request_set_sync_tfm(req, conn->rxkad.cipher); 776 skcipher_request_set_callback(req, 0, NULL, NULL); 777 skcipher_request_set_crypt(req, sg, sg, sizeof(resp->encrypted), iv.x); 778 crypto_skcipher_encrypt(req); 779 skcipher_request_free(req); 780 return 0; 781 } 782 783 /* 784 * respond to a challenge packet 785 */ 786 static int rxkad_respond_to_challenge(struct rxrpc_connection *conn, 787 struct sk_buff *skb) 788 { 789 const struct rxrpc_key_token *token; 790 struct rxkad_challenge challenge; 791 struct rxkad_response *resp; 792 struct rxrpc_skb_priv *sp = rxrpc_skb(skb); 793 u32 version, nonce, min_level; 794 int ret = -EPROTO; 795 796 _enter("{%d,%x}", conn->debug_id, key_serial(conn->key)); 797 798 if (!conn->key) 799 return rxrpc_abort_conn(conn, skb, RX_PROTOCOL_ERROR, -EPROTO, 800 rxkad_abort_chall_no_key); 801 802 ret = key_validate(conn->key); 803 if (ret < 0) 804 return rxrpc_abort_conn(conn, skb, RXKADEXPIRED, ret, 805 rxkad_abort_chall_key_expired); 806 807 if (skb_copy_bits(skb, sizeof(struct rxrpc_wire_header), 808 &challenge, sizeof(challenge)) < 0) 809 return rxrpc_abort_conn(conn, skb, RXKADPACKETSHORT, -EPROTO, 810 rxkad_abort_chall_short); 811 812 version = ntohl(challenge.version); 813 nonce = ntohl(challenge.nonce); 814 min_level = ntohl(challenge.min_level); 815 816 trace_rxrpc_rx_challenge(conn, sp->hdr.serial, version, nonce, min_level); 817 818 if (version != RXKAD_VERSION) 819 return rxrpc_abort_conn(conn, skb, RXKADINCONSISTENCY, -EPROTO, 820 rxkad_abort_chall_version); 821 822 if (conn->security_level < min_level) 823 return rxrpc_abort_conn(conn, skb, RXKADLEVELFAIL, -EACCES, 824 rxkad_abort_chall_level); 825 826 token = conn->key->payload.data[0]; 827 828 /* build the response packet */ 829 resp = kzalloc(sizeof(struct rxkad_response), GFP_NOFS); 830 if (!resp) 831 return -ENOMEM; 832 833 resp->version = htonl(RXKAD_VERSION); 834 resp->encrypted.epoch = htonl(conn->proto.epoch); 835 resp->encrypted.cid = htonl(conn->proto.cid); 836 resp->encrypted.securityIndex = htonl(conn->security_ix); 837 resp->encrypted.inc_nonce = htonl(nonce + 1); 838 resp->encrypted.level = htonl(conn->security_level); 839 resp->kvno = htonl(token->kad->kvno); 840 resp->ticket_len = htonl(token->kad->ticket_len); 841 resp->encrypted.call_id[0] = htonl(conn->channels[0].call_counter); 842 resp->encrypted.call_id[1] = htonl(conn->channels[1].call_counter); 843 resp->encrypted.call_id[2] = htonl(conn->channels[2].call_counter); 844 resp->encrypted.call_id[3] = htonl(conn->channels[3].call_counter); 845 846 /* calculate the response checksum and then do the encryption */ 847 rxkad_calc_response_checksum(resp); 848 ret = rxkad_encrypt_response(conn, resp, token->kad); 849 if (ret == 0) 850 ret = rxkad_send_response(conn, &sp->hdr, resp, token->kad); 851 kfree(resp); 852 return ret; 853 } 854 855 /* 856 * decrypt the kerberos IV ticket in the response 857 */ 858 static int rxkad_decrypt_ticket(struct rxrpc_connection *conn, 859 struct key *server_key, 860 struct sk_buff *skb, 861 void *ticket, size_t ticket_len, 862 struct rxrpc_crypt *_session_key, 863 time64_t *_expiry) 864 { 865 struct skcipher_request *req; 866 struct rxrpc_crypt iv, key; 867 struct scatterlist sg[1]; 868 struct in_addr addr; 869 unsigned int life; 870 time64_t issue, now; 871 bool little_endian; 872 u8 *p, *q, *name, *end; 873 874 _enter("{%d},{%x}", conn->debug_id, key_serial(server_key)); 875 876 *_expiry = 0; 877 878 ASSERT(server_key->payload.data[0] != NULL); 879 ASSERTCMP((unsigned long) ticket & 7UL, ==, 0); 880 881 memcpy(&iv, &server_key->payload.data[2], sizeof(iv)); 882 883 req = skcipher_request_alloc(server_key->payload.data[0], GFP_NOFS); 884 if (!req) 885 return -ENOMEM; 886 887 sg_init_one(&sg[0], ticket, ticket_len); 888 skcipher_request_set_callback(req, 0, NULL, NULL); 889 skcipher_request_set_crypt(req, sg, sg, ticket_len, iv.x); 890 crypto_skcipher_decrypt(req); 891 skcipher_request_free(req); 892 893 p = ticket; 894 end = p + ticket_len; 895 896 #define Z(field, fieldl) \ 897 ({ \ 898 u8 *__str = p; \ 899 q = memchr(p, 0, end - p); \ 900 if (!q || q - p > field##_SZ) \ 901 return rxrpc_abort_conn( \ 902 conn, skb, RXKADBADTICKET, -EPROTO, \ 903 rxkad_abort_resp_tkt_##fieldl); \ 904 for (; p < q; p++) \ 905 if (!isprint(*p)) \ 906 return rxrpc_abort_conn( \ 907 conn, skb, RXKADBADTICKET, -EPROTO, \ 908 rxkad_abort_resp_tkt_##fieldl); \ 909 p++; \ 910 __str; \ 911 }) 912 913 /* extract the ticket flags */ 914 _debug("KIV FLAGS: %x", *p); 915 little_endian = *p & 1; 916 p++; 917 918 /* extract the authentication name */ 919 name = Z(ANAME, aname); 920 _debug("KIV ANAME: %s", name); 921 922 /* extract the principal's instance */ 923 name = Z(INST, inst); 924 _debug("KIV INST : %s", name); 925 926 /* extract the principal's authentication domain */ 927 name = Z(REALM, realm); 928 _debug("KIV REALM: %s", name); 929 930 if (end - p < 4 + 8 + 4 + 2) 931 return rxrpc_abort_conn(conn, skb, RXKADBADTICKET, -EPROTO, 932 rxkad_abort_resp_tkt_short); 933 934 /* get the IPv4 address of the entity that requested the ticket */ 935 memcpy(&addr, p, sizeof(addr)); 936 p += 4; 937 _debug("KIV ADDR : %pI4", &addr); 938 939 /* get the session key from the ticket */ 940 memcpy(&key, p, sizeof(key)); 941 p += 8; 942 _debug("KIV KEY : %08x %08x", ntohl(key.n[0]), ntohl(key.n[1])); 943 memcpy(_session_key, &key, sizeof(key)); 944 945 /* get the ticket's lifetime */ 946 life = *p++ * 5 * 60; 947 _debug("KIV LIFE : %u", life); 948 949 /* get the issue time of the ticket */ 950 if (little_endian) { 951 __le32 stamp; 952 memcpy(&stamp, p, 4); 953 issue = rxrpc_u32_to_time64(le32_to_cpu(stamp)); 954 } else { 955 __be32 stamp; 956 memcpy(&stamp, p, 4); 957 issue = rxrpc_u32_to_time64(be32_to_cpu(stamp)); 958 } 959 p += 4; 960 now = ktime_get_real_seconds(); 961 _debug("KIV ISSUE: %llx [%llx]", issue, now); 962 963 /* check the ticket is in date */ 964 if (issue > now) 965 return rxrpc_abort_conn(conn, skb, RXKADNOAUTH, -EKEYREJECTED, 966 rxkad_abort_resp_tkt_future); 967 if (issue < now - life) 968 return rxrpc_abort_conn(conn, skb, RXKADEXPIRED, -EKEYEXPIRED, 969 rxkad_abort_resp_tkt_expired); 970 971 *_expiry = issue + life; 972 973 /* get the service name */ 974 name = Z(SNAME, sname); 975 _debug("KIV SNAME: %s", name); 976 977 /* get the service instance name */ 978 name = Z(INST, sinst); 979 _debug("KIV SINST: %s", name); 980 return 0; 981 } 982 983 /* 984 * decrypt the response packet 985 */ 986 static void rxkad_decrypt_response(struct rxrpc_connection *conn, 987 struct rxkad_response *resp, 988 const struct rxrpc_crypt *session_key) 989 { 990 struct skcipher_request *req = rxkad_ci_req; 991 struct scatterlist sg[1]; 992 struct rxrpc_crypt iv; 993 994 _enter(",,%08x%08x", 995 ntohl(session_key->n[0]), ntohl(session_key->n[1])); 996 997 mutex_lock(&rxkad_ci_mutex); 998 if (crypto_sync_skcipher_setkey(rxkad_ci, session_key->x, 999 sizeof(*session_key)) < 0) 1000 BUG(); 1001 1002 memcpy(&iv, session_key, sizeof(iv)); 1003 1004 sg_init_table(sg, 1); 1005 sg_set_buf(sg, &resp->encrypted, sizeof(resp->encrypted)); 1006 skcipher_request_set_sync_tfm(req, rxkad_ci); 1007 skcipher_request_set_callback(req, 0, NULL, NULL); 1008 skcipher_request_set_crypt(req, sg, sg, sizeof(resp->encrypted), iv.x); 1009 crypto_skcipher_decrypt(req); 1010 skcipher_request_zero(req); 1011 1012 mutex_unlock(&rxkad_ci_mutex); 1013 1014 _leave(""); 1015 } 1016 1017 /* 1018 * verify a response 1019 */ 1020 static int rxkad_verify_response(struct rxrpc_connection *conn, 1021 struct sk_buff *skb) 1022 { 1023 struct rxkad_response *response; 1024 struct rxrpc_skb_priv *sp = rxrpc_skb(skb); 1025 struct rxrpc_crypt session_key; 1026 struct key *server_key; 1027 time64_t expiry; 1028 void *ticket; 1029 u32 version, kvno, ticket_len, level; 1030 __be32 csum; 1031 int ret, i; 1032 1033 _enter("{%d}", conn->debug_id); 1034 1035 server_key = rxrpc_look_up_server_security(conn, skb, 0, 0); 1036 if (IS_ERR(server_key)) { 1037 ret = PTR_ERR(server_key); 1038 switch (ret) { 1039 case -ENOKEY: 1040 return rxrpc_abort_conn(conn, skb, RXKADUNKNOWNKEY, ret, 1041 rxkad_abort_resp_nokey); 1042 case -EKEYEXPIRED: 1043 return rxrpc_abort_conn(conn, skb, RXKADEXPIRED, ret, 1044 rxkad_abort_resp_key_expired); 1045 default: 1046 return rxrpc_abort_conn(conn, skb, RXKADNOAUTH, ret, 1047 rxkad_abort_resp_key_rejected); 1048 } 1049 } 1050 1051 ret = -ENOMEM; 1052 response = kzalloc(sizeof(struct rxkad_response), GFP_NOFS); 1053 if (!response) 1054 goto temporary_error; 1055 1056 if (skb_copy_bits(skb, sizeof(struct rxrpc_wire_header), 1057 response, sizeof(*response)) < 0) { 1058 rxrpc_abort_conn(conn, skb, RXKADPACKETSHORT, -EPROTO, 1059 rxkad_abort_resp_short); 1060 goto protocol_error; 1061 } 1062 1063 version = ntohl(response->version); 1064 ticket_len = ntohl(response->ticket_len); 1065 kvno = ntohl(response->kvno); 1066 1067 trace_rxrpc_rx_response(conn, sp->hdr.serial, version, kvno, ticket_len); 1068 1069 if (version != RXKAD_VERSION) { 1070 rxrpc_abort_conn(conn, skb, RXKADINCONSISTENCY, -EPROTO, 1071 rxkad_abort_resp_version); 1072 goto protocol_error; 1073 } 1074 1075 if (ticket_len < 4 || ticket_len > MAXKRB5TICKETLEN) { 1076 rxrpc_abort_conn(conn, skb, RXKADTICKETLEN, -EPROTO, 1077 rxkad_abort_resp_tkt_len); 1078 goto protocol_error; 1079 } 1080 1081 if (kvno >= RXKAD_TKT_TYPE_KERBEROS_V5) { 1082 rxrpc_abort_conn(conn, skb, RXKADUNKNOWNKEY, -EPROTO, 1083 rxkad_abort_resp_unknown_tkt); 1084 goto protocol_error; 1085 } 1086 1087 /* extract the kerberos ticket and decrypt and decode it */ 1088 ret = -ENOMEM; 1089 ticket = kmalloc(ticket_len, GFP_NOFS); 1090 if (!ticket) 1091 goto temporary_error_free_resp; 1092 1093 if (skb_copy_bits(skb, sizeof(struct rxrpc_wire_header) + sizeof(*response), 1094 ticket, ticket_len) < 0) { 1095 rxrpc_abort_conn(conn, skb, RXKADPACKETSHORT, -EPROTO, 1096 rxkad_abort_resp_short_tkt); 1097 goto protocol_error; 1098 } 1099 1100 ret = rxkad_decrypt_ticket(conn, server_key, skb, ticket, ticket_len, 1101 &session_key, &expiry); 1102 if (ret < 0) 1103 goto temporary_error_free_ticket; 1104 1105 /* use the session key from inside the ticket to decrypt the 1106 * response */ 1107 rxkad_decrypt_response(conn, response, &session_key); 1108 1109 if (ntohl(response->encrypted.epoch) != conn->proto.epoch || 1110 ntohl(response->encrypted.cid) != conn->proto.cid || 1111 ntohl(response->encrypted.securityIndex) != conn->security_ix) { 1112 rxrpc_abort_conn(conn, skb, RXKADSEALEDINCON, -EPROTO, 1113 rxkad_abort_resp_bad_param); 1114 goto protocol_error_free; 1115 } 1116 1117 csum = response->encrypted.checksum; 1118 response->encrypted.checksum = 0; 1119 rxkad_calc_response_checksum(response); 1120 if (response->encrypted.checksum != csum) { 1121 rxrpc_abort_conn(conn, skb, RXKADSEALEDINCON, -EPROTO, 1122 rxkad_abort_resp_bad_checksum); 1123 goto protocol_error_free; 1124 } 1125 1126 for (i = 0; i < RXRPC_MAXCALLS; i++) { 1127 u32 call_id = ntohl(response->encrypted.call_id[i]); 1128 u32 counter = READ_ONCE(conn->channels[i].call_counter); 1129 1130 if (call_id > INT_MAX) { 1131 rxrpc_abort_conn(conn, skb, RXKADSEALEDINCON, -EPROTO, 1132 rxkad_abort_resp_bad_callid); 1133 goto protocol_error_free; 1134 } 1135 1136 if (call_id < counter) { 1137 rxrpc_abort_conn(conn, skb, RXKADSEALEDINCON, -EPROTO, 1138 rxkad_abort_resp_call_ctr); 1139 goto protocol_error_free; 1140 } 1141 1142 if (call_id > counter) { 1143 if (conn->channels[i].call) { 1144 rxrpc_abort_conn(conn, skb, RXKADSEALEDINCON, -EPROTO, 1145 rxkad_abort_resp_call_state); 1146 goto protocol_error_free; 1147 } 1148 conn->channels[i].call_counter = call_id; 1149 } 1150 } 1151 1152 if (ntohl(response->encrypted.inc_nonce) != conn->rxkad.nonce + 1) { 1153 rxrpc_abort_conn(conn, skb, RXKADOUTOFSEQUENCE, -EPROTO, 1154 rxkad_abort_resp_ooseq); 1155 goto protocol_error_free; 1156 } 1157 1158 level = ntohl(response->encrypted.level); 1159 if (level > RXRPC_SECURITY_ENCRYPT) { 1160 rxrpc_abort_conn(conn, skb, RXKADLEVELFAIL, -EPROTO, 1161 rxkad_abort_resp_level); 1162 goto protocol_error_free; 1163 } 1164 conn->security_level = level; 1165 1166 /* create a key to hold the security data and expiration time - after 1167 * this the connection security can be handled in exactly the same way 1168 * as for a client connection */ 1169 ret = rxrpc_get_server_data_key(conn, &session_key, expiry, kvno); 1170 if (ret < 0) 1171 goto temporary_error_free_ticket; 1172 1173 kfree(ticket); 1174 kfree(response); 1175 _leave(" = 0"); 1176 return 0; 1177 1178 protocol_error_free: 1179 kfree(ticket); 1180 protocol_error: 1181 kfree(response); 1182 key_put(server_key); 1183 return -EPROTO; 1184 1185 temporary_error_free_ticket: 1186 kfree(ticket); 1187 temporary_error_free_resp: 1188 kfree(response); 1189 temporary_error: 1190 /* Ignore the response packet if we got a temporary error such as 1191 * ENOMEM. We just want to send the challenge again. Note that we 1192 * also come out this way if the ticket decryption fails. 1193 */ 1194 key_put(server_key); 1195 return ret; 1196 } 1197 1198 /* 1199 * clear the connection security 1200 */ 1201 static void rxkad_clear(struct rxrpc_connection *conn) 1202 { 1203 _enter(""); 1204 1205 if (conn->rxkad.cipher) 1206 crypto_free_sync_skcipher(conn->rxkad.cipher); 1207 } 1208 1209 /* 1210 * Initialise the rxkad security service. 1211 */ 1212 static int rxkad_init(void) 1213 { 1214 struct crypto_sync_skcipher *tfm; 1215 struct skcipher_request *req; 1216 1217 /* pin the cipher we need so that the crypto layer doesn't invoke 1218 * keventd to go get it */ 1219 tfm = crypto_alloc_sync_skcipher("pcbc(fcrypt)", 0, 0); 1220 if (IS_ERR(tfm)) 1221 return PTR_ERR(tfm); 1222 1223 req = skcipher_request_alloc(&tfm->base, GFP_KERNEL); 1224 if (!req) 1225 goto nomem_tfm; 1226 1227 rxkad_ci_req = req; 1228 rxkad_ci = tfm; 1229 return 0; 1230 1231 nomem_tfm: 1232 crypto_free_sync_skcipher(tfm); 1233 return -ENOMEM; 1234 } 1235 1236 /* 1237 * Clean up the rxkad security service. 1238 */ 1239 static void rxkad_exit(void) 1240 { 1241 crypto_free_sync_skcipher(rxkad_ci); 1242 skcipher_request_free(rxkad_ci_req); 1243 } 1244 1245 /* 1246 * RxRPC Kerberos-based security 1247 */ 1248 const struct rxrpc_security rxkad = { 1249 .name = "rxkad", 1250 .security_index = RXRPC_SECURITY_RXKAD, 1251 .no_key_abort = RXKADUNKNOWNKEY, 1252 .init = rxkad_init, 1253 .exit = rxkad_exit, 1254 .preparse_server_key = rxkad_preparse_server_key, 1255 .free_preparse_server_key = rxkad_free_preparse_server_key, 1256 .destroy_server_key = rxkad_destroy_server_key, 1257 .init_connection_security = rxkad_init_connection_security, 1258 .how_much_data = rxkad_how_much_data, 1259 .secure_packet = rxkad_secure_packet, 1260 .verify_packet = rxkad_verify_packet, 1261 .free_call_crypto = rxkad_free_call_crypto, 1262 .issue_challenge = rxkad_issue_challenge, 1263 .respond_to_challenge = rxkad_respond_to_challenge, 1264 .verify_response = rxkad_verify_response, 1265 .clear = rxkad_clear, 1266 }; 1267