src/functions/functions.vpn-security-policies

   1 #!/bin/bash
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2017  IPFire Network Development Team                         #
   6 #                                                                             #
   7 # This program is free software: you can redistribute it and/or modify        #
   8 # it under the terms of the GNU General Public License as published by        #
   9 # the Free Software Foundation, either version 3 of the License, or           #
  10 # (at your option) any later version.                                         #
  11 #                                                                             #
  12 # This program is distributed in the hope that it will be useful,             #
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  15 # GNU General Public License for more details.                                #
  16 #                                                                             #
  17 # You should have received a copy of the GNU General Public License           #
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22 VPN_SECURITY_POLICIES_CONFIG_SETTINGS="CIPHERS COMPRESSION GROUP_TYPES \
  23         INTEGRITIES PSEUDO_RANDOM_FUNCTIONS KEY_EXCHANGE LIFETIME PFS"
  24 VPN_SECURITY_POLICIES_READONLY="system performance"
  25
  26 VPN_DEFAULT_SECURITY_POLICY="system"
  27
  28 declare -A VPN_SUPPORTED_CIPHERS=(
  29         # 3DES-CBC
  30         [3DES-CBC]="168 bit 3DES-EDE-CBC"
  31
  32         # AES-CBC
  33         [AES256-CBC]="256 bit AES-CBC"
  34         [AES192-CBC]="192 bit AES-CBC"
  35         [AES128-CBC]="128 bit AES-CBC"
  36
  37         # AES-CTR
  38         [AES256-CTR]="256 bit AES-COUNTER"
  39         [AES192-CTR]="192 bit AES-COUNTER"
  40         [AES128-CTR]="128 bit AES-COUNTER"
  41
  42         # AES-GCM
  43         [AES256-GCM128]="256 bit AES-GCM with 128 bit ICV"
  44         [AES192-GCM128]="192 bit AES-GCM with 128 bit ICV"
  45         [AES128-GCM128]="128 bit AES-GCM with 128 bit ICV"
  46         [AES256-GCM96]="256 bit AES-GCM with 96 bit ICV"
  47         [AES192-GCM96]="192 bit AES-GCM with 96 bit ICV"
  48         [AES128-GCM96]="128 bit AES-GCM with 96 bit ICV"
  49         [AES256-GCM64]="256 bit AES-GCM with 64 bit ICV"
  50         [AES192-GCM64]="192 bit AES-GCM with 64 bit ICV"
  51         [AES128-GCM64]="128 bit AES-GCM with 64 bit ICV"
  52
  53         # AES-CCM
  54         [AES256-CCM128]="256 bit AES-CCM with 128 bit ICV"
  55         [AES192-CCM128]="192 bit AES-CCM with 128 bit ICV"
  56         [AES128-CCM128]="128 bit AES-CCM with 128 bit ICV"
  57         [AES256-CCM96]="256 bit AES-CCM with 96 bit ICV"
  58         [AES192-CCM96]="192 bit AES-CCM with 96 bit ICV"
  59         [AES128-CCM96]="128 bit AES-CCM with 96 bit ICV"
  60         [AES256-CCM64]="256 bit AES-CCM with 64 bit ICV"
  61         [AES192-CCM64]="192 bit AES-CCM with 64 bit ICV"
  62         [AES128-CCM64]="128 bit AES-CCM with 64 bit ICV"
  63
  64         # CAMELLIA-CBC
  65         [CAMELLIA256-CBC]="256 bit CAMELLIA-CBC"
  66         [CAMELLIA192-CBC]="192 bit CAMELLIA-CBC"
  67         [CAMELLIA128-CBC]="128 bit CAMELLIA-CBC"
  68
  69         # CAMELLIA-CTR
  70         [CAMELLIA256-CTR]="256 bit CAMELLIA-COUNTER"
  71         [CAMELLIA192-CTR]="192 bit CAMELLIA-COUNTER"
  72         [CAMELLIA128-CTR]="128 bit CAMELLIA-COUNTER"
  73
  74         # CAMELLIA-GCM
  75         [CAMELLIA256-GCM128]="256 bit CAMELLIA-GCM with 128 bit ICV"
  76         [CAMELLIA192-GCM128]="192 bit CAMELLIA-GCM with 128 bit ICV"
  77         [CAMELLIA128-GCM128]="128 bit CAMELLIA-GCM with 128 bit ICV"
  78         [CAMELLIA256-GCM96]="256 bit CAMELLIA-GCM with 96 bit ICV"
  79         [CAMELLIA192-GCM96]="192 bit CAMELLIA-GCM with 96 bit ICV"
  80         [CAMELLIA128-GCM96]="128 bit CAMELLIA-GCM with 96 bit ICV"
  81         [CAMELLIA256-GCM64]="256 bit CAMELLIA-GCM with 64 bit ICV"
  82         [CAMELLIA192-GCM64]="192 bit CAMELLIA-GCM with 64 bit ICV"
  83         [CAMELLIA128-GCM64]="128 bit CAMELLIA-GCM with 64 bit ICV"
  84
  85         # CAMELLIA-CCM
  86         [CAMELLIA256-CCM128]="256 bit CAMELLIA-CCM with 128 bit ICV"
  87         [CAMELLIA192-CCM128]="192 bit CAMELLIA-CCM with 128 bit ICV"
  88         [CAMELLIA128-CCM128]="128 bit CAMELLIA-CCM with 128 bit ICV"
  89         [CAMELLIA256-CCM96]="256 bit CAMELLIA-CCM with 96 bit ICV"
  90         [CAMELLIA192-CCM96]="192 bit CAMELLIA-CCM with 96 bit ICV"
  91         [CAMELLIA128-CCM96]="128 bit CAMELLIA-CCM with 96 bit ICV"
  92         [CAMELLIA256-CCM64]="256 bit CAMELLIA-CCM with 64 bit ICV"
  93         [CAMELLIA192-CCM64]="192 bit CAMELLIA-CCM with 64 bit ICV"
  94         [CAMELLIA128-CCM64]="128 bit CAMELLIA-CCM with 64 bit ICV"
  95
  96         # DJB
  97         [CHACHA20-POLY1305]="256 bit ChaCha20/Poly1305 with 128 bit ICV"
  98
  99         # No Encryption
 100         [NULL]="No Encryption"
 101 )
 102
 103 declare -A CIPHER_TO_STRONGSWAN=(
 104         # 3DES-CBC
 105         [3DES-CBC]="3des"
 106
 107         # AES-CBC
 108         [AES256-CBC]="aes256"
 109         [AES192-CBC]="aes192"
 110         [AES128-CBC]="aes128"
 111
 112         # AES-CTR
 113         [AES256-CTR]="aes256ctr"
 114         [AES192-CTR]="aes192ctr"
 115         [AES128-CTR]="aes128ctr"
 116
 117         # AES-GCM
 118         [AES256-GCM128]="aes256gcm128"
 119         [AES192-GCM128]="aes192gcm128"
 120         [AES128-GCM128]="aes128gcm128"
 121         [AES256-GCM96]="aes256gcm96"
 122         [AES192-GCM96]="aes192gcm96"
 123         [AES128-GCM96]="aes128gcm96"
 124         [AES256-GCM64]="aes256gcm64"
 125         [AES192-GCM64]="aes192gcm64"
 126         [AES128-GCM64]="aes128gcm64"
 127
 128         # AES-CCM
 129         [AES256-CCM128]="aes256ccm128"
 130         [AES192-CCM128]="aes192ccm128"
 131         [AES128-CCM128]="aes128ccm128"
 132         [AES256-CCM96]="aes256ccm96"
 133         [AES192-CCM96]="aes192ccm96"
 134         [AES128-CCM96]="aes128ccm96"
 135         [AES256-CCM64]="aes256ccm64"
 136         [AES192-CCM64]="aes192ccm64"
 137         [AES128-CCM64]="aes128ccm64"
 138
 139         # CAMELLIA-CBC
 140         [CAMELLIA256-CBC]="camellia256"
 141         [CAMELLIA192-CBC]="camellia192"
 142         [CAMELLIA128-CBC]="camellia128"
 143
 144         # CAMELLIA-CTR
 145         [CAMELLIA256-CTR]="camellia256ctr"
 146         [CAMELLIA192-CTR]="camellia192ctr"
 147         [CAMELLIA128-CTR]="camellia128ctr"
 148
 149         # CAMELLIA-GCM
 150         [CAMELLIA256-GCM128]="camellia256gcm128"
 151         [CAMELLIA192-GCM128]="camellia192gcm128"
 152         [CAMELLIA128-GCM128]="camellia128gcm128"
 153         [CAMELLIA256-GCM96]="camellia256gcm96"
 154         [CAMELLIA192-GCM96]="camellia192gcm96"
 155         [CAMELLIA128-GCM96]="camellia128gcm96"
 156         [CAMELLIA256-GCM64]="camellia256gcm64"
 157         [CAMELLIA192-GCM64]="camellia192gcm64"
 158         [CAMELLIA128-GCM64]="camellia128gcm64"
 159
 160         # CAMELLIA-CCM
 161         [CAMELLIA256-CCM128]="camellia256ccm128"
 162         [CAMELLIA192-CCM128]="camellia192ccm128"
 163         [CAMELLIA128-CCM128]="camellia128ccm128"
 164         [CAMELLIA256-CCM96]="camellia256ccm96"
 165         [CAMELLIA192-CCM96]="camellia192ccm96"
 166         [CAMELLIA128-CCM96]="camellia128ccm96"
 167         [CAMELLIA256-CCM64]="camellia256ccm64"
 168         [CAMELLIA192-CCM64]="camellia192ccm64"
 169         [CAMELLIA128-CCM64]="camellia128ccm64"
 170
 171         # DJB
 172         [CHACHA20-POLY1305]="chacha20poly1305"
 173
 174         # No Encryption
 175         [NULL]="null"
 176 )
 177
 178 declare -A VPN_SUPPORTED_PSEUDO_RANDOM_FUNCTIONS=(
 179         [MD5]="MD5"
 180
 181         # SHA
 182         [SHA1]="SHA1"
 183         [SHA256]="SHA256"
 184         [SHA384]="SHA384"
 185         [SHA512]="SHA512"
 186
 187         # AES
 188         [AES-XCBC]="AES-XCBC"
 189         [AES-CMAC]="AES-CMAC"
 190 )
 191
 192 declare -A PSEUDO_RANDOM_FUNCTION_TO_STRONGSWAN=(
 193         [MD5]="prfmd5"
 194
 195         # SHA
 196         [SHA1]="prfsha1"
 197         [SHA256]="prfsha256"
 198         [SHA384]="prfsha384"
 199         [SHA512]="prfsha512"
 200
 201         # AES
 202         [AES-XCBC]="prfaesxcbc"
 203         [AES-CMAC]="prfaescmac"
 204 )
 205
 206 declare -A VPN_SUPPORTED_INTEGRITIES=(
 207         [MD5]="MD5-HMAC"
 208
 209         # SHA
 210         [SHA1]="SHA1-HMAC"
 211         [SHA512]="512 bit SHA2-HMAC"
 212         [SHA384]="384 bit SHA2-HMAC"
 213         [SHA256]="256 bit SHA2-HMAC"
 214
 215         # AES
 216         [AES-XCBC]="AES-XCBC"
 217         [AES-CMAC]="AES-CMAC"
 218         [AES256-GMAC]="256 bit AES-GMAC"
 219         [AES192-GMAC]="192 bit AES-GMAC"
 220         [AES128-GMAC]="128 bit AES-GMAC"
 221 )
 222
 223 declare -A INTEGRITY_TO_STRONGSWAN=(
 224         [MD5]="md5"
 225
 226         # SHA
 227         [SHA1]="sha1"
 228         [SHA512]="sha512"
 229         [SHA384]="sha384"
 230         [SHA256]="sha256"
 231
 232         # AES
 233         [AES-XCBC]="aesxcbc"
 234         [AES-CMAC]="aescmac"
 235         [AES256-GMAC]="aes256gmac"
 236         [AES192-GMAC]="aes192gmac"
 237         [AES128-GMAC]="aes128gmac"
 238 )
 239
 240 declare -A VPN_SUPPORTED_GROUP_TYPES=(
 241         # Regular Groups
 242         [MODP768]="768 bit Modulo Prime Group"
 243         [MODP1024]="1024 bit Modulo Prime Group"
 244         [MODP1536]="1536 bit Modulo Prime Group"
 245         [MODP2048]="2048 bit Modulo Prime Group"
 246         [MODP3072]="3072 bit Modulo Prime Group"
 247         [MODP4096]="4096 bit Modulo Prime Group"
 248         [MODP6144]="6144 bit Modulo Prime Group"
 249         [MODP8192]="8192 bit Modulo Prime Group"
 250
 251         # NIST Elliptic Curve Groups
 252         [ECP192]="192 bit NIST Elliptic Curve Group"
 253         [ECP224]="224 bit NIST Elliptic Curve Group"
 254         [ECP256]="256 bit NIST Elliptic Curve Group"
 255         [ECP384]="384 bit NIST Elliptic Curve Group"
 256         [ECP521]="521 bit NIST Elliptic Curve Group"
 257
 258         # Brainpool Elliptic Curve Groups
 259         [ECP224BP]="224 bit Brainpool Elliptic Curve Group"
 260         [ECP256BP]="256 bit Brainpool Elliptic Curve Group"
 261         [ECP384BP]="384 bit Brainpool Elliptic Curve Group"
 262         [ECP512BP]="512 bit Brainpool Elliptic Curve Group"
 263
 264         # Curve25519
 265         [CURVE25519]="256 bit Elliptic Curve 25519"
 266
 267         # Curve448
 268         [CURVE448]="224 bit Elliptic Curve 448"
 269 )
 270
 271 declare -A GROUP_TYPE_TO_STRONGSWAN=(
 272         # Regular Groups
 273         [MODP768]="modp768"
 274         [MODP1024]="modp1024"
 275         [MODP1536]="modp1536"
 276         [MODP2048]="modp2048"
 277         [MODP3072]="modp3072"
 278         [MODP4096]="modp4096"
 279         [MODP6144]="modp6144"
 280         [MODP8192]="modp8192"
 281
 282         # NIST Elliptic Curve Groups
 283         [ECP192]="ecp192"
 284         [ECP224]="ecp224"
 285         [ECP256]="ecp256"
 286         [ECP384]="ecp384"
 287         [ECP521]="ecp521"
 288
 289         # Brainpool Elliptic Curve Groups
 290         [ECP224BP]="ecp224bp"
 291         [ECP256BP]="ecp256bp"
 292         [ECP384BP]="ecp384bp"
 293         [ECP512BP]="ecp512bp"
 294
 295         # More Curves
 296         [CURVE25519]="curve25519"
 297         [CURVE448]="curve448"
 298 )
 299
 300 cli_vpn_security_policies() {
 301         local action
 302         local security_policy
 303
 304         if vpn_security_policy_exists ${1}; then
 305                 security_policy=${1}
 306                 key=${2}
 307                 shift 2
 308
 309                 case "${key}" in
 310                         ciphers|compression|integrities|lifetime|pfs|show)
 311                                 vpn_security_policies_${key} ${security_policy} "$@"
 312                                 ;;
 313                         pseudo-random-functions)
 314                                 vpn_security_policies_pseudo_random_functions "${security_policy}" "$@"
 315                                 ;;
 316                         group-types)
 317                                 vpn_security_policies_group_types ${security_policy} "$@"
 318                                 ;;
 319                         key-exchange)
 320                                 vpn_security_policies_key_exchange ${security_policy} "$@"
 321                                 ;;
 322                         *)
 323                                 error "Unrecognized argument: ${key}"
 324                                 exit ${EXIT_ERROR}
 325                                 ;;
 326                 esac
 327         else
 328                 action=${1}
 329                 shift
 330
 331                 case "${action}" in
 332                         new)
 333                                 vpn_security_policies_new "$@"
 334                                 ;;
 335                         destroy)
 336                                 vpn_security_policies_destroy "$@"
 337                                 ;;
 338                         ""|*)
 339                                 if [ -n "${action}" ]; then
 340                                         error "Unrecognized argument: '${action}'"
 341                                 fi
 342                                 exit ${EXIT_ERROR}
 343                                 ;;
 344                 esac
 345         fi
 346 }
 347
 348 # This functions checks if a policy is readonly
 349 # returns true when yes and false when no
 350 vpn_security_policies_check_readonly() {
 351         if isoneof name ${VPN_SECURITY_POLICIES_READONLY}; then
 352                 return ${EXIT_TRUE}
 353         else
 354                 return ${EXIT_FALSE}
 355         fi
 356 }
 357
 358 # This function writes all values to a via ${name} specificated vpn security policy configuration file
 359 vpn_security_policies_write_config() {
 360         assert [ $# -ge 1 ]
 361
 362         local name="${1}"
 363
 364         if ! vpn_security_policy_exists "${name}"; then
 365                 log ERROR "No such vpn security policy: ${name}"
 366                 return ${EXIT_ERROR}
 367         fi
 368
 369         if vpn_security_policies_check_readonly "${name}"; then
 370                 log ERROR "The ${name} vpn security policy cannot be changed."
 371                 return ${EXIT_ERROR}
 372         fi
 373
 374         local path="$(vpn_security_policies_path "${name}")"
 375         if [ ! -w ${path} ]; then
 376                 log ERROR "${path} is not writeable"
 377                 return ${EXIT_ERROR}
 378         fi
 379
 380         if ! settings_write "${path}" ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}; then
 381                 log ERROR "Could not write configuration settings for vpn security policy ${name}"
 382                 return ${EXIT_ERROR}
 383         fi
 384
 385         if ! vpn_security_policies_reload ${name}; then
 386                 log WARNING "Could not reload the IPsec connection using this security policy"
 387                 return ${EXIT_ERROR}
 388         fi
 389 }
 390
 391 # reload IPsec connections using a special policy
 392 vpn_security_policies_reload() {
 393         local name=${1}
 394
 395         local connection
 396         for connection in $(ipsec_list_connections); do
 397                 local SECURITY_POLICY ENABLED
 398
 399                 if ! ipsec_connection_read_config "${connection}" "SECURITY_POLICY"; then
 400                         continue
 401                 fi
 402
 403                 if [[ "${SECURITY_POLICY}" = "${name}" ]] && enabled ENABLED; then
 404                         if ! ipsec_connection_to_strongswan "${connection}"; then
 405                                 log ERROR "Could not generate strongswan config for ${connnection}"
 406                         fi
 407                 fi
 408         done
 409
 410         ipsec_strongswan_load
 411 }
 412
 413 # This funtion writes the value for one key to a via ${name} specificated vpn security policy configuration file
 414 vpn_security_policies_write_config_key() {
 415         assert [ $# -ge 3 ]
 416
 417         local name=${1}
 418         local key=${2}
 419         shift 2
 420
 421         local value="$@"
 422
 423         if ! vpn_security_policy_exists "${name}"; then
 424                 log ERROR "No such vpn security policy: ${name}"
 425                 return ${EXIT_ERROR}
 426         fi
 427
 428         log DEBUG "Set '${key}' to new value '${value}' in vpn security policy ${name}"
 429
 430         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 431
 432         # Read the config settings
 433         if ! vpn_security_policies_read_config "${name}"; then
 434                 return ${EXIT_ERROR}
 435         fi
 436
 437         # Set the key to a new value
 438         assign "${key}" "${value}"
 439
 440         if ! vpn_security_policies_write_config "${name}"; then
 441                 return ${EXIT_ERROR}
 442         fi
 443
 444         return ${EXIT_TRUE}
 445 }
 446
 447 # Reads one or more keys out of a settings file or all if no key is provided.
 448 vpn_security_policies_read_config() {
 449         assert [ $# -ge 1 ]
 450
 451         local name="${1}"
 452         shift 1
 453
 454         if ! vpn_security_policy_exists "${name}"; then
 455                 log ERROR "No such vpn security policy: ${name}"
 456                 return ${EXIT_ERROR}
 457         fi
 458
 459
 460         local args
 461         if [ $# -eq 0 ] && [ -n "${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}" ]; then
 462                 list_append args ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 463         else
 464                 list_append args "$@"
 465         fi
 466
 467         local path="$(vpn_security_policies_path ${name})"
 468
 469         if ! settings_read "${path}" ${args}; then
 470                 log ERROR "Could not read settings for vpn security policy ${name}"
 471                 return ${EXIT_ERROR}
 472         fi
 473 }
 474
 475 # Returns the path to a the configuration fora given name
 476 vpn_security_policies_path() {
 477         assert [ $# -eq 1 ]
 478
 479         local name=${1}
 480
 481         if vpn_security_policies_check_readonly "${name}"; then
 482                 echo "${NETWORK_SHARE_DIR}/vpn/security-policies/${name}"
 483         else
 484                 echo "${NETWORK_CONFIG_DIR}/vpn/security-policies/${name}"
 485         fi
 486 }
 487
 488 # Print the content of a vpn security policy configuration file in a nice way
 489 vpn_security_policies_show() {
 490         assert [ $# -eq 1 ]
 491
 492         local name=${1}
 493
 494         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 495         if ! vpn_security_policies_read_config ${name}; then
 496                 return ${EXIT_ERROR}
 497         fi
 498
 499         cli_print_fmt1 0 "Security Policy: ${name}"
 500         cli_space
 501
 502         # This could be done in a loop but a loop is much more complicated
 503         # because we print 'Group Types' but the variable is named 'GROUP_TYPES'
 504         cli_print_fmt1 1 "Ciphers:"
 505         local cipher
 506         for cipher in ${CIPHERS}; do
 507                 cli_print_fmt1 2 "${VPN_SUPPORTED_CIPHERS[${cipher}]-${cipher}}"
 508         done
 509         cli_space
 510
 511         cli_print_fmt1 1 "Integrity:"
 512         local integrity
 513         for integrity in ${INTEGRITIES}; do
 514                 cli_print_fmt1 2 "${VPN_SUPPORTED_INTEGRITIES[${integrity}]-${integrity}}"
 515         done
 516         cli_space
 517
 518         cli_print_fmt1 1 "Pseudo Random Functions:"
 519         local prf
 520         for prf in ${PSEUDO_RANDOM_FUNCTIONS}; do
 521                 cli_print_fmt1 2 "${VPN_SUPPORTED_PSEUDO_RANDOM_FUNCTIONS[${prf}]-${prf}}"
 522         done
 523         cli_space
 524
 525         cli_print_fmt1 1 "Group Types:"
 526         local group_type
 527         for group_type in ${GROUP_TYPES}; do
 528                 cli_print_fmt1 2 "${VPN_SUPPORTED_GROUP_TYPES[${group_type}]-${group_type}}"
 529         done
 530         cli_space
 531
 532         cli_print_fmt1 1 "Key Exchange:" "${KEY_EXCHANGE}"
 533
 534         # Key Lifetime
 535         if isinteger LIFETIME && [ ${LIFETIME} -gt 0 ]; then
 536                 cli_print_fmt1 1 "Key Lifetime:" "$(format_time ${LIFETIME})"
 537         else
 538                 log ERROR "The value for Key Lifetime is not a valid integer greater zero."
 539         fi
 540
 541         # PFS
 542         if enabled PFS; then
 543                 cli_print_fmt1 1 "Perfect Forward Secrecy:" "enabled"
 544         else
 545                 cli_print_fmt1 1 "Perfect Forward Secrecy:" "disabled"
 546         fi
 547         cli_space
 548
 549         # Compression
 550         if enabled COMPRESSION; then
 551                 cli_print_fmt1 1 "Compression:" "enabled"
 552         else
 553                 cli_print_fmt1 1 "Compression:" "disabled"
 554         fi
 555         cli_space
 556 }
 557
 558 # This function checks if a vpn security policy exists
 559 # Returns True when yes and false when not
 560 vpn_security_policy_exists() {
 561         assert [ $# -eq 1 ]
 562
 563         local name=${1}
 564
 565         local path=$(vpn_security_policies_path "${name}")
 566
 567         [ -f ${path} ] && return ${EXIT_TRUE} || return ${EXIT_FALSE}
 568 }
 569
 570
 571 # This function parses the parameters for the 'cipher' command
 572 vpn_security_policies_ciphers() {
 573         local name=${1}
 574         shift
 575
 576         if [ $# -eq 0 ]; then
 577                 log ERROR "You must pass at least one value after cipher"
 578                 return ${EXIT_ERROR}
 579         fi
 580
 581         local CIPHERS
 582         if ! vpn_security_policies_read_config ${name} "CIPHERS"; then
 583                 return ${EXIT_ERROR}
 584         fi
 585
 586         # Remove duplicated entries to proceed the list safely
 587         CIPHERS="$(list_unique ${CIPHERS})"
 588
 589         local ciphers_added
 590         local ciphers_removed
 591         local ciphers_set
 592
 593         while [ $# -gt 0 ]; do
 594                 local arg="${1}"
 595
 596                 case "${arg}" in
 597                         +*)
 598                                 list_append ciphers_added "${arg:1}"
 599                                 ;;
 600                         -*)
 601                                 list_append ciphers_removed "${arg:1}"
 602                                 ;;
 603                         [A-Z0-9]*)
 604                                 list_append ciphers_set "${arg}"
 605                                 ;;
 606                         *)
 607                                 error "Invalid argument: ${arg}"
 608                                 return ${EXIT_ERROR}
 609                                 ;;
 610                 esac
 611                 shift
 612         done
 613
 614         # Check if the user is trying a mixed operation
 615         if ! list_is_empty ciphers_set && (! list_is_empty ciphers_added || ! list_is_empty ciphers_removed); then
 616                 error "You cannot reset the cipher list and add or remove ciphers at the same time"
 617                 return ${EXIT_ERROR}
 618         fi
 619
 620         # Set new cipher list
 621         if ! list_is_empty ciphers_set; then
 622                 # Check if all ciphers are valid
 623                 local cipher
 624                 for cipher in ${ciphers_set}; do
 625                         if ! vpn_security_policies_cipher_supported ${cipher}; then
 626                                 error "Unsupported cipher: ${cipher}"
 627                                 return ${EXIT_ERROR}
 628                         fi
 629                 done
 630
 631                 CIPHERS="${ciphers_set}"
 632
 633         # Perform incremental updates
 634         else
 635                 local cipher
 636
 637                 # Perform all removals
 638                 for cipher in ${ciphers_removed}; do
 639                         if ! list_remove CIPHERS ${cipher}; then
 640                                 warning "${cipher} was not on the list and could not be removed"
 641                         fi
 642                 done
 643
 644                 for cipher in ${ciphers_added}; do
 645                         if vpn_security_policies_cipher_supported ${cipher}; then
 646                                 if ! list_append_unique CIPHERS ${cipher}; then
 647                                         warning "${cipher} is already on the cipher list"
 648                                 fi
 649                         else
 650                                 warning "${cipher} is unknown or unsupported and could not be added"
 651                         fi
 652                 done
 653         fi
 654
 655         # Check if the list contain at least one valid cipher
 656         if list_is_empty CIPHERS; then
 657                 error "Cannot save an empty cipher list"
 658                 return ${EXIT_ERROR}
 659         fi
 660
 661         # Save everything
 662         if ! vpn_security_policies_write_config_key ${name} "CIPHERS" ${CIPHERS}; then
 663                 log ERROR "The changes for the vpn security policy ${name} could not be written."
 664         fi
 665
 666         cli_headline 1 "Current cipher list for ${name}:"
 667         for cipher in ${CIPHERS}; do
 668                 cli_print_fmt1 1 "${cipher}" "${VPN_SUPPORTED_CIPHERS[${cipher}]}"
 669         done
 670 }
 671
 672 # This function parses the parameters for the 'compression' command
 673 vpn_security_policies_compression(){
 674         local name=${1}
 675         local value=${2}
 676
 677         # Check if we get only one argument after compression <name>
 678         if [ ! $# -eq 2 ]; then
 679                 log ERROR "The number of arguments do not match. Only one argument after compression is allowed."
 680                 return ${EXIT_ERROR}
 681         fi
 682
 683         if ! isbool value; then
 684                 # We suggest only two values to avoid overburding the user.
 685                 log ERROR "Invalid Argument ${value}"
 686                 return ${EXIT_ERROR}
 687         fi
 688
 689         vpn_security_policies_write_config_key "${name}" "COMPRESSION" "${value}"
 690 }
 691
 692 # This function parses the parameters for the 'group-type' command
 693 vpn_security_policies_group_types() {
 694         local name=${1}
 695         shift
 696
 697         if [ $# -eq 0 ]; then
 698                 log ERROR "You must pass at least one value after group-type"
 699                 return ${EXIT_ERROR}
 700         fi
 701
 702         local GROUP_TYPES
 703         if ! vpn_security_policies_read_config ${name} "GROUP_TYPES"; then
 704                 return ${EXIT_ERROR}
 705         fi
 706
 707         # Remove duplicated entries to proceed the list safely
 708         GROUP_TYPES="$(list_unique ${GROUP_TYPES})"
 709
 710         local group_types_added
 711         local group_types_removed
 712         local group_types_set
 713
 714         while [ $# -gt 0 ]; do
 715                 local arg="${1}"
 716
 717                 case "${arg}" in
 718                         +*)
 719                                 list_append group_types_added "${arg:1}"
 720                                 ;;
 721                         -*)
 722                                 list_append group_types_removed "${arg:1}"
 723                                 ;;
 724                         [A-Z0-9]*)
 725                                 list_append group_types_set "${arg}"
 726                                 ;;
 727                         *)
 728                                 error "Invalid argument: ${arg}"
 729                                 return ${EXIT_ERROR}
 730                                 ;;
 731                 esac
 732                 shift
 733         done
 734
 735         # Check if the user is trying a mixed operation
 736         if ! list_is_empty group_types_set && (! list_is_empty group_types_added || ! list_is_empty group_types_removed); then
 737                 error "You cannot reset the group type list and add or remove group types at the same time"
 738                 return ${EXIT_ERROR}
 739         fi
 740
 741         # Set new group type list
 742         if ! list_is_empty group_types_set; then
 743                 # Check if all group types are valid
 744                 local group_type
 745                 for group_type in ${group_types_set}; do
 746                         if ! vpn_security_policies_group_type_supported ${group_type}; then
 747                                 error "Unsupported group type: ${group_type}"
 748                                 return ${EXIT_ERROR}
 749                         fi
 750                 done
 751
 752                 GROUP_TYPES="${group_types_set}"
 753
 754         # Perform incremental updates
 755         else
 756                 local group_type
 757
 758                 # Perform all removals
 759                 for group_type in ${group_types_removed}; do
 760                         if ! list_remove GROUP_TYPES ${group_type}; then
 761                                 warning "${group_type} was not on the list and could not be removed"
 762                         fi
 763                 done
 764
 765                 for group_type in ${group_types_added}; do
 766                         if vpn_security_policies_group_type_supported ${group_type}; then
 767                                 if ! list_append_unique GROUP_TYPES ${group_type}; then
 768                                         warning "${group_type} is already on the group type list"
 769                                 fi
 770                         else
 771                                 warning "${group_type} is unknown or unsupported and could not be added"
 772                         fi
 773                 done
 774         fi
 775
 776         # Check if the list contain at least one valid group_type
 777         if list_is_empty GROUP_TYPES; then
 778                 error "Cannot save an empty group type list"
 779                 return ${EXIT_ERROR}
 780         fi
 781
 782         # Save everything
 783         if ! vpn_security_policies_write_config_key ${name} "GROUP_TYPES" ${GROUP_TYPES}; then
 784                 log ERROR "The changes for the vpn security policy ${name} could not be written."
 785         fi
 786
 787         cli_headline 1 "Current group type list for ${name}:"
 788         for group_type in ${GROUP_TYPES}; do
 789                 cli_print_fmt1 1 "${group_type}" "${VPN_SUPPORTED_GROUP_TYPES[${group_type}]}"
 790         done
 791 }
 792
 793 # This function parses the parameters for the 'integrity' command
 794 vpn_security_policies_integrities() {
 795         local name=${1}
 796         shift
 797
 798         if [ $# -eq 0 ]; then
 799                 log ERROR "You must pass at least one value"
 800                 return ${EXIT_ERROR}
 801         fi
 802
 803         local INTEGRITIES
 804         if ! vpn_security_policies_read_config ${name} "INTEGRITIES"; then
 805                 return ${EXIT_ERROR}
 806         fi
 807
 808         # Remove duplicated entries to proceed the list safely
 809         INTEGRITIES="$(list_unique ${INTEGRITIES})"
 810
 811         local integritys_added
 812         local integritys_removed
 813         local integritys_set
 814
 815         while [ $# -gt 0 ]; do
 816                 local arg="${1}"
 817
 818                 case "${arg}" in
 819                         +*)
 820                                 list_append integritys_added "${arg:1}"
 821                                 ;;
 822                         -*)
 823                                 list_append integritys_removed "${arg:1}"
 824                                 ;;
 825                         [A-Z0-9]*)
 826                                 list_append integritys_set "${arg}"
 827                                 ;;
 828                         *)
 829                                 error "Invalid argument: ${arg}"
 830                                 return ${EXIT_ERROR}
 831                                 ;;
 832                 esac
 833                 shift
 834         done
 835
 836         # Check if the user is trying a mixed operation
 837         if ! list_is_empty integritys_set && (! list_is_empty integritys_added || ! list_is_empty integritys_removed); then
 838                 error "You cannot reset the integrity hashes list and add or remove integrity hashes at the same time"
 839                 return ${EXIT_ERROR}
 840         fi
 841
 842         # Set new integrity list
 843         if ! list_is_empty integritys_set; then
 844                 # Check if all integrity hashes are valid
 845                 local integrity
 846                 for integrity in ${integritys_set}; do
 847                         if ! vpn_security_policies_integrity_supported ${integrity}; then
 848                                 error "Unsupported integrity hash: ${integrity}"
 849                                 return ${EXIT_ERROR}
 850                         fi
 851                 done
 852
 853                 INTEGRITIES="${integritys_set}"
 854
 855         # Perform incremental updates
 856         else
 857                 local integrity
 858
 859                 # Perform all removals
 860                 for integrity in ${integritys_removed}; do
 861                         if ! list_remove INTEGRITIES ${integrity}; then
 862                                 warning "${integrity} was not on the list and could not be removed"
 863                         fi
 864                 done
 865
 866                 for integrity in ${integritys_added}; do
 867                         if vpn_security_policies_integrity_supported ${integrity}; then
 868                                 if ! list_append_unique INTEGRITIES ${integrity}; then
 869                                         warning "${integrity} is already on the integrity list"
 870                                 fi
 871                         else
 872                                 warning "${integrity} is unknown or unsupported and could not be added"
 873                         fi
 874                 done
 875         fi
 876
 877         # Check if the list contain at least one valid integrity
 878         if list_is_empty INTEGRITIES; then
 879                 error "Cannot save an empty integrity hashes list"
 880                 return ${EXIT_ERROR}
 881         fi
 882
 883         # Save everything
 884         if ! vpn_security_policies_write_config_key ${name} "INTEGRITIES" ${INTEGRITIES}; then
 885                 log ERROR "The changes for the vpn security policy ${name} could not be written."
 886         fi
 887
 888         cli_headline 1 "Current integrity hashes list for ${name}:"
 889         for integrity in ${INTEGRITIES}; do
 890                 cli_print_fmt1 1 "${integrity}" "${VPN_SUPPORTED_INTEGRITIES[${integrity}]}"
 891         done
 892 }
 893
 894 # This function parses the parameters for the 'pseudo-random-functions' command
 895 vpn_security_policies_pseudo_random_functions() {
 896         local name=${1}
 897         shift
 898
 899         if [ $# -eq 0 ]; then
 900                 log ERROR "You must pass at least one value"
 901                 return ${EXIT_ERROR}
 902         fi
 903
 904         local PSEUDO_RANDOM_FUNCTIONS
 905         if ! vpn_security_policies_read_config ${name} "PSEUDO_RANDOM_FUNCTIONS"; then
 906                 return ${EXIT_ERROR}
 907         fi
 908
 909         # Remove duplicated entries to proceed the list safely
 910         PSEUDO_RANDOM_FUNCTIONS="$(list_unique ${PSEUDO_RANDOM_FUNCTIONS})"
 911
 912         local prfs_added
 913         local prfs_removed
 914         local prfs_set
 915
 916         while [ $# -gt 0 ]; do
 917                 local arg="${1}"
 918
 919                 case "${arg}" in
 920                         +*)
 921                                 list_append prfs_added "${arg:1}"
 922                                 ;;
 923                         -*)
 924                                 list_append prfs_removed "${arg:1}"
 925                                 ;;
 926                         [A-Z0-9]*)
 927                                 list_append prfs_set "${arg}"
 928                                 ;;
 929                         *)
 930                                 error "Invalid argument: ${arg}"
 931                                 return ${EXIT_ERROR}
 932                                 ;;
 933                 esac
 934                 shift
 935         done
 936
 937         # Check if the user is trying a mixed operation
 938         if ! list_is_empty prfs_set && (! list_is_empty prfs_added || ! list_is_empty prfs_removed); then
 939                 error "You cannot reset the pseudo random function list and add or remove functions at the same time"
 940                 return ${EXIT_ERROR}
 941         fi
 942
 943         # Set new psudo random function list
 944         if ! list_is_empty prfs_set; then
 945                 # Check if all PRFs are valid
 946                 local prf
 947                 for prf in ${prfs_set}; do
 948                         if ! vpn_security_policies_pseudo_random_function_supported "${prf}"; then
 949                                 error "Unsupported pseudo random function: ${prf}"
 950                                 return ${EXIT_ERROR}
 951                         fi
 952                 done
 953
 954                 PSEUDO_RANDOM_FUNCTIONS="${prfs_set}"
 955
 956         # Perform incremental updates
 957         else
 958                 local prf
 959
 960                 # Perform all removals
 961                 for prf in ${prfs_removed}; do
 962                         if ! list_remove PSEUDO_RANDOM_FUNCTIONS "${prf}"; then
 963                                 warning "${prf} was not on the list and could not be removed"
 964                         fi
 965                 done
 966
 967                 for prf in ${prfs_added}; do
 968                         if vpn_security_policies_pseudo_random_function_supported "${prf}"; then
 969                                 if ! list_append_unique PSEUDO_RANDOM_FUNCTIONS "${prf}"; then
 970                                         warning "${prf} is already on the list"
 971                                 fi
 972                         else
 973                                 warning "${prf} is unknown or unsupported and could not be added"
 974                         fi
 975                 done
 976         fi
 977
 978         # Check if the list contain at least one valid value
 979         if list_is_empty PSEUDO_RANDOM_FUNCTIONS; then
 980                 error "Cannot save an empty list of pseudo random functions"
 981                 return ${EXIT_ERROR}
 982         fi
 983
 984         # Save everything
 985         if ! vpn_security_policies_write_config_key "${name}" "PSEUDO_RANDOM_FUNCTIONS" "${PSEUDO_RANDOM_FUNCTIONS}"; then
 986                 log ERROR "The changes for the VPN security policy ${name} could not be written"
 987         fi
 988
 989         cli_headline 1 "Current pseudo random function list for ${name}:"
 990         for prf in ${PSEUDO_RANDOM_FUNCTIONS}; do
 991                 cli_print_fmt1 1 "${prf}" "${VPN_SUPPORTED_PSEUDO_RANDOM_FUNCTIONS[${prf}]}"
 992         done
 993 }
 994
 995 # This function parses the parameters for the 'key-exchange' command
 996 vpn_security_policies_key_exchange() {
 997         local name=${1}
 998         local value=${2}
 999
1000         # Check if we get only one argument after key-exchange <name>
1001         if [ ! $# -eq 2 ]; then
1002                 log ERROR "The number of arguments do not match. Only argument after key-exchange is allowed."
1003                 return ${EXIT_ERROR}
1004         fi
1005
1006         if ! isoneof value "ikev1" "ikev2" "IKEV1" "IKEV2"; then
1007                 log ERROR "Invalid Argument ${value}"
1008                 return ${EXIT_ERROR}
1009         fi
1010
1011         vpn_security_policies_write_config_key "${name}" "KEY_EXCHANGE" "${value,,}"
1012 }
1013
1014 # This function parses the parameters for the 'lifetime' command.
1015 vpn_security_policies_lifetime(){
1016         local name=${1}
1017         shift
1018
1019         local value=$@
1020
1021         # Check if we get only one argument after lifetime <name>
1022         if [ ! $# -ge 1 ]; then
1023                 log ERROR "The number of arguments do not match you must provide at least one integer value or a valid time with the format  <hours>h <minutes>m <seconds>s"
1024                 return ${EXIT_ERROR}
1025         fi
1026
1027         if ! isinteger value; then
1028                 value=$(parse_time "$@")
1029                 if [ ! $? -eq 0 ]; then
1030                         log ERROR "Parsing the passed time was not sucessful please check the passed values."
1031                         return ${EXIT_ERROR}
1032                 fi
1033         fi
1034
1035         if [ ${value} -le 0 ]; then
1036                 log ERROR "The passed time value must be in the sum greater zero seconds."
1037                 return ${EXIT_ERROR}
1038         fi
1039
1040         vpn_security_policies_write_config_key "${name}" "LIFETIME" "${value}"
1041 }
1042
1043 # This function parses the parameters for the 'pfs' command
1044 vpn_security_policies_pfs(){
1045         local name=${1}
1046         local value=${2}
1047
1048         # Check if we get only one argument after pfs <name>
1049         if [ ! $# -eq 2 ]; then
1050                 log ERROR "The number of arguments do not match. Only argument after pfs is allowed."
1051                 return ${EXIT_ERROR}
1052         fi
1053
1054         if [ ! $# -eq 2 ] || ! isbool value; then
1055                 # We suggest only two values to avoid overburding the user.
1056                 log ERROR "Invalid Argument ${value}"
1057                 return ${EXIT_ERROR}
1058         fi
1059
1060         vpn_security_policies_write_config_key "${name}" "PFS" "${value}"
1061 }
1062
1063 # This function checks if a vpn security policy name is valid
1064 # Allowed are only A-Za-z0-9
1065 vpn_security_policies_check_name() {
1066         assert [ $# -eq 1 ]
1067
1068         local name=${1}
1069
1070         [[ ${name} =~ [^[:alnum:]$] ]]
1071 }
1072
1073 # Function that creates based on the paramters one ore more new vpn security policies
1074 vpn_security_policies_new() {
1075         if [ $# -gt 1 ]; then
1076                 error "Too many arguments"
1077                 return ${EXIT_ERROR}
1078         fi
1079
1080         local name="${1}"
1081         if ! isset name; then
1082                 error "Please provide a name"
1083                 return ${EXIT_ERROR}
1084         fi
1085
1086         # Check for duplicates
1087         if vpn_security_policy_exists "${name}"; then
1088                 error "The VPN security policy with name ${name} already exists"
1089                 return ${EXIT_ERROR}
1090         fi
1091
1092         # Check if name is valid
1093         if  vpn_security_policies_check_name "${name}"; then
1094                 error "'${name}' contains illegal characters"
1095                 return ${EXIT_ERROR}
1096         fi
1097
1098         # Check if we have a read-only policy with the same name
1099         if vpn_security_policies_check_readonly "${name}"; then
1100                 error "The VPN security policy ${name} is read-only"
1101                 return ${EXIT_ERROR}
1102         fi
1103
1104         # Check if our source policy exists
1105         if ! vpn_security_policy_exists "${VPN_DEFAULT_SECURITY_POLICY}"; then
1106                 error "Default VPN Security Policy '${VPN_DEFAULT_SECURITY_POLICY}' does not exist"
1107                 return ${EXIT_ERROR}
1108         fi
1109
1110         log DEBUG "Creating VPN Security Policy ${name}"
1111
1112         if copy "$(vpn_security_policies_path "${VPN_DEFAULT_SECURITY_POLICY}")" \
1113                         "$(vpn_security_policies_path ${name})"; then
1114                 log INFO "VPN Security Policy ${name} successfully created"
1115         else
1116                 log ERROR "Could not create VPN Security Policy ${name}"
1117                 return ${EXIT_ERROR}
1118         fi
1119
1120         # Show the newly created policy
1121         vpn_security_policies_show "${name}"
1122 }
1123
1124 # Function that deletes based on the passed parameters one ore more vpn security policies
1125 vpn_security_policies_destroy() {
1126         local name
1127         for name in "$@"; do
1128                 if ! vpn_security_policy_exists ${name}; then
1129                         log ERROR "The vpn security policy ${name} does not exist."
1130                         continue
1131                 fi
1132
1133                 if vpn_security_policies_check_readonly ${name}; then
1134                         log ERROR "The vpn security policy ${name} cannot be deleted."
1135                         continue
1136                 fi
1137
1138                 log DEBUG "Deleting vpn security policy ${name}"
1139                 settings_remove $(vpn_security_policies_path ${name})
1140
1141                 # Delete cache
1142                 rm -rf "${NETWORK_CACHE_DIR}/vpn/security-policies/${name}"
1143         done
1144 }
1145
1146 vpn_security_policies_cipher_supported() {
1147         local cipher=${1}
1148
1149         list_match ${cipher} ${!VPN_SUPPORTED_CIPHERS[@]}
1150 }
1151
1152
1153 vpn_security_policies_group_type_supported() {
1154         local group_type=${1}
1155
1156         list_match ${group_type} ${!VPN_SUPPORTED_GROUP_TYPES[@]}
1157 }
1158
1159 vpn_security_policies_integrity_supported() {
1160         local integrity=${1}
1161
1162         list_match ${integrity} ${!VPN_SUPPORTED_INTEGRITIES[@]}
1163 }
1164
1165 vpn_security_policies_pseudo_random_function_supported() {
1166         local prf="${1}"
1167
1168         list_match "${prf}" ${!VPN_SUPPORTED_PSEUDO_RANDOM_FUNCTIONS[@]}
1169 }
1170
1171 vpn_security_policies_cipher_is_aead() {
1172         local cipher=${1}
1173
1174         # All CCM and GCM ciphers are AEAD
1175         if string_match "[CG]CM" "${cipher}"; then
1176                 return ${EXIT_TRUE}
1177         fi
1178
1179         # Poly1305 is AEAD
1180         if string_match "POLY1305" "${cipher}"; then
1181                 return ${EXIT_TRUE}
1182         fi
1183
1184         return ${EXIT_FALSE}
1185 }
1186
1187 vpn_security_policies_make_ike_proposal() {
1188         local name=${1}
1189
1190         if ! vpn_security_policy_exists ${name}; then
1191                 return ${EXIT_ERROR}
1192         fi
1193
1194         local config_path="$(vpn_security_policies_path ${name})"
1195         local cache_path="${NETWORK_CACHE_DIR}/vpn/security-policies/${name}/ike-proposal"
1196
1197         # Get data from cache if possible
1198         if file_exists "${cache_path}" && ! file_is_newer_than "${config_path}" "${cache_path}"; then
1199                 fread "${cache_path}"
1200                 return ${EXIT_OK}
1201         fi
1202
1203         # No or invalid cache data found
1204         local proposal=$(_vpn_security_policies_make_ike_proposal "${name}")
1205
1206         # Write proposal to cache
1207         if ! make_parent_directory "${cache_path}" || ! fwrite "${cache_path}" "${proposal}"; then
1208                 log WARNING "Could not write to cache: ${cache_path}"
1209         fi
1210
1211         print "${proposal}"
1212 }
1213
1214 _vpn_security_policies_make_ike_proposal() {
1215         local name=${1}
1216
1217         # Read the config settings
1218         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
1219         if ! vpn_security_policies_read_config "${name}"; then
1220                 return ${EXIT_ERROR}
1221         fi
1222
1223         local proposals
1224
1225         local cipher
1226         for cipher in ${CIPHERS}; do
1227                 # Translate cipher
1228                 local _cipher=${CIPHER_TO_STRONGSWAN[${cipher}]}
1229
1230                 if ! isset _cipher; then
1231                         log WARN "Unsupported cipher: ${cipher}"
1232                         continue
1233                 fi
1234
1235                 if vpn_security_policies_cipher_is_aead "${cipher}"; then
1236                         local prf
1237                         for prf in ${PSEUDO_RANDOM_FUNCTIONS}; do
1238                                 local _prf="${PSEUDO_RANDOM_FUNCTION_TO_STRONGSWAN[${prf}]}"
1239
1240                                 if ! isset _prf; then
1241                                         log WARN "Unsupported pseudo random function: ${prf}"
1242                                         continue
1243                                 fi
1244
1245                                 local group_type
1246                                 for group_type in ${GROUP_TYPES}; do
1247                                         local _group_type=${GROUP_TYPE_TO_STRONGSWAN[${group_type}]}
1248
1249                                         if ! isset _group_type; then
1250                                                 log WARN "Unsupported group-type: ${group_type}"
1251                                                 continue
1252                                         fi
1253
1254                                         # Put everything together
1255                                         list_append proposals "${_cipher}-${_prf}-${_group_type}"
1256                                 done
1257                         done
1258                 else
1259                         local integrity
1260                         for integrity in ${INTEGRITIES}; do
1261                                 local _integrity=${INTEGRITY_TO_STRONGSWAN[${integrity}]}
1262
1263                                 if ! isset _integrity; then
1264                                         log WARN "Unsupported integrity: ${integrity}"
1265                                         continue
1266                                 fi
1267
1268                                 local group_type
1269                                 for group_type in ${GROUP_TYPES}; do
1270                                         local _group_type=${GROUP_TYPE_TO_STRONGSWAN[${group_type}]}
1271
1272                                         if ! isset _group_type; then
1273                                                 log WARN "Unsupported group-type: ${group_type}"
1274                                                 continue
1275                                         fi
1276
1277                                         # Put everything together
1278                                         list_append proposals "${_cipher}-${_integrity}-${_group_type}"
1279                                 done
1280                         done
1281                 fi
1282         done
1283
1284         # Returns as a comma-separated list
1285         list_join proposals ,
1286 }
1287
1288 vpn_security_policies_make_esp_proposal() {
1289         local name=${1}
1290
1291         if ! vpn_security_policy_exists ${name}; then
1292                 return ${EXIT_ERROR}
1293         fi
1294
1295         local config_path="$(vpn_security_policies_path ${name})"
1296         local cache_path="${NETWORK_CACHE_DIR}/vpn/security-policies/${name}/esp-proposal"
1297
1298         # Get data from cache if possible
1299         if file_exists "${cache_path}" && ! file_is_newer_than "${config_path}" "${cache_path}"; then
1300                 fread "${cache_path}"
1301                 return ${EXIT_OK}
1302         fi
1303
1304         # No or invalid cache data found
1305         local proposal=$(_vpn_security_policies_make_esp_proposal "${name}")
1306
1307         # Write proposal to cache
1308         if ! make_parent_directory "${cache_path}" || ! fwrite "${cache_path}" "${proposal}"; then
1309                 log WARNING "Could not write to cache: ${cache_path}"
1310         fi
1311
1312         print "${proposal}"
1313 }
1314
1315 _vpn_security_policies_make_esp_proposal() {
1316         local name=${1}
1317
1318         # Read the config settings
1319         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
1320         if ! vpn_security_policies_read_config "${name}"; then
1321                 return ${EXIT_ERROR}
1322         fi
1323
1324         local proposals
1325
1326         local cipher
1327         for cipher in ${CIPHERS}; do
1328                 # Translate cipher
1329                 local _cipher=${CIPHER_TO_STRONGSWAN[${cipher}]}
1330
1331                 if ! isset _cipher; then
1332                         log WARN "Unsupported cipher: ${cipher}"
1333                         continue
1334                 fi
1335
1336                 if vpn_security_policies_cipher_is_aead ${cipher}; then
1337                         local group_type
1338                         for group_type in ${GROUP_TYPES}; do
1339                                 local _group_type=${GROUP_TYPE_TO_STRONGSWAN[${group_type}]}
1340
1341                                 if ! isset _group_type; then
1342                                         log WARN "Unsupported group-type: ${group_type}"
1343                                         continue
1344                                 fi
1345
1346                                 # Put everything together
1347                                 list_append proposals "${_cipher}-${_group_type}"
1348                         done
1349                 else
1350                         local integrity
1351                         for integrity in ${INTEGRITIES}; do
1352                                 local _integrity=${INTEGRITY_TO_STRONGSWAN[${integrity}]}
1353
1354                                 if ! isset _integrity; then
1355                                         log WARN "Unsupported integrity: ${integrity}"
1356                                         continue
1357                                 fi
1358
1359                                 local group_type
1360                                 for group_type in ${GROUP_TYPES}; do
1361                                         local _group_type=${GROUP_TYPE_TO_STRONGSWAN[${group_type}]}
1362
1363                                         if ! isset _group_type; then
1364                                                 log WARN "Unsupported group-type: ${group_type}"
1365                                                 continue
1366                                         fi
1367
1368                                         # Put everything together
1369                                         list_append proposals "${_cipher}-${_integrity}-${_group_type}"
1370                                 done
1371                         done
1372                 fi
1373         done
1374
1375         # Returns as a comma-separated list
1376         list_join proposals ,
1377 }
1378
1379 # List all security policies
1380 vpn_security_policies_list_all() {
1381         list_directory "${NETWORK_SHARE_DIR}/vpn/security-policies"
1382
1383         # Add all user-defined policies
1384         vpn_security_policies_list_user
1385 }
1386
1387 vpn_security_policies_list_user() {
1388         list_directory "${NETWORK_CONFIG_DIR}/vpn/security-policies"
1389 }