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="CIPHER COMPRESSION GROUP_TYPE INTEGRITY KEY_EXCHANGE LIFETIME PFS"
  23 VPN_SECURITY_POLICIES_READONLY="system"
  24
  25 VPN_DEFAULT_SECURITY_POLICY="system"
  26
  27 declare -A VPN_SUPPORTED_CIPHERS=(
  28         # 3DES-CBC
  29         [3DES-CBC]="168 bit 3DES-EDE-CBC"
  30
  31         # AES-CBC
  32         [AES256-CBC]="256 bit AES-CBC"
  33         [AES192-CBC]="192 bit AES-CBC"
  34         [AES128-CBC]="128 bit AES-CBC"
  35
  36         # AES-CTR
  37         [AES256-CTR]="256 bit AES-COUNTER"
  38         [AES192-CTR]="192 bit AES-COUNTER"
  39         [AES128-CTR]="128 bit AES-COUNTER"
  40
  41         # AES-GCM
  42         [AES256-GCM128]="256 bit AES-GCM with 128 bit ICV"
  43         [AES192-GCM128]="192 bit AES-GCM with 128 bit ICV"
  44         [AES128-GCM128]="128 bit AES-GCM with 128 bit ICV"
  45         [AES256-GCM96]="256 bit AES-GCM with 96 bit ICV"
  46         [AES192-GCM96]="192 bit AES-GCM with 96 bit ICV"
  47         [AES128-GCM96]="128 bit AES-GCM with 96 bit ICV"
  48         [AES256-GCM64]="256 bit AES-GCM with 64 bit ICV"
  49         [AES192-GCM64]="192 bit AES-GCM with 64 bit ICV"
  50         [AES128-GCM64]="128 bit AES-GCM with 64 bit ICV"
  51
  52         # AES-CCM
  53         [AES256-CCM128]="256 bit AES-CCM with 128 bit ICV"
  54         [AES192-CCM128]="192 bit AES-CCM with 128 bit ICV"
  55         [AES128-CCM128]="128 bit AES-CCM with 128 bit ICV"
  56         [AES256-CCM96]="256 bit AES-CCM with 96 bit ICV"
  57         [AES192-CCM96]="192 bit AES-CCM with 96 bit ICV"
  58         [AES128-CCM96]="128 bit AES-CCM with 96 bit ICV"
  59         [AES256-CCM64]="256 bit AES-CCM with 64 bit ICV"
  60         [AES192-CCM64]="192 bit AES-CCM with 64 bit ICV"
  61         [AES128-CCM64]="128 bit AES-CCM with 64 bit ICV"
  62
  63         # CAMELLIA-CBC
  64         [CAMELLIA256-CBC]="256 bit CAMELLIA-CBC"
  65         [CAMELLIA192-CBC]="192 bit CAMELLIA-CBC"
  66         [CAMELLIA128-CBC]="128 bit CAMELLIA-CBC"
  67
  68         # CAMELLIA-CTR
  69         [CAMELLIA256-CTR]="256 bit CAMELLIA-COUNTER"
  70         [CAMELLIA192-CTR]="192 bit CAMELLIA-COUNTER"
  71         [CAMELLIA128-CTR]="128 bit CAMELLIA-COUNTER"
  72
  73         # CAMELLIA-GCM
  74         [CAMELLIA256-GCM128]="256 bit CAMELLIA-GCM with 128 bit ICV"
  75         [CAMELLIA192-GCM128]="192 bit CAMELLIA-GCM with 128 bit ICV"
  76         [CAMELLIA128-GCM128]="128 bit CAMELLIA-GCM with 128 bit ICV"
  77         [CAMELLIA256-GCM96]="256 bit CAMELLIA-GCM with 96 bit ICV"
  78         [CAMELLIA192-GCM96]="192 bit CAMELLIA-GCM with 96 bit ICV"
  79         [CAMELLIA128-GCM96]="128 bit CAMELLIA-GCM with 96 bit ICV"
  80         [CAMELLIA256-GCM64]="256 bit CAMELLIA-GCM with 64 bit ICV"
  81         [CAMELLIA192-GCM64]="192 bit CAMELLIA-GCM with 64 bit ICV"
  82         [CAMELLIA128-GCM64]="128 bit CAMELLIA-GCM with 64 bit ICV"
  83
  84         # CAMELLIA-CCM
  85         [CAMELLIA256-CCM128]="256 bit CAMELLIA-CCM with 128 bit ICV"
  86         [CAMELLIA192-CCM128]="192 bit CAMELLIA-CCM with 128 bit ICV"
  87         [CAMELLIA128-CCM128]="128 bit CAMELLIA-CCM with 128 bit ICV"
  88         [CAMELLIA256-CCM96]="256 bit CAMELLIA-CCM with 96 bit ICV"
  89         [CAMELLIA192-CCM96]="192 bit CAMELLIA-CCM with 96 bit ICV"
  90         [CAMELLIA128-CCM96]="128 bit CAMELLIA-CCM with 96 bit ICV"
  91         [CAMELLIA256-CCM64]="256 bit CAMELLIA-CCM with 64 bit ICV"
  92         [CAMELLIA192-CCM64]="192 bit CAMELLIA-CCM with 64 bit ICV"
  93         [CAMELLIA128-CCM64]="128 bit CAMELLIA-CCM with 64 bit ICV"
  94 )
  95
  96 declare -A CIPHER_TO_STRONGSWAN=(
  97         # 3DES-CBC
  98         [3DES-CBC]="3des"
  99
 100         # AES-CBC
 101         [AES256-CBC]="aes256"
 102         [AES192-CBC]="aes192"
 103         [AES128-CBC]="aes128"
 104
 105         # AES-CTR
 106         [AES256-CTR]="aes256ctr"
 107         [AES192-CTR]="aes192ctr"
 108         [AES128-CTR]="aes128ctr"
 109
 110         # AES-GCM
 111         [AES256-GCM128]="aes256gcm128"
 112         [AES192-GCM128]="aes192gcm128"
 113         [AES128-GCM128]="aes128gcm128"
 114         [AES256-GCM96]="aes256gcm96"
 115         [AES192-GCM96]="aes192gcm96"
 116         [AES128-GCM96]="aes128gcm96"
 117         [AES256-GCM64]="aes256gcm64"
 118         [AES192-GCM64]="aes192gcm64"
 119         [AES128-GCM64]="aes128gcm64"
 120
 121         # AES-CCM
 122         [AES256-CCM128]="aes256ccm128"
 123         [AES192-CCM128]="aes192ccm128"
 124         [AES128-CCM128]="aes128ccm128"
 125         [AES256-CCM96]="aes256ccm96"
 126         [AES192-CCM96]="aes192ccm96"
 127         [AES128-CCM96]="aes128ccm96"
 128         [AES256-CCM64]="aes256ccm64"
 129         [AES192-CCM64]="aes192ccm64"
 130         [AES128-CCM64]="aes128ccm64"
 131
 132         # CAMELLIA-CBC
 133         [CAMELLIA256-CBC]="camellia256"
 134         [CAMELLIA192-CBC]="camellia192"
 135         [CAMELLIA128-CBC]="camellia128"
 136
 137         # CAMELLIA-CTR
 138         [CAMELLIA256-CTR]="camellia256ctr"
 139         [CAMELLIA192-CTR]="camellia192ctr"
 140         [CAMELLIA128-CTR]="camellia128ctr"
 141
 142         # CAMELLIA-GCM
 143         [CAMELLIA256-GCM128]="camellia256gcm128"
 144         [CAMELLIA192-GCM128]="camellia192gcm128"
 145         [CAMELLIA128-GCM128]="camellia128gcm128"
 146         [CAMELLIA256-GCM96]="camellia256gcm96"
 147         [CAMELLIA192-GCM96]="camellia192gcm96"
 148         [CAMELLIA128-GCM96]="camellia128gcm96"
 149         [CAMELLIA256-GCM64]="camellia256gcm64"
 150         [CAMELLIA192-GCM64]="camellia192gcm64"
 151         [CAMELLIA128-GCM64]="camellia128gcm64"
 152
 153         # CAMELLIA-CCM
 154         [CAMELLIA256-CCM128]="camellia256ccm128"
 155         [CAMELLIA192-CCM128]="camellia192ccm128"
 156         [CAMELLIA128-CCM128]="camellia128ccm128"
 157         [CAMELLIA256-CCM96]="camellia256ccm96"
 158         [CAMELLIA192-CCM96]="camellia192ccm96"
 159         [CAMELLIA128-CCM96]="camellia128ccm96"
 160         [CAMELLIA256-CCM64]="camellia256ccm64"
 161         [CAMELLIA192-CCM64]="camellia192ccm64"
 162         [CAMELLIA128-CCM64]="camellia128ccm64"
 163 )
 164
 165 declare -A VPN_SUPPORTED_INTEGRITY=(
 166         [MD5]="MD5-HMAC"
 167
 168         # SHA
 169         [SHA1]="SHA1-HMAC"
 170         [SHA512]="512 bit SHA2-HMAC"
 171         [SHA384]="384 bit SHA2-HMAC"
 172         [SHA256]="256 bit SHA2-HMAC"
 173
 174         # AES
 175         [AES-XCBC]="AES-XCBC"
 176         [AES-CMAC]="AES-CMAC"
 177         [AES256-GMAC]="256 bit AES-GMAC"
 178         [AES192-GMAC]="192 bit AES-GMAC"
 179         [AES128-GMAC]="128 bit AES-GMAC"
 180 )
 181
 182 declare -A INTEGRITY_TO_STRONGSWAN=(
 183         [MD5]="md5"
 184
 185         # SHA
 186         [SHA1]="sha1"
 187         [SHA512]="sha512"
 188         [SHA384]="sha384"
 189         [SHA256]="sha256"
 190
 191         # AES
 192         [AES-XCBC]="aesxcbc"
 193         [AES-CMAC]="aescmac"
 194         [AES256-GMAC]="aes256gmac"
 195         [AES192-GMAC]="aes192gmac"
 196         [AES128-GMAC]="aes128gmac"
 197 )
 198
 199 declare -A VPN_SUPPORTED_GROUP_TYPES=(
 200         # Regular Groups
 201         [MODP768]="768 bit Modulo Prime Group"
 202         [MODP1024]="1024 bit Modulo Prime Group"
 203         [MODP1536]="1536 bit Modulo Prime Group"
 204         [MODP2048]="2048 bit Modulo Prime Group"
 205         [MODP3072]="3072 bit Modulo Prime Group"
 206         [MODP4096]="4096 bit Modulo Prime Group"
 207         [MODP6144]="6144 bit Modulo Prime Group"
 208         [MODP8192]="8192 bit Modulo Prime Group"
 209
 210         # NIST Elliptic Curve Groups
 211         [ECP192]="192 bit NIST Elliptic Curve Group"
 212         [ECP224]="224 bit NIST Elliptic Curve Group"
 213         [ECP256]="256 bit NIST Elliptic Curve Group"
 214         [ECP384]="384 bit NIST Elliptic Curve Group"
 215         [ECP521]="521 bit NIST Elliptic Curve Group"
 216
 217         # Brainpool Elliptic Curve Groups
 218         [ECP224BP]="224 bit Brainpool Elliptic Curve Group"
 219         [ECP256BP]="256 bit Brainpool Elliptic Curve Group"
 220         [ECP384BP]="384 bit Brainpool Elliptic Curve Group"
 221         [ECP512BP]="512 bit Brainpool Elliptic Curve Group"
 222
 223         # Curve25519
 224         [CURVE25519]="256 bit Elliptic Curve 25519"
 225 )
 226
 227 declare -A GROUP_TYPE_TO_STRONGSWAN=(
 228         # Regular Groups
 229         [MODP768]="modp768"
 230         [MODP1024]="modp1024"
 231         [MODP1536]="modp1536"
 232         [MODP2048]="modp2048"
 233         [MODP3072]="modp3072"
 234         [MODP4096]="modp4096"
 235         [MODP6144]="modp6144"
 236         [MODP8192]="modp8192"
 237
 238         # NIST Elliptic Curve Groups
 239         [ECP192]="ecp192"
 240         [ECP224]="ecp224"
 241         [ECP256]="ecp256"
 242         [ECP384]="ecp384"
 243         [ECP521]="ecp521"
 244
 245         # Brainpool Elliptic Curve Groups
 246         [ECP224BP]="ecp224bp"
 247         [ECP256BP]="ecp256bp"
 248         [ECP384BP]="ecp384bp"
 249         [ECP512BP]="ecp512bp"
 250
 251         # Curve25519
 252         [CURVE25519]="curve25519"
 253 )
 254
 255 # This functions checks if a policy is readonly
 256 # returns true when yes and false when no
 257 vpn_security_policies_check_readonly() {
 258         if isoneof name ${VPN_SECURITY_POLICIES_READONLY}; then
 259                 return ${EXIT_TRUE}
 260         else
 261                 return ${EXIT_FALSE}
 262         fi
 263 }
 264
 265 # This function writes all values to a via ${name} specificated vpn security policy configuration file
 266 vpn_security_policies_write_config() {
 267         assert [ $# -ge 1 ]
 268
 269         local name="${1}"
 270
 271         if ! vpn_security_policy_exists "${name}"; then
 272                 log ERROR "No such vpn security policy: ${name}"
 273                 return ${EXIT_ERROR}
 274         fi
 275
 276         if vpn_security_policies_check_readonly "${name}"; then
 277                 log ERROR "The ${name} vpn security policy cannot be changed."
 278                 return ${EXIT_ERROR}
 279         fi
 280
 281         local path="$(vpn_security_policies_path "${name}")"
 282         if [ ! -w ${path} ]; then
 283                 log ERROR "${path} is not writeable"
 284                 return ${EXIT_ERROR}
 285         fi
 286
 287         if ! settings_write "${path}" ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}; then
 288                 log ERROR "Could not write configuration settings for vpn security policy ${name}"
 289                 return ${EXIT_ERROR}
 290         fi
 291
 292         # TODO everytime we successfully write a config we should call some trigger to take the changes into effect
 293 }
 294
 295 # This funtion writes the value for one key to a via ${name} specificated vpn security policy configuration file
 296 vpn_security_policies_write_config_key() {
 297         assert [ $# -ge 3 ]
 298
 299         local name=${1}
 300         local key=${2}
 301         shift 2
 302
 303         local value="$@"
 304
 305         if ! vpn_security_policy_exists "${name}"; then
 306                 log ERROR "No such vpn security policy: ${name}"
 307                 return ${EXIT_ERROR}
 308         fi
 309
 310         log DEBUG "Set '${key}' to new value '${value}' in vpn security policy ${name}"
 311
 312         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 313
 314         # Read the config settings
 315         if ! vpn_security_policies_read_config "${name}"; then
 316                 return ${EXIT_ERROR}
 317         fi
 318
 319         # Set the key to a new value
 320         assign "${key}" "${value}"
 321
 322         if ! vpn_security_policies_write_config "${name}"; then
 323                 return ${EXIT_ERROR}
 324         fi
 325
 326         return ${EXIT_TRUE}
 327 }
 328
 329 # Reads one or more keys out of a settings file or all if no key is provided.
 330 vpn_security_policies_read_config() {
 331         assert [ $# -ge 1 ]
 332
 333         local name="${1}"
 334         shift 1
 335
 336         if ! vpn_security_policy_exists "${name}"; then
 337                 log ERROR "No such vpn security policy: ${name}"
 338                 return ${EXIT_ERROR}
 339         fi
 340
 341
 342         local args
 343         if [ $# -eq 0 ] && [ -n "${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}" ]; then
 344                 list_append args ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 345         else
 346                 list_append args $@
 347         fi
 348
 349         local path="$(vpn_security_policies_path ${name})"
 350
 351         if ! settings_read "${path}" ${args}; then
 352                 log ERROR "Could not read settings for vpn security policy ${name}"
 353                 return ${EXIT_ERROR}
 354         fi
 355 }
 356
 357 # Returns the path to a the configuration fora given name
 358 vpn_security_policies_path() {
 359         assert [ $# -eq 1 ]
 360
 361         local name=${1}
 362
 363         if vpn_security_policies_check_readonly "${name}"; then
 364                 echo "${NETWORK_SHARE_DIR}/vpn/security-policies/${name}"
 365         else
 366                 echo "${NETWORK_CONFIG_DIR}/vpn/security-policies/${name}"
 367         fi
 368 }
 369
 370 # Print the content of a vpn security policy configuration file in a nice way
 371 vpn_security_policies_show() {
 372         assert [ $# -eq 1 ]
 373
 374         local name=${1}
 375
 376         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 377         if ! vpn_security_policies_read_config ${name}; then
 378                 return ${EXIT_ERROR}
 379         fi
 380
 381         cli_print_fmt1 0 "Security Policy: ${name}"
 382         cli_space
 383
 384         # This could be done in a loop but a loop is much more complicated
 385         # because we print 'Group Types' but the variable is named 'GROUP_TYPES'
 386         cli_print_fmt1 1 "Ciphers:"
 387         local cipher
 388         for cipher in ${CIPHER}; do
 389                 cli_print_fmt1 2 "${VPN_SUPPORTED_CIPHERS[${cipher}]-${cipher}}"
 390         done
 391         cli_space
 392
 393         cli_print_fmt1 1 "Integrity:"
 394         local integrity
 395         for integrity in ${INTEGRITY}; do
 396                 cli_print_fmt1 2 "${VPN_SUPPORTED_INTEGRITY[${integrity}]-${integrity}}"
 397         done
 398         cli_space
 399
 400         cli_print_fmt1 1 "Group Types:"
 401         local group_type
 402         for group_type in ${GROUP_TYPE}; do
 403                 cli_print_fmt1 2 "${VPN_SUPPORTED_GROUP_TYPES[${group_type}]-${group_type}}"
 404         done
 405         cli_space
 406
 407         cli_print_fmt1 1 "Key Exchange:" "${KEY_EXCHANGE}"
 408
 409         # Key Lifetime
 410         if isinteger LIFETIME && [ ${LIFETIME} -gt 0 ]; then
 411                 cli_print_fmt1 1 "Key Lifetime:" "$(format_time ${LIFETIME})"
 412         else
 413                 log ERROR "The value for Key Lifetime is not a valid integer greater zero."
 414         fi
 415
 416         # PFS
 417         if enabled PFS; then
 418                 cli_print_fmt1 1 "Perfect Forward Secrecy:" "enabled"
 419         else
 420                 cli_print_fmt1 1 "Perfect Forward Secrecy:" "disabled"
 421         fi
 422         cli_space
 423
 424         # Compression
 425         if enabled COMPRESSION; then
 426                 cli_print_fmt1 1 "Compression:" "enabled"
 427         else
 428                 cli_print_fmt1 1 "Compression:" "disabled"
 429         fi
 430         cli_space
 431 }
 432
 433 # This function checks if a vpn security policy exists
 434 # Returns True when yes and false when not
 435 vpn_security_policy_exists() {
 436         assert [ $# -eq 1 ]
 437
 438         local name=${1}
 439
 440         local path=$(vpn_security_policies_path "${name}")
 441
 442         [ -f ${path} ] && return ${EXIT_TRUE} || return ${EXIT_FALSE}
 443 }
 444
 445
 446 # This function parses the parameters for the 'cipher' command
 447 vpn_security_policies_cipher(){
 448         local name=${1}
 449         shift
 450
 451         if [ $# -eq 0 ]; then
 452                 log ERROR "You must pass at least one value after cipher"
 453                 return ${EXIT_ERROR}
 454         fi
 455
 456         local CIPHER
 457         if ! vpn_security_policies_read_config ${name} "CIPHER"; then
 458                 return ${EXIT_ERROR}
 459         fi
 460
 461         # Remove duplicated entries to proceed the list safely
 462         CIPHER="$(list_unique ${CIPHER})"
 463
 464         while [ $# -gt 0 ]; do
 465                 case "${1}" in
 466                         -*)
 467                                 value=${1#-}
 468                                 # Check if the cipher is in the list of ciphers and
 469                                 # check if the list has after removing this cipher at least one valid value
 470                                 if list_match ${value} ${CIPHER}; then
 471                                         list_remove CIPHER ${value}
 472                                 else
 473                                         # We do not break here because this error does not break the processing of the next maybe valid values.
 474                                         log ERROR "Can not remove ${value} from the list of Ciphers because ${value} is not in the list."
 475                                 fi
 476                                 ;;
 477                         +*)
 478                                 value=${1#+}
 479                                 # Check if the Ciphers is in the list of supported ciphers.
 480                                 if ! isoneof value ${!VPN_SUPPORTED_CIPHERS[@]}; then
 481                                         # We do not break here because this error does not break the processing of the next maybe valid values.
 482                                         log ERROR "${value} is not a supported cipher and can thats why not added to the list of ciphers."
 483                                 else
 484                                         if list_match ${value} ${CIPHER}; then
 485                                                 log WARNING "${value} is already in the list of ciphers of this policy."
 486                                         else
 487                                                 list_append CIPHER ${value}
 488                                         fi
 489                                 fi
 490                                 ;;
 491                 esac
 492                 shift
 493         done
 494
 495         # Check if the list contain at least one valid cipher
 496         if [ $(list_length ${CIPHER}) -ge 1 ]; then
 497                 if ! vpn_security_policies_write_config_key ${name} "CIPHER" ${CIPHER}; then
 498                         log ERROR "The changes for the vpn security policy ${name} could not be written."
 499                 fi
 500         else
 501                 log ERROR "After proceding all ciphers the list is empty and thats why no changes are written."
 502                 return ${EXIT_ERROR}
 503         fi
 504 }
 505
 506 # This function parses the parameters for the 'compression' command
 507 vpn_security_policies_compression(){
 508         local name=${1}
 509         local value=${2}
 510
 511         # Check if we get only one argument after compression <name>
 512         if [ ! $# -eq 2 ]; then
 513                 log ERROR "The number of arguments do not match. Only one argument after compression is allowed."
 514                 return ${EXIT_ERROR}
 515         fi
 516
 517         if ! isbool value; then
 518                 # We suggest only two values to avoid overburding the user.
 519                 log ERROR "Invalid Argument ${value}"
 520                 return ${EXIT_ERROR}
 521         fi
 522
 523         vpn_security_policies_write_config_key "${name}" "COMPRESSION" "${value}"
 524 }
 525
 526 # This function parses the parameters for the 'group-type' command
 527 vpn_security_policies_group_type(){
 528         local name=${1}
 529         shift
 530
 531         if [ $# -eq 0 ]; then
 532                 log ERROR "You must pass at least one value after group-type"
 533                 return ${EXIT_ERROR}
 534         fi
 535
 536         local GROUP_TYPE
 537         if ! vpn_security_policies_read_config ${name} "GROUP_TYPE"; then
 538                 return ${EXIT_ERROR}
 539         fi
 540
 541         # Remove duplicated entries to proceed the list safely
 542         GROUP_TYPE="$(list_unique ${GROUP_TYPE})"
 543
 544         while [ $# -gt 0 ]; do
 545                 case "${1}" in
 546                         -*)
 547                                 value=${1#-}
 548                                 # Check if the group type is in the list of group types and
 549                                 # check if the list has after removing this group type at leatst one valid value
 550                                 if list_match ${value} ${GROUP_TYPE}; then
 551                                         list_remove GROUP_TYPE ${value}
 552                                 else
 553                                         # We do not break here because this error does not break the processing of the next maybe valid values.
 554                                         log ERROR "Can not remove ${value} from the list of group types because ${value} is not in the list."
 555                                 fi
 556                                 ;;
 557                         +*)
 558                                 value=${1#+}
 559                                 # Check if the group type is in the list of supported group types.
 560                                 if ! isoneof value ${!VPN_SUPPORTED_GROUP_TYPES[@]}; then
 561                                         # We do not break here because the processing of other maybe valid values are indepent from this error.
 562                                         log ERROR "${value} is not a supported group type and can thats why not added to the list of group types."
 563                                 else
 564                                         if list_match ${value} ${GROUP_TYPE}; then
 565                                                 log WARNING "${value} is already in the list of group-types of this policy."
 566                                         else
 567                                                 list_append GROUP_TYPE ${value}
 568                                         fi
 569                                 fi
 570                                 ;;
 571                 esac
 572                 shift
 573         done
 574
 575         # Check if the list contain at least one valid group-type
 576         if [ $(list_length ${GROUP_TYPE}) -ge 1 ]; then
 577                 if ! vpn_security_policies_write_config_key ${name} "GROUP_TYPE" ${GROUP_TYPE}; then
 578                         log ERROR "The changes for the vpn security policy ${name} could not be written."
 579                 fi
 580         else
 581                 log ERROR "After proceding all group types the list is empty and thats why no changes are written."
 582                 return ${EXIT_ERROR}
 583         fi
 584 }
 585
 586 # This function parses the parameters for the 'integrity' command
 587 vpn_security_policies_integrity(){
 588         local name=${1}
 589         shift
 590
 591         if [ $# -eq 0 ]; then
 592                 log ERROR "You must pass at least one value after integrity."
 593                 return ${EXIT_ERROR}
 594         fi
 595
 596         local INTEGRITY
 597         if ! vpn_security_policies_read_config ${name} "INTEGRITY"; then
 598                 return ${EXIT_ERROR}
 599         fi
 600
 601         # Remove duplicated entries to proceed the list safely
 602         INTEGRITY="$(list_unique ${INTEGRITY})"
 603
 604         while [ $# -gt 0 ]; do
 605                 case "${1}" in
 606                         -*)
 607                                 value=${1#-}
 608                                 # Check if the integrity hash is in the list of integrity hashes and
 609                                 # check if the list has after removing this  integrity hash at least one valid value
 610                                 if list_match ${value} ${INTEGRITY}; then
 611                                         list_remove INTEGRITY ${value}
 612                                 else
 613                                         # We do not break here because the processing of other maybe valid values are indepent from this error.
 614                                         log ERROR "Can not remove ${value} from the list of integrity hashes because ${value} is not in the list."
 615                                 fi
 616                                 ;;
 617                         +*)
 618                                 value=${1#+}
 619                                 # Check if the Ciphers is in the list of supported integrity hashes.
 620                                 if ! isoneof value ${!VPN_SUPPORTED_INTEGRITY[@]}; then
 621                                         # We do not break here because the processing of other maybe valid values are indepent from this error.
 622                                         log ERROR "${value} is not a supported integrity hash and can thats why not added to the list of integrity hashes."
 623                                 else
 624                                         if list_match ${value} ${INTEGRITY}; then
 625                                                 log WARNING "${value} is already in the list of integrety hashes of this policy."
 626                                         else
 627                                                 list_append INTEGRITY ${value}
 628                                         fi
 629                                 fi
 630                                 ;;
 631                 esac
 632                 shift
 633         done
 634
 635         # Check if the list contain at least one valid group-type
 636         if [ $(list_length ${INTEGRITY}) -ge 1 ]; then
 637                 if ! vpn_security_policies_write_config_key ${name} "INTEGRITY" ${INTEGRITY}; then
 638                         log ERROR "The changes for the vpn security policy ${name} could not be written."
 639                 fi
 640         else
 641                 log ERROR "After proceding all integrity hashes the list is empty and thats why no changes are written."
 642                 return ${EXIT_ERROR}
 643         fi
 644 }
 645
 646 # This function parses the parameters for the 'key-exchange' command
 647 vpn_security_policies_key_exchange() {
 648         local name=${1}
 649         local value=${2}
 650
 651         # Check if we get only one argument after key-exchange <name>
 652         if [ ! $# -eq 2 ]; then
 653                 log ERROR "The number of arguments do not match. Only argument after key-exchange is allowed."
 654                 return ${EXIT_ERROR}
 655         fi
 656
 657         if ! isoneof value "ikev1" "ikev2" "IKEV1" "IKEV2"; then
 658                 log ERROR "Invalid Argument ${value}"
 659                 return ${EXIT_ERROR}
 660         fi
 661
 662         vpn_security_policies_write_config_key "${name}" "KEY_EXCHANGE" "${value,,}"
 663 }
 664
 665 # This function parses the parameters for the 'lifetime' command.
 666 vpn_security_policies_lifetime(){
 667         local name=${1}
 668         shift
 669
 670         local value=$@
 671
 672         # Check if we get only one argument after lifetime <name>
 673         if [ ! $# -ge 1 ]; then
 674                 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"
 675                 return ${EXIT_ERROR}
 676         fi
 677
 678         if ! isinteger value; then
 679                 value=$(parse_time $@)
 680                 if [ ! $? -eq 0 ]; then
 681                         log ERROR "Parsing the passed time was not sucessful please check the passed values."
 682                         return ${EXIT_ERROR}
 683                 fi
 684         fi
 685
 686         if [ ${value} -le 0 ]; then
 687                 log ERROR "The passed time value must be in the sum greater zero seconds."
 688                 return ${EXIT_ERROR}
 689         fi
 690
 691         vpn_security_policies_write_config_key "${name}" "LIFETIME" "${value}"
 692 }
 693
 694 # This function parses the parameters for the 'pfs' command
 695 vpn_security_policies_pfs(){
 696         local name=${1}
 697         local value=${2}
 698
 699         # Check if we get only one argument after pfs <name>
 700         if [ ! $# -eq 2 ]; then
 701                 log ERROR "The number of arguments do not match. Only argument after pfs is allowed."
 702                 return ${EXIT_ERROR}
 703         fi
 704
 705         if [ ! $# -eq 2 ] || ! isbool value; then
 706                 # We suggest only two values to avoid overburding the user.
 707                 log ERROR "Invalid Argument ${value}"
 708                 return ${EXIT_ERROR}
 709         fi
 710
 711         vpn_security_policies_write_config_key "${name}" "PFS" "${value}"
 712 }
 713
 714 # This function checks if a vpn security policy name is valid
 715 # Allowed are only A-Za-z0-9
 716 vpn_security_policies_check_name() {
 717         assert [ $# -eq 1 ]
 718
 719         local name=${1}
 720
 721         [[ ${name} =~ [^[:alnum:]$] ]]
 722 }
 723
 724 # Function that creates based on the paramters one ore more new vpn security policies
 725 vpn_security_policies_new() {
 726         if [ $# -gt 1 ]; then
 727                 error "Too many arguments"
 728                 return ${EXIT_ERROR}
 729         fi
 730
 731         local name="${1}"
 732         if ! isset name; then
 733                 error "Please provide a name"
 734                 return ${EXIT_ERROR}
 735         fi
 736
 737         # Check for duplicates
 738         if vpn_security_policy_exists "${name}"; then
 739                 error "The VPN security policy with name ${name} already exists"
 740                 return ${EXIT_ERROR}
 741         fi
 742
 743         # Check if name is valid
 744         if  vpn_security_policies_check_name "${name}"; then
 745                 error "'${name}' contains illegal characters"
 746                 return ${EXIT_ERROR}
 747         fi
 748
 749         # Check if we have a read-only policy with the same name
 750         if vpn_security_policies_check_readonly "${name}"; then
 751                 error "The VPN security policy ${name} is read-only"
 752                 return ${EXIT_ERROR}
 753         fi
 754
 755         # Check if our source policy exists
 756         if ! vpn_security_policy_exists "${VPN_DEFAULT_SECURITY_POLICY}"; then
 757                 error "Default VPN Security Policy '${VPN_DEFAULT_SECURITY_POLICY}' does not exist"
 758                 return ${EXIT_ERROR}
 759         fi
 760
 761         log DEBUG "Creating VPN Security Policy ${name}"
 762
 763         if copy "$(vpn_security_policies_path "${VPN_DEFAULT_SECURITY_POLICY}")"
 764                         "$(vpn_security_policies_path ${name})"; then
 765                 log INFO "VPN Security Policy ${name} successfully created"
 766         else
 767                 log ERROR "Could not create VPN Security Policy ${name}"
 768                 return ${EXIT_ERROR}
 769         fi
 770
 771         # Show the newly created policy
 772         vpn_security_policies_show "${name}"
 773 }
 774
 775 # Function that deletes based on the passed parameters one ore more vpn security policies
 776 vpn_security_policies_destroy() {
 777         local name
 778         for name in $@; do
 779                 if ! vpn_security_policy_exists ${name}; then
 780                         log ERROR "The vpn security policy ${name} does not exist."
 781                         continue
 782                 fi
 783
 784                 if vpn_security_policies_check_readonly ${name}; then
 785                         log ERROR "The vpn security policy ${name} cannot be deleted."
 786                         continue
 787                 fi
 788
 789                 log DEBUG "Deleting vpn security policy ${name}"
 790                 settings_remove $(vpn_security_policies_path ${name})
 791         done
 792 }
 793
 794 vpn_security_policies_make_ah_proposal() {
 795         local name=${1}
 796
 797         # Read the config settings
 798         local ${VPN_SECURITY_POLICIES_CONFIG_SETTINGS}
 799         if ! vpn_security_policies_read_config "${name}"; then
 800                 return ${EXIT_ERROR}
 801         fi
 802
 803         local proposals
 804
 805         local cipher
 806         for cipher in ${CIPHER}; do
 807                 # Translate cipher
 808                 local _cipher=${CIPHER_TO_STRONGSWAN[${cipher}]}
 809
 810                 if ! isset _cipher; then
 811                         log WARN "Unsupported cipher: ${cipher}"
 812                         continue
 813                 fi
 814
 815                 local integrity
 816                 for integrity in ${INTEGRITY}; do
 817                         local _integrity=${INTEGRITY_TO_STRONGSWAN[${integrity}]}
 818
 819                         if ! isset _integrity; then
 820                                 log WARN "Unsupported integrity: ${integrity}"
 821                                 continue
 822                         fi
 823
 824                         local group_type
 825                         for group_type in ${GROUP_TYPE}; do
 826                                 local _group_type=${GROUP_TYPE_TO_STRONGSWAN[${group_type}]}
 827
 828                                 if ! isset _group_type; then
 829                                         log WARN "Unsupported group-type: ${group_type}"
 830                                         continue
 831                                 fi
 832
 833                                 # Put everything together
 834                                 list_append proposals "${_cipher}-${_integrity}-${_group_type}"
 835                         done
 836                 done
 837         done
 838
 839         # Returns as a comma-separated list
 840         list_join proposals ,
 841 }