Damien Miller | 690d989 | 2013-11-08 12:16:49 +1100 | [diff] [blame] | 1 | /* $OpenBSD: cipher.c,v 1.90 2013/11/07 11:58:27 dtucker Exp $ */ |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 2 | /* |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 3 | * Author: Tatu Ylonen <ylo@cs.hut.fi> |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 4 | * Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland |
| 5 | * All rights reserved |
Damien Miller | 4af5130 | 2000-04-16 11:18:38 +1000 | [diff] [blame] | 6 | * |
Damien Miller | e4340be | 2000-09-16 13:29:08 +1100 | [diff] [blame] | 7 | * As far as I am concerned, the code I have written for this software |
| 8 | * can be used freely for any purpose. Any derived versions of this |
| 9 | * software must be clearly marked as such, and if the derived work is |
| 10 | * incompatible with the protocol description in the RFC file, it must be |
| 11 | * called by a name other than "ssh" or "Secure Shell". |
Damien Miller | 4af5130 | 2000-04-16 11:18:38 +1000 | [diff] [blame] | 12 | * |
Damien Miller | e4340be | 2000-09-16 13:29:08 +1100 | [diff] [blame] | 13 | * |
| 14 | * Copyright (c) 1999 Niels Provos. All rights reserved. |
Ben Lindstrom | 4469723 | 2001-07-04 03:32:30 +0000 | [diff] [blame] | 15 | * Copyright (c) 1999, 2000 Markus Friedl. All rights reserved. |
Damien Miller | e4340be | 2000-09-16 13:29:08 +1100 | [diff] [blame] | 16 | * |
| 17 | * Redistribution and use in source and binary forms, with or without |
| 18 | * modification, are permitted provided that the following conditions |
| 19 | * are met: |
| 20 | * 1. Redistributions of source code must retain the above copyright |
| 21 | * notice, this list of conditions and the following disclaimer. |
| 22 | * 2. Redistributions in binary form must reproduce the above copyright |
| 23 | * notice, this list of conditions and the following disclaimer in the |
| 24 | * documentation and/or other materials provided with the distribution. |
| 25 | * |
| 26 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
| 27 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
| 28 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
| 29 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
| 30 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
| 31 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| 32 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| 33 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| 34 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
| 35 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 36 | */ |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 37 | |
| 38 | #include "includes.h" |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 39 | |
Damien Miller | d783435 | 2006-08-05 12:39:39 +1000 | [diff] [blame] | 40 | #include <sys/types.h> |
| 41 | |
Damien Miller | e3476ed | 2006-07-24 14:13:33 +1000 | [diff] [blame] | 42 | #include <openssl/md5.h> |
| 43 | |
| 44 | #include <string.h> |
Damien Miller | d783435 | 2006-08-05 12:39:39 +1000 | [diff] [blame] | 45 | #include <stdarg.h> |
Damien Miller | e3476ed | 2006-07-24 14:13:33 +1000 | [diff] [blame] | 46 | |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 47 | #include "xmalloc.h" |
Ben Lindstrom | 226cfa0 | 2001-01-22 05:34:40 +0000 | [diff] [blame] | 48 | #include "log.h" |
| 49 | #include "cipher.h" |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 50 | |
Darren Tucker | f0bd352 | 2005-06-17 21:15:20 +1000 | [diff] [blame] | 51 | /* compatibility with old or broken OpenSSL versions */ |
| 52 | #include "openbsd-compat/openssl-compat.h" |
| 53 | |
Damien Miller | 3a3261f | 2003-05-15 13:37:19 +1000 | [diff] [blame] | 54 | extern const EVP_CIPHER *evp_ssh1_bf(void); |
| 55 | extern const EVP_CIPHER *evp_ssh1_3des(void); |
| 56 | extern void ssh1_3des_iv(EVP_CIPHER_CTX *, int, u_char *, int); |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 57 | |
Damien Miller | 963f6b2 | 2002-02-19 15:21:23 +1100 | [diff] [blame] | 58 | struct Cipher { |
| 59 | char *name; |
| 60 | int number; /* for ssh1 only */ |
| 61 | u_int block_size; |
| 62 | u_int key_len; |
Damien Miller | d522c68 | 2013-01-09 16:42:47 +1100 | [diff] [blame] | 63 | u_int iv_len; /* defaults to block_size */ |
| 64 | u_int auth_len; |
Damien Miller | 3710f27 | 2005-05-26 12:19:17 +1000 | [diff] [blame] | 65 | u_int discard_len; |
Damien Miller | 13ae44c | 2009-01-28 16:38:41 +1100 | [diff] [blame] | 66 | u_int cbc_mode; |
Ben Lindstrom | 6a24641 | 2002-06-06 19:48:16 +0000 | [diff] [blame] | 67 | const EVP_CIPHER *(*evptype)(void); |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 68 | }; |
| 69 | |
| 70 | static const struct Cipher ciphers[] = { |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 71 | { "none", SSH_CIPHER_NONE, 8, 0, 0, 0, 0, 0, EVP_enc_null }, |
| 72 | { "des", SSH_CIPHER_DES, 8, 8, 0, 0, 0, 1, EVP_des_cbc }, |
| 73 | { "3des", SSH_CIPHER_3DES, 8, 16, 0, 0, 0, 1, evp_ssh1_3des }, |
| 74 | { "blowfish", SSH_CIPHER_BLOWFISH, 8, 32, 0, 0, 0, 1, evp_ssh1_bf }, |
| 75 | |
| 76 | { "3des-cbc", SSH_CIPHER_SSH2, 8, 24, 0, 0, 0, 1, EVP_des_ede3_cbc }, |
| 77 | { "blowfish-cbc", |
| 78 | SSH_CIPHER_SSH2, 8, 16, 0, 0, 0, 1, EVP_bf_cbc }, |
| 79 | { "cast128-cbc", |
| 80 | SSH_CIPHER_SSH2, 8, 16, 0, 0, 0, 1, EVP_cast5_cbc }, |
| 81 | { "arcfour", SSH_CIPHER_SSH2, 8, 16, 0, 0, 0, 0, EVP_rc4 }, |
| 82 | { "arcfour128", SSH_CIPHER_SSH2, 8, 16, 0, 0, 1536, 0, EVP_rc4 }, |
| 83 | { "arcfour256", SSH_CIPHER_SSH2, 8, 32, 0, 0, 1536, 0, EVP_rc4 }, |
| 84 | { "aes128-cbc", SSH_CIPHER_SSH2, 16, 16, 0, 0, 0, 1, EVP_aes_128_cbc }, |
| 85 | { "aes192-cbc", SSH_CIPHER_SSH2, 16, 24, 0, 0, 0, 1, EVP_aes_192_cbc }, |
| 86 | { "aes256-cbc", SSH_CIPHER_SSH2, 16, 32, 0, 0, 0, 1, EVP_aes_256_cbc }, |
| 87 | { "rijndael-cbc@lysator.liu.se", |
| 88 | SSH_CIPHER_SSH2, 16, 32, 0, 0, 0, 1, EVP_aes_256_cbc }, |
| 89 | { "aes128-ctr", SSH_CIPHER_SSH2, 16, 16, 0, 0, 0, 0, EVP_aes_128_ctr }, |
| 90 | { "aes192-ctr", SSH_CIPHER_SSH2, 16, 24, 0, 0, 0, 0, EVP_aes_192_ctr }, |
| 91 | { "aes256-ctr", SSH_CIPHER_SSH2, 16, 32, 0, 0, 0, 0, EVP_aes_256_ctr }, |
Damien Miller | d522c68 | 2013-01-09 16:42:47 +1100 | [diff] [blame] | 92 | #ifdef OPENSSL_HAVE_EVPGCM |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 93 | { "aes128-gcm@openssh.com", |
| 94 | SSH_CIPHER_SSH2, 16, 16, 12, 16, 0, 0, EVP_aes_128_gcm }, |
| 95 | { "aes256-gcm@openssh.com", |
| 96 | SSH_CIPHER_SSH2, 16, 32, 12, 16, 0, 0, EVP_aes_256_gcm }, |
Damien Miller | d522c68 | 2013-01-09 16:42:47 +1100 | [diff] [blame] | 97 | #endif |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 98 | { NULL, SSH_CIPHER_INVALID, 0, 0, 0, 0, 0, 0, NULL } |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 99 | }; |
| 100 | |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 101 | /*--*/ |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 102 | |
Damien Miller | 690d989 | 2013-11-08 12:16:49 +1100 | [diff] [blame] | 103 | /* Returns a list of supported ciphers separated by the specified char. */ |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 104 | char * |
Damien Miller | 690d989 | 2013-11-08 12:16:49 +1100 | [diff] [blame] | 105 | cipher_alg_list(char sep) |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 106 | { |
| 107 | char *ret = NULL; |
| 108 | size_t nlen, rlen = 0; |
| 109 | const Cipher *c; |
| 110 | |
| 111 | for (c = ciphers; c->name != NULL; c++) { |
| 112 | if (c->number != SSH_CIPHER_SSH2) |
| 113 | continue; |
| 114 | if (ret != NULL) |
Damien Miller | 690d989 | 2013-11-08 12:16:49 +1100 | [diff] [blame] | 115 | ret[rlen++] = sep; |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 116 | nlen = strlen(c->name); |
| 117 | ret = xrealloc(ret, 1, rlen + nlen + 2); |
| 118 | memcpy(ret + rlen, c->name, nlen + 1); |
| 119 | rlen += nlen; |
| 120 | } |
| 121 | return ret; |
| 122 | } |
| 123 | |
Ben Lindstrom | 6328ab3 | 2002-03-22 02:54:23 +0000 | [diff] [blame] | 124 | u_int |
Damien Miller | f58b58c | 2003-11-17 21:18:23 +1100 | [diff] [blame] | 125 | cipher_blocksize(const Cipher *c) |
Damien Miller | 963f6b2 | 2002-02-19 15:21:23 +1100 | [diff] [blame] | 126 | { |
| 127 | return (c->block_size); |
| 128 | } |
Ben Lindstrom | 836f0e9 | 2002-06-23 21:21:30 +0000 | [diff] [blame] | 129 | |
Ben Lindstrom | 6328ab3 | 2002-03-22 02:54:23 +0000 | [diff] [blame] | 130 | u_int |
Damien Miller | f58b58c | 2003-11-17 21:18:23 +1100 | [diff] [blame] | 131 | cipher_keylen(const Cipher *c) |
Damien Miller | 963f6b2 | 2002-02-19 15:21:23 +1100 | [diff] [blame] | 132 | { |
| 133 | return (c->key_len); |
| 134 | } |
Ben Lindstrom | 836f0e9 | 2002-06-23 21:21:30 +0000 | [diff] [blame] | 135 | |
Ben Lindstrom | 6328ab3 | 2002-03-22 02:54:23 +0000 | [diff] [blame] | 136 | u_int |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 137 | cipher_authlen(const Cipher *c) |
| 138 | { |
| 139 | return (c->auth_len); |
| 140 | } |
| 141 | |
| 142 | u_int |
| 143 | cipher_ivlen(const Cipher *c) |
| 144 | { |
| 145 | return (c->iv_len ? c->iv_len : c->block_size); |
| 146 | } |
| 147 | |
| 148 | u_int |
Damien Miller | f58b58c | 2003-11-17 21:18:23 +1100 | [diff] [blame] | 149 | cipher_get_number(const Cipher *c) |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 150 | { |
| 151 | return (c->number); |
| 152 | } |
Damien Miller | 963f6b2 | 2002-02-19 15:21:23 +1100 | [diff] [blame] | 153 | |
Ben Lindstrom | 46c1622 | 2000-12-22 01:43:59 +0000 | [diff] [blame] | 154 | u_int |
Damien Miller | 13ae44c | 2009-01-28 16:38:41 +1100 | [diff] [blame] | 155 | cipher_is_cbc(const Cipher *c) |
| 156 | { |
| 157 | return (c->cbc_mode); |
| 158 | } |
| 159 | |
| 160 | u_int |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 161 | cipher_mask_ssh1(int client) |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 162 | { |
Ben Lindstrom | 46c1622 | 2000-12-22 01:43:59 +0000 | [diff] [blame] | 163 | u_int mask = 0; |
Damien Miller | 9f0f5c6 | 2001-12-21 14:45:46 +1100 | [diff] [blame] | 164 | mask |= 1 << SSH_CIPHER_3DES; /* Mandatory */ |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 165 | mask |= 1 << SSH_CIPHER_BLOWFISH; |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 166 | if (client) { |
| 167 | mask |= 1 << SSH_CIPHER_DES; |
| 168 | } |
Damien Miller | 1383bd8 | 2000-04-06 12:32:37 +1000 | [diff] [blame] | 169 | return mask; |
| 170 | } |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 171 | |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 172 | const Cipher * |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 173 | cipher_by_name(const char *name) |
Damien Miller | 1383bd8 | 2000-04-06 12:32:37 +1000 | [diff] [blame] | 174 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 175 | const Cipher *c; |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 176 | for (c = ciphers; c->name != NULL; c++) |
Darren Tucker | 660db78 | 2005-01-24 21:57:11 +1100 | [diff] [blame] | 177 | if (strcmp(c->name, name) == 0) |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 178 | return c; |
| 179 | return NULL; |
Damien Miller | 1383bd8 | 2000-04-06 12:32:37 +1000 | [diff] [blame] | 180 | } |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 181 | |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 182 | const Cipher * |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 183 | cipher_by_number(int id) |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 184 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 185 | const Cipher *c; |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 186 | for (c = ciphers; c->name != NULL; c++) |
| 187 | if (c->number == id) |
| 188 | return c; |
| 189 | return NULL; |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 190 | } |
| 191 | |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 192 | #define CIPHER_SEP "," |
| 193 | int |
| 194 | ciphers_valid(const char *names) |
| 195 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 196 | const Cipher *c; |
Darren Tucker | 3f9fdc7 | 2004-06-22 12:56:01 +1000 | [diff] [blame] | 197 | char *cipher_list, *cp; |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 198 | char *p; |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 199 | |
Damien Miller | b1715dc | 2000-05-30 13:44:51 +1000 | [diff] [blame] | 200 | if (names == NULL || strcmp(names, "") == 0) |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 201 | return 0; |
Darren Tucker | 3f9fdc7 | 2004-06-22 12:56:01 +1000 | [diff] [blame] | 202 | cipher_list = cp = xstrdup(names); |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 203 | for ((p = strsep(&cp, CIPHER_SEP)); p && *p != '\0'; |
Damien Miller | 9f0f5c6 | 2001-12-21 14:45:46 +1100 | [diff] [blame] | 204 | (p = strsep(&cp, CIPHER_SEP))) { |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 205 | c = cipher_by_name(p); |
| 206 | if (c == NULL || c->number != SSH_CIPHER_SSH2) { |
| 207 | debug("bad cipher %s [%s]", p, names); |
Darren Tucker | a627d42 | 2013-06-02 07:31:17 +1000 | [diff] [blame] | 208 | free(cipher_list); |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 209 | return 0; |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 210 | } else { |
Damien Miller | 50a41ed | 2000-10-16 12:14:42 +1100 | [diff] [blame] | 211 | debug3("cipher ok: %s [%s]", p, names); |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 212 | } |
| 213 | } |
Damien Miller | 50a41ed | 2000-10-16 12:14:42 +1100 | [diff] [blame] | 214 | debug3("ciphers ok: [%s]", names); |
Darren Tucker | a627d42 | 2013-06-02 07:31:17 +1000 | [diff] [blame] | 215 | free(cipher_list); |
Damien Miller | 7892879 | 2000-04-12 20:17:38 +1000 | [diff] [blame] | 216 | return 1; |
| 217 | } |
| 218 | |
Damien Miller | 5428f64 | 1999-11-25 11:54:57 +1100 | [diff] [blame] | 219 | /* |
| 220 | * Parses the name of the cipher. Returns the number of the corresponding |
| 221 | * cipher, or -1 on error. |
| 222 | */ |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 223 | |
| 224 | int |
| 225 | cipher_number(const char *name) |
| 226 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 227 | const Cipher *c; |
Damien Miller | b1715dc | 2000-05-30 13:44:51 +1000 | [diff] [blame] | 228 | if (name == NULL) |
| 229 | return -1; |
Darren Tucker | 660db78 | 2005-01-24 21:57:11 +1100 | [diff] [blame] | 230 | for (c = ciphers; c->name != NULL; c++) |
| 231 | if (strcasecmp(c->name, name) == 0) |
| 232 | return c->number; |
| 233 | return -1; |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 234 | } |
| 235 | |
| 236 | char * |
| 237 | cipher_name(int id) |
| 238 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 239 | const Cipher *c = cipher_by_number(id); |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 240 | return (c==NULL) ? "<unknown>" : c->name; |
| 241 | } |
| 242 | |
| 243 | void |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 244 | cipher_init(CipherContext *cc, const Cipher *cipher, |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 245 | const u_char *key, u_int keylen, const u_char *iv, u_int ivlen, |
Darren Tucker | 3f9fdc7 | 2004-06-22 12:56:01 +1000 | [diff] [blame] | 246 | int do_encrypt) |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 247 | { |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 248 | static int dowarn = 1; |
Damien Miller | c7375ac | 2002-03-11 10:51:17 +1100 | [diff] [blame] | 249 | #ifdef SSH_OLD_EVP |
| 250 | EVP_CIPHER *type; |
| 251 | #else |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 252 | const EVP_CIPHER *type; |
| 253 | int klen; |
Darren Tucker | a55ec77 | 2005-06-09 21:45:10 +1000 | [diff] [blame] | 254 | #endif |
Damien Miller | 3710f27 | 2005-05-26 12:19:17 +1000 | [diff] [blame] | 255 | u_char *junk, *discard; |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 256 | |
| 257 | if (cipher->number == SSH_CIPHER_DES) { |
| 258 | if (dowarn) { |
| 259 | error("Warning: use of DES is strongly discouraged " |
| 260 | "due to cryptographic weaknesses"); |
| 261 | dowarn = 0; |
| 262 | } |
| 263 | if (keylen > 8) |
| 264 | keylen = 8; |
| 265 | } |
| 266 | cc->plaintext = (cipher->number == SSH_CIPHER_NONE); |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 267 | cc->encrypt = do_encrypt; |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 268 | |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 269 | if (keylen < cipher->key_len) |
| 270 | fatal("cipher_init: key length %d is insufficient for %s.", |
| 271 | keylen, cipher->name); |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 272 | if (iv != NULL && ivlen < cipher_ivlen(cipher)) |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 273 | fatal("cipher_init: iv length %d is insufficient for %s.", |
| 274 | ivlen, cipher->name); |
| 275 | cc->cipher = cipher; |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 276 | |
| 277 | type = (*cipher->evptype)(); |
| 278 | |
| 279 | EVP_CIPHER_CTX_init(&cc->evp); |
Damien Miller | c7375ac | 2002-03-11 10:51:17 +1100 | [diff] [blame] | 280 | #ifdef SSH_OLD_EVP |
| 281 | if (type->key_len > 0 && type->key_len != keylen) { |
| 282 | debug("cipher_init: set keylen (%d -> %d)", |
| 283 | type->key_len, keylen); |
| 284 | type->key_len = keylen; |
| 285 | } |
| 286 | EVP_CipherInit(&cc->evp, type, (u_char *)key, (u_char *)iv, |
Darren Tucker | e5a604f | 2004-06-23 12:28:31 +1000 | [diff] [blame] | 287 | (do_encrypt == CIPHER_ENCRYPT)); |
Damien Miller | c7375ac | 2002-03-11 10:51:17 +1100 | [diff] [blame] | 288 | #else |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 289 | if (EVP_CipherInit(&cc->evp, type, NULL, (u_char *)iv, |
Darren Tucker | 3f9fdc7 | 2004-06-22 12:56:01 +1000 | [diff] [blame] | 290 | (do_encrypt == CIPHER_ENCRYPT)) == 0) |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 291 | fatal("cipher_init: EVP_CipherInit failed for %s", |
| 292 | cipher->name); |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 293 | if (cipher_authlen(cipher) && |
| 294 | !EVP_CIPHER_CTX_ctrl(&cc->evp, EVP_CTRL_GCM_SET_IV_FIXED, |
| 295 | -1, (u_char *)iv)) |
| 296 | fatal("cipher_init: EVP_CTRL_GCM_SET_IV_FIXED failed for %s", |
| 297 | cipher->name); |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 298 | klen = EVP_CIPHER_CTX_key_length(&cc->evp); |
Damien Miller | eccb9de | 2005-06-17 12:59:34 +1000 | [diff] [blame] | 299 | if (klen > 0 && keylen != (u_int)klen) { |
Ben Lindstrom | 064496f | 2002-12-23 02:04:22 +0000 | [diff] [blame] | 300 | debug2("cipher_init: set keylen (%d -> %d)", klen, keylen); |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 301 | if (EVP_CIPHER_CTX_set_key_length(&cc->evp, keylen) == 0) |
| 302 | fatal("cipher_init: set keylen failed (%d -> %d)", |
| 303 | klen, keylen); |
| 304 | } |
| 305 | if (EVP_CipherInit(&cc->evp, NULL, (u_char *)key, NULL, -1) == 0) |
| 306 | fatal("cipher_init: EVP_CipherInit: set key failed for %s", |
| 307 | cipher->name); |
Damien Miller | c7375ac | 2002-03-11 10:51:17 +1100 | [diff] [blame] | 308 | #endif |
Damien Miller | 3710f27 | 2005-05-26 12:19:17 +1000 | [diff] [blame] | 309 | |
Damien Miller | 46d38de | 2005-07-17 17:02:09 +1000 | [diff] [blame] | 310 | if (cipher->discard_len > 0) { |
Damien Miller | 3710f27 | 2005-05-26 12:19:17 +1000 | [diff] [blame] | 311 | junk = xmalloc(cipher->discard_len); |
| 312 | discard = xmalloc(cipher->discard_len); |
| 313 | if (EVP_Cipher(&cc->evp, discard, junk, |
| 314 | cipher->discard_len) == 0) |
| 315 | fatal("evp_crypt: EVP_Cipher failed during discard"); |
| 316 | memset(discard, 0, cipher->discard_len); |
Darren Tucker | a627d42 | 2013-06-02 07:31:17 +1000 | [diff] [blame] | 317 | free(junk); |
| 318 | free(discard); |
Damien Miller | 3710f27 | 2005-05-26 12:19:17 +1000 | [diff] [blame] | 319 | } |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 320 | } |
| 321 | |
Damien Miller | af43a7a | 2012-12-12 10:46:31 +1100 | [diff] [blame] | 322 | /* |
| 323 | * cipher_crypt() operates as following: |
| 324 | * Copy 'aadlen' bytes (without en/decryption) from 'src' to 'dest'. |
| 325 | * Theses bytes are treated as additional authenticated data for |
| 326 | * authenticated encryption modes. |
| 327 | * En/Decrypt 'len' bytes at offset 'aadlen' from 'src' to 'dest'. |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 328 | * Use 'authlen' bytes at offset 'len'+'aadlen' as the authentication tag. |
| 329 | * This tag is written on encryption and verified on decryption. |
Damien Miller | af43a7a | 2012-12-12 10:46:31 +1100 | [diff] [blame] | 330 | * Both 'aadlen' and 'authlen' can be set to 0. |
| 331 | */ |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 332 | void |
Damien Miller | af43a7a | 2012-12-12 10:46:31 +1100 | [diff] [blame] | 333 | cipher_crypt(CipherContext *cc, u_char *dest, const u_char *src, |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 334 | u_int len, u_int aadlen, u_int authlen) |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 335 | { |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 336 | if (authlen) { |
| 337 | u_char lastiv[1]; |
| 338 | |
| 339 | if (authlen != cipher_authlen(cc->cipher)) |
| 340 | fatal("%s: authlen mismatch %d", __func__, authlen); |
| 341 | /* increment IV */ |
| 342 | if (!EVP_CIPHER_CTX_ctrl(&cc->evp, EVP_CTRL_GCM_IV_GEN, |
| 343 | 1, lastiv)) |
| 344 | fatal("%s: EVP_CTRL_GCM_IV_GEN", __func__); |
| 345 | /* set tag on decyption */ |
| 346 | if (!cc->encrypt && |
| 347 | !EVP_CIPHER_CTX_ctrl(&cc->evp, EVP_CTRL_GCM_SET_TAG, |
| 348 | authlen, (u_char *)src + aadlen + len)) |
| 349 | fatal("%s: EVP_CTRL_GCM_SET_TAG", __func__); |
| 350 | } |
| 351 | if (aadlen) { |
| 352 | if (authlen && |
| 353 | EVP_Cipher(&cc->evp, NULL, (u_char *)src, aadlen) < 0) |
| 354 | fatal("%s: EVP_Cipher(aad) failed", __func__); |
Damien Miller | af43a7a | 2012-12-12 10:46:31 +1100 | [diff] [blame] | 355 | memcpy(dest, src, aadlen); |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 356 | } |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 357 | if (len % cc->cipher->block_size) |
Damien Miller | af43a7a | 2012-12-12 10:46:31 +1100 | [diff] [blame] | 358 | fatal("%s: bad plaintext length %d", __func__, len); |
| 359 | if (EVP_Cipher(&cc->evp, dest + aadlen, (u_char *)src + aadlen, |
| 360 | len) < 0) |
| 361 | fatal("%s: EVP_Cipher failed", __func__); |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 362 | if (authlen) { |
| 363 | /* compute tag (on encrypt) or verify tag (on decrypt) */ |
Damien Miller | c20eb8b | 2013-01-12 22:41:26 +1100 | [diff] [blame] | 364 | if (EVP_Cipher(&cc->evp, NULL, NULL, 0) < 0) { |
| 365 | if (cc->encrypt) |
| 366 | fatal("%s: EVP_Cipher(final) failed", __func__); |
| 367 | else |
| 368 | fatal("Decryption integrity check failed"); |
| 369 | } |
Damien Miller | 1d75abf | 2013-01-09 16:12:19 +1100 | [diff] [blame] | 370 | if (cc->encrypt && |
| 371 | !EVP_CIPHER_CTX_ctrl(&cc->evp, EVP_CTRL_GCM_GET_TAG, |
| 372 | authlen, dest + aadlen + len)) |
| 373 | fatal("%s: EVP_CTRL_GCM_GET_TAG", __func__); |
| 374 | } |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 375 | } |
| 376 | |
| 377 | void |
Damien Miller | 963f6b2 | 2002-02-19 15:21:23 +1100 | [diff] [blame] | 378 | cipher_cleanup(CipherContext *cc) |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 379 | { |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 380 | if (EVP_CIPHER_CTX_cleanup(&cc->evp) == 0) |
| 381 | error("cipher_cleanup: EVP_CIPHER_CTX_cleanup failed"); |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 382 | } |
| 383 | |
Damien Miller | 5428f64 | 1999-11-25 11:54:57 +1100 | [diff] [blame] | 384 | /* |
| 385 | * Selects the cipher, and keys if by computing the MD5 checksum of the |
| 386 | * passphrase and using the resulting 16 bytes as the key. |
| 387 | */ |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 388 | |
Damien Miller | 4af5130 | 2000-04-16 11:18:38 +1000 | [diff] [blame] | 389 | void |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 390 | cipher_set_key_string(CipherContext *cc, const Cipher *cipher, |
Darren Tucker | 3f9fdc7 | 2004-06-22 12:56:01 +1000 | [diff] [blame] | 391 | const char *passphrase, int do_encrypt) |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 392 | { |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 393 | MD5_CTX md; |
Ben Lindstrom | 46c1622 | 2000-12-22 01:43:59 +0000 | [diff] [blame] | 394 | u_char digest[16]; |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 395 | |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 396 | MD5_Init(&md); |
Damien Miller | 874d77b | 2000-10-14 16:23:11 +1100 | [diff] [blame] | 397 | MD5_Update(&md, (const u_char *)passphrase, strlen(passphrase)); |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 398 | MD5_Final(digest, &md); |
| 399 | |
Darren Tucker | 3f9fdc7 | 2004-06-22 12:56:01 +1000 | [diff] [blame] | 400 | cipher_init(cc, cipher, digest, 16, NULL, 0, do_encrypt); |
Damien Miller | 95def09 | 1999-11-25 00:26:21 +1100 | [diff] [blame] | 401 | |
| 402 | memset(digest, 0, sizeof(digest)); |
| 403 | memset(&md, 0, sizeof(md)); |
Damien Miller | d4a8b7e | 1999-10-27 13:42:43 +1000 | [diff] [blame] | 404 | } |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 405 | |
Ben Lindstrom | 6328ab3 | 2002-03-22 02:54:23 +0000 | [diff] [blame] | 406 | /* |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 407 | * Exports an IV from the CipherContext required to export the key |
| 408 | * state back from the unprivileged child to the privileged parent |
| 409 | * process. |
| 410 | */ |
| 411 | |
| 412 | int |
Damien Miller | f58b58c | 2003-11-17 21:18:23 +1100 | [diff] [blame] | 413 | cipher_get_keyiv_len(const CipherContext *cc) |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 414 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 415 | const Cipher *c = cc->cipher; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 416 | int ivlen; |
| 417 | |
| 418 | if (c->number == SSH_CIPHER_3DES) |
| 419 | ivlen = 24; |
| 420 | else |
| 421 | ivlen = EVP_CIPHER_CTX_iv_length(&cc->evp); |
| 422 | return (ivlen); |
| 423 | } |
| 424 | |
| 425 | void |
| 426 | cipher_get_keyiv(CipherContext *cc, u_char *iv, u_int len) |
| 427 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 428 | const Cipher *c = cc->cipher; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 429 | int evplen; |
| 430 | |
| 431 | switch (c->number) { |
| 432 | case SSH_CIPHER_SSH2: |
| 433 | case SSH_CIPHER_DES: |
| 434 | case SSH_CIPHER_BLOWFISH: |
| 435 | evplen = EVP_CIPHER_CTX_iv_length(&cc->evp); |
Damien Miller | eccb9de | 2005-06-17 12:59:34 +1000 | [diff] [blame] | 436 | if (evplen <= 0) |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 437 | return; |
Damien Miller | eccb9de | 2005-06-17 12:59:34 +1000 | [diff] [blame] | 438 | if ((u_int)evplen != len) |
Ben Lindstrom | 7d9c38f | 2002-06-06 21:40:51 +0000 | [diff] [blame] | 439 | fatal("%s: wrong iv length %d != %d", __func__, |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 440 | evplen, len); |
Darren Tucker | 129d0bb | 2005-12-19 17:40:40 +1100 | [diff] [blame] | 441 | #ifdef USE_BUILTIN_RIJNDAEL |
Damien Miller | a201bb3 | 2003-05-14 13:41:23 +1000 | [diff] [blame] | 442 | if (c->evptype == evp_rijndael) |
| 443 | ssh_rijndael_iv(&cc->evp, 0, iv, len); |
| 444 | else |
Ben Lindstrom | f088f43 | 2002-06-06 20:50:07 +0000 | [diff] [blame] | 445 | #endif |
Damien Miller | 25a02b0 | 2012-12-13 08:18:56 +1100 | [diff] [blame] | 446 | #ifndef OPENSSL_HAVE_EVPCTR |
Damien Miller | f5399c2 | 2003-05-18 20:53:59 +1000 | [diff] [blame] | 447 | if (c->evptype == evp_aes_128_ctr) |
| 448 | ssh_aes_ctr_iv(&cc->evp, 0, iv, len); |
| 449 | else |
Damien Miller | 25a02b0 | 2012-12-13 08:18:56 +1100 | [diff] [blame] | 450 | #endif |
| 451 | memcpy(iv, cc->evp.iv, len); |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 452 | break; |
Damien Miller | a201bb3 | 2003-05-14 13:41:23 +1000 | [diff] [blame] | 453 | case SSH_CIPHER_3DES: |
| 454 | ssh1_3des_iv(&cc->evp, 0, iv, 24); |
| 455 | break; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 456 | default: |
Ben Lindstrom | 7d9c38f | 2002-06-06 21:40:51 +0000 | [diff] [blame] | 457 | fatal("%s: bad cipher %d", __func__, c->number); |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 458 | } |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 459 | } |
| 460 | |
| 461 | void |
| 462 | cipher_set_keyiv(CipherContext *cc, u_char *iv) |
| 463 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 464 | const Cipher *c = cc->cipher; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 465 | int evplen = 0; |
| 466 | |
| 467 | switch (c->number) { |
| 468 | case SSH_CIPHER_SSH2: |
| 469 | case SSH_CIPHER_DES: |
| 470 | case SSH_CIPHER_BLOWFISH: |
| 471 | evplen = EVP_CIPHER_CTX_iv_length(&cc->evp); |
| 472 | if (evplen == 0) |
| 473 | return; |
Darren Tucker | 129d0bb | 2005-12-19 17:40:40 +1100 | [diff] [blame] | 474 | #ifdef USE_BUILTIN_RIJNDAEL |
Damien Miller | a201bb3 | 2003-05-14 13:41:23 +1000 | [diff] [blame] | 475 | if (c->evptype == evp_rijndael) |
| 476 | ssh_rijndael_iv(&cc->evp, 1, iv, evplen); |
| 477 | else |
Ben Lindstrom | f088f43 | 2002-06-06 20:50:07 +0000 | [diff] [blame] | 478 | #endif |
Damien Miller | 25a02b0 | 2012-12-13 08:18:56 +1100 | [diff] [blame] | 479 | #ifndef OPENSSL_HAVE_EVPCTR |
Damien Miller | f5399c2 | 2003-05-18 20:53:59 +1000 | [diff] [blame] | 480 | if (c->evptype == evp_aes_128_ctr) |
| 481 | ssh_aes_ctr_iv(&cc->evp, 1, iv, evplen); |
| 482 | else |
Damien Miller | 25a02b0 | 2012-12-13 08:18:56 +1100 | [diff] [blame] | 483 | #endif |
| 484 | memcpy(cc->evp.iv, iv, evplen); |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 485 | break; |
Damien Miller | a201bb3 | 2003-05-14 13:41:23 +1000 | [diff] [blame] | 486 | case SSH_CIPHER_3DES: |
| 487 | ssh1_3des_iv(&cc->evp, 1, iv, 24); |
| 488 | break; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 489 | default: |
Ben Lindstrom | 7d9c38f | 2002-06-06 21:40:51 +0000 | [diff] [blame] | 490 | fatal("%s: bad cipher %d", __func__, c->number); |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 491 | } |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 492 | } |
| 493 | |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 494 | int |
Damien Miller | f58b58c | 2003-11-17 21:18:23 +1100 | [diff] [blame] | 495 | cipher_get_keycontext(const CipherContext *cc, u_char *dat) |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 496 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 497 | const Cipher *c = cc->cipher; |
Ben Lindstrom | 402c6cc | 2002-06-21 00:43:42 +0000 | [diff] [blame] | 498 | int plen = 0; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 499 | |
Damien Miller | f0a8ded | 2013-02-12 11:00:34 +1100 | [diff] [blame] | 500 | if (c->evptype == EVP_rc4) { |
Ben Lindstrom | 402c6cc | 2002-06-21 00:43:42 +0000 | [diff] [blame] | 501 | plen = EVP_X_STATE_LEN(cc->evp); |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 502 | if (dat == NULL) |
Ben Lindstrom | 402c6cc | 2002-06-21 00:43:42 +0000 | [diff] [blame] | 503 | return (plen); |
| 504 | memcpy(dat, EVP_X_STATE(cc->evp), plen); |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 505 | } |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 506 | return (plen); |
| 507 | } |
| 508 | |
| 509 | void |
| 510 | cipher_set_keycontext(CipherContext *cc, u_char *dat) |
| 511 | { |
Damien Miller | ea11119 | 2013-04-23 19:24:32 +1000 | [diff] [blame] | 512 | const Cipher *c = cc->cipher; |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 513 | int plen; |
| 514 | |
Damien Miller | f0a8ded | 2013-02-12 11:00:34 +1100 | [diff] [blame] | 515 | if (c->evptype == EVP_rc4) { |
Ben Lindstrom | 212faca | 2002-03-22 01:39:44 +0000 | [diff] [blame] | 516 | plen = EVP_X_STATE_LEN(cc->evp); |
| 517 | memcpy(EVP_X_STATE(cc->evp), dat, plen); |
| 518 | } |
Damien Miller | 21cf4e0 | 2002-02-19 15:26:42 +1100 | [diff] [blame] | 519 | } |