1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 /* 22 * Copyright (c) 2001, 2010, Oracle and/or its affiliates. All rights reserved. 23 * Copyright (c) 2012 Nexenta Systems, Inc. All rights reserved. 24 * Copyright 2017 Joyent, Inc. 25 */ 26 27 #include <sys/param.h> 28 #include <sys/types.h> 29 #include <sys/stream.h> 30 #include <sys/strsubr.h> 31 #include <sys/strsun.h> 32 #include <sys/stropts.h> 33 #include <sys/zone.h> 34 #include <sys/vnode.h> 35 #include <sys/sysmacros.h> 36 #define _SUN_TPI_VERSION 2 37 #include <sys/tihdr.h> 38 #include <sys/timod.h> 39 #include <sys/ddi.h> 40 #include <sys/sunddi.h> 41 #include <sys/mkdev.h> 42 #include <sys/debug.h> 43 #include <sys/kmem.h> 44 #include <sys/cmn_err.h> 45 #include <sys/suntpi.h> 46 #include <sys/policy.h> 47 #include <sys/dls.h> 48 49 #include <sys/socket.h> 50 #include <netinet/in.h> 51 #include <net/pfkeyv2.h> 52 #include <net/pfpolicy.h> 53 54 #include <inet/common.h> 55 #include <netinet/ip6.h> 56 #include <inet/ip.h> 57 #include <inet/ip6.h> 58 #include <inet/mi.h> 59 #include <inet/proto_set.h> 60 #include <inet/nd.h> 61 #include <inet/ip_if.h> 62 #include <inet/optcom.h> 63 #include <inet/ipsec_impl.h> 64 #include <inet/spdsock.h> 65 #include <inet/sadb.h> 66 #include <inet/iptun.h> 67 #include <inet/iptun/iptun_impl.h> 68 69 #include <sys/isa_defs.h> 70 71 #include <c2/audit.h> 72 73 /* 74 * This is a transport provider for the PF_POLICY IPsec policy 75 * management socket, which provides a management interface into the 76 * SPD, allowing policy rules to be added, deleted, and queried. 77 * 78 * This effectively replaces the old private SIOC*IPSECONFIG ioctls 79 * with an extensible interface which will hopefully be public some 80 * day. 81 * 82 * See <net/pfpolicy.h> for more details on the protocol. 83 * 84 * We link against drv/ip and call directly into it to manipulate the 85 * SPD; see ipsec_impl.h for the policy data structures and spd.c for 86 * the code which maintains them. 87 * 88 * The MT model of this is QPAIR with the addition of some explicit 89 * locking to protect system-wide policy data structures. 90 */ 91 92 static vmem_t *spdsock_vmem; /* for minor numbers. */ 93 94 #define ALIGNED64(x) IS_P2ALIGNED((x), sizeof (uint64_t)) 95 96 /* Default structure copied into T_INFO_ACK messages (from rts.c...) */ 97 static struct T_info_ack spdsock_g_t_info_ack = { 98 T_INFO_ACK, 99 T_INFINITE, /* TSDU_size. Maximum size messages. */ 100 T_INVALID, /* ETSDU_size. No expedited data. */ 101 T_INVALID, /* CDATA_size. No connect data. */ 102 T_INVALID, /* DDATA_size. No disconnect data. */ 103 0, /* ADDR_size. */ 104 0, /* OPT_size. No user-settable options */ 105 64 * 1024, /* TIDU_size. spdsock allows maximum size messages. */ 106 T_COTS, /* SERV_type. spdsock supports connection oriented. */ 107 TS_UNBND, /* CURRENT_state. This is set from spdsock_state. */ 108 (XPG4_1) /* Provider flags */ 109 }; 110 111 /* Named Dispatch Parameter Management Structure */ 112 typedef struct spdsockparam_s { 113 uint_t spdsock_param_min; 114 uint_t spdsock_param_max; 115 uint_t spdsock_param_value; 116 char *spdsock_param_name; 117 } spdsockparam_t; 118 119 /* 120 * Table of NDD variables supported by spdsock. These are loaded into 121 * spdsock_g_nd in spdsock_init_nd. 122 * All of these are alterable, within the min/max values given, at run time. 123 */ 124 static spdsockparam_t lcl_param_arr[] = { 125 /* min max value name */ 126 { 4096, 65536, 8192, "spdsock_xmit_hiwat"}, 127 { 0, 65536, 1024, "spdsock_xmit_lowat"}, 128 { 4096, 65536, 8192, "spdsock_recv_hiwat"}, 129 { 65536, 1024*1024*1024, 256*1024, "spdsock_max_buf"}, 130 { 0, 3, 0, "spdsock_debug"}, 131 }; 132 #define spds_xmit_hiwat spds_params[0].spdsock_param_value 133 #define spds_xmit_lowat spds_params[1].spdsock_param_value 134 #define spds_recv_hiwat spds_params[2].spdsock_param_value 135 #define spds_max_buf spds_params[3].spdsock_param_value 136 #define spds_debug spds_params[4].spdsock_param_value 137 138 #define ss0dbg(a) printf a 139 /* NOTE: != 0 instead of > 0 so lint doesn't complain. */ 140 #define ss1dbg(spds, a) if (spds->spds_debug != 0) printf a 141 #define ss2dbg(spds, a) if (spds->spds_debug > 1) printf a 142 #define ss3dbg(spds, a) if (spds->spds_debug > 2) printf a 143 144 #define RESET_SPDSOCK_DUMP_POLHEAD(ss, iph) { \ 145 ASSERT(RW_READ_HELD(&(iph)->iph_lock)); \ 146 (ss)->spdsock_dump_head = (iph); \ 147 (ss)->spdsock_dump_gen = (iph)->iph_gen; \ 148 (ss)->spdsock_dump_cur_type = 0; \ 149 (ss)->spdsock_dump_cur_af = IPSEC_AF_V4; \ 150 (ss)->spdsock_dump_cur_rule = NULL; \ 151 (ss)->spdsock_dump_count = 0; \ 152 (ss)->spdsock_dump_cur_chain = 0; \ 153 } 154 155 static int spdsock_close(queue_t *, int, cred_t *); 156 static int spdsock_open(queue_t *, dev_t *, int, int, cred_t *); 157 static int spdsock_wput(queue_t *, mblk_t *); 158 static int spdsock_wsrv(queue_t *); 159 static int spdsock_rsrv(queue_t *); 160 static void *spdsock_stack_init(netstackid_t stackid, netstack_t *ns); 161 static void spdsock_stack_shutdown(netstackid_t stackid, void *arg); 162 static void spdsock_stack_fini(netstackid_t stackid, void *arg); 163 static void spdsock_loadcheck(void *); 164 static void spdsock_merge_algs(spd_stack_t *); 165 static void spdsock_flush_one(ipsec_policy_head_t *, netstack_t *); 166 static mblk_t *spdsock_dump_next_record(spdsock_t *); 167 static void update_iptun_policy(ipsec_tun_pol_t *); 168 169 static struct module_info info = { 170 5138, "spdsock", 1, INFPSZ, 512, 128 171 }; 172 173 static struct qinit rinit = { 174 NULL, spdsock_rsrv, spdsock_open, spdsock_close, 175 NULL, &info 176 }; 177 178 static struct qinit winit = { 179 spdsock_wput, spdsock_wsrv, NULL, NULL, NULL, &info 180 }; 181 182 struct streamtab spdsockinfo = { 183 &rinit, &winit 184 }; 185 186 /* mapping from alg type to protocol number, as per RFC 2407 */ 187 static const uint_t algproto[] = { 188 PROTO_IPSEC_AH, 189 PROTO_IPSEC_ESP, 190 }; 191 192 #define NALGPROTOS (sizeof (algproto) / sizeof (algproto[0])) 193 194 /* mapping from kernel exec mode to spdsock exec mode */ 195 static const uint_t execmodes[] = { 196 SPD_ALG_EXEC_MODE_SYNC, 197 SPD_ALG_EXEC_MODE_ASYNC 198 }; 199 200 #define NEXECMODES (sizeof (execmodes) / sizeof (execmodes[0])) 201 202 #define ALL_ACTIVE_POLHEADS ((ipsec_policy_head_t *)-1) 203 #define ALL_INACTIVE_POLHEADS ((ipsec_policy_head_t *)-2) 204 205 #define ITP_NAME(itp) (itp != NULL ? itp->itp_name : NULL) 206 207 /* ARGSUSED */ 208 static int 209 spdsock_param_get( 210 queue_t *q, 211 mblk_t *mp, 212 caddr_t cp, 213 cred_t *cr) 214 { 215 spdsockparam_t *spdsockpa = (spdsockparam_t *)cp; 216 uint_t value; 217 spdsock_t *ss = (spdsock_t *)q->q_ptr; 218 spd_stack_t *spds = ss->spdsock_spds; 219 220 mutex_enter(&spds->spds_param_lock); 221 value = spdsockpa->spdsock_param_value; 222 mutex_exit(&spds->spds_param_lock); 223 224 (void) mi_mpprintf(mp, "%u", value); 225 return (0); 226 } 227 228 /* This routine sets an NDD variable in a spdsockparam_t structure. */ 229 /* ARGSUSED */ 230 static int 231 spdsock_param_set( 232 queue_t *q, 233 mblk_t *mp, 234 char *value, 235 caddr_t cp, 236 cred_t *cr) 237 { 238 ulong_t new_value; 239 spdsockparam_t *spdsockpa = (spdsockparam_t *)cp; 240 spdsock_t *ss = (spdsock_t *)q->q_ptr; 241 spd_stack_t *spds = ss->spdsock_spds; 242 243 /* Convert the value from a string into a long integer. */ 244 if (ddi_strtoul(value, NULL, 10, &new_value) != 0) 245 return (EINVAL); 246 247 mutex_enter(&spds->spds_param_lock); 248 /* 249 * Fail the request if the new value does not lie within the 250 * required bounds. 251 */ 252 if (new_value < spdsockpa->spdsock_param_min || 253 new_value > spdsockpa->spdsock_param_max) { 254 mutex_exit(&spds->spds_param_lock); 255 return (EINVAL); 256 } 257 258 /* Set the new value */ 259 spdsockpa->spdsock_param_value = new_value; 260 mutex_exit(&spds->spds_param_lock); 261 262 return (0); 263 } 264 265 /* 266 * Initialize at module load time 267 */ 268 boolean_t 269 spdsock_ddi_init(void) 270 { 271 spdsock_max_optsize = optcom_max_optsize( 272 spdsock_opt_obj.odb_opt_des_arr, spdsock_opt_obj.odb_opt_arr_cnt); 273 274 spdsock_vmem = vmem_create("spdsock", (void *)1, MAXMIN, 1, 275 NULL, NULL, NULL, 1, VM_SLEEP | VMC_IDENTIFIER); 276 277 /* 278 * We want to be informed each time a stack is created or 279 * destroyed in the kernel, so we can maintain the 280 * set of spd_stack_t's. 281 */ 282 netstack_register(NS_SPDSOCK, spdsock_stack_init, 283 spdsock_stack_shutdown, spdsock_stack_fini); 284 285 return (B_TRUE); 286 } 287 288 /* 289 * Walk through the param array specified registering each element with the 290 * named dispatch handler. 291 */ 292 static boolean_t 293 spdsock_param_register(IDP *ndp, spdsockparam_t *ssp, int cnt) 294 { 295 for (; cnt-- > 0; ssp++) { 296 if (ssp->spdsock_param_name != NULL && 297 ssp->spdsock_param_name[0]) { 298 if (!nd_load(ndp, 299 ssp->spdsock_param_name, 300 spdsock_param_get, spdsock_param_set, 301 (caddr_t)ssp)) { 302 nd_free(ndp); 303 return (B_FALSE); 304 } 305 } 306 } 307 return (B_TRUE); 308 } 309 310 /* 311 * Initialize for each stack instance 312 */ 313 /* ARGSUSED */ 314 static void * 315 spdsock_stack_init(netstackid_t stackid, netstack_t *ns) 316 { 317 spd_stack_t *spds; 318 spdsockparam_t *ssp; 319 320 spds = (spd_stack_t *)kmem_zalloc(sizeof (*spds), KM_SLEEP); 321 spds->spds_netstack = ns; 322 323 ASSERT(spds->spds_g_nd == NULL); 324 325 ssp = (spdsockparam_t *)kmem_alloc(sizeof (lcl_param_arr), KM_SLEEP); 326 spds->spds_params = ssp; 327 bcopy(lcl_param_arr, ssp, sizeof (lcl_param_arr)); 328 329 (void) spdsock_param_register(&spds->spds_g_nd, ssp, 330 A_CNT(lcl_param_arr)); 331 332 mutex_init(&spds->spds_param_lock, NULL, MUTEX_DEFAULT, NULL); 333 mutex_init(&spds->spds_alg_lock, NULL, MUTEX_DEFAULT, NULL); 334 335 return (spds); 336 } 337 338 void 339 spdsock_ddi_destroy(void) 340 { 341 vmem_destroy(spdsock_vmem); 342 343 netstack_unregister(NS_SPDSOCK); 344 } 345 346 /* 347 * Do pre-removal cleanup. 348 */ 349 /* ARGSUSED */ 350 static void 351 spdsock_stack_shutdown(netstackid_t stackid, void *arg) 352 { 353 spd_stack_t *spds = (spd_stack_t *)arg; 354 355 if (spds->spds_mp_algs != NULL) { 356 freemsg(spds->spds_mp_algs); 357 spds->spds_mp_algs = NULL; 358 } 359 } 360 361 /* ARGSUSED */ 362 static void 363 spdsock_stack_fini(netstackid_t stackid, void *arg) 364 { 365 spd_stack_t *spds = (spd_stack_t *)arg; 366 367 ASSERT(spds->spds_mp_algs == NULL); 368 mutex_destroy(&spds->spds_param_lock); 369 mutex_destroy(&spds->spds_alg_lock); 370 nd_free(&spds->spds_g_nd); 371 kmem_free(spds->spds_params, sizeof (lcl_param_arr)); 372 spds->spds_params = NULL; 373 374 kmem_free(spds, sizeof (*spds)); 375 } 376 377 /* 378 * NOTE: large quantities of this should be shared with keysock. 379 * Would be nice to combine some of this into a common module, but 380 * not possible given time pressures. 381 */ 382 383 /* 384 * High-level reality checking of extensions. 385 */ 386 /* ARGSUSED */ /* XXX */ 387 static boolean_t 388 ext_check(spd_ext_t *ext) 389 { 390 spd_if_t *tunname = (spd_if_t *)ext; 391 int i; 392 char *idstr; 393 394 if (ext->spd_ext_type == SPD_EXT_TUN_NAME) { 395 /* (NOTE: Modified from SADB_EXT_IDENTITY..) */ 396 397 /* 398 * Make sure the strings in these identities are 399 * null-terminated. Let's "proactively" null-terminate the 400 * string at the last byte if it's not terminated sooner. 401 */ 402 i = SPD_64TO8(tunname->spd_if_len) - sizeof (spd_if_t); 403 idstr = (char *)(tunname + 1); 404 while (*idstr != '\0' && i > 0) { 405 i--; 406 idstr++; 407 } 408 if (i == 0) { 409 /* 410 * I.e., if the bozo user didn't NULL-terminate the 411 * string... 412 */ 413 idstr--; 414 *idstr = '\0'; 415 } 416 } 417 return (B_TRUE); /* For now... */ 418 } 419 420 421 422 /* Return values for spdsock_get_ext(). */ 423 #define KGE_OK 0 424 #define KGE_DUP 1 425 #define KGE_UNK 2 426 #define KGE_LEN 3 427 #define KGE_CHK 4 428 429 /* 430 * Parse basic extension headers and return in the passed-in pointer vector. 431 * Return values include: 432 * 433 * KGE_OK Everything's nice and parsed out. 434 * If there are no extensions, place NULL in extv[0]. 435 * KGE_DUP There is a duplicate extension. 436 * First instance in appropriate bin. First duplicate in 437 * extv[0]. 438 * KGE_UNK Unknown extension type encountered. extv[0] contains 439 * unknown header. 440 * KGE_LEN Extension length error. 441 * KGE_CHK High-level reality check failed on specific extension. 442 * 443 * My apologies for some of the pointer arithmetic in here. I'm thinking 444 * like an assembly programmer, yet trying to make the compiler happy. 445 */ 446 static int 447 spdsock_get_ext(spd_ext_t *extv[], spd_msg_t *basehdr, uint_t msgsize) 448 { 449 bzero(extv, sizeof (spd_ext_t *) * (SPD_EXT_MAX + 1)); 450 451 /* Use extv[0] as the "current working pointer". */ 452 453 extv[0] = (spd_ext_t *)(basehdr + 1); 454 455 while (extv[0] < (spd_ext_t *)(((uint8_t *)basehdr) + msgsize)) { 456 /* Check for unknown headers. */ 457 if (extv[0]->spd_ext_type == 0 || 458 extv[0]->spd_ext_type > SPD_EXT_MAX) 459 return (KGE_UNK); 460 461 /* 462 * Check length. Use uint64_t because extlen is in units 463 * of 64-bit words. If length goes beyond the msgsize, 464 * return an error. (Zero length also qualifies here.) 465 */ 466 if (extv[0]->spd_ext_len == 0 || 467 (void *)((uint64_t *)extv[0] + extv[0]->spd_ext_len) > 468 (void *)((uint8_t *)basehdr + msgsize)) 469 return (KGE_LEN); 470 471 /* Check for redundant headers. */ 472 if (extv[extv[0]->spd_ext_type] != NULL) 473 return (KGE_DUP); 474 475 /* 476 * Reality check the extension if possible at the spdsock 477 * level. 478 */ 479 if (!ext_check(extv[0])) 480 return (KGE_CHK); 481 482 /* If I make it here, assign the appropriate bin. */ 483 extv[extv[0]->spd_ext_type] = extv[0]; 484 485 /* Advance pointer (See above for uint64_t ptr reasoning.) */ 486 extv[0] = (spd_ext_t *) 487 ((uint64_t *)extv[0] + extv[0]->spd_ext_len); 488 } 489 490 /* Everything's cool. */ 491 492 /* 493 * If extv[0] == NULL, then there are no extension headers in this 494 * message. Ensure that this is the case. 495 */ 496 if (extv[0] == (spd_ext_t *)(basehdr + 1)) 497 extv[0] = NULL; 498 499 return (KGE_OK); 500 } 501 502 static const int bad_ext_diag[] = { 503 SPD_DIAGNOSTIC_MALFORMED_LCLPORT, 504 SPD_DIAGNOSTIC_MALFORMED_REMPORT, 505 SPD_DIAGNOSTIC_MALFORMED_PROTO, 506 SPD_DIAGNOSTIC_MALFORMED_LCLADDR, 507 SPD_DIAGNOSTIC_MALFORMED_REMADDR, 508 SPD_DIAGNOSTIC_MALFORMED_ACTION, 509 SPD_DIAGNOSTIC_MALFORMED_RULE, 510 SPD_DIAGNOSTIC_MALFORMED_RULESET, 511 SPD_DIAGNOSTIC_MALFORMED_ICMP_TYPECODE 512 }; 513 514 static const int dup_ext_diag[] = { 515 SPD_DIAGNOSTIC_DUPLICATE_LCLPORT, 516 SPD_DIAGNOSTIC_DUPLICATE_REMPORT, 517 SPD_DIAGNOSTIC_DUPLICATE_PROTO, 518 SPD_DIAGNOSTIC_DUPLICATE_LCLADDR, 519 SPD_DIAGNOSTIC_DUPLICATE_REMADDR, 520 SPD_DIAGNOSTIC_DUPLICATE_ACTION, 521 SPD_DIAGNOSTIC_DUPLICATE_RULE, 522 SPD_DIAGNOSTIC_DUPLICATE_RULESET, 523 SPD_DIAGNOSTIC_DUPLICATE_ICMP_TYPECODE 524 }; 525 526 /* 527 * Transmit a PF_POLICY error message to the instance either pointed to 528 * by ks, the instance with serial number serial, or more, depending. 529 * 530 * The faulty message (or a reasonable facsimile thereof) is in mp. 531 * This function will free mp or recycle it for delivery, thereby causing 532 * the stream head to free it. 533 */ 534 static void 535 spdsock_error(queue_t *q, mblk_t *mp, int error, int diagnostic) 536 { 537 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 538 539 ASSERT(mp->b_datap->db_type == M_DATA); 540 541 if (spmsg->spd_msg_type < SPD_MIN || 542 spmsg->spd_msg_type > SPD_MAX) 543 spmsg->spd_msg_type = SPD_RESERVED; 544 545 /* 546 * Strip out extension headers. 547 */ 548 ASSERT(mp->b_rptr + sizeof (*spmsg) <= mp->b_datap->db_lim); 549 mp->b_wptr = mp->b_rptr + sizeof (*spmsg); 550 spmsg->spd_msg_len = SPD_8TO64(sizeof (spd_msg_t)); 551 spmsg->spd_msg_errno = (uint8_t)error; 552 spmsg->spd_msg_diagnostic = (uint16_t)diagnostic; 553 554 qreply(q, mp); 555 } 556 557 static void 558 spdsock_diag(queue_t *q, mblk_t *mp, int diagnostic) 559 { 560 spdsock_error(q, mp, EINVAL, diagnostic); 561 } 562 563 static void 564 spd_echo(queue_t *q, mblk_t *mp) 565 { 566 qreply(q, mp); 567 } 568 569 /* 570 * Do NOT consume a reference to itp. 571 */ 572 /*ARGSUSED*/ 573 static void 574 spdsock_flush_node(ipsec_tun_pol_t *itp, void *cookie, netstack_t *ns) 575 { 576 boolean_t active = (boolean_t)cookie; 577 ipsec_policy_head_t *iph; 578 579 iph = active ? itp->itp_policy : itp->itp_inactive; 580 IPPH_REFHOLD(iph); 581 mutex_enter(&itp->itp_lock); 582 spdsock_flush_one(iph, ns); /* Releases iph refhold. */ 583 if (active) 584 itp->itp_flags &= ~ITPF_PFLAGS; 585 else 586 itp->itp_flags &= ~ITPF_IFLAGS; 587 mutex_exit(&itp->itp_lock); 588 /* SPD_FLUSH is worth a tunnel MTU check. */ 589 update_iptun_policy(itp); 590 } 591 592 /* 593 * Clear out one polhead. 594 */ 595 static void 596 spdsock_flush_one(ipsec_policy_head_t *iph, netstack_t *ns) 597 { 598 rw_enter(&iph->iph_lock, RW_WRITER); 599 ipsec_polhead_flush(iph, ns); 600 rw_exit(&iph->iph_lock); 601 IPPH_REFRELE(iph, ns); 602 } 603 604 static void 605 spdsock_flush(queue_t *q, ipsec_policy_head_t *iph, ipsec_tun_pol_t *itp, 606 mblk_t *mp) 607 { 608 boolean_t active; 609 spdsock_t *ss = (spdsock_t *)q->q_ptr; 610 netstack_t *ns = ss->spdsock_spds->spds_netstack; 611 uint32_t auditing = AU_AUDITING(); 612 613 if (iph != ALL_ACTIVE_POLHEADS && iph != ALL_INACTIVE_POLHEADS) { 614 spdsock_flush_one(iph, ns); 615 if (auditing) { 616 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 617 cred_t *cr; 618 pid_t cpid; 619 620 cr = msg_getcred(mp, &cpid); 621 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 622 audit_pf_policy(SPD_FLUSH, cr, ns, 623 ITP_NAME(itp), active, 0, cpid); 624 } 625 } else { 626 active = (iph == ALL_ACTIVE_POLHEADS); 627 628 /* First flush the global policy. */ 629 spdsock_flush_one(active ? ipsec_system_policy(ns) : 630 ipsec_inactive_policy(ns), ns); 631 if (auditing) { 632 cred_t *cr; 633 pid_t cpid; 634 635 cr = msg_getcred(mp, &cpid); 636 audit_pf_policy(SPD_FLUSH, cr, ns, NULL, 637 active, 0, cpid); 638 } 639 /* Then flush every tunnel's appropriate one. */ 640 itp_walk(spdsock_flush_node, (void *)active, ns); 641 if (auditing) { 642 cred_t *cr; 643 pid_t cpid; 644 645 cr = msg_getcred(mp, &cpid); 646 audit_pf_policy(SPD_FLUSH, cr, ns, 647 "all tunnels", active, 0, cpid); 648 } 649 } 650 651 spd_echo(q, mp); 652 } 653 654 static boolean_t 655 spdsock_ext_to_sel(spd_ext_t **extv, ipsec_selkey_t *sel, int *diag) 656 { 657 bzero(sel, sizeof (*sel)); 658 659 if (extv[SPD_EXT_PROTO] != NULL) { 660 struct spd_proto *pr = 661 (struct spd_proto *)extv[SPD_EXT_PROTO]; 662 sel->ipsl_proto = pr->spd_proto_number; 663 sel->ipsl_valid |= IPSL_PROTOCOL; 664 } 665 if (extv[SPD_EXT_LCLPORT] != NULL) { 666 struct spd_portrange *pr = 667 (struct spd_portrange *)extv[SPD_EXT_LCLPORT]; 668 sel->ipsl_lport = pr->spd_ports_minport; 669 sel->ipsl_valid |= IPSL_LOCAL_PORT; 670 } 671 if (extv[SPD_EXT_REMPORT] != NULL) { 672 struct spd_portrange *pr = 673 (struct spd_portrange *)extv[SPD_EXT_REMPORT]; 674 sel->ipsl_rport = pr->spd_ports_minport; 675 sel->ipsl_valid |= IPSL_REMOTE_PORT; 676 } 677 678 if (extv[SPD_EXT_ICMP_TYPECODE] != NULL) { 679 struct spd_typecode *tc= 680 (struct spd_typecode *)extv[SPD_EXT_ICMP_TYPECODE]; 681 682 sel->ipsl_valid |= IPSL_ICMP_TYPE; 683 sel->ipsl_icmp_type = tc->spd_typecode_type; 684 if (tc->spd_typecode_type_end < tc->spd_typecode_type) 685 sel->ipsl_icmp_type_end = tc->spd_typecode_type; 686 else 687 sel->ipsl_icmp_type_end = tc->spd_typecode_type_end; 688 689 if (tc->spd_typecode_code != 255) { 690 sel->ipsl_valid |= IPSL_ICMP_CODE; 691 sel->ipsl_icmp_code = tc->spd_typecode_code; 692 if (tc->spd_typecode_code_end < tc->spd_typecode_code) 693 sel->ipsl_icmp_code_end = tc->spd_typecode_code; 694 else 695 sel->ipsl_icmp_code_end = 696 tc->spd_typecode_code_end; 697 } 698 } 699 #define ADDR2SEL(sel, extv, field, pfield, extn, bit) \ 700 if ((extv)[(extn)] != NULL) { \ 701 uint_t addrlen; \ 702 struct spd_address *ap = \ 703 (struct spd_address *)((extv)[(extn)]); \ 704 addrlen = (ap->spd_address_af == AF_INET6) ? \ 705 IPV6_ADDR_LEN : IP_ADDR_LEN; \ 706 if (SPD_64TO8(ap->spd_address_len) < \ 707 (addrlen + sizeof (*ap))) { \ 708 *diag = SPD_DIAGNOSTIC_BAD_ADDR_LEN; \ 709 return (B_FALSE); \ 710 } \ 711 bcopy((ap+1), &((sel)->field), addrlen); \ 712 (sel)->pfield = ap->spd_address_prefixlen; \ 713 (sel)->ipsl_valid |= (bit); \ 714 (sel)->ipsl_valid |= (ap->spd_address_af == AF_INET6) ? \ 715 IPSL_IPV6 : IPSL_IPV4; \ 716 } 717 718 ADDR2SEL(sel, extv, ipsl_local, ipsl_local_pfxlen, 719 SPD_EXT_LCLADDR, IPSL_LOCAL_ADDR); 720 ADDR2SEL(sel, extv, ipsl_remote, ipsl_remote_pfxlen, 721 SPD_EXT_REMADDR, IPSL_REMOTE_ADDR); 722 723 if ((sel->ipsl_valid & (IPSL_IPV6|IPSL_IPV4)) == 724 (IPSL_IPV6|IPSL_IPV4)) { 725 *diag = SPD_DIAGNOSTIC_MIXED_AF; 726 return (B_FALSE); 727 } 728 729 #undef ADDR2SEL 730 731 return (B_TRUE); 732 } 733 734 static boolean_t 735 spd_convert_type(uint32_t type, ipsec_act_t *act) 736 { 737 switch (type) { 738 case SPD_ACTTYPE_DROP: 739 act->ipa_type = IPSEC_ACT_DISCARD; 740 return (B_TRUE); 741 742 case SPD_ACTTYPE_PASS: 743 act->ipa_type = IPSEC_ACT_CLEAR; 744 return (B_TRUE); 745 746 case SPD_ACTTYPE_IPSEC: 747 act->ipa_type = IPSEC_ACT_APPLY; 748 return (B_TRUE); 749 } 750 return (B_FALSE); 751 } 752 753 static boolean_t 754 spd_convert_flags(uint32_t flags, ipsec_act_t *act) 755 { 756 /* 757 * Note use of !! for boolean canonicalization. 758 */ 759 act->ipa_apply.ipp_use_ah = !!(flags & SPD_APPLY_AH); 760 act->ipa_apply.ipp_use_esp = !!(flags & SPD_APPLY_ESP); 761 act->ipa_apply.ipp_use_espa = !!(flags & SPD_APPLY_ESPA); 762 act->ipa_apply.ipp_use_se = !!(flags & SPD_APPLY_SE); 763 act->ipa_apply.ipp_use_unique = !!(flags & SPD_APPLY_UNIQUE); 764 return (B_TRUE); 765 } 766 767 static void 768 spdsock_reset_act(ipsec_act_t *act) 769 { 770 bzero(act, sizeof (*act)); 771 act->ipa_apply.ipp_espe_maxbits = IPSEC_MAX_KEYBITS; 772 act->ipa_apply.ipp_espa_maxbits = IPSEC_MAX_KEYBITS; 773 act->ipa_apply.ipp_ah_maxbits = IPSEC_MAX_KEYBITS; 774 } 775 776 /* 777 * Sanity check action against reality, and shrink-wrap key sizes.. 778 */ 779 static boolean_t 780 spdsock_check_action(ipsec_act_t *act, boolean_t tunnel_polhead, int *diag, 781 spd_stack_t *spds) 782 { 783 if (tunnel_polhead && act->ipa_apply.ipp_use_unique) { 784 *diag = SPD_DIAGNOSTIC_ADD_INCON_FLAGS; 785 return (B_FALSE); 786 } 787 if ((act->ipa_type != IPSEC_ACT_APPLY) && 788 (act->ipa_apply.ipp_use_ah || 789 act->ipa_apply.ipp_use_esp || 790 act->ipa_apply.ipp_use_espa || 791 act->ipa_apply.ipp_use_se || 792 act->ipa_apply.ipp_use_unique)) { 793 *diag = SPD_DIAGNOSTIC_ADD_INCON_FLAGS; 794 return (B_FALSE); 795 } 796 if ((act->ipa_type == IPSEC_ACT_APPLY) && 797 !act->ipa_apply.ipp_use_ah && 798 !act->ipa_apply.ipp_use_esp) { 799 *diag = SPD_DIAGNOSTIC_ADD_INCON_FLAGS; 800 return (B_FALSE); 801 } 802 return (ipsec_check_action(act, diag, spds->spds_netstack)); 803 } 804 805 /* 806 * We may be short a few error checks here.. 807 */ 808 static boolean_t 809 spdsock_ext_to_actvec(spd_ext_t **extv, ipsec_act_t **actpp, uint_t *nactp, 810 int *diag, spd_stack_t *spds) 811 { 812 struct spd_ext_actions *sactp = 813 (struct spd_ext_actions *)extv[SPD_EXT_ACTION]; 814 ipsec_act_t act, *actp, *endactp; 815 struct spd_attribute *attrp, *endattrp; 816 uint64_t *endp; 817 int nact; 818 boolean_t tunnel_polhead; 819 820 tunnel_polhead = (extv[SPD_EXT_TUN_NAME] != NULL && 821 (((struct spd_rule *)extv[SPD_EXT_RULE])->spd_rule_flags & 822 SPD_RULE_FLAG_TUNNEL)); 823 824 *actpp = NULL; 825 *nactp = 0; 826 827 if (sactp == NULL) { 828 *diag = SPD_DIAGNOSTIC_NO_ACTION_EXT; 829 return (B_FALSE); 830 } 831 832 /* 833 * Parse the "action" extension and convert into an action chain. 834 */ 835 836 nact = sactp->spd_actions_count; 837 838 endp = (uint64_t *)sactp; 839 endp += sactp->spd_actions_len; 840 endattrp = (struct spd_attribute *)endp; 841 842 actp = kmem_alloc(sizeof (*actp) * nact, KM_NOSLEEP); 843 if (actp == NULL) { 844 *diag = SPD_DIAGNOSTIC_ADD_NO_MEM; 845 return (B_FALSE); 846 } 847 *actpp = actp; 848 *nactp = nact; 849 endactp = actp + nact; 850 851 spdsock_reset_act(&act); 852 attrp = (struct spd_attribute *)(&sactp[1]); 853 854 for (; attrp < endattrp; attrp++) { 855 switch (attrp->spd_attr_tag) { 856 case SPD_ATTR_NOP: 857 break; 858 859 case SPD_ATTR_EMPTY: 860 spdsock_reset_act(&act); 861 break; 862 863 case SPD_ATTR_END: 864 attrp = endattrp; 865 /* FALLTHRU */ 866 case SPD_ATTR_NEXT: 867 if (actp >= endactp) { 868 *diag = SPD_DIAGNOSTIC_ADD_WRONG_ACT_COUNT; 869 goto fail; 870 } 871 if (!spdsock_check_action(&act, tunnel_polhead, 872 diag, spds)) 873 goto fail; 874 *actp++ = act; 875 spdsock_reset_act(&act); 876 break; 877 878 case SPD_ATTR_TYPE: 879 if (!spd_convert_type(attrp->spd_attr_value, &act)) { 880 *diag = SPD_DIAGNOSTIC_ADD_BAD_TYPE; 881 goto fail; 882 } 883 break; 884 885 case SPD_ATTR_FLAGS: 886 if (!tunnel_polhead && extv[SPD_EXT_TUN_NAME] != NULL) { 887 /* 888 * Set "sa unique" for transport-mode 889 * tunnels whether we want to or not. 890 */ 891 attrp->spd_attr_value |= SPD_APPLY_UNIQUE; 892 } 893 if (!spd_convert_flags(attrp->spd_attr_value, &act)) { 894 *diag = SPD_DIAGNOSTIC_ADD_BAD_FLAGS; 895 goto fail; 896 } 897 break; 898 899 case SPD_ATTR_AH_AUTH: 900 if (attrp->spd_attr_value == 0) { 901 *diag = SPD_DIAGNOSTIC_UNSUPP_AH_ALG; 902 goto fail; 903 } 904 act.ipa_apply.ipp_auth_alg = attrp->spd_attr_value; 905 break; 906 907 case SPD_ATTR_ESP_ENCR: 908 if (attrp->spd_attr_value == 0) { 909 *diag = SPD_DIAGNOSTIC_UNSUPP_ESP_ENCR_ALG; 910 goto fail; 911 } 912 act.ipa_apply.ipp_encr_alg = attrp->spd_attr_value; 913 break; 914 915 case SPD_ATTR_ESP_AUTH: 916 if (attrp->spd_attr_value == 0) { 917 *diag = SPD_DIAGNOSTIC_UNSUPP_ESP_AUTH_ALG; 918 goto fail; 919 } 920 act.ipa_apply.ipp_esp_auth_alg = attrp->spd_attr_value; 921 break; 922 923 case SPD_ATTR_ENCR_MINBITS: 924 act.ipa_apply.ipp_espe_minbits = attrp->spd_attr_value; 925 break; 926 927 case SPD_ATTR_ENCR_MAXBITS: 928 act.ipa_apply.ipp_espe_maxbits = attrp->spd_attr_value; 929 break; 930 931 case SPD_ATTR_AH_MINBITS: 932 act.ipa_apply.ipp_ah_minbits = attrp->spd_attr_value; 933 break; 934 935 case SPD_ATTR_AH_MAXBITS: 936 act.ipa_apply.ipp_ah_maxbits = attrp->spd_attr_value; 937 break; 938 939 case SPD_ATTR_ESPA_MINBITS: 940 act.ipa_apply.ipp_espa_minbits = attrp->spd_attr_value; 941 break; 942 943 case SPD_ATTR_ESPA_MAXBITS: 944 act.ipa_apply.ipp_espa_maxbits = attrp->spd_attr_value; 945 break; 946 947 case SPD_ATTR_LIFE_SOFT_TIME: 948 case SPD_ATTR_LIFE_HARD_TIME: 949 case SPD_ATTR_LIFE_SOFT_BYTES: 950 case SPD_ATTR_LIFE_HARD_BYTES: 951 break; 952 953 case SPD_ATTR_KM_PROTO: 954 act.ipa_apply.ipp_km_proto = attrp->spd_attr_value; 955 break; 956 957 case SPD_ATTR_KM_COOKIE: 958 act.ipa_apply.ipp_km_cookie = attrp->spd_attr_value; 959 break; 960 961 case SPD_ATTR_REPLAY_DEPTH: 962 act.ipa_apply.ipp_replay_depth = attrp->spd_attr_value; 963 break; 964 } 965 } 966 if (actp != endactp) { 967 *diag = SPD_DIAGNOSTIC_ADD_WRONG_ACT_COUNT; 968 goto fail; 969 } 970 971 return (B_TRUE); 972 fail: 973 ipsec_actvec_free(*actpp, nact); 974 *actpp = NULL; 975 return (B_FALSE); 976 } 977 978 typedef struct 979 { 980 ipsec_policy_t *pol; 981 int dir; 982 } tmprule_t; 983 984 static int 985 mkrule(ipsec_policy_head_t *iph, struct spd_rule *rule, 986 ipsec_selkey_t *sel, ipsec_act_t *actp, int nact, uint_t dir, uint_t af, 987 tmprule_t **rp, uint64_t *index, spd_stack_t *spds) 988 { 989 ipsec_policy_t *pol; 990 991 sel->ipsl_valid &= ~(IPSL_IPV6|IPSL_IPV4); 992 sel->ipsl_valid |= af; 993 994 pol = ipsec_policy_create(sel, actp, nact, rule->spd_rule_priority, 995 index, spds->spds_netstack); 996 if (pol == NULL) 997 return (ENOMEM); 998 999 (*rp)->pol = pol; 1000 (*rp)->dir = dir; 1001 (*rp)++; 1002 1003 if (!ipsec_check_policy(iph, pol, dir)) 1004 return (EEXIST); 1005 1006 rule->spd_rule_index = pol->ipsp_index; 1007 return (0); 1008 } 1009 1010 static int 1011 mkrulepair(ipsec_policy_head_t *iph, struct spd_rule *rule, 1012 ipsec_selkey_t *sel, ipsec_act_t *actp, int nact, uint_t dir, uint_t afs, 1013 tmprule_t **rp, uint64_t *index, spd_stack_t *spds) 1014 { 1015 int error; 1016 1017 if (afs & IPSL_IPV4) { 1018 error = mkrule(iph, rule, sel, actp, nact, dir, IPSL_IPV4, rp, 1019 index, spds); 1020 if (error != 0) 1021 return (error); 1022 } 1023 if (afs & IPSL_IPV6) { 1024 error = mkrule(iph, rule, sel, actp, nact, dir, IPSL_IPV6, rp, 1025 index, spds); 1026 if (error != 0) 1027 return (error); 1028 } 1029 return (0); 1030 } 1031 1032 1033 static void 1034 spdsock_addrule(queue_t *q, ipsec_policy_head_t *iph, mblk_t *mp, 1035 spd_ext_t **extv, ipsec_tun_pol_t *itp) 1036 { 1037 ipsec_selkey_t sel; 1038 ipsec_act_t *actp; 1039 uint_t nact; 1040 int diag = 0, error, afs; 1041 struct spd_rule *rule = (struct spd_rule *)extv[SPD_EXT_RULE]; 1042 tmprule_t rules[4], *rulep = &rules[0]; 1043 boolean_t tunnel_mode, empty_itp, active; 1044 uint64_t *index = (itp == NULL) ? NULL : &itp->itp_next_policy_index; 1045 spdsock_t *ss = (spdsock_t *)q->q_ptr; 1046 spd_stack_t *spds = ss->spdsock_spds; 1047 uint32_t auditing = AU_AUDITING(); 1048 1049 if (rule == NULL) { 1050 spdsock_diag(q, mp, SPD_DIAGNOSTIC_NO_RULE_EXT); 1051 if (auditing) { 1052 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1053 cred_t *cr; 1054 pid_t cpid; 1055 1056 cr = msg_getcred(mp, &cpid); 1057 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1058 audit_pf_policy(SPD_ADDRULE, cr, 1059 spds->spds_netstack, ITP_NAME(itp), active, 1060 SPD_DIAGNOSTIC_NO_RULE_EXT, cpid); 1061 } 1062 return; 1063 } 1064 1065 tunnel_mode = (rule->spd_rule_flags & SPD_RULE_FLAG_TUNNEL); 1066 1067 if (itp != NULL) { 1068 mutex_enter(&itp->itp_lock); 1069 ASSERT(itp->itp_policy == iph || itp->itp_inactive == iph); 1070 active = (itp->itp_policy == iph); 1071 if (ITP_P_ISACTIVE(itp, iph)) { 1072 /* Check for mix-and-match of tunnel/transport. */ 1073 if ((tunnel_mode && !ITP_P_ISTUNNEL(itp, iph)) || 1074 (!tunnel_mode && ITP_P_ISTUNNEL(itp, iph))) { 1075 mutex_exit(&itp->itp_lock); 1076 spdsock_error(q, mp, EBUSY, 0); 1077 return; 1078 } 1079 empty_itp = B_FALSE; 1080 } else { 1081 empty_itp = B_TRUE; 1082 itp->itp_flags = active ? ITPF_P_ACTIVE : ITPF_I_ACTIVE; 1083 if (tunnel_mode) 1084 itp->itp_flags |= active ? ITPF_P_TUNNEL : 1085 ITPF_I_TUNNEL; 1086 } 1087 } else { 1088 empty_itp = B_FALSE; 1089 } 1090 1091 if (rule->spd_rule_index != 0) { 1092 diag = SPD_DIAGNOSTIC_INVALID_RULE_INDEX; 1093 error = EINVAL; 1094 goto fail2; 1095 } 1096 1097 if (!spdsock_ext_to_sel(extv, &sel, &diag)) { 1098 error = EINVAL; 1099 goto fail2; 1100 } 1101 1102 if (itp != NULL) { 1103 if (tunnel_mode) { 1104 if (sel.ipsl_valid & 1105 (IPSL_REMOTE_PORT | IPSL_LOCAL_PORT)) { 1106 itp->itp_flags |= active ? 1107 ITPF_P_PER_PORT_SECURITY : 1108 ITPF_I_PER_PORT_SECURITY; 1109 } 1110 } else { 1111 /* 1112 * For now, we don't allow transport-mode on a tunnel 1113 * with ANY specific selectors. Bail if we have such 1114 * a request. 1115 */ 1116 if (sel.ipsl_valid & IPSL_WILDCARD) { 1117 diag = SPD_DIAGNOSTIC_NO_TUNNEL_SELECTORS; 1118 error = EINVAL; 1119 goto fail2; 1120 } 1121 } 1122 } 1123 1124 if (!spdsock_ext_to_actvec(extv, &actp, &nact, &diag, spds)) { 1125 error = EINVAL; 1126 goto fail2; 1127 } 1128 /* 1129 * If no addresses were specified, add both. 1130 */ 1131 afs = sel.ipsl_valid & (IPSL_IPV6|IPSL_IPV4); 1132 if (afs == 0) 1133 afs = (IPSL_IPV6|IPSL_IPV4); 1134 1135 rw_enter(&iph->iph_lock, RW_WRITER); 1136 1137 if (rule->spd_rule_flags & SPD_RULE_FLAG_OUTBOUND) { 1138 error = mkrulepair(iph, rule, &sel, actp, nact, 1139 IPSEC_TYPE_OUTBOUND, afs, &rulep, index, spds); 1140 if (error != 0) 1141 goto fail; 1142 } 1143 1144 if (rule->spd_rule_flags & SPD_RULE_FLAG_INBOUND) { 1145 error = mkrulepair(iph, rule, &sel, actp, nact, 1146 IPSEC_TYPE_INBOUND, afs, &rulep, index, spds); 1147 if (error != 0) 1148 goto fail; 1149 } 1150 1151 while ((--rulep) >= &rules[0]) { 1152 ipsec_enter_policy(iph, rulep->pol, rulep->dir, 1153 spds->spds_netstack); 1154 } 1155 rw_exit(&iph->iph_lock); 1156 if (itp != NULL) 1157 mutex_exit(&itp->itp_lock); 1158 1159 ipsec_actvec_free(actp, nact); 1160 spd_echo(q, mp); 1161 if (auditing) { 1162 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1163 cred_t *cr; 1164 pid_t cpid; 1165 1166 cr = msg_getcred(mp, &cpid); 1167 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1168 audit_pf_policy(SPD_ADDRULE, cr, spds->spds_netstack, 1169 ITP_NAME(itp), active, 0, cpid); 1170 } 1171 return; 1172 1173 fail: 1174 rw_exit(&iph->iph_lock); 1175 while ((--rulep) >= &rules[0]) 1176 IPPOL_REFRELE(rulep->pol); 1177 ipsec_actvec_free(actp, nact); 1178 fail2: 1179 if (itp != NULL) { 1180 if (empty_itp) 1181 itp->itp_flags = 0; 1182 mutex_exit(&itp->itp_lock); 1183 } 1184 spdsock_error(q, mp, error, diag); 1185 if (auditing) { 1186 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1187 cred_t *cr; 1188 pid_t cpid; 1189 1190 cr = msg_getcred(mp, &cpid); 1191 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1192 audit_pf_policy(SPD_ADDRULE, cr, spds->spds_netstack, 1193 ITP_NAME(itp), active, error, cpid); 1194 } 1195 } 1196 1197 void 1198 spdsock_deleterule(queue_t *q, ipsec_policy_head_t *iph, mblk_t *mp, 1199 spd_ext_t **extv, ipsec_tun_pol_t *itp) 1200 { 1201 ipsec_selkey_t sel; 1202 struct spd_rule *rule = (struct spd_rule *)extv[SPD_EXT_RULE]; 1203 int err, diag = 0; 1204 spdsock_t *ss = (spdsock_t *)q->q_ptr; 1205 netstack_t *ns = ss->spdsock_spds->spds_netstack; 1206 uint32_t auditing = AU_AUDITING(); 1207 1208 if (rule == NULL) { 1209 spdsock_diag(q, mp, SPD_DIAGNOSTIC_NO_RULE_EXT); 1210 if (auditing) { 1211 boolean_t active; 1212 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1213 cred_t *cr; 1214 pid_t cpid; 1215 1216 cr = msg_getcred(mp, &cpid); 1217 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1218 audit_pf_policy(SPD_DELETERULE, cr, ns, 1219 ITP_NAME(itp), active, SPD_DIAGNOSTIC_NO_RULE_EXT, 1220 cpid); 1221 } 1222 return; 1223 } 1224 1225 /* 1226 * Must enter itp_lock first to avoid deadlock. See tun.c's 1227 * set_sec_simple() for the other case of itp_lock and iph_lock. 1228 */ 1229 if (itp != NULL) 1230 mutex_enter(&itp->itp_lock); 1231 1232 if (rule->spd_rule_index != 0) { 1233 if (ipsec_policy_delete_index(iph, rule->spd_rule_index, ns) != 1234 0) { 1235 err = ESRCH; 1236 goto fail; 1237 } 1238 } else { 1239 if (!spdsock_ext_to_sel(extv, &sel, &diag)) { 1240 err = EINVAL; /* diag already set... */ 1241 goto fail; 1242 } 1243 1244 if ((rule->spd_rule_flags & SPD_RULE_FLAG_INBOUND) && 1245 !ipsec_policy_delete(iph, &sel, IPSEC_TYPE_INBOUND, ns)) { 1246 err = ESRCH; 1247 goto fail; 1248 } 1249 1250 if ((rule->spd_rule_flags & SPD_RULE_FLAG_OUTBOUND) && 1251 !ipsec_policy_delete(iph, &sel, IPSEC_TYPE_OUTBOUND, ns)) { 1252 err = ESRCH; 1253 goto fail; 1254 } 1255 } 1256 1257 if (itp != NULL) { 1258 ASSERT(iph == itp->itp_policy || iph == itp->itp_inactive); 1259 rw_enter(&iph->iph_lock, RW_READER); 1260 if (avl_numnodes(&iph->iph_rulebyid) == 0) { 1261 if (iph == itp->itp_policy) 1262 itp->itp_flags &= ~ITPF_PFLAGS; 1263 else 1264 itp->itp_flags &= ~ITPF_IFLAGS; 1265 } 1266 /* Can exit locks in any order. */ 1267 rw_exit(&iph->iph_lock); 1268 mutex_exit(&itp->itp_lock); 1269 } 1270 spd_echo(q, mp); 1271 if (auditing) { 1272 boolean_t active; 1273 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1274 cred_t *cr; 1275 pid_t cpid; 1276 1277 cr = msg_getcred(mp, &cpid); 1278 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1279 audit_pf_policy(SPD_DELETERULE, cr, ns, ITP_NAME(itp), 1280 active, 0, cpid); 1281 } 1282 return; 1283 fail: 1284 if (itp != NULL) 1285 mutex_exit(&itp->itp_lock); 1286 spdsock_error(q, mp, err, diag); 1287 if (auditing) { 1288 boolean_t active; 1289 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1290 cred_t *cr; 1291 pid_t cpid; 1292 1293 cr = msg_getcred(mp, &cpid); 1294 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1295 audit_pf_policy(SPD_DELETERULE, cr, ns, ITP_NAME(itp), 1296 active, err, cpid); 1297 } 1298 } 1299 1300 /* Do NOT consume a reference to itp. */ 1301 /* ARGSUSED */ 1302 static void 1303 spdsock_flip_node(ipsec_tun_pol_t *itp, void *ignoreme, netstack_t *ns) 1304 { 1305 mutex_enter(&itp->itp_lock); 1306 ITPF_SWAP(itp->itp_flags); 1307 ipsec_swap_policy(itp->itp_policy, itp->itp_inactive, ns); 1308 mutex_exit(&itp->itp_lock); 1309 /* SPD_FLIP is worth a tunnel MTU check. */ 1310 update_iptun_policy(itp); 1311 } 1312 1313 void 1314 spdsock_flip(queue_t *q, mblk_t *mp, spd_if_t *tunname) 1315 { 1316 char *tname; 1317 ipsec_tun_pol_t *itp; 1318 spdsock_t *ss = (spdsock_t *)q->q_ptr; 1319 netstack_t *ns = ss->spdsock_spds->spds_netstack; 1320 uint32_t auditing = AU_AUDITING(); 1321 1322 if (tunname != NULL) { 1323 tname = (char *)tunname->spd_if_name; 1324 if (*tname == '\0') { 1325 /* can't fail */ 1326 ipsec_swap_global_policy(ns); 1327 if (auditing) { 1328 boolean_t active; 1329 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1330 cred_t *cr; 1331 pid_t cpid; 1332 1333 cr = msg_getcred(mp, &cpid); 1334 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1335 audit_pf_policy(SPD_FLIP, cr, ns, 1336 NULL, active, 0, cpid); 1337 } 1338 itp_walk(spdsock_flip_node, NULL, ns); 1339 if (auditing) { 1340 boolean_t active; 1341 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1342 cred_t *cr; 1343 pid_t cpid; 1344 1345 cr = msg_getcred(mp, &cpid); 1346 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1347 audit_pf_policy(SPD_FLIP, cr, ns, 1348 "all tunnels", active, 0, cpid); 1349 } 1350 } else { 1351 itp = get_tunnel_policy(tname, ns); 1352 if (itp == NULL) { 1353 /* Better idea for "tunnel not found"? */ 1354 spdsock_error(q, mp, ESRCH, 0); 1355 if (auditing) { 1356 boolean_t active; 1357 spd_msg_t *spmsg = 1358 (spd_msg_t *)mp->b_rptr; 1359 cred_t *cr; 1360 pid_t cpid; 1361 1362 cr = msg_getcred(mp, &cpid); 1363 active = (spmsg->spd_msg_spdid == 1364 SPD_ACTIVE); 1365 audit_pf_policy(SPD_FLIP, cr, ns, 1366 ITP_NAME(itp), active, 1367 ESRCH, cpid); 1368 } 1369 return; 1370 } 1371 spdsock_flip_node(itp, NULL, ns); 1372 if (auditing) { 1373 boolean_t active; 1374 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1375 cred_t *cr; 1376 pid_t cpid; 1377 1378 cr = msg_getcred(mp, &cpid); 1379 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1380 audit_pf_policy(SPD_FLIP, cr, ns, 1381 ITP_NAME(itp), active, 0, cpid); 1382 } 1383 ITP_REFRELE(itp, ns); 1384 } 1385 } else { 1386 ipsec_swap_global_policy(ns); /* can't fail */ 1387 if (auditing) { 1388 boolean_t active; 1389 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 1390 cred_t *cr; 1391 pid_t cpid; 1392 1393 cr = msg_getcred(mp, &cpid); 1394 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 1395 audit_pf_policy(SPD_FLIP, cr, 1396 ns, NULL, active, 0, cpid); 1397 } 1398 } 1399 spd_echo(q, mp); 1400 } 1401 1402 /* 1403 * Unimplemented feature 1404 */ 1405 /* ARGSUSED */ 1406 static void 1407 spdsock_lookup(queue_t *q, ipsec_policy_head_t *iph, mblk_t *mp, 1408 spd_ext_t **extv, ipsec_tun_pol_t *itp) 1409 { 1410 spdsock_error(q, mp, EINVAL, 0); 1411 } 1412 1413 1414 static mblk_t * 1415 spdsock_dump_ruleset(mblk_t *req, ipsec_policy_head_t *iph, 1416 uint32_t count, uint16_t error) 1417 { 1418 size_t len = sizeof (spd_ruleset_ext_t) + sizeof (spd_msg_t); 1419 spd_msg_t *msg; 1420 spd_ruleset_ext_t *ruleset; 1421 mblk_t *m = allocb(len, BPRI_HI); 1422 1423 ASSERT(RW_READ_HELD(&iph->iph_lock)); 1424 1425 if (m == NULL) { 1426 return (NULL); 1427 } 1428 msg = (spd_msg_t *)m->b_rptr; 1429 ruleset = (spd_ruleset_ext_t *)(&msg[1]); 1430 1431 m->b_wptr = (uint8_t *)&ruleset[1]; 1432 1433 *msg = *(spd_msg_t *)(req->b_rptr); 1434 msg->spd_msg_len = SPD_8TO64(len); 1435 msg->spd_msg_errno = error; 1436 1437 ruleset->spd_ruleset_len = SPD_8TO64(sizeof (*ruleset)); 1438 ruleset->spd_ruleset_type = SPD_EXT_RULESET; 1439 ruleset->spd_ruleset_count = count; 1440 ruleset->spd_ruleset_version = iph->iph_gen; 1441 return (m); 1442 } 1443 1444 static mblk_t * 1445 spdsock_dump_finish(spdsock_t *ss, int error) 1446 { 1447 mblk_t *m; 1448 ipsec_policy_head_t *iph = ss->spdsock_dump_head; 1449 mblk_t *req = ss->spdsock_dump_req; 1450 netstack_t *ns = ss->spdsock_spds->spds_netstack; 1451 1452 rw_enter(&iph->iph_lock, RW_READER); 1453 m = spdsock_dump_ruleset(req, iph, ss->spdsock_dump_count, error); 1454 rw_exit(&iph->iph_lock); 1455 IPPH_REFRELE(iph, ns); 1456 if (ss->spdsock_itp != NULL) { 1457 ITP_REFRELE(ss->spdsock_itp, ns); 1458 ss->spdsock_itp = NULL; 1459 } 1460 ss->spdsock_dump_req = NULL; 1461 freemsg(req); 1462 1463 return (m); 1464 } 1465 1466 /* 1467 * Rule encoding functions. 1468 * We do a two-pass encode. 1469 * If base != NULL, fill in encoded rule part starting at base+offset. 1470 * Always return "offset" plus length of to-be-encoded data. 1471 */ 1472 static uint_t 1473 spdsock_encode_typecode(uint8_t *base, uint_t offset, uint8_t type, 1474 uint8_t type_end, uint8_t code, uint8_t code_end) 1475 { 1476 struct spd_typecode *tcp; 1477 1478 ASSERT(ALIGNED64(offset)); 1479 1480 if (base != NULL) { 1481 tcp = (struct spd_typecode *)(base + offset); 1482 tcp->spd_typecode_len = SPD_8TO64(sizeof (*tcp)); 1483 tcp->spd_typecode_exttype = SPD_EXT_ICMP_TYPECODE; 1484 tcp->spd_typecode_code = code; 1485 tcp->spd_typecode_type = type; 1486 tcp->spd_typecode_type_end = type_end; 1487 tcp->spd_typecode_code_end = code_end; 1488 } 1489 offset += sizeof (*tcp); 1490 1491 ASSERT(ALIGNED64(offset)); 1492 1493 return (offset); 1494 } 1495 1496 static uint_t 1497 spdsock_encode_proto(uint8_t *base, uint_t offset, uint8_t proto) 1498 { 1499 struct spd_proto *spp; 1500 1501 ASSERT(ALIGNED64(offset)); 1502 1503 if (base != NULL) { 1504 spp = (struct spd_proto *)(base + offset); 1505 spp->spd_proto_len = SPD_8TO64(sizeof (*spp)); 1506 spp->spd_proto_exttype = SPD_EXT_PROTO; 1507 spp->spd_proto_number = proto; 1508 spp->spd_proto_reserved1 = 0; 1509 spp->spd_proto_reserved2 = 0; 1510 } 1511 offset += sizeof (*spp); 1512 1513 ASSERT(ALIGNED64(offset)); 1514 1515 return (offset); 1516 } 1517 1518 static uint_t 1519 spdsock_encode_port(uint8_t *base, uint_t offset, uint16_t ext, uint16_t port) 1520 { 1521 struct spd_portrange *spp; 1522 1523 ASSERT(ALIGNED64(offset)); 1524 1525 if (base != NULL) { 1526 spp = (struct spd_portrange *)(base + offset); 1527 spp->spd_ports_len = SPD_8TO64(sizeof (*spp)); 1528 spp->spd_ports_exttype = ext; 1529 spp->spd_ports_minport = port; 1530 spp->spd_ports_maxport = port; 1531 } 1532 offset += sizeof (*spp); 1533 1534 ASSERT(ALIGNED64(offset)); 1535 1536 return (offset); 1537 } 1538 1539 static uint_t 1540 spdsock_encode_addr(uint8_t *base, uint_t offset, uint16_t ext, 1541 const ipsec_selkey_t *sel, const ipsec_addr_t *addr, uint_t pfxlen) 1542 { 1543 struct spd_address *sae; 1544 ipsec_addr_t *spdaddr; 1545 uint_t start = offset; 1546 uint_t addrlen; 1547 uint_t af; 1548 1549 if (sel->ipsl_valid & IPSL_IPV4) { 1550 af = AF_INET; 1551 addrlen = IP_ADDR_LEN; 1552 } else { 1553 af = AF_INET6; 1554 addrlen = IPV6_ADDR_LEN; 1555 } 1556 1557 ASSERT(ALIGNED64(offset)); 1558 1559 if (base != NULL) { 1560 sae = (struct spd_address *)(base + offset); 1561 sae->spd_address_exttype = ext; 1562 sae->spd_address_af = af; 1563 sae->spd_address_prefixlen = pfxlen; 1564 sae->spd_address_reserved2 = 0; 1565 1566 spdaddr = (ipsec_addr_t *)(&sae[1]); 1567 bcopy(addr, spdaddr, addrlen); 1568 } 1569 offset += sizeof (*sae); 1570 addrlen = roundup(addrlen, sizeof (uint64_t)); 1571 offset += addrlen; 1572 1573 ASSERT(ALIGNED64(offset)); 1574 1575 if (base != NULL) 1576 sae->spd_address_len = SPD_8TO64(offset - start); 1577 return (offset); 1578 } 1579 1580 static uint_t 1581 spdsock_encode_sel(uint8_t *base, uint_t offset, const ipsec_sel_t *sel) 1582 { 1583 const ipsec_selkey_t *selkey = &sel->ipsl_key; 1584 1585 if (selkey->ipsl_valid & IPSL_PROTOCOL) 1586 offset = spdsock_encode_proto(base, offset, selkey->ipsl_proto); 1587 if (selkey->ipsl_valid & IPSL_LOCAL_PORT) 1588 offset = spdsock_encode_port(base, offset, SPD_EXT_LCLPORT, 1589 selkey->ipsl_lport); 1590 if (selkey->ipsl_valid & IPSL_REMOTE_PORT) 1591 offset = spdsock_encode_port(base, offset, SPD_EXT_REMPORT, 1592 selkey->ipsl_rport); 1593 if (selkey->ipsl_valid & IPSL_REMOTE_ADDR) 1594 offset = spdsock_encode_addr(base, offset, SPD_EXT_REMADDR, 1595 selkey, &selkey->ipsl_remote, selkey->ipsl_remote_pfxlen); 1596 if (selkey->ipsl_valid & IPSL_LOCAL_ADDR) 1597 offset = spdsock_encode_addr(base, offset, SPD_EXT_LCLADDR, 1598 selkey, &selkey->ipsl_local, selkey->ipsl_local_pfxlen); 1599 if (selkey->ipsl_valid & IPSL_ICMP_TYPE) { 1600 offset = spdsock_encode_typecode(base, offset, 1601 selkey->ipsl_icmp_type, selkey->ipsl_icmp_type_end, 1602 (selkey->ipsl_valid & IPSL_ICMP_CODE) ? 1603 selkey->ipsl_icmp_code : 255, 1604 (selkey->ipsl_valid & IPSL_ICMP_CODE) ? 1605 selkey->ipsl_icmp_code_end : 255); 1606 } 1607 return (offset); 1608 } 1609 1610 static uint_t 1611 spdsock_encode_actattr(uint8_t *base, uint_t offset, uint32_t tag, 1612 uint32_t value) 1613 { 1614 struct spd_attribute *attr; 1615 1616 ASSERT(ALIGNED64(offset)); 1617 1618 if (base != NULL) { 1619 attr = (struct spd_attribute *)(base + offset); 1620 attr->spd_attr_tag = tag; 1621 attr->spd_attr_value = value; 1622 } 1623 offset += sizeof (struct spd_attribute); 1624 1625 ASSERT(ALIGNED64(offset)); 1626 1627 return (offset); 1628 } 1629 1630 1631 #define EMIT(t, v) offset = spdsock_encode_actattr(base, offset, (t), (v)) 1632 1633 static uint_t 1634 spdsock_encode_action(uint8_t *base, uint_t offset, const ipsec_action_t *ap) 1635 { 1636 const struct ipsec_act *act = &(ap->ipa_act); 1637 uint_t flags; 1638 1639 EMIT(SPD_ATTR_EMPTY, 0); 1640 switch (act->ipa_type) { 1641 case IPSEC_ACT_DISCARD: 1642 case IPSEC_ACT_REJECT: 1643 EMIT(SPD_ATTR_TYPE, SPD_ACTTYPE_DROP); 1644 break; 1645 case IPSEC_ACT_BYPASS: 1646 case IPSEC_ACT_CLEAR: 1647 EMIT(SPD_ATTR_TYPE, SPD_ACTTYPE_PASS); 1648 break; 1649 1650 case IPSEC_ACT_APPLY: 1651 EMIT(SPD_ATTR_TYPE, SPD_ACTTYPE_IPSEC); 1652 flags = 0; 1653 if (act->ipa_apply.ipp_use_ah) 1654 flags |= SPD_APPLY_AH; 1655 if (act->ipa_apply.ipp_use_esp) 1656 flags |= SPD_APPLY_ESP; 1657 if (act->ipa_apply.ipp_use_espa) 1658 flags |= SPD_APPLY_ESPA; 1659 if (act->ipa_apply.ipp_use_se) 1660 flags |= SPD_APPLY_SE; 1661 if (act->ipa_apply.ipp_use_unique) 1662 flags |= SPD_APPLY_UNIQUE; 1663 EMIT(SPD_ATTR_FLAGS, flags); 1664 if (flags & SPD_APPLY_AH) { 1665 EMIT(SPD_ATTR_AH_AUTH, act->ipa_apply.ipp_auth_alg); 1666 EMIT(SPD_ATTR_AH_MINBITS, 1667 act->ipa_apply.ipp_ah_minbits); 1668 EMIT(SPD_ATTR_AH_MAXBITS, 1669 act->ipa_apply.ipp_ah_maxbits); 1670 } 1671 if (flags & SPD_APPLY_ESP) { 1672 EMIT(SPD_ATTR_ESP_ENCR, act->ipa_apply.ipp_encr_alg); 1673 EMIT(SPD_ATTR_ENCR_MINBITS, 1674 act->ipa_apply.ipp_espe_minbits); 1675 EMIT(SPD_ATTR_ENCR_MAXBITS, 1676 act->ipa_apply.ipp_espe_maxbits); 1677 if (flags & SPD_APPLY_ESPA) { 1678 EMIT(SPD_ATTR_ESP_AUTH, 1679 act->ipa_apply.ipp_esp_auth_alg); 1680 EMIT(SPD_ATTR_ESPA_MINBITS, 1681 act->ipa_apply.ipp_espa_minbits); 1682 EMIT(SPD_ATTR_ESPA_MAXBITS, 1683 act->ipa_apply.ipp_espa_maxbits); 1684 } 1685 } 1686 if (act->ipa_apply.ipp_km_proto != 0) 1687 EMIT(SPD_ATTR_KM_PROTO, act->ipa_apply.ipp_km_proto); 1688 if (act->ipa_apply.ipp_km_cookie != 0) 1689 EMIT(SPD_ATTR_KM_PROTO, act->ipa_apply.ipp_km_cookie); 1690 if (act->ipa_apply.ipp_replay_depth != 0) 1691 EMIT(SPD_ATTR_REPLAY_DEPTH, 1692 act->ipa_apply.ipp_replay_depth); 1693 /* Add more here */ 1694 break; 1695 } 1696 1697 return (offset); 1698 } 1699 1700 static uint_t 1701 spdsock_encode_action_list(uint8_t *base, uint_t offset, 1702 const ipsec_action_t *ap) 1703 { 1704 struct spd_ext_actions *act; 1705 uint_t nact = 0; 1706 uint_t start = offset; 1707 1708 ASSERT(ALIGNED64(offset)); 1709 1710 if (base != NULL) { 1711 act = (struct spd_ext_actions *)(base + offset); 1712 act->spd_actions_len = 0; 1713 act->spd_actions_exttype = SPD_EXT_ACTION; 1714 act->spd_actions_count = 0; 1715 act->spd_actions_reserved = 0; 1716 } 1717 1718 offset += sizeof (*act); 1719 1720 ASSERT(ALIGNED64(offset)); 1721 1722 while (ap != NULL) { 1723 offset = spdsock_encode_action(base, offset, ap); 1724 ap = ap->ipa_next; 1725 nact++; 1726 if (ap != NULL) { 1727 EMIT(SPD_ATTR_NEXT, 0); 1728 } 1729 } 1730 EMIT(SPD_ATTR_END, 0); 1731 1732 ASSERT(ALIGNED64(offset)); 1733 1734 if (base != NULL) { 1735 act->spd_actions_count = nact; 1736 act->spd_actions_len = SPD_8TO64(offset - start); 1737 } 1738 1739 return (offset); 1740 } 1741 1742 #undef EMIT 1743 1744 /* ARGSUSED */ 1745 static uint_t 1746 spdsock_rule_flags(uint_t dir, uint_t af) 1747 { 1748 uint_t flags = 0; 1749 1750 if (dir == IPSEC_TYPE_INBOUND) 1751 flags |= SPD_RULE_FLAG_INBOUND; 1752 if (dir == IPSEC_TYPE_OUTBOUND) 1753 flags |= SPD_RULE_FLAG_OUTBOUND; 1754 1755 return (flags); 1756 } 1757 1758 1759 static uint_t 1760 spdsock_encode_rule_head(uint8_t *base, uint_t offset, spd_msg_t *req, 1761 const ipsec_policy_t *rule, uint_t dir, uint_t af, char *name, 1762 boolean_t tunnel) 1763 { 1764 struct spd_msg *spmsg; 1765 struct spd_rule *spr; 1766 spd_if_t *sid; 1767 1768 uint_t start = offset; 1769 1770 ASSERT(ALIGNED64(offset)); 1771 1772 if (base != NULL) { 1773 spmsg = (struct spd_msg *)(base + offset); 1774 bzero(spmsg, sizeof (*spmsg)); 1775 spmsg->spd_msg_version = PF_POLICY_V1; 1776 spmsg->spd_msg_type = SPD_DUMP; 1777 spmsg->spd_msg_seq = req->spd_msg_seq; 1778 spmsg->spd_msg_pid = req->spd_msg_pid; 1779 } 1780 offset += sizeof (struct spd_msg); 1781 1782 ASSERT(ALIGNED64(offset)); 1783 1784 if (base != NULL) { 1785 spr = (struct spd_rule *)(base + offset); 1786 spr->spd_rule_type = SPD_EXT_RULE; 1787 spr->spd_rule_priority = rule->ipsp_prio; 1788 spr->spd_rule_flags = spdsock_rule_flags(dir, af); 1789 if (tunnel) 1790 spr->spd_rule_flags |= SPD_RULE_FLAG_TUNNEL; 1791 spr->spd_rule_unused = 0; 1792 spr->spd_rule_len = SPD_8TO64(sizeof (*spr)); 1793 spr->spd_rule_index = rule->ipsp_index; 1794 } 1795 offset += sizeof (struct spd_rule); 1796 1797 /* 1798 * If we have an interface name (i.e. if this policy head came from 1799 * a tunnel), add the SPD_EXT_TUN_NAME extension. 1800 */ 1801 if (name != NULL) { 1802 1803 ASSERT(ALIGNED64(offset)); 1804 1805 if (base != NULL) { 1806 sid = (spd_if_t *)(base + offset); 1807 sid->spd_if_exttype = SPD_EXT_TUN_NAME; 1808 sid->spd_if_len = SPD_8TO64(sizeof (spd_if_t) + 1809 roundup((strlen(name) - 4), 8)); 1810 (void) strlcpy((char *)sid->spd_if_name, name, 1811 LIFNAMSIZ); 1812 } 1813 1814 offset += sizeof (spd_if_t) + roundup((strlen(name) - 4), 8); 1815 } 1816 1817 offset = spdsock_encode_sel(base, offset, rule->ipsp_sel); 1818 offset = spdsock_encode_action_list(base, offset, rule->ipsp_act); 1819 1820 ASSERT(ALIGNED64(offset)); 1821 1822 if (base != NULL) { 1823 spmsg->spd_msg_len = SPD_8TO64(offset - start); 1824 } 1825 return (offset); 1826 } 1827 1828 /* ARGSUSED */ 1829 static mblk_t * 1830 spdsock_encode_rule(mblk_t *req, const ipsec_policy_t *rule, 1831 uint_t dir, uint_t af, char *name, boolean_t tunnel) 1832 { 1833 mblk_t *m; 1834 uint_t len; 1835 spd_msg_t *mreq = (spd_msg_t *)req->b_rptr; 1836 1837 /* 1838 * Figure out how much space we'll need. 1839 */ 1840 len = spdsock_encode_rule_head(NULL, 0, mreq, rule, dir, af, name, 1841 tunnel); 1842 1843 /* 1844 * Allocate mblk. 1845 */ 1846 m = allocb(len, BPRI_HI); 1847 if (m == NULL) 1848 return (NULL); 1849 1850 /* 1851 * Fill it in.. 1852 */ 1853 m->b_wptr = m->b_rptr + len; 1854 bzero(m->b_rptr, len); 1855 (void) spdsock_encode_rule_head(m->b_rptr, 0, mreq, rule, dir, af, 1856 name, tunnel); 1857 return (m); 1858 } 1859 1860 static ipsec_policy_t * 1861 spdsock_dump_next_in_chain(spdsock_t *ss, ipsec_policy_head_t *iph, 1862 ipsec_policy_t *cur) 1863 { 1864 ASSERT(RW_READ_HELD(&iph->iph_lock)); 1865 1866 ss->spdsock_dump_count++; 1867 ss->spdsock_dump_cur_rule = cur->ipsp_hash.hash_next; 1868 return (cur); 1869 } 1870 1871 static ipsec_policy_t * 1872 spdsock_dump_next_rule(spdsock_t *ss, ipsec_policy_head_t *iph) 1873 { 1874 ipsec_policy_t *cur; 1875 ipsec_policy_root_t *ipr; 1876 int chain, nchains, type, af; 1877 1878 ASSERT(RW_READ_HELD(&iph->iph_lock)); 1879 1880 cur = ss->spdsock_dump_cur_rule; 1881 1882 if (cur != NULL) 1883 return (spdsock_dump_next_in_chain(ss, iph, cur)); 1884 1885 type = ss->spdsock_dump_cur_type; 1886 1887 next: 1888 chain = ss->spdsock_dump_cur_chain; 1889 ipr = &iph->iph_root[type]; 1890 nchains = ipr->ipr_nchains; 1891 1892 while (chain < nchains) { 1893 cur = ipr->ipr_hash[chain].hash_head; 1894 chain++; 1895 if (cur != NULL) { 1896 ss->spdsock_dump_cur_chain = chain; 1897 return (spdsock_dump_next_in_chain(ss, iph, cur)); 1898 } 1899 } 1900 ss->spdsock_dump_cur_chain = nchains; 1901 1902 af = ss->spdsock_dump_cur_af; 1903 while (af < IPSEC_NAF) { 1904 cur = ipr->ipr_nonhash[af]; 1905 af++; 1906 if (cur != NULL) { 1907 ss->spdsock_dump_cur_af = af; 1908 return (spdsock_dump_next_in_chain(ss, iph, cur)); 1909 } 1910 } 1911 1912 type++; 1913 if (type >= IPSEC_NTYPES) 1914 return (NULL); 1915 1916 ss->spdsock_dump_cur_chain = 0; 1917 ss->spdsock_dump_cur_type = type; 1918 ss->spdsock_dump_cur_af = IPSEC_AF_V4; 1919 goto next; 1920 1921 } 1922 1923 /* 1924 * If we're done with one policy head, but have more to go, we iterate through 1925 * another IPsec tunnel policy head (itp). Return NULL if it is an error 1926 * worthy of returning EAGAIN via PF_POLICY. 1927 */ 1928 static ipsec_tun_pol_t * 1929 spdsock_dump_iterate_next_tunnel(spdsock_t *ss, ipsec_stack_t *ipss) 1930 { 1931 ipsec_tun_pol_t *itp; 1932 1933 ASSERT(RW_READ_HELD(&ipss->ipsec_tunnel_policy_lock)); 1934 if (ipss->ipsec_tunnel_policy_gen > ss->spdsock_dump_tun_gen) { 1935 /* Oops, state of the tunnel polheads changed. */ 1936 itp = NULL; 1937 } else if (ss->spdsock_itp == NULL) { 1938 /* Just finished global, find first node. */ 1939 itp = avl_first(&ipss->ipsec_tunnel_policies); 1940 } else { 1941 /* We just finished current polhead, find the next one. */ 1942 itp = AVL_NEXT(&ipss->ipsec_tunnel_policies, ss->spdsock_itp); 1943 } 1944 if (itp != NULL) { 1945 ITP_REFHOLD(itp); 1946 } 1947 if (ss->spdsock_itp != NULL) { 1948 ITP_REFRELE(ss->spdsock_itp, ipss->ipsec_netstack); 1949 } 1950 ss->spdsock_itp = itp; 1951 return (itp); 1952 } 1953 1954 static mblk_t * 1955 spdsock_dump_next_record(spdsock_t *ss) 1956 { 1957 ipsec_policy_head_t *iph; 1958 ipsec_policy_t *rule; 1959 mblk_t *m; 1960 ipsec_tun_pol_t *itp; 1961 netstack_t *ns = ss->spdsock_spds->spds_netstack; 1962 ipsec_stack_t *ipss = ns->netstack_ipsec; 1963 1964 iph = ss->spdsock_dump_head; 1965 1966 ASSERT(iph != NULL); 1967 1968 rw_enter(&iph->iph_lock, RW_READER); 1969 1970 if (iph->iph_gen != ss->spdsock_dump_gen) { 1971 rw_exit(&iph->iph_lock); 1972 return (spdsock_dump_finish(ss, EAGAIN)); 1973 } 1974 1975 while ((rule = spdsock_dump_next_rule(ss, iph)) == NULL) { 1976 rw_exit(&iph->iph_lock); 1977 if (--(ss->spdsock_dump_remaining_polheads) == 0) 1978 return (spdsock_dump_finish(ss, 0)); 1979 1980 1981 /* 1982 * If we reach here, we have more policy heads (tunnel 1983 * entries) to dump. Let's reset to a new policy head 1984 * and get some more rules. 1985 * 1986 * An empty policy head will have spdsock_dump_next_rule() 1987 * return NULL, and we loop (while dropping the number of 1988 * remaining polheads). If we loop to 0, we finish. We 1989 * keep looping until we hit 0 or until we have a rule to 1990 * encode. 1991 * 1992 * NOTE: No need for ITP_REF*() macros here as we're only 1993 * going after and refholding the policy head itself. 1994 */ 1995 rw_enter(&ipss->ipsec_tunnel_policy_lock, RW_READER); 1996 itp = spdsock_dump_iterate_next_tunnel(ss, ipss); 1997 if (itp == NULL) { 1998 rw_exit(&ipss->ipsec_tunnel_policy_lock); 1999 return (spdsock_dump_finish(ss, EAGAIN)); 2000 } 2001 2002 /* Reset other spdsock_dump thingies. */ 2003 IPPH_REFRELE(ss->spdsock_dump_head, ns); 2004 if (ss->spdsock_dump_active) { 2005 ss->spdsock_dump_tunnel = 2006 itp->itp_flags & ITPF_P_TUNNEL; 2007 iph = itp->itp_policy; 2008 } else { 2009 ss->spdsock_dump_tunnel = 2010 itp->itp_flags & ITPF_I_TUNNEL; 2011 iph = itp->itp_inactive; 2012 } 2013 IPPH_REFHOLD(iph); 2014 rw_exit(&ipss->ipsec_tunnel_policy_lock); 2015 2016 rw_enter(&iph->iph_lock, RW_READER); 2017 RESET_SPDSOCK_DUMP_POLHEAD(ss, iph); 2018 } 2019 2020 m = spdsock_encode_rule(ss->spdsock_dump_req, rule, 2021 ss->spdsock_dump_cur_type, ss->spdsock_dump_cur_af, 2022 (ss->spdsock_itp == NULL) ? NULL : ss->spdsock_itp->itp_name, 2023 ss->spdsock_dump_tunnel); 2024 rw_exit(&iph->iph_lock); 2025 2026 if (m == NULL) 2027 return (spdsock_dump_finish(ss, ENOMEM)); 2028 return (m); 2029 } 2030 2031 /* 2032 * Dump records until we run into flow-control back-pressure. 2033 */ 2034 static void 2035 spdsock_dump_some(queue_t *q, spdsock_t *ss) 2036 { 2037 mblk_t *m, *dataind; 2038 2039 while ((ss->spdsock_dump_req != NULL) && canputnext(q)) { 2040 m = spdsock_dump_next_record(ss); 2041 if (m == NULL) 2042 return; 2043 dataind = allocb(sizeof (struct T_data_req), BPRI_HI); 2044 if (dataind == NULL) { 2045 freemsg(m); 2046 return; 2047 } 2048 dataind->b_cont = m; 2049 dataind->b_wptr += sizeof (struct T_data_req); 2050 ((struct T_data_ind *)dataind->b_rptr)->PRIM_type = T_DATA_IND; 2051 ((struct T_data_ind *)dataind->b_rptr)->MORE_flag = 0; 2052 dataind->b_datap->db_type = M_PROTO; 2053 putnext(q, dataind); 2054 } 2055 } 2056 2057 /* 2058 * Start dumping. 2059 * Format a start-of-dump record, and set up the stream and kick the rsrv 2060 * procedure to continue the job.. 2061 */ 2062 /* ARGSUSED */ 2063 static void 2064 spdsock_dump(queue_t *q, ipsec_policy_head_t *iph, mblk_t *mp) 2065 { 2066 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2067 netstack_t *ns = ss->spdsock_spds->spds_netstack; 2068 ipsec_stack_t *ipss = ns->netstack_ipsec; 2069 mblk_t *mr; 2070 2071 /* spdsock_open() already set spdsock_itp to NULL. */ 2072 if (iph == ALL_ACTIVE_POLHEADS || iph == ALL_INACTIVE_POLHEADS) { 2073 rw_enter(&ipss->ipsec_tunnel_policy_lock, RW_READER); 2074 ss->spdsock_dump_remaining_polheads = 1 + 2075 avl_numnodes(&ipss->ipsec_tunnel_policies); 2076 ss->spdsock_dump_tun_gen = ipss->ipsec_tunnel_policy_gen; 2077 rw_exit(&ipss->ipsec_tunnel_policy_lock); 2078 if (iph == ALL_ACTIVE_POLHEADS) { 2079 iph = ipsec_system_policy(ns); 2080 ss->spdsock_dump_active = B_TRUE; 2081 } else { 2082 iph = ipsec_inactive_policy(ns); 2083 ss->spdsock_dump_active = B_FALSE; 2084 } 2085 ASSERT(ss->spdsock_itp == NULL); 2086 } else { 2087 ss->spdsock_dump_remaining_polheads = 1; 2088 } 2089 2090 rw_enter(&iph->iph_lock, RW_READER); 2091 2092 mr = spdsock_dump_ruleset(mp, iph, 0, 0); 2093 2094 if (!mr) { 2095 rw_exit(&iph->iph_lock); 2096 spdsock_error(q, mp, ENOMEM, 0); 2097 return; 2098 } 2099 2100 ss->spdsock_dump_req = mp; 2101 RESET_SPDSOCK_DUMP_POLHEAD(ss, iph); 2102 2103 rw_exit(&iph->iph_lock); 2104 2105 qreply(q, mr); 2106 qenable(OTHERQ(q)); 2107 } 2108 2109 /* Do NOT consume a reference to ITP. */ 2110 void 2111 spdsock_clone_node(ipsec_tun_pol_t *itp, void *ep, netstack_t *ns) 2112 { 2113 int *errptr = (int *)ep; 2114 2115 if (*errptr != 0) 2116 return; /* We've failed already for some reason. */ 2117 mutex_enter(&itp->itp_lock); 2118 ITPF_CLONE(itp->itp_flags); 2119 *errptr = ipsec_copy_polhead(itp->itp_policy, itp->itp_inactive, ns); 2120 mutex_exit(&itp->itp_lock); 2121 } 2122 2123 void 2124 spdsock_clone(queue_t *q, mblk_t *mp, spd_if_t *tunname) 2125 { 2126 int error; 2127 char *tname; 2128 ipsec_tun_pol_t *itp; 2129 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2130 netstack_t *ns = ss->spdsock_spds->spds_netstack; 2131 uint32_t auditing = AU_AUDITING(); 2132 2133 if (tunname != NULL) { 2134 tname = (char *)tunname->spd_if_name; 2135 if (*tname == '\0') { 2136 error = ipsec_clone_system_policy(ns); 2137 if (auditing) { 2138 boolean_t active; 2139 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 2140 cred_t *cr; 2141 pid_t cpid; 2142 2143 cr = msg_getcred(mp, &cpid); 2144 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 2145 audit_pf_policy(SPD_CLONE, cr, ns, 2146 NULL, active, error, cpid); 2147 } 2148 if (error == 0) { 2149 itp_walk(spdsock_clone_node, &error, ns); 2150 if (auditing) { 2151 boolean_t active; 2152 spd_msg_t *spmsg = 2153 (spd_msg_t *)mp->b_rptr; 2154 cred_t *cr; 2155 pid_t cpid; 2156 2157 cr = msg_getcred(mp, &cpid); 2158 active = (spmsg->spd_msg_spdid == 2159 SPD_ACTIVE); 2160 audit_pf_policy(SPD_CLONE, cr, 2161 ns, "all tunnels", active, 0, 2162 cpid); 2163 } 2164 } 2165 } else { 2166 itp = get_tunnel_policy(tname, ns); 2167 if (itp == NULL) { 2168 spdsock_error(q, mp, ENOENT, 0); 2169 if (auditing) { 2170 boolean_t active; 2171 spd_msg_t *spmsg = 2172 (spd_msg_t *)mp->b_rptr; 2173 cred_t *cr; 2174 pid_t cpid; 2175 2176 cr = msg_getcred(mp, &cpid); 2177 active = (spmsg->spd_msg_spdid == 2178 SPD_ACTIVE); 2179 audit_pf_policy(SPD_CLONE, cr, 2180 ns, NULL, active, ENOENT, cpid); 2181 } 2182 return; 2183 } 2184 spdsock_clone_node(itp, &error, NULL); 2185 if (auditing) { 2186 boolean_t active; 2187 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 2188 cred_t *cr; 2189 pid_t cpid; 2190 2191 cr = msg_getcred(mp, &cpid); 2192 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 2193 audit_pf_policy(SPD_CLONE, cr, ns, 2194 ITP_NAME(itp), active, error, cpid); 2195 } 2196 ITP_REFRELE(itp, ns); 2197 } 2198 } else { 2199 error = ipsec_clone_system_policy(ns); 2200 if (auditing) { 2201 boolean_t active; 2202 spd_msg_t *spmsg = (spd_msg_t *)mp->b_rptr; 2203 cred_t *cr; 2204 pid_t cpid; 2205 2206 cr = msg_getcred(mp, &cpid); 2207 active = (spmsg->spd_msg_spdid == SPD_ACTIVE); 2208 audit_pf_policy(SPD_CLONE, cr, ns, NULL, 2209 active, error, cpid); 2210 } 2211 } 2212 2213 if (error != 0) 2214 spdsock_error(q, mp, error, 0); 2215 else 2216 spd_echo(q, mp); 2217 } 2218 2219 /* 2220 * Process a SPD_ALGLIST request. The caller expects separate alg entries 2221 * for AH authentication, ESP authentication, and ESP encryption. 2222 * The same distinction is then used when setting the min and max key 2223 * sizes when defining policies. 2224 */ 2225 2226 #define SPDSOCK_AH_AUTH 0 2227 #define SPDSOCK_ESP_AUTH 1 2228 #define SPDSOCK_ESP_ENCR 2 2229 #define SPDSOCK_NTYPES 3 2230 2231 static const uint_t algattr[SPDSOCK_NTYPES] = { 2232 SPD_ATTR_AH_AUTH, 2233 SPD_ATTR_ESP_AUTH, 2234 SPD_ATTR_ESP_ENCR 2235 }; 2236 static const uint_t minbitsattr[SPDSOCK_NTYPES] = { 2237 SPD_ATTR_AH_MINBITS, 2238 SPD_ATTR_ESPA_MINBITS, 2239 SPD_ATTR_ENCR_MINBITS 2240 }; 2241 static const uint_t maxbitsattr[SPDSOCK_NTYPES] = { 2242 SPD_ATTR_AH_MAXBITS, 2243 SPD_ATTR_ESPA_MAXBITS, 2244 SPD_ATTR_ENCR_MAXBITS 2245 }; 2246 static const uint_t defbitsattr[SPDSOCK_NTYPES] = { 2247 SPD_ATTR_AH_DEFBITS, 2248 SPD_ATTR_ESPA_DEFBITS, 2249 SPD_ATTR_ENCR_DEFBITS 2250 }; 2251 static const uint_t incrbitsattr[SPDSOCK_NTYPES] = { 2252 SPD_ATTR_AH_INCRBITS, 2253 SPD_ATTR_ESPA_INCRBITS, 2254 SPD_ATTR_ENCR_INCRBITS 2255 }; 2256 2257 #define ATTRPERALG 6 /* fixed attributes per algs */ 2258 2259 void 2260 spdsock_alglist(queue_t *q, mblk_t *mp) 2261 { 2262 uint_t algtype; 2263 uint_t algidx; 2264 uint_t algcount; 2265 uint_t size; 2266 mblk_t *m; 2267 uint8_t *cur; 2268 spd_msg_t *msg; 2269 struct spd_ext_actions *act; 2270 struct spd_attribute *attr; 2271 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2272 ipsec_stack_t *ipss = ss->spdsock_spds->spds_netstack->netstack_ipsec; 2273 2274 rw_enter(&ipss->ipsec_alg_lock, RW_READER); 2275 /* 2276 * The SPD client expects to receive separate entries for 2277 * AH authentication and ESP authentication supported algorithms. 2278 * 2279 * Don't return the "any" algorithms, if defined, as no 2280 * kernel policies can be set for these algorithms. 2281 */ 2282 algcount = 2 * ipss->ipsec_nalgs[IPSEC_ALG_AUTH] + 2283 ipss->ipsec_nalgs[IPSEC_ALG_ENCR]; 2284 2285 if (ipss->ipsec_alglists[IPSEC_ALG_AUTH][SADB_AALG_NONE] != NULL) 2286 algcount--; 2287 if (ipss->ipsec_alglists[IPSEC_ALG_ENCR][SADB_EALG_NONE] != NULL) 2288 algcount--; 2289 2290 /* 2291 * For each algorithm, we encode: 2292 * ALG / MINBITS / MAXBITS / DEFBITS / INCRBITS / {END, NEXT} 2293 */ 2294 2295 size = sizeof (spd_msg_t) + sizeof (struct spd_ext_actions) + 2296 ATTRPERALG * sizeof (struct spd_attribute) * algcount; 2297 2298 ASSERT(ALIGNED64(size)); 2299 2300 m = allocb(size, BPRI_HI); 2301 if (m == NULL) { 2302 rw_exit(&ipss->ipsec_alg_lock); 2303 spdsock_error(q, mp, ENOMEM, 0); 2304 return; 2305 } 2306 2307 m->b_wptr = m->b_rptr + size; 2308 cur = m->b_rptr; 2309 2310 msg = (spd_msg_t *)cur; 2311 bcopy(mp->b_rptr, cur, sizeof (*msg)); 2312 2313 msg->spd_msg_len = SPD_8TO64(size); 2314 msg->spd_msg_errno = 0; 2315 msg->spd_msg_diagnostic = 0; 2316 2317 cur += sizeof (*msg); 2318 2319 act = (struct spd_ext_actions *)cur; 2320 cur += sizeof (*act); 2321 2322 act->spd_actions_len = SPD_8TO64(size - sizeof (spd_msg_t)); 2323 act->spd_actions_exttype = SPD_EXT_ACTION; 2324 act->spd_actions_count = algcount; 2325 act->spd_actions_reserved = 0; 2326 2327 attr = (struct spd_attribute *)cur; 2328 2329 #define EMIT(tag, value) { \ 2330 attr->spd_attr_tag = (tag); \ 2331 attr->spd_attr_value = (value); \ 2332 attr++; \ 2333 } 2334 2335 /* 2336 * If you change the number of EMIT's here, change 2337 * ATTRPERALG above to match 2338 */ 2339 #define EMITALGATTRS(_type) { \ 2340 EMIT(algattr[_type], algid); /* 1 */ \ 2341 EMIT(minbitsattr[_type], minbits); /* 2 */ \ 2342 EMIT(maxbitsattr[_type], maxbits); /* 3 */ \ 2343 EMIT(defbitsattr[_type], defbits); /* 4 */ \ 2344 EMIT(incrbitsattr[_type], incr); /* 5 */ \ 2345 EMIT(SPD_ATTR_NEXT, 0); /* 6 */ \ 2346 } 2347 2348 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 2349 for (algidx = 0; algidx < ipss->ipsec_nalgs[algtype]; 2350 algidx++) { 2351 int algid = ipss->ipsec_sortlist[algtype][algidx]; 2352 ipsec_alginfo_t *alg = 2353 ipss->ipsec_alglists[algtype][algid]; 2354 uint_t minbits = alg->alg_minbits; 2355 uint_t maxbits = alg->alg_maxbits; 2356 uint_t defbits = alg->alg_default_bits; 2357 uint_t incr = alg->alg_increment; 2358 2359 if (algtype == IPSEC_ALG_AUTH) { 2360 if (algid == SADB_AALG_NONE) 2361 continue; 2362 EMITALGATTRS(SPDSOCK_AH_AUTH); 2363 EMITALGATTRS(SPDSOCK_ESP_AUTH); 2364 } else { 2365 if (algid == SADB_EALG_NONE) 2366 continue; 2367 ASSERT(algtype == IPSEC_ALG_ENCR); 2368 EMITALGATTRS(SPDSOCK_ESP_ENCR); 2369 } 2370 } 2371 } 2372 2373 rw_exit(&ipss->ipsec_alg_lock); 2374 2375 #undef EMITALGATTRS 2376 #undef EMIT 2377 #undef ATTRPERALG 2378 2379 attr--; 2380 attr->spd_attr_tag = SPD_ATTR_END; 2381 2382 freemsg(mp); 2383 qreply(q, m); 2384 } 2385 2386 /* 2387 * Process a SPD_DUMPALGS request. 2388 */ 2389 2390 #define ATTRPERALG 9 /* fixed attributes per algs */ 2391 2392 void 2393 spdsock_dumpalgs(queue_t *q, mblk_t *mp) 2394 { 2395 uint_t algtype; 2396 uint_t algidx; 2397 uint_t size; 2398 mblk_t *m; 2399 uint8_t *cur; 2400 spd_msg_t *msg; 2401 struct spd_ext_actions *act; 2402 struct spd_attribute *attr; 2403 ipsec_alginfo_t *alg; 2404 uint_t algid; 2405 uint_t i; 2406 uint_t alg_size; 2407 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2408 ipsec_stack_t *ipss = ss->spdsock_spds->spds_netstack->netstack_ipsec; 2409 2410 rw_enter(&ipss->ipsec_alg_lock, RW_READER); 2411 2412 /* 2413 * For each algorithm, we encode: 2414 * ALG / MINBITS / MAXBITS / DEFBITS / INCRBITS / {END, NEXT} 2415 * 2416 * ALG_ID / ALG_PROTO / ALG_INCRBITS / ALG_NKEYSIZES / ALG_KEYSIZE* 2417 * ALG_NBLOCKSIZES / ALG_BLOCKSIZE* / ALG_NPARAMS / ALG_PARAMS* / 2418 * ALG_MECHNAME / ALG_FLAGS / {END, NEXT} 2419 */ 2420 2421 /* 2422 * Compute the size of the SPD message. 2423 */ 2424 size = sizeof (spd_msg_t) + sizeof (struct spd_ext_actions); 2425 2426 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 2427 for (algidx = 0; algidx < ipss->ipsec_nalgs[algtype]; 2428 algidx++) { 2429 algid = ipss->ipsec_sortlist[algtype][algidx]; 2430 alg = ipss->ipsec_alglists[algtype][algid]; 2431 alg_size = sizeof (struct spd_attribute) * 2432 (ATTRPERALG + alg->alg_nkey_sizes + 2433 alg->alg_nblock_sizes + alg->alg_nparams) + 2434 CRYPTO_MAX_MECH_NAME; 2435 size += alg_size; 2436 } 2437 } 2438 2439 ASSERT(ALIGNED64(size)); 2440 2441 m = allocb(size, BPRI_HI); 2442 if (m == NULL) { 2443 rw_exit(&ipss->ipsec_alg_lock); 2444 spdsock_error(q, mp, ENOMEM, 0); 2445 return; 2446 } 2447 2448 m->b_wptr = m->b_rptr + size; 2449 cur = m->b_rptr; 2450 2451 msg = (spd_msg_t *)cur; 2452 bcopy(mp->b_rptr, cur, sizeof (*msg)); 2453 2454 msg->spd_msg_len = SPD_8TO64(size); 2455 msg->spd_msg_errno = 0; 2456 msg->spd_msg_type = SPD_ALGLIST; 2457 2458 msg->spd_msg_diagnostic = 0; 2459 2460 cur += sizeof (*msg); 2461 2462 act = (struct spd_ext_actions *)cur; 2463 cur += sizeof (*act); 2464 2465 act->spd_actions_len = SPD_8TO64(size - sizeof (spd_msg_t)); 2466 act->spd_actions_exttype = SPD_EXT_ACTION; 2467 act->spd_actions_count = ipss->ipsec_nalgs[IPSEC_ALG_AUTH] + 2468 ipss->ipsec_nalgs[IPSEC_ALG_ENCR]; 2469 act->spd_actions_reserved = 0; 2470 2471 /* 2472 * If there aren't any algorithms registered, return an empty message. 2473 * spdsock_get_ext() knows how to deal with this. 2474 */ 2475 if (act->spd_actions_count == 0) { 2476 act->spd_actions_len = 0; 2477 rw_exit(&ipss->ipsec_alg_lock); 2478 goto error; 2479 } 2480 2481 attr = (struct spd_attribute *)cur; 2482 2483 #define EMIT(tag, value) { \ 2484 attr->spd_attr_tag = (tag); \ 2485 attr->spd_attr_value = (value); \ 2486 attr++; \ 2487 } 2488 2489 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 2490 for (algidx = 0; algidx < ipss->ipsec_nalgs[algtype]; 2491 algidx++) { 2492 2493 algid = ipss->ipsec_sortlist[algtype][algidx]; 2494 alg = ipss->ipsec_alglists[algtype][algid]; 2495 2496 /* 2497 * If you change the number of EMIT's here, change 2498 * ATTRPERALG above to match 2499 */ 2500 EMIT(SPD_ATTR_ALG_ID, algid); 2501 EMIT(SPD_ATTR_ALG_PROTO, algproto[algtype]); 2502 EMIT(SPD_ATTR_ALG_INCRBITS, alg->alg_increment); 2503 EMIT(SPD_ATTR_ALG_NKEYSIZES, alg->alg_nkey_sizes); 2504 for (i = 0; i < alg->alg_nkey_sizes; i++) 2505 EMIT(SPD_ATTR_ALG_KEYSIZE, 2506 alg->alg_key_sizes[i]); 2507 2508 EMIT(SPD_ATTR_ALG_NBLOCKSIZES, alg->alg_nblock_sizes); 2509 for (i = 0; i < alg->alg_nblock_sizes; i++) 2510 EMIT(SPD_ATTR_ALG_BLOCKSIZE, 2511 alg->alg_block_sizes[i]); 2512 2513 EMIT(SPD_ATTR_ALG_NPARAMS, alg->alg_nparams); 2514 for (i = 0; i < alg->alg_nparams; i++) 2515 EMIT(SPD_ATTR_ALG_PARAMS, 2516 alg->alg_params[i]); 2517 2518 EMIT(SPD_ATTR_ALG_FLAGS, alg->alg_flags); 2519 2520 EMIT(SPD_ATTR_ALG_MECHNAME, CRYPTO_MAX_MECH_NAME); 2521 bcopy(alg->alg_mech_name, attr, CRYPTO_MAX_MECH_NAME); 2522 attr = (struct spd_attribute *)((char *)attr + 2523 CRYPTO_MAX_MECH_NAME); 2524 2525 EMIT(SPD_ATTR_NEXT, 0); 2526 } 2527 } 2528 2529 rw_exit(&ipss->ipsec_alg_lock); 2530 2531 #undef EMITALGATTRS 2532 #undef EMIT 2533 #undef ATTRPERALG 2534 2535 attr--; 2536 attr->spd_attr_tag = SPD_ATTR_END; 2537 2538 error: 2539 freemsg(mp); 2540 qreply(q, m); 2541 } 2542 2543 /* 2544 * Do the actual work of processing an SPD_UPDATEALGS request. Can 2545 * be invoked either once IPsec is loaded on a cached request, or 2546 * when a request is received while IPsec is loaded. 2547 */ 2548 static int 2549 spdsock_do_updatealg(spd_ext_t *extv[], spd_stack_t *spds) 2550 { 2551 struct spd_ext_actions *actp; 2552 struct spd_attribute *attr, *endattr; 2553 uint64_t *start, *end; 2554 ipsec_alginfo_t *alg = NULL; 2555 ipsec_algtype_t alg_type = 0; 2556 boolean_t skip_alg = B_TRUE, doing_proto = B_FALSE; 2557 uint_t i, cur_key, cur_block, algid; 2558 int diag = -1; 2559 2560 ASSERT(MUTEX_HELD(&spds->spds_alg_lock)); 2561 2562 /* parse the message, building the list of algorithms */ 2563 2564 actp = (struct spd_ext_actions *)extv[SPD_EXT_ACTION]; 2565 if (actp == NULL) 2566 return (SPD_DIAGNOSTIC_NO_ACTION_EXT); 2567 2568 start = (uint64_t *)actp; 2569 end = (start + actp->spd_actions_len); 2570 endattr = (struct spd_attribute *)end; 2571 attr = (struct spd_attribute *)&actp[1]; 2572 2573 bzero(spds->spds_algs, IPSEC_NALGTYPES * IPSEC_MAX_ALGS * 2574 sizeof (ipsec_alginfo_t *)); 2575 2576 alg = kmem_zalloc(sizeof (*alg), KM_SLEEP); 2577 2578 #define ALG_KEY_SIZES(a) (((a)->alg_nkey_sizes + 1) * sizeof (uint16_t)) 2579 #define ALG_BLOCK_SIZES(a) (((a)->alg_nblock_sizes + 1) * sizeof (uint16_t)) 2580 #define ALG_PARAM_SIZES(a) (((a)->alg_nparams + 1) * sizeof (uint16_t)) 2581 2582 while (attr < endattr) { 2583 switch (attr->spd_attr_tag) { 2584 case SPD_ATTR_NOP: 2585 case SPD_ATTR_EMPTY: 2586 break; 2587 case SPD_ATTR_END: 2588 attr = endattr; 2589 /* FALLTHRU */ 2590 case SPD_ATTR_NEXT: 2591 if (doing_proto) { 2592 doing_proto = B_FALSE; 2593 break; 2594 } 2595 if (skip_alg) { 2596 ipsec_alg_free(alg); 2597 } else { 2598 ipsec_alg_free( 2599 spds->spds_algs[alg_type][alg->alg_id]); 2600 spds->spds_algs[alg_type][alg->alg_id] = 2601 alg; 2602 } 2603 alg = kmem_zalloc(sizeof (*alg), KM_SLEEP); 2604 break; 2605 2606 case SPD_ATTR_ALG_ID: 2607 if (attr->spd_attr_value >= IPSEC_MAX_ALGS) { 2608 ss1dbg(spds, ("spdsock_do_updatealg: " 2609 "invalid alg id %d\n", 2610 attr->spd_attr_value)); 2611 diag = SPD_DIAGNOSTIC_ALG_ID_RANGE; 2612 goto bail; 2613 } 2614 alg->alg_id = attr->spd_attr_value; 2615 break; 2616 2617 case SPD_ATTR_ALG_PROTO: 2618 /* find the alg type */ 2619 for (i = 0; i < NALGPROTOS; i++) 2620 if (algproto[i] == attr->spd_attr_value) 2621 break; 2622 skip_alg = (i == NALGPROTOS); 2623 if (!skip_alg) 2624 alg_type = i; 2625 break; 2626 2627 case SPD_ATTR_ALG_INCRBITS: 2628 alg->alg_increment = attr->spd_attr_value; 2629 break; 2630 2631 case SPD_ATTR_ALG_NKEYSIZES: 2632 if (alg->alg_key_sizes != NULL) { 2633 kmem_free(alg->alg_key_sizes, 2634 ALG_KEY_SIZES(alg)); 2635 } 2636 alg->alg_nkey_sizes = attr->spd_attr_value; 2637 /* 2638 * Allocate room for the trailing zero key size 2639 * value as well. 2640 */ 2641 alg->alg_key_sizes = kmem_zalloc(ALG_KEY_SIZES(alg), 2642 KM_SLEEP); 2643 cur_key = 0; 2644 break; 2645 2646 case SPD_ATTR_ALG_KEYSIZE: 2647 if (alg->alg_key_sizes == NULL || 2648 cur_key >= alg->alg_nkey_sizes) { 2649 ss1dbg(spds, ("spdsock_do_updatealg: " 2650 "too many key sizes\n")); 2651 diag = SPD_DIAGNOSTIC_ALG_NUM_KEY_SIZES; 2652 goto bail; 2653 } 2654 alg->alg_key_sizes[cur_key++] = attr->spd_attr_value; 2655 break; 2656 2657 case SPD_ATTR_ALG_FLAGS: 2658 /* 2659 * Flags (bit mask). The alg_flags element of 2660 * ipsecalg_flags_t is only 8 bits wide. The 2661 * user can set the VALID bit, but we will ignore it 2662 * and make the decision is the algorithm is valid. 2663 */ 2664 alg->alg_flags |= (uint8_t)attr->spd_attr_value; 2665 break; 2666 2667 case SPD_ATTR_ALG_NBLOCKSIZES: 2668 if (alg->alg_block_sizes != NULL) { 2669 kmem_free(alg->alg_block_sizes, 2670 ALG_BLOCK_SIZES(alg)); 2671 } 2672 alg->alg_nblock_sizes = attr->spd_attr_value; 2673 /* 2674 * Allocate room for the trailing zero block size 2675 * value as well. 2676 */ 2677 alg->alg_block_sizes = kmem_zalloc(ALG_BLOCK_SIZES(alg), 2678 KM_SLEEP); 2679 cur_block = 0; 2680 break; 2681 2682 case SPD_ATTR_ALG_BLOCKSIZE: 2683 if (alg->alg_block_sizes == NULL || 2684 cur_block >= alg->alg_nblock_sizes) { 2685 ss1dbg(spds, ("spdsock_do_updatealg: " 2686 "too many block sizes\n")); 2687 diag = SPD_DIAGNOSTIC_ALG_NUM_BLOCK_SIZES; 2688 goto bail; 2689 } 2690 alg->alg_block_sizes[cur_block++] = 2691 attr->spd_attr_value; 2692 break; 2693 2694 case SPD_ATTR_ALG_NPARAMS: 2695 if (alg->alg_params != NULL) { 2696 kmem_free(alg->alg_params, 2697 ALG_PARAM_SIZES(alg)); 2698 } 2699 alg->alg_nparams = attr->spd_attr_value; 2700 /* 2701 * Allocate room for the trailing zero block size 2702 * value as well. 2703 */ 2704 alg->alg_params = kmem_zalloc(ALG_PARAM_SIZES(alg), 2705 KM_SLEEP); 2706 cur_block = 0; 2707 break; 2708 2709 case SPD_ATTR_ALG_PARAMS: 2710 if (alg->alg_params == NULL || 2711 cur_block >= alg->alg_nparams) { 2712 ss1dbg(spds, ("spdsock_do_updatealg: " 2713 "too many params\n")); 2714 diag = SPD_DIAGNOSTIC_ALG_NUM_BLOCK_SIZES; 2715 goto bail; 2716 } 2717 /* 2718 * Array contains: iv_len, icv_len, salt_len 2719 * Any additional parameters are currently ignored. 2720 */ 2721 alg->alg_params[cur_block++] = 2722 attr->spd_attr_value; 2723 break; 2724 2725 case SPD_ATTR_ALG_MECHNAME: { 2726 char *mech_name; 2727 2728 if (attr->spd_attr_value > CRYPTO_MAX_MECH_NAME) { 2729 ss1dbg(spds, ("spdsock_do_updatealg: " 2730 "mech name too long\n")); 2731 diag = SPD_DIAGNOSTIC_ALG_MECH_NAME_LEN; 2732 goto bail; 2733 } 2734 mech_name = (char *)(attr + 1); 2735 bcopy(mech_name, alg->alg_mech_name, 2736 attr->spd_attr_value); 2737 alg->alg_mech_name[CRYPTO_MAX_MECH_NAME-1] = '\0'; 2738 attr = (struct spd_attribute *)((char *)attr + 2739 attr->spd_attr_value); 2740 break; 2741 } 2742 2743 case SPD_ATTR_PROTO_ID: 2744 doing_proto = B_TRUE; 2745 for (i = 0; i < NALGPROTOS; i++) { 2746 if (algproto[i] == attr->spd_attr_value) { 2747 alg_type = i; 2748 break; 2749 } 2750 } 2751 break; 2752 2753 case SPD_ATTR_PROTO_EXEC_MODE: 2754 if (!doing_proto) 2755 break; 2756 for (i = 0; i < NEXECMODES; i++) { 2757 if (execmodes[i] == attr->spd_attr_value) { 2758 spds->spds_algs_exec_mode[alg_type] = i; 2759 break; 2760 } 2761 } 2762 break; 2763 } 2764 attr++; 2765 } 2766 2767 #undef ALG_KEY_SIZES 2768 #undef ALG_BLOCK_SIZES 2769 #undef ALG_PARAM_SIZES 2770 2771 /* update the algorithm tables */ 2772 spdsock_merge_algs(spds); 2773 bail: 2774 /* cleanup */ 2775 ipsec_alg_free(alg); 2776 for (alg_type = 0; alg_type < IPSEC_NALGTYPES; alg_type++) 2777 for (algid = 0; algid < IPSEC_MAX_ALGS; algid++) 2778 if (spds->spds_algs[alg_type][algid] != NULL) 2779 ipsec_alg_free(spds->spds_algs[alg_type][algid]); 2780 return (diag); 2781 } 2782 2783 /* 2784 * Process an SPD_UPDATEALGS request. If IPsec is not loaded, queue 2785 * the request until IPsec loads. If IPsec is loaded, act on it 2786 * immediately. 2787 */ 2788 2789 static void 2790 spdsock_updatealg(queue_t *q, mblk_t *mp, spd_ext_t *extv[]) 2791 { 2792 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2793 spd_stack_t *spds = ss->spdsock_spds; 2794 ipsec_stack_t *ipss = spds->spds_netstack->netstack_ipsec; 2795 uint32_t auditing = AU_AUDITING(); 2796 2797 if (!ipsec_loaded(ipss)) { 2798 /* 2799 * IPsec is not loaded, save request and return nicely, 2800 * the message will be processed once IPsec loads. 2801 */ 2802 mblk_t *new_mp; 2803 2804 /* last update message wins */ 2805 if ((new_mp = copymsg(mp)) == NULL) { 2806 spdsock_error(q, mp, ENOMEM, 0); 2807 return; 2808 } 2809 mutex_enter(&spds->spds_alg_lock); 2810 bcopy(extv, spds->spds_extv_algs, 2811 sizeof (spd_ext_t *) * (SPD_EXT_MAX + 1)); 2812 if (spds->spds_mp_algs != NULL) 2813 freemsg(spds->spds_mp_algs); 2814 spds->spds_mp_algs = mp; 2815 mutex_exit(&spds->spds_alg_lock); 2816 if (auditing) { 2817 cred_t *cr; 2818 pid_t cpid; 2819 2820 cr = msg_getcred(mp, &cpid); 2821 audit_pf_policy(SPD_UPDATEALGS, cr, 2822 spds->spds_netstack, NULL, B_TRUE, EAGAIN, 2823 cpid); 2824 } 2825 spd_echo(q, new_mp); 2826 } else { 2827 /* 2828 * IPsec is loaded, act on the message immediately. 2829 */ 2830 int diag; 2831 2832 mutex_enter(&spds->spds_alg_lock); 2833 diag = spdsock_do_updatealg(extv, spds); 2834 if (diag == -1) { 2835 /* Keep the lock held while we walk the SA tables. */ 2836 sadb_alg_update(IPSEC_ALG_ALL, 0, 0, 2837 spds->spds_netstack); 2838 mutex_exit(&spds->spds_alg_lock); 2839 spd_echo(q, mp); 2840 if (auditing) { 2841 cred_t *cr; 2842 pid_t cpid; 2843 2844 cr = msg_getcred(mp, &cpid); 2845 audit_pf_policy(SPD_UPDATEALGS, cr, 2846 spds->spds_netstack, NULL, B_TRUE, 0, 2847 cpid); 2848 } 2849 } else { 2850 mutex_exit(&spds->spds_alg_lock); 2851 spdsock_diag(q, mp, diag); 2852 if (auditing) { 2853 cred_t *cr; 2854 pid_t cpid; 2855 2856 cr = msg_getcred(mp, &cpid); 2857 audit_pf_policy(SPD_UPDATEALGS, cr, 2858 spds->spds_netstack, NULL, B_TRUE, diag, 2859 cpid); 2860 } 2861 } 2862 } 2863 } 2864 2865 /* 2866 * Find a tunnel instance (using the name to link ID mapping), and 2867 * update it after an IPsec change. We need to do this always in case 2868 * we add policy AFTER plumbing a tunnel. We also need to do this 2869 * because, as a side-effect, the tunnel's MTU is updated to reflect 2870 * any IPsec overhead in the itp's policy. 2871 */ 2872 static void 2873 update_iptun_policy(ipsec_tun_pol_t *itp) 2874 { 2875 datalink_id_t linkid; 2876 2877 if (dls_mgmt_get_linkid(itp->itp_name, &linkid) == 0) 2878 iptun_set_policy(linkid, itp); 2879 } 2880 2881 /* 2882 * Sort through the mess of polhead options to retrieve an appropriate one. 2883 * Returns NULL if we send an spdsock error. Returns a valid pointer if we 2884 * found a valid polhead. Returns ALL_ACTIVE_POLHEADS (aka. -1) or 2885 * ALL_INACTIVE_POLHEADS (aka. -2) if the operation calls for the operation to 2886 * act on ALL policy heads. 2887 */ 2888 static ipsec_policy_head_t * 2889 get_appropriate_polhead(queue_t *q, mblk_t *mp, spd_if_t *tunname, int spdid, 2890 int msgtype, ipsec_tun_pol_t **itpp) 2891 { 2892 ipsec_tun_pol_t *itp; 2893 ipsec_policy_head_t *iph; 2894 int errno; 2895 char *tname; 2896 boolean_t active; 2897 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2898 netstack_t *ns = ss->spdsock_spds->spds_netstack; 2899 uint64_t gen; /* Placeholder */ 2900 2901 active = (spdid == SPD_ACTIVE); 2902 *itpp = NULL; 2903 if (!active && spdid != SPD_STANDBY) { 2904 spdsock_diag(q, mp, SPD_DIAGNOSTIC_BAD_SPDID); 2905 return (NULL); 2906 } 2907 2908 if (tunname != NULL) { 2909 /* Acting on a tunnel's SPD. */ 2910 tname = (char *)tunname->spd_if_name; 2911 if (*tname == '\0') { 2912 /* Handle all-polhead cases here. */ 2913 if (msgtype != SPD_FLUSH && msgtype != SPD_DUMP) { 2914 spdsock_diag(q, mp, 2915 SPD_DIAGNOSTIC_NOT_GLOBAL_OP); 2916 return (NULL); 2917 } 2918 return (active ? ALL_ACTIVE_POLHEADS : 2919 ALL_INACTIVE_POLHEADS); 2920 } 2921 2922 itp = get_tunnel_policy(tname, ns); 2923 if (itp == NULL) { 2924 if (msgtype != SPD_ADDRULE) { 2925 /* "Tunnel not found" */ 2926 spdsock_error(q, mp, ENOENT, 0); 2927 return (NULL); 2928 } 2929 2930 errno = 0; 2931 itp = create_tunnel_policy(tname, &errno, &gen, ns); 2932 if (itp == NULL) { 2933 /* 2934 * Something very bad happened, most likely 2935 * ENOMEM. Return an indicator. 2936 */ 2937 spdsock_error(q, mp, errno, 0); 2938 return (NULL); 2939 } 2940 } 2941 2942 /* Match up the itp to an iptun instance. */ 2943 update_iptun_policy(itp); 2944 2945 *itpp = itp; 2946 /* For spdsock dump state, set the polhead's name. */ 2947 if (msgtype == SPD_DUMP) { 2948 ITP_REFHOLD(itp); 2949 ss->spdsock_itp = itp; 2950 ss->spdsock_dump_tunnel = itp->itp_flags & 2951 (active ? ITPF_P_TUNNEL : ITPF_I_TUNNEL); 2952 } 2953 } else { 2954 itp = NULL; 2955 /* For spdsock dump state, indicate it's global policy. */ 2956 if (msgtype == SPD_DUMP) 2957 ss->spdsock_itp = NULL; 2958 } 2959 2960 if (active) 2961 iph = (itp == NULL) ? ipsec_system_policy(ns) : itp->itp_policy; 2962 else 2963 iph = (itp == NULL) ? ipsec_inactive_policy(ns) : 2964 itp->itp_inactive; 2965 2966 ASSERT(iph != NULL); 2967 if (itp != NULL) { 2968 IPPH_REFHOLD(iph); 2969 } 2970 2971 return (iph); 2972 } 2973 2974 static void 2975 spdsock_parse(queue_t *q, mblk_t *mp) 2976 { 2977 spd_msg_t *spmsg; 2978 spd_ext_t *extv[SPD_EXT_MAX + 1]; 2979 uint_t msgsize; 2980 ipsec_policy_head_t *iph; 2981 ipsec_tun_pol_t *itp; 2982 spd_if_t *tunname; 2983 spdsock_t *ss = (spdsock_t *)q->q_ptr; 2984 spd_stack_t *spds = ss->spdsock_spds; 2985 netstack_t *ns = spds->spds_netstack; 2986 ipsec_stack_t *ipss = ns->netstack_ipsec; 2987 2988 /* Make sure nothing's below me. */ 2989 ASSERT(WR(q)->q_next == NULL); 2990 2991 spmsg = (spd_msg_t *)mp->b_rptr; 2992 2993 msgsize = SPD_64TO8(spmsg->spd_msg_len); 2994 2995 if (msgdsize(mp) != msgsize) { 2996 /* 2997 * Message len incorrect w.r.t. actual size. Send an error 2998 * (EMSGSIZE). It may be necessary to massage things a 2999 * bit. For example, if the spd_msg_type is hosed, 3000 * I need to set it to SPD_RESERVED to get delivery to 3001 * do the right thing. Then again, maybe just letting 3002 * the error delivery do the right thing. 3003 */ 3004 ss2dbg(spds, 3005 ("mblk (%lu) and base (%d) message sizes don't jibe.\n", 3006 msgdsize(mp), msgsize)); 3007 spdsock_error(q, mp, EMSGSIZE, SPD_DIAGNOSTIC_NONE); 3008 return; 3009 } 3010 3011 if (msgsize > (uint_t)(mp->b_wptr - mp->b_rptr)) { 3012 /* Get all message into one mblk. */ 3013 if (pullupmsg(mp, -1) == 0) { 3014 /* 3015 * Something screwy happened. 3016 */ 3017 ss3dbg(spds, ("spdsock_parse: pullupmsg() failed.\n")); 3018 return; 3019 } else { 3020 spmsg = (spd_msg_t *)mp->b_rptr; 3021 } 3022 } 3023 3024 switch (spdsock_get_ext(extv, spmsg, msgsize)) { 3025 case KGE_DUP: 3026 /* Handle duplicate extension. */ 3027 ss1dbg(spds, ("Got duplicate extension of type %d.\n", 3028 extv[0]->spd_ext_type)); 3029 spdsock_diag(q, mp, dup_ext_diag[extv[0]->spd_ext_type]); 3030 return; 3031 case KGE_UNK: 3032 /* Handle unknown extension. */ 3033 ss1dbg(spds, ("Got unknown extension of type %d.\n", 3034 extv[0]->spd_ext_type)); 3035 spdsock_diag(q, mp, SPD_DIAGNOSTIC_UNKNOWN_EXT); 3036 return; 3037 case KGE_LEN: 3038 /* Length error. */ 3039 ss1dbg(spds, ("Length %d on extension type %d overrun or 0.\n", 3040 extv[0]->spd_ext_len, extv[0]->spd_ext_type)); 3041 spdsock_diag(q, mp, SPD_DIAGNOSTIC_BAD_EXTLEN); 3042 return; 3043 case KGE_CHK: 3044 /* Reality check failed. */ 3045 ss1dbg(spds, ("Reality check failed on extension type %d.\n", 3046 extv[0]->spd_ext_type)); 3047 spdsock_diag(q, mp, bad_ext_diag[extv[0]->spd_ext_type]); 3048 return; 3049 default: 3050 /* Default case is no errors. */ 3051 break; 3052 } 3053 3054 /* 3055 * Special-case SPD_UPDATEALGS so as not to load IPsec. 3056 */ 3057 if (!ipsec_loaded(ipss) && spmsg->spd_msg_type != SPD_UPDATEALGS) { 3058 spdsock_t *ss = (spdsock_t *)q->q_ptr; 3059 3060 ASSERT(ss != NULL); 3061 ipsec_loader_loadnow(ipss); 3062 ss->spdsock_timeout_arg = mp; 3063 ss->spdsock_timeout = qtimeout(q, spdsock_loadcheck, 3064 q, LOADCHECK_INTERVAL); 3065 return; 3066 } 3067 3068 /* First check for messages that need no polheads at all. */ 3069 switch (spmsg->spd_msg_type) { 3070 case SPD_UPDATEALGS: 3071 spdsock_updatealg(q, mp, extv); 3072 return; 3073 case SPD_ALGLIST: 3074 spdsock_alglist(q, mp); 3075 return; 3076 case SPD_DUMPALGS: 3077 spdsock_dumpalgs(q, mp); 3078 return; 3079 } 3080 3081 /* 3082 * Then check for ones that need both primary/secondary polheads, 3083 * finding the appropriate tunnel policy if need be. 3084 */ 3085 tunname = (spd_if_t *)extv[SPD_EXT_TUN_NAME]; 3086 switch (spmsg->spd_msg_type) { 3087 case SPD_FLIP: 3088 spdsock_flip(q, mp, tunname); 3089 return; 3090 case SPD_CLONE: 3091 spdsock_clone(q, mp, tunname); 3092 return; 3093 } 3094 3095 /* 3096 * Finally, find ones that operate on exactly one polhead, or 3097 * "all polheads" of a given type (active/inactive). 3098 */ 3099 iph = get_appropriate_polhead(q, mp, tunname, spmsg->spd_msg_spdid, 3100 spmsg->spd_msg_type, &itp); 3101 if (iph == NULL) 3102 return; 3103 3104 /* All-polheads-ready operations. */ 3105 switch (spmsg->spd_msg_type) { 3106 case SPD_FLUSH: 3107 if (itp != NULL) { 3108 mutex_enter(&itp->itp_lock); 3109 if (spmsg->spd_msg_spdid == SPD_ACTIVE) 3110 itp->itp_flags &= ~ITPF_PFLAGS; 3111 else 3112 itp->itp_flags &= ~ITPF_IFLAGS; 3113 mutex_exit(&itp->itp_lock); 3114 } 3115 3116 spdsock_flush(q, iph, itp, mp); 3117 3118 if (itp != NULL) { 3119 /* SPD_FLUSH is worth a tunnel MTU check. */ 3120 update_iptun_policy(itp); 3121 ITP_REFRELE(itp, ns); 3122 } 3123 return; 3124 case SPD_DUMP: 3125 if (itp != NULL) 3126 ITP_REFRELE(itp, ns); 3127 spdsock_dump(q, iph, mp); 3128 return; 3129 } 3130 3131 if (iph == ALL_ACTIVE_POLHEADS || iph == ALL_INACTIVE_POLHEADS) { 3132 spdsock_diag(q, mp, SPD_DIAGNOSTIC_NOT_GLOBAL_OP); 3133 return; 3134 } 3135 3136 /* Single-polhead-only operations. */ 3137 switch (spmsg->spd_msg_type) { 3138 case SPD_ADDRULE: 3139 spdsock_addrule(q, iph, mp, extv, itp); 3140 break; 3141 case SPD_DELETERULE: 3142 spdsock_deleterule(q, iph, mp, extv, itp); 3143 break; 3144 case SPD_LOOKUP: 3145 spdsock_lookup(q, iph, mp, extv, itp); 3146 break; 3147 default: 3148 spdsock_diag(q, mp, SPD_DIAGNOSTIC_BAD_MSG_TYPE); 3149 break; 3150 } 3151 3152 IPPH_REFRELE(iph, ns); 3153 if (itp != NULL) { 3154 /* SPD_{ADD,DELETE}RULE are worth a tunnel MTU check. */ 3155 if (spmsg->spd_msg_type == SPD_ADDRULE || 3156 spmsg->spd_msg_type == SPD_DELETERULE) 3157 update_iptun_policy(itp); 3158 ITP_REFRELE(itp, ns); 3159 } 3160 } 3161 3162 /* 3163 * If an algorithm mapping was received before IPsec was loaded, process it. 3164 * Called from the IPsec loader. 3165 */ 3166 void 3167 spdsock_update_pending_algs(netstack_t *ns) 3168 { 3169 spd_stack_t *spds = ns->netstack_spdsock; 3170 3171 mutex_enter(&spds->spds_alg_lock); 3172 if (spds->spds_mp_algs != NULL) { 3173 (void) spdsock_do_updatealg(spds->spds_extv_algs, spds); 3174 freemsg(spds->spds_mp_algs); 3175 spds->spds_mp_algs = NULL; 3176 } 3177 mutex_exit(&spds->spds_alg_lock); 3178 } 3179 3180 static void 3181 spdsock_loadcheck(void *arg) 3182 { 3183 queue_t *q = (queue_t *)arg; 3184 spdsock_t *ss = (spdsock_t *)q->q_ptr; 3185 mblk_t *mp; 3186 ipsec_stack_t *ipss = ss->spdsock_spds->spds_netstack->netstack_ipsec; 3187 3188 ASSERT(ss != NULL); 3189 3190 ss->spdsock_timeout = 0; 3191 mp = ss->spdsock_timeout_arg; 3192 ASSERT(mp != NULL); 3193 ss->spdsock_timeout_arg = NULL; 3194 if (ipsec_failed(ipss)) 3195 spdsock_error(q, mp, EPROTONOSUPPORT, 0); 3196 else 3197 spdsock_parse(q, mp); 3198 } 3199 3200 /* 3201 * Copy relevant state bits. 3202 */ 3203 static void 3204 spdsock_copy_info(struct T_info_ack *tap, spdsock_t *ss) 3205 { 3206 *tap = spdsock_g_t_info_ack; 3207 tap->CURRENT_state = ss->spdsock_state; 3208 tap->OPT_size = spdsock_max_optsize; 3209 } 3210 3211 /* 3212 * This routine responds to T_CAPABILITY_REQ messages. It is called by 3213 * spdsock_wput. Much of the T_CAPABILITY_ACK information is copied from 3214 * spdsock_g_t_info_ack. The current state of the stream is copied from 3215 * spdsock_state. 3216 */ 3217 static void 3218 spdsock_capability_req(queue_t *q, mblk_t *mp) 3219 { 3220 spdsock_t *ss = (spdsock_t *)q->q_ptr; 3221 t_uscalar_t cap_bits1; 3222 struct T_capability_ack *tcap; 3223 3224 cap_bits1 = ((struct T_capability_req *)mp->b_rptr)->CAP_bits1; 3225 3226 mp = tpi_ack_alloc(mp, sizeof (struct T_capability_ack), 3227 mp->b_datap->db_type, T_CAPABILITY_ACK); 3228 if (mp == NULL) 3229 return; 3230 3231 tcap = (struct T_capability_ack *)mp->b_rptr; 3232 tcap->CAP_bits1 = 0; 3233 3234 if (cap_bits1 & TC1_INFO) { 3235 spdsock_copy_info(&tcap->INFO_ack, ss); 3236 tcap->CAP_bits1 |= TC1_INFO; 3237 } 3238 3239 qreply(q, mp); 3240 } 3241 3242 /* 3243 * This routine responds to T_INFO_REQ messages. It is called by 3244 * spdsock_wput_other. 3245 * Most of the T_INFO_ACK information is copied from spdsock_g_t_info_ack. 3246 * The current state of the stream is copied from spdsock_state. 3247 */ 3248 static void 3249 spdsock_info_req( 3250 queue_t *q, 3251 mblk_t *mp) 3252 { 3253 mp = tpi_ack_alloc(mp, sizeof (struct T_info_ack), M_PCPROTO, 3254 T_INFO_ACK); 3255 if (mp == NULL) 3256 return; 3257 spdsock_copy_info((struct T_info_ack *)mp->b_rptr, 3258 (spdsock_t *)q->q_ptr); 3259 qreply(q, mp); 3260 } 3261 3262 /* 3263 * spdsock_err_ack. This routine creates a 3264 * T_ERROR_ACK message and passes it 3265 * upstream. 3266 */ 3267 static void 3268 spdsock_err_ack( 3269 queue_t *q, 3270 mblk_t *mp, 3271 int t_error, 3272 int sys_error) 3273 { 3274 if ((mp = mi_tpi_err_ack_alloc(mp, t_error, sys_error)) != NULL) 3275 qreply(q, mp); 3276 } 3277 3278 /* 3279 * This routine retrieves the current status of socket options. 3280 * It returns the size of the option retrieved. 3281 */ 3282 /* ARGSUSED */ 3283 int 3284 spdsock_opt_get(queue_t *q, int level, int name, uchar_t *ptr) 3285 { 3286 int *i1 = (int *)ptr; 3287 3288 switch (level) { 3289 case SOL_SOCKET: 3290 switch (name) { 3291 case SO_TYPE: 3292 *i1 = SOCK_RAW; 3293 break; 3294 /* 3295 * The following two items can be manipulated, 3296 * but changing them should do nothing. 3297 */ 3298 case SO_SNDBUF: 3299 *i1 = (int)q->q_hiwat; 3300 break; 3301 case SO_RCVBUF: 3302 *i1 = (int)(RD(q)->q_hiwat); 3303 break; 3304 } 3305 break; 3306 default: 3307 return (0); 3308 } 3309 return (sizeof (int)); 3310 } 3311 3312 /* 3313 * This routine sets socket options. 3314 */ 3315 /* ARGSUSED */ 3316 int 3317 spdsock_opt_set(queue_t *q, uint_t mgmt_flags, int level, int name, 3318 uint_t inlen, uchar_t *invalp, uint_t *outlenp, uchar_t *outvalp, 3319 void *thisdg_attrs, cred_t *cr) 3320 { 3321 int *i1 = (int *)invalp; 3322 spdsock_t *ss = (spdsock_t *)q->q_ptr; 3323 spd_stack_t *spds = ss->spdsock_spds; 3324 3325 switch (level) { 3326 case SOL_SOCKET: 3327 switch (name) { 3328 case SO_SNDBUF: 3329 if (*i1 > spds->spds_max_buf) 3330 return (ENOBUFS); 3331 q->q_hiwat = *i1; 3332 break; 3333 case SO_RCVBUF: 3334 if (*i1 > spds->spds_max_buf) 3335 return (ENOBUFS); 3336 RD(q)->q_hiwat = *i1; 3337 (void) proto_set_rx_hiwat(RD(q), NULL, *i1); 3338 break; 3339 } 3340 break; 3341 } 3342 return (0); 3343 } 3344 3345 3346 /* 3347 * Handle STREAMS messages. 3348 */ 3349 static void 3350 spdsock_wput_other(queue_t *q, mblk_t *mp) 3351 { 3352 struct iocblk *iocp; 3353 int error; 3354 spdsock_t *ss = (spdsock_t *)q->q_ptr; 3355 spd_stack_t *spds = ss->spdsock_spds; 3356 cred_t *cr; 3357 3358 switch (mp->b_datap->db_type) { 3359 case M_PROTO: 3360 case M_PCPROTO: 3361 if ((mp->b_wptr - mp->b_rptr) < sizeof (long)) { 3362 ss3dbg(spds, ( 3363 "spdsock_wput_other: Not big enough M_PROTO\n")); 3364 freemsg(mp); 3365 return; 3366 } 3367 switch (((union T_primitives *)mp->b_rptr)->type) { 3368 case T_CAPABILITY_REQ: 3369 spdsock_capability_req(q, mp); 3370 break; 3371 case T_INFO_REQ: 3372 spdsock_info_req(q, mp); 3373 break; 3374 case T_SVR4_OPTMGMT_REQ: 3375 case T_OPTMGMT_REQ: 3376 /* 3377 * All Solaris components should pass a db_credp 3378 * for this TPI message, hence we ASSERT. 3379 * But in case there is some other M_PROTO that looks 3380 * like a TPI message sent by some other kernel 3381 * component, we check and return an error. 3382 */ 3383 cr = msg_getcred(mp, NULL); 3384 ASSERT(cr != NULL); 3385 if (cr == NULL) { 3386 spdsock_err_ack(q, mp, TSYSERR, EINVAL); 3387 return; 3388 } 3389 if (((union T_primitives *)mp->b_rptr)->type == 3390 T_SVR4_OPTMGMT_REQ) { 3391 svr4_optcom_req(q, mp, cr, &spdsock_opt_obj); 3392 } else { 3393 tpi_optcom_req(q, mp, cr, &spdsock_opt_obj); 3394 } 3395 break; 3396 case T_DATA_REQ: 3397 case T_EXDATA_REQ: 3398 case T_ORDREL_REQ: 3399 /* Illegal for spdsock. */ 3400 freemsg(mp); 3401 (void) putnextctl1(RD(q), M_ERROR, EPROTO); 3402 break; 3403 default: 3404 /* Not supported by spdsock. */ 3405 spdsock_err_ack(q, mp, TNOTSUPPORT, 0); 3406 break; 3407 } 3408 return; 3409 case M_IOCDATA: 3410 keysock_spdsock_wput_iocdata(q, mp, PF_POLICY); 3411 return; 3412 case M_IOCTL: 3413 iocp = (struct iocblk *)mp->b_rptr; 3414 error = EINVAL; 3415 3416 switch (iocp->ioc_cmd) { 3417 case TI_GETMYNAME: 3418 case TI_GETPEERNAME: 3419 /* 3420 * For pfiles(1) observability with getsockname(). 3421 * See keysock_spdsock_wput_iocdata() for the rest of 3422 * this. 3423 */ 3424 mi_copyin(q, mp, NULL, 3425 SIZEOF_STRUCT(strbuf, iocp->ioc_flag)); 3426 return; 3427 case ND_SET: 3428 case ND_GET: 3429 if (nd_getset(q, spds->spds_g_nd, mp)) { 3430 qreply(q, mp); 3431 return; 3432 } else 3433 error = ENOENT; 3434 /* FALLTHRU */ 3435 default: 3436 miocnak(q, mp, 0, error); 3437 return; 3438 } 3439 case M_FLUSH: 3440 if (*mp->b_rptr & FLUSHW) { 3441 flushq(q, FLUSHALL); 3442 *mp->b_rptr &= ~FLUSHW; 3443 } 3444 if (*mp->b_rptr & FLUSHR) { 3445 qreply(q, mp); 3446 return; 3447 } 3448 /* Else FALLTHRU */ 3449 } 3450 3451 /* If fell through, just black-hole the message. */ 3452 freemsg(mp); 3453 } 3454 3455 static int 3456 spdsock_wput(queue_t *q, mblk_t *mp) 3457 { 3458 uint8_t *rptr = mp->b_rptr; 3459 mblk_t *mp1; 3460 spdsock_t *ss = (spdsock_t *)q->q_ptr; 3461 spd_stack_t *spds = ss->spdsock_spds; 3462 3463 /* 3464 * If we're dumping, defer processing other messages until the 3465 * dump completes. 3466 */ 3467 if (ss->spdsock_dump_req != NULL) { 3468 if (!putq(q, mp)) 3469 freemsg(mp); 3470 return (0); 3471 } 3472 3473 switch (mp->b_datap->db_type) { 3474 case M_DATA: 3475 /* 3476 * Silently discard. 3477 */ 3478 ss2dbg(spds, ("raw M_DATA in spdsock.\n")); 3479 freemsg(mp); 3480 return (0); 3481 case M_PROTO: 3482 case M_PCPROTO: 3483 if ((mp->b_wptr - rptr) >= sizeof (struct T_data_req)) { 3484 if (((union T_primitives *)rptr)->type == T_DATA_REQ) { 3485 if ((mp1 = mp->b_cont) == NULL) { 3486 /* No data after T_DATA_REQ. */ 3487 ss2dbg(spds, 3488 ("No data after DATA_REQ.\n")); 3489 freemsg(mp); 3490 return (0); 3491 } 3492 freeb(mp); 3493 mp = mp1; 3494 ss2dbg(spds, ("T_DATA_REQ\n")); 3495 break; /* Out of switch. */ 3496 } 3497 } 3498 /* FALLTHRU */ 3499 default: 3500 ss3dbg(spds, ("In default wput case (%d %d).\n", 3501 mp->b_datap->db_type, ((union T_primitives *)rptr)->type)); 3502 spdsock_wput_other(q, mp); 3503 return (0); 3504 } 3505 3506 /* I now have a PF_POLICY message in an M_DATA block. */ 3507 spdsock_parse(q, mp); 3508 return (0); 3509 } 3510 3511 /* 3512 * Device open procedure, called when new queue pair created. 3513 * We are passed the read-side queue. 3514 */ 3515 /* ARGSUSED */ 3516 static int 3517 spdsock_open(queue_t *q, dev_t *devp, int flag, int sflag, cred_t *credp) 3518 { 3519 spdsock_t *ss; 3520 queue_t *oq = OTHERQ(q); 3521 minor_t ssminor; 3522 netstack_t *ns; 3523 spd_stack_t *spds; 3524 3525 if (secpolicy_ip_config(credp, B_FALSE) != 0) 3526 return (EPERM); 3527 3528 if (q->q_ptr != NULL) 3529 return (0); /* Re-open of an already open instance. */ 3530 3531 if (sflag & MODOPEN) 3532 return (EINVAL); 3533 3534 ns = netstack_find_by_cred(credp); 3535 ASSERT(ns != NULL); 3536 spds = ns->netstack_spdsock; 3537 ASSERT(spds != NULL); 3538 3539 ss2dbg(spds, ("Made it into PF_POLICY socket open.\n")); 3540 3541 ssminor = (minor_t)(uintptr_t)vmem_alloc(spdsock_vmem, 1, VM_NOSLEEP); 3542 if (ssminor == 0) { 3543 netstack_rele(spds->spds_netstack); 3544 return (ENOMEM); 3545 } 3546 ss = kmem_zalloc(sizeof (spdsock_t), KM_NOSLEEP); 3547 if (ss == NULL) { 3548 vmem_free(spdsock_vmem, (void *)(uintptr_t)ssminor, 1); 3549 netstack_rele(spds->spds_netstack); 3550 return (ENOMEM); 3551 } 3552 3553 ss->spdsock_minor = ssminor; 3554 ss->spdsock_state = TS_UNBND; 3555 ss->spdsock_dump_req = NULL; 3556 3557 ss->spdsock_spds = spds; 3558 3559 q->q_ptr = ss; 3560 oq->q_ptr = ss; 3561 3562 q->q_hiwat = spds->spds_recv_hiwat; 3563 3564 oq->q_hiwat = spds->spds_xmit_hiwat; 3565 oq->q_lowat = spds->spds_xmit_lowat; 3566 3567 qprocson(q); 3568 (void) proto_set_rx_hiwat(q, NULL, spds->spds_recv_hiwat); 3569 3570 *devp = makedevice(getmajor(*devp), ss->spdsock_minor); 3571 return (0); 3572 } 3573 3574 /* 3575 * Read-side service procedure, invoked when we get back-enabled 3576 * when buffer space becomes available. 3577 * 3578 * Dump another chunk if we were dumping before; when we finish, kick 3579 * the write-side queue in case it's waiting for read queue space. 3580 */ 3581 int 3582 spdsock_rsrv(queue_t *q) 3583 { 3584 spdsock_t *ss = q->q_ptr; 3585 3586 if (ss->spdsock_dump_req != NULL) 3587 spdsock_dump_some(q, ss); 3588 3589 if (ss->spdsock_dump_req == NULL) 3590 qenable(OTHERQ(q)); 3591 return (0); 3592 } 3593 3594 /* 3595 * Write-side service procedure, invoked when we defer processing 3596 * if another message is received while a dump is in progress. 3597 */ 3598 int 3599 spdsock_wsrv(queue_t *q) 3600 { 3601 spdsock_t *ss = q->q_ptr; 3602 mblk_t *mp; 3603 ipsec_stack_t *ipss = ss->spdsock_spds->spds_netstack->netstack_ipsec; 3604 3605 if (ss->spdsock_dump_req != NULL) { 3606 qenable(OTHERQ(q)); 3607 return (0); 3608 } 3609 3610 while ((mp = getq(q)) != NULL) { 3611 if (ipsec_loaded(ipss)) { 3612 spdsock_wput(q, mp); 3613 if (ss->spdsock_dump_req != NULL) 3614 return (0); 3615 } else if (!ipsec_failed(ipss)) { 3616 (void) putq(q, mp); 3617 } else { 3618 spdsock_error(q, mp, EPFNOSUPPORT, 0); 3619 } 3620 } 3621 return (0); 3622 } 3623 3624 /* ARGSUSED */ 3625 static int 3626 spdsock_close(queue_t *q, int flags __unused, cred_t *credp __unused) 3627 { 3628 spdsock_t *ss = q->q_ptr; 3629 spd_stack_t *spds = ss->spdsock_spds; 3630 3631 qprocsoff(q); 3632 3633 /* Safe assumption. */ 3634 ASSERT(ss != NULL); 3635 3636 if (ss->spdsock_timeout != 0) 3637 (void) quntimeout(q, ss->spdsock_timeout); 3638 3639 ss3dbg(spds, ("Driver close, PF_POLICY socket is going away.\n")); 3640 3641 vmem_free(spdsock_vmem, (void *)(uintptr_t)ss->spdsock_minor, 1); 3642 netstack_rele(ss->spdsock_spds->spds_netstack); 3643 3644 kmem_free(ss, sizeof (spdsock_t)); 3645 return (0); 3646 } 3647 3648 /* 3649 * Merge the IPsec algorithms tables with the received algorithm information. 3650 */ 3651 void 3652 spdsock_merge_algs(spd_stack_t *spds) 3653 { 3654 ipsec_alginfo_t *alg, *oalg; 3655 ipsec_algtype_t algtype; 3656 uint_t algidx, algid, nalgs; 3657 crypto_mech_name_t *mechs; 3658 uint_t mech_count, mech_idx; 3659 netstack_t *ns = spds->spds_netstack; 3660 ipsec_stack_t *ipss = ns->netstack_ipsec; 3661 3662 ASSERT(MUTEX_HELD(&spds->spds_alg_lock)); 3663 3664 /* 3665 * Get the list of supported mechanisms from the crypto framework. 3666 * If a mechanism is supported by KCF, resolve its mechanism 3667 * id and mark it as being valid. This operation must be done 3668 * without holding alg_lock, since it can cause a provider 3669 * module to be loaded and the provider notification callback to 3670 * be invoked. 3671 */ 3672 mechs = crypto_get_mech_list(&mech_count, KM_SLEEP); 3673 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 3674 for (algid = 0; algid < IPSEC_MAX_ALGS; algid++) { 3675 int algflags = 0; 3676 crypto_mech_type_t mt = CRYPTO_MECHANISM_INVALID; 3677 3678 alg = spds->spds_algs[algtype][algid]; 3679 if (alg == NULL) 3680 continue; 3681 3682 /* 3683 * The NULL encryption algorithm is a special 3684 * case because there are no mechanisms, yet 3685 * the algorithm is still valid. 3686 */ 3687 if (alg->alg_id == SADB_EALG_NULL) { 3688 alg->alg_mech_type = CRYPTO_MECHANISM_INVALID; 3689 alg->alg_flags |= ALG_FLAG_VALID; 3690 continue; 3691 } 3692 3693 for (mech_idx = 0; mech_idx < mech_count; mech_idx++) { 3694 if (strncmp(alg->alg_mech_name, mechs[mech_idx], 3695 CRYPTO_MAX_MECH_NAME) == 0) { 3696 mt = crypto_mech2id(alg->alg_mech_name); 3697 ASSERT(mt != CRYPTO_MECHANISM_INVALID); 3698 algflags = ALG_FLAG_VALID; 3699 break; 3700 } 3701 } 3702 alg->alg_mech_type = mt; 3703 alg->alg_flags |= algflags; 3704 } 3705 } 3706 3707 rw_enter(&ipss->ipsec_alg_lock, RW_WRITER); 3708 3709 /* 3710 * For each algorithm currently defined, check if it is 3711 * present in the new tables created from the SPD_UPDATEALGS 3712 * message received from user-space. 3713 * Delete the algorithm entries that are currently defined 3714 * but not part of the new tables. 3715 */ 3716 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 3717 nalgs = ipss->ipsec_nalgs[algtype]; 3718 for (algidx = 0; algidx < nalgs; algidx++) { 3719 algid = ipss->ipsec_sortlist[algtype][algidx]; 3720 if (spds->spds_algs[algtype][algid] == NULL) 3721 ipsec_alg_unreg(algtype, algid, ns); 3722 } 3723 } 3724 3725 /* 3726 * For each algorithm we just received, check if it is 3727 * present in the currently defined tables. If it is, swap 3728 * the entry with the one we just allocated. 3729 * If the new algorithm is not in the current tables, 3730 * add it. 3731 */ 3732 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 3733 for (algid = 0; algid < IPSEC_MAX_ALGS; algid++) { 3734 alg = spds->spds_algs[algtype][algid]; 3735 if (alg == NULL) 3736 continue; 3737 3738 if ((oalg = ipss->ipsec_alglists[algtype][algid]) == 3739 NULL) { 3740 /* 3741 * New algorithm, add it to the algorithm 3742 * table. 3743 */ 3744 ipsec_alg_reg(algtype, alg, ns); 3745 } else { 3746 /* 3747 * Algorithm is already in the table. Swap 3748 * the existing entry with the new one. 3749 */ 3750 ipsec_alg_fix_min_max(alg, algtype, ns); 3751 ipss->ipsec_alglists[algtype][algid] = alg; 3752 ipsec_alg_free(oalg); 3753 } 3754 spds->spds_algs[algtype][algid] = NULL; 3755 } 3756 } 3757 3758 for (algtype = 0; algtype < IPSEC_NALGTYPES; algtype++) { 3759 ipss->ipsec_algs_exec_mode[algtype] = 3760 spds->spds_algs_exec_mode[algtype]; 3761 } 3762 3763 rw_exit(&ipss->ipsec_alg_lock); 3764 3765 crypto_free_mech_list(mechs, mech_count); 3766 3767 ipsecah_algs_changed(ns); 3768 ipsecesp_algs_changed(ns); 3769 } 3770