Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 1 | /* ssl/ssl_locl.h */ |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 3 | * All rights reserved. |
| 4 | * |
| 5 | * This package is an SSL implementation written |
| 6 | * by Eric Young (eay@cryptsoft.com). |
| 7 | * The implementation was written so as to conform with Netscapes SSL. |
| 8 | * |
| 9 | * This library is free for commercial and non-commercial use as long as |
| 10 | * the following conditions are aheared to. The following conditions |
| 11 | * apply to all code found in this distribution, be it the RC4, RSA, |
| 12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation |
| 13 | * included with this distribution is covered by the same copyright terms |
| 14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). |
| 15 | * |
| 16 | * Copyright remains Eric Young's, and as such any Copyright notices in |
| 17 | * the code are not to be removed. |
| 18 | * If this package is used in a product, Eric Young should be given attribution |
| 19 | * as the author of the parts of the library used. |
| 20 | * This can be in the form of a textual message at program startup or |
| 21 | * in documentation (online or textual) provided with the package. |
| 22 | * |
| 23 | * Redistribution and use in source and binary forms, with or without |
| 24 | * modification, are permitted provided that the following conditions |
| 25 | * are met: |
| 26 | * 1. Redistributions of source code must retain the copyright |
| 27 | * notice, this list of conditions and the following disclaimer. |
| 28 | * 2. Redistributions in binary form must reproduce the above copyright |
| 29 | * notice, this list of conditions and the following disclaimer in the |
| 30 | * documentation and/or other materials provided with the distribution. |
| 31 | * 3. All advertising materials mentioning features or use of this software |
| 32 | * must display the following acknowledgement: |
| 33 | * "This product includes cryptographic software written by |
| 34 | * Eric Young (eay@cryptsoft.com)" |
| 35 | * The word 'cryptographic' can be left out if the rouines from the library |
| 36 | * being used are not cryptographic related :-). |
| 37 | * 4. If you include any Windows specific code (or a derivative thereof) from |
| 38 | * the apps directory (application code) you must include an acknowledgement: |
| 39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" |
| 40 | * |
| 41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND |
| 42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
| 43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
| 44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE |
| 45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| 46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
| 47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
| 48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
| 49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
| 50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
| 51 | * SUCH DAMAGE. |
| 52 | * |
| 53 | * The licence and distribution terms for any publically available version or |
| 54 | * derivative of this code cannot be changed. i.e. this code cannot simply be |
| 55 | * copied and put under another distribution licence |
| 56 | * [including the GNU Public Licence.] |
| 57 | */ |
| 58 | |
| 59 | #ifndef HEADER_SSL_LOCL_H |
| 60 | #define HEADER_SSL_LOCL_H |
| 61 | #include <stdlib.h> |
| 62 | #include <time.h> |
| 63 | #include <string.h> |
| 64 | #include <errno.h> |
| 65 | |
Bodo Möller | 7e70181 | 1999-05-21 11:16:48 +0000 | [diff] [blame] | 66 | #include "openssl/e_os.h" |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 67 | |
Bodo Möller | ec57782 | 1999-04-23 22:13:45 +0000 | [diff] [blame] | 68 | #include <openssl/buffer.h> |
| 69 | #include <openssl/comp.h> |
| 70 | #include <openssl/bio.h> |
| 71 | #include <openssl/crypto.h> |
| 72 | #include <openssl/evp.h> |
| 73 | #include <openssl/stack.h> |
| 74 | #include <openssl/x509.h> |
| 75 | #include <openssl/err.h> |
| 76 | #include <openssl/ssl.h> |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 77 | |
Ralf S. Engelschall | dfeab06 | 1998-12-21 11:00:56 +0000 | [diff] [blame] | 78 | #define PKCS1_CHECK |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 79 | |
| 80 | #define c2l(c,l) (l = ((unsigned long)(*((c)++))) , \ |
| 81 | l|=(((unsigned long)(*((c)++)))<< 8), \ |
| 82 | l|=(((unsigned long)(*((c)++)))<<16), \ |
| 83 | l|=(((unsigned long)(*((c)++)))<<24)) |
| 84 | |
| 85 | /* NOTE - c is not incremented as per c2l */ |
| 86 | #define c2ln(c,l1,l2,n) { \ |
| 87 | c+=n; \ |
| 88 | l1=l2=0; \ |
| 89 | switch (n) { \ |
| 90 | case 8: l2 =((unsigned long)(*(--(c))))<<24; \ |
| 91 | case 7: l2|=((unsigned long)(*(--(c))))<<16; \ |
| 92 | case 6: l2|=((unsigned long)(*(--(c))))<< 8; \ |
| 93 | case 5: l2|=((unsigned long)(*(--(c)))); \ |
| 94 | case 4: l1 =((unsigned long)(*(--(c))))<<24; \ |
| 95 | case 3: l1|=((unsigned long)(*(--(c))))<<16; \ |
| 96 | case 2: l1|=((unsigned long)(*(--(c))))<< 8; \ |
| 97 | case 1: l1|=((unsigned long)(*(--(c)))); \ |
| 98 | } \ |
| 99 | } |
| 100 | |
| 101 | #define l2c(l,c) (*((c)++)=(unsigned char)(((l) )&0xff), \ |
| 102 | *((c)++)=(unsigned char)(((l)>> 8)&0xff), \ |
| 103 | *((c)++)=(unsigned char)(((l)>>16)&0xff), \ |
| 104 | *((c)++)=(unsigned char)(((l)>>24)&0xff)) |
| 105 | |
| 106 | #define n2l(c,l) (l =((unsigned long)(*((c)++)))<<24, \ |
| 107 | l|=((unsigned long)(*((c)++)))<<16, \ |
| 108 | l|=((unsigned long)(*((c)++)))<< 8, \ |
| 109 | l|=((unsigned long)(*((c)++)))) |
| 110 | |
| 111 | #define l2n(l,c) (*((c)++)=(unsigned char)(((l)>>24)&0xff), \ |
| 112 | *((c)++)=(unsigned char)(((l)>>16)&0xff), \ |
| 113 | *((c)++)=(unsigned char)(((l)>> 8)&0xff), \ |
| 114 | *((c)++)=(unsigned char)(((l) )&0xff)) |
| 115 | |
| 116 | /* NOTE - c is not incremented as per l2c */ |
| 117 | #define l2cn(l1,l2,c,n) { \ |
| 118 | c+=n; \ |
| 119 | switch (n) { \ |
| 120 | case 8: *(--(c))=(unsigned char)(((l2)>>24)&0xff); \ |
| 121 | case 7: *(--(c))=(unsigned char)(((l2)>>16)&0xff); \ |
| 122 | case 6: *(--(c))=(unsigned char)(((l2)>> 8)&0xff); \ |
| 123 | case 5: *(--(c))=(unsigned char)(((l2) )&0xff); \ |
| 124 | case 4: *(--(c))=(unsigned char)(((l1)>>24)&0xff); \ |
| 125 | case 3: *(--(c))=(unsigned char)(((l1)>>16)&0xff); \ |
| 126 | case 2: *(--(c))=(unsigned char)(((l1)>> 8)&0xff); \ |
| 127 | case 1: *(--(c))=(unsigned char)(((l1) )&0xff); \ |
| 128 | } \ |
| 129 | } |
| 130 | |
Ralf S. Engelschall | dfeab06 | 1998-12-21 11:00:56 +0000 | [diff] [blame] | 131 | #define n2s(c,s) ((s=(((unsigned int)(c[0]))<< 8)| \ |
| 132 | (((unsigned int)(c[1])) )),c+=2) |
| 133 | #define s2n(s,c) ((c[0]=(unsigned char)(((s)>> 8)&0xff), \ |
| 134 | c[1]=(unsigned char)(((s) )&0xff)),c+=2) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 135 | |
Ralf S. Engelschall | dfeab06 | 1998-12-21 11:00:56 +0000 | [diff] [blame] | 136 | #define n2l3(c,l) ((l =(((unsigned long)(c[0]))<<16)| \ |
| 137 | (((unsigned long)(c[1]))<< 8)| \ |
| 138 | (((unsigned long)(c[2])) )),c+=3) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 139 | |
Ralf S. Engelschall | dfeab06 | 1998-12-21 11:00:56 +0000 | [diff] [blame] | 140 | #define l2n3(l,c) ((c[0]=(unsigned char)(((l)>>16)&0xff), \ |
| 141 | c[1]=(unsigned char)(((l)>> 8)&0xff), \ |
| 142 | c[2]=(unsigned char)(((l) )&0xff)),c+=3) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 143 | |
| 144 | /* LOCAL STUFF */ |
| 145 | |
| 146 | #define SSL_DECRYPT 0 |
| 147 | #define SSL_ENCRYPT 1 |
| 148 | |
| 149 | #define TWO_BYTE_BIT 0x80 |
| 150 | #define SEC_ESC_BIT 0x40 |
| 151 | #define TWO_BYTE_MASK 0x7fff |
| 152 | #define THREE_BYTE_MASK 0x3fff |
| 153 | |
| 154 | #define INC32(a) ((a)=((a)+1)&0xffffffffL) |
| 155 | #define DEC32(a) ((a)=((a)-1)&0xffffffffL) |
| 156 | #define MAX_MAC_SIZE 20 /* up from 16 for SSLv3 */ |
| 157 | |
| 158 | #define SSL_MKEY_MASK 0x0000001FL |
| 159 | #define SSL_kRSA 0x00000001L /* RSA key exchange */ |
| 160 | #define SSL_kDHr 0x00000002L /* DH cert RSA CA cert */ |
| 161 | #define SSL_kDHd 0x00000004L /* DH cert DSA CA cert */ |
| 162 | #define SSL_kFZA 0x00000008L |
| 163 | #define SSL_kEDH 0x00000010L /* tmp DH key no DH cert */ |
| 164 | #define SSL_EDH (SSL_kEDH|(SSL_AUTH_MASK^SSL_aNULL)) |
| 165 | |
| 166 | #define SSL_AUTH_MASK 0x000003e0L |
| 167 | #define SSL_aRSA 0x00000020L /* Authenticate with RSA */ |
| 168 | #define SSL_aDSS 0x00000040L /* Authenticate with DSS */ |
| 169 | #define SSL_DSS SSL_aDSS |
| 170 | #define SSL_aFZA 0x00000080L |
| 171 | #define SSL_aNULL 0x00000100L /* no Authenticate, ADH */ |
| 172 | #define SSL_aDH 0x00000200L /* no Authenticate, ADH */ |
| 173 | |
| 174 | #define SSL_NULL (SSL_eNULL) |
| 175 | #define SSL_ADH (SSL_kEDH|SSL_aNULL) |
| 176 | #define SSL_RSA (SSL_kRSA|SSL_aRSA) |
| 177 | #define SSL_DH (SSL_kDHr|SSL_kDHd|SSL_kEDH) |
| 178 | #define SSL_FZA (SSL_aFZA|SSL_kFZA|SSL_eFZA) |
| 179 | |
| 180 | #define SSL_ENC_MASK 0x0001Fc00L |
| 181 | #define SSL_DES 0x00000400L |
| 182 | #define SSL_3DES 0x00000800L |
| 183 | #define SSL_RC4 0x00001000L |
| 184 | #define SSL_RC2 0x00002000L |
| 185 | #define SSL_IDEA 0x00004000L |
| 186 | #define SSL_eFZA 0x00008000L |
| 187 | #define SSL_eNULL 0x00010000L |
| 188 | |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 189 | #define SSL_MAC_MASK 0x00060000L |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 190 | #define SSL_MD5 0x00020000L |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 191 | #define SSL_SHA1 0x00040000L |
| 192 | #define SSL_SHA (SSL_SHA1) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 193 | |
Ben Laurie | a040ea8 | 1999-02-21 20:07:41 +0000 | [diff] [blame] | 194 | #define SSL_EXP_MASK 0x00300000L |
Ben Laurie | 06ab81f | 1999-02-21 20:03:24 +0000 | [diff] [blame] | 195 | #define SSL_EXP40 0x00100000L |
Ben Laurie | a040ea8 | 1999-02-21 20:07:41 +0000 | [diff] [blame] | 196 | #define SSL_NOT_EXP 0x00200000L |
Ben Laurie | 06ab81f | 1999-02-21 20:03:24 +0000 | [diff] [blame] | 197 | #define SSL_EXP56 0x00300000L |
| 198 | #define SSL_IS_EXPORT(a) ((a)&SSL_EXP40) |
Ben Laurie | a040ea8 | 1999-02-21 20:07:41 +0000 | [diff] [blame] | 199 | #define SSL_IS_EXPORT56(a) (((a)&SSL_EXP_MASK) == SSL_EXP56) |
| 200 | #define SSL_IS_EXPORT40(a) (((a)&SSL_EXP_MASK) == SSL_EXP40) |
Ben Laurie | 06ab81f | 1999-02-21 20:03:24 +0000 | [diff] [blame] | 201 | #define SSL_C_IS_EXPORT(c) SSL_IS_EXPORT((c)->algorithms) |
| 202 | #define SSL_C_IS_EXPORT56(c) SSL_IS_EXPORT56((c)->algorithms) |
| 203 | #define SSL_C_IS_EXPORT40(c) SSL_IS_EXPORT40((c)->algorithms) |
Ben Laurie | 4997138 | 1999-04-21 13:24:58 +0000 | [diff] [blame] | 204 | #define SSL_EXPORT_KEYLENGTH(a) (SSL_IS_EXPORT40(a) ? 5 : \ |
| 205 | ((a)&SSL_ENC_MASK) == SSL_DES ? 8 : 7) |
Ben Laurie | 06ab81f | 1999-02-21 20:03:24 +0000 | [diff] [blame] | 206 | #define SSL_EXPORT_PKEYLENGTH(a) (SSL_IS_EXPORT40(a) ? 512 : 1024) |
| 207 | #define SSL_C_EXPORT_KEYLENGTH(c) SSL_EXPORT_KEYLENGTH((c)->algorithms) |
| 208 | #define SSL_C_EXPORT_PKEYLENGTH(c) SSL_EXPORT_PKEYLENGTH((c)->algorithms) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 209 | |
| 210 | #define SSL_SSL_MASK 0x00c00000L |
| 211 | #define SSL_SSLV2 0x00400000L |
| 212 | #define SSL_SSLV3 0x00800000L |
Ben Laurie | 06ab81f | 1999-02-21 20:03:24 +0000 | [diff] [blame] | 213 | #define SSL_TLSV1 SSL_SSLV3 /* for now */ |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 214 | |
| 215 | #define SSL_STRONG_MASK 0x07000000L |
| 216 | #define SSL_LOW 0x01000000L |
| 217 | #define SSL_MEDIUM 0x02000000L |
| 218 | #define SSL_HIGH 0x04000000L |
| 219 | |
| 220 | /* we have used 0fffffff - 4 bits left to go */ |
| 221 | #define SSL_ALL 0xffffffffL |
| 222 | #define SSL_ALL_CIPHERS (SSL_MKEY_MASK|SSL_AUTH_MASK|SSL_ENC_MASK|\ |
Ben Laurie | a040ea8 | 1999-02-21 20:07:41 +0000 | [diff] [blame] | 223 | SSL_MAC_MASK|SSL_EXP_MASK) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 224 | |
| 225 | /* Mostly for SSLv3 */ |
| 226 | #define SSL_PKEY_RSA_ENC 0 |
| 227 | #define SSL_PKEY_RSA_SIGN 1 |
| 228 | #define SSL_PKEY_DSA_SIGN 2 |
| 229 | #define SSL_PKEY_DH_RSA 3 |
| 230 | #define SSL_PKEY_DH_DSA 4 |
| 231 | #define SSL_PKEY_NUM 5 |
| 232 | |
| 233 | /* SSL_kRSA <- RSA_ENC | (RSA_TMP & RSA_SIGN) | |
| 234 | * <- (EXPORT & (RSA_ENC | RSA_TMP) & RSA_SIGN) |
| 235 | * SSL_kDH <- DH_ENC & (RSA_ENC | RSA_SIGN | DSA_SIGN) |
| 236 | * SSL_kEDH <- RSA_ENC | RSA_SIGN | DSA_SIGN |
| 237 | * SSL_aRSA <- RSA_ENC | RSA_SIGN |
| 238 | * SSL_aDSS <- DSA_SIGN |
| 239 | */ |
| 240 | |
| 241 | /* |
| 242 | #define CERT_INVALID 0 |
| 243 | #define CERT_PUBLIC_KEY 1 |
| 244 | #define CERT_PRIVATE_KEY 2 |
| 245 | */ |
| 246 | |
| 247 | typedef struct cert_pkey_st |
| 248 | { |
| 249 | X509 *x509; |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 250 | EVP_PKEY *privatekey; |
| 251 | } CERT_PKEY; |
| 252 | |
| 253 | typedef struct cert_st |
| 254 | { |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 255 | /* Current active set */ |
Bodo Möller | ca8e5b9 | 1999-05-09 20:12:44 +0000 | [diff] [blame] | 256 | CERT_PKEY *key; /* ALWAYS points to an element of the pkeys array |
| 257 | * Probably it would make more sense to store |
| 258 | * an index, not a pointer. */ |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 259 | |
| 260 | /* The following masks are for the key and auth |
| 261 | * algorithms that are supported by the certs below */ |
| 262 | int valid; |
| 263 | unsigned long mask; |
| 264 | unsigned long export_mask; |
Ulf Möller | 79df9d6 | 1999-04-27 03:19:12 +0000 | [diff] [blame] | 265 | #ifndef NO_RSA |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 266 | RSA *rsa_tmp; |
Ulf Möller | df63a38 | 1999-06-09 16:33:18 +0000 | [diff] [blame^] | 267 | RSA *(*rsa_tmp_cb)(SSL *ssl,int is_export,int keysize); |
Ulf Möller | 79df9d6 | 1999-04-27 03:19:12 +0000 | [diff] [blame] | 268 | #endif |
| 269 | #ifndef NO_DH |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 270 | DH *dh_tmp; |
Ulf Möller | df63a38 | 1999-06-09 16:33:18 +0000 | [diff] [blame^] | 271 | DH *(*dh_tmp_cb)(SSL *ssl,int is_export,int keysize); |
Ulf Möller | 79df9d6 | 1999-04-27 03:19:12 +0000 | [diff] [blame] | 272 | #endif |
Bodo Möller | 8450bdd | 1999-05-09 15:45:38 +0000 | [diff] [blame] | 273 | |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 274 | CERT_PKEY pkeys[SSL_PKEY_NUM]; |
| 275 | |
Bodo Möller | 8d111f4 | 1999-05-13 10:36:29 +0000 | [diff] [blame] | 276 | int references; /* >1 only if SSL_copy_session_id is used */ |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 277 | } CERT; |
| 278 | |
Bodo Möller | 8450bdd | 1999-05-09 15:45:38 +0000 | [diff] [blame] | 279 | |
Bodo Möller | 8450bdd | 1999-05-09 15:45:38 +0000 | [diff] [blame] | 280 | typedef struct sess_cert_st |
Bodo Möller | b56bce4 | 1999-05-13 15:09:38 +0000 | [diff] [blame] | 281 | { |
| 282 | STACK_OF(X509) *cert_chain; /* as received from peer (not for SSL2) */ |
| 283 | |
| 284 | /* The 'peer_...' members are used only by clients. */ |
| 285 | int peer_cert_type; |
| 286 | |
| 287 | CERT_PKEY *peer_key; /* points to an element of peer_pkeys (never NULL!) */ |
| 288 | CERT_PKEY peer_pkeys[SSL_PKEY_NUM]; |
| 289 | /* Obviously we don't have the private keys of these, |
| 290 | * so maybe we shouldn't even use the CERT_PKEY type here. */ |
| 291 | |
| 292 | #ifndef NO_RSA |
| 293 | RSA *peer_rsa_tmp; /* not used for SSL 2 */ |
Bodo Möller | 8450bdd | 1999-05-09 15:45:38 +0000 | [diff] [blame] | 294 | #endif |
Bodo Möller | b56bce4 | 1999-05-13 15:09:38 +0000 | [diff] [blame] | 295 | #ifndef NO_DH |
| 296 | DH *peer_dh_tmp; /* not used for SSL 2 */ |
| 297 | #endif |
| 298 | |
| 299 | int references; /* actually always 1 at the moment */ |
| 300 | } SESS_CERT; |
Bodo Möller | 8450bdd | 1999-05-09 15:45:38 +0000 | [diff] [blame] | 301 | |
| 302 | |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 303 | /*#define MAC_DEBUG */ |
| 304 | |
| 305 | /*#define ERR_DEBUG */ |
| 306 | /*#define ABORT_DEBUG */ |
| 307 | /*#define PKT_DEBUG 1 */ |
| 308 | /*#define DES_DEBUG */ |
| 309 | /*#define DES_OFB_DEBUG */ |
| 310 | /*#define SSL_DEBUG */ |
| 311 | /*#define RSA_DEBUG */ |
| 312 | /*#define IDEA_DEBUG */ |
| 313 | |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 314 | #define FP_ICC (int (*)(const void *,const void *)) |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 315 | #define ssl_put_cipher_by_char(ssl,ciph,ptr) \ |
| 316 | ((ssl)->method->put_cipher_by_char((ciph),(ptr))) |
| 317 | #define ssl_get_cipher_by_char(ssl,ptr) \ |
| 318 | ((ssl)->method->get_cipher_by_char(ptr)) |
| 319 | |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 320 | /* This is for the SSLv3/TLSv1.0 differences in crypto/hash stuff |
| 321 | * It is a bit of a mess of functions, but hell, think of it as |
| 322 | * an opaque strucute :-) */ |
| 323 | typedef struct ssl3_enc_method |
| 324 | { |
| 325 | int (*enc)(); |
| 326 | int (*mac)(); |
| 327 | int (*setup_key_block)(); |
| 328 | int (*generate_master_secret)(); |
| 329 | int (*change_cipher_state)(); |
| 330 | int (*final_finish_mac)(); |
| 331 | int finish_mac_length; |
| 332 | int (*cert_verify_mac)(); |
| 333 | unsigned char client_finished[20]; |
| 334 | int client_finished_len; |
| 335 | unsigned char server_finished[20]; |
| 336 | int server_finished_len; |
| 337 | int (*alert_value)(); |
| 338 | } SSL3_ENC_METHOD; |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 339 | |
Ralf S. Engelschall | 651d0af | 1998-12-22 15:04:48 +0000 | [diff] [blame] | 340 | /* Used for holding the relevant compression methods loaded into SSL_CTX */ |
Ralf S. Engelschall | dfeab06 | 1998-12-21 11:00:56 +0000 | [diff] [blame] | 341 | typedef struct ssl3_comp_st |
| 342 | { |
| 343 | int comp_id; /* The identifer byte for this compression type */ |
| 344 | char *name; /* Text name used for the compression type */ |
| 345 | COMP_METHOD *method; /* The method :-) */ |
| 346 | } SSL3_COMP; |
| 347 | |
Bodo Möller | 3398f6c | 1999-05-15 14:30:31 +0000 | [diff] [blame] | 348 | OPENSSL_EXTERN SSL3_ENC_METHOD ssl3_undef_enc_method; |
| 349 | OPENSSL_EXTERN SSL_CIPHER ssl2_ciphers[]; |
| 350 | OPENSSL_EXTERN SSL_CIPHER ssl3_ciphers[]; |
Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 351 | |
| 352 | #ifdef VMS |
| 353 | #undef SSL_COMP_get_compression_methods |
| 354 | #define SSL_COMP_get_compression_methods SSL_COMP_get_compress_methods |
| 355 | #endif |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 356 | |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 357 | |
| 358 | SSL_METHOD *ssl_bad_method(int ver); |
| 359 | SSL_METHOD *sslv2_base_method(void); |
| 360 | SSL_METHOD *sslv23_base_method(void); |
| 361 | SSL_METHOD *sslv3_base_method(void); |
| 362 | |
| 363 | void ssl_clear_cipher_ctx(SSL *s); |
| 364 | int ssl_clear_bad_session(SSL *s); |
| 365 | CERT *ssl_cert_new(void); |
Bodo Möller | ca8e5b9 | 1999-05-09 20:12:44 +0000 | [diff] [blame] | 366 | CERT *ssl_cert_dup(CERT *cert); |
Bodo Möller | ca8e5b9 | 1999-05-09 20:12:44 +0000 | [diff] [blame] | 367 | int ssl_cert_inst(CERT **o); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 368 | void ssl_cert_free(CERT *c); |
Bodo Möller | b56bce4 | 1999-05-13 15:09:38 +0000 | [diff] [blame] | 369 | SESS_CERT *ssl_sess_cert_new(void); |
| 370 | void ssl_sess_cert_free(SESS_CERT *sc); |
| 371 | int ssl_set_peer_cert_type(SESS_CERT *c, int type); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 372 | int ssl_get_new_session(SSL *s, int session); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 373 | int ssl_get_prev_session(SSL *s, unsigned char *session,int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 374 | int ssl_cipher_id_cmp(SSL_CIPHER *a,SSL_CIPHER *b); |
| 375 | int ssl_cipher_ptr_id_cmp(SSL_CIPHER **ap,SSL_CIPHER **bp); |
Ben Laurie | f73e07c | 1999-04-12 17:23:57 +0000 | [diff] [blame] | 376 | STACK_OF(SSL_CIPHER) *ssl_bytes_to_cipher_list(SSL *s,unsigned char *p,int num, |
| 377 | STACK_OF(SSL_CIPHER) **skp); |
| 378 | int ssl_cipher_list_to_bytes(SSL *s,STACK_OF(SSL_CIPHER) *sk,unsigned char *p); |
| 379 | STACK_OF(SSL_CIPHER) *ssl_create_cipher_list(SSL_METHOD *meth, |
| 380 | STACK_OF(SSL_CIPHER) **pref, |
| 381 | STACK_OF(SSL_CIPHER) **sorted, |
| 382 | char *str); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 383 | void ssl_update_cache(SSL *s, int mode); |
Ben Laurie | e778802 | 1999-04-17 21:25:43 +0000 | [diff] [blame] | 384 | int ssl_cipher_get_evp(SSL_SESSION *s,const EVP_CIPHER **enc,const EVP_MD **md, |
| 385 | SSL_COMP **comp); |
Ben Laurie | f73e07c | 1999-04-12 17:23:57 +0000 | [diff] [blame] | 386 | int ssl_verify_cert_chain(SSL *s,STACK_OF(X509) *sk); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 387 | int ssl_undefined_function(SSL *s); |
| 388 | X509 *ssl_get_server_send_cert(SSL *); |
| 389 | EVP_PKEY *ssl_get_sign_pkey(SSL *,SSL_CIPHER *); |
| 390 | int ssl_cert_type(X509 *x,EVP_PKEY *pkey); |
Bodo Möller | ca8e5b9 | 1999-05-09 20:12:44 +0000 | [diff] [blame] | 391 | void ssl_set_cert_masks(CERT *c, SSL_CIPHER *cipher); |
Ben Laurie | f73e07c | 1999-04-12 17:23:57 +0000 | [diff] [blame] | 392 | STACK_OF(SSL_CIPHER) *ssl_get_ciphers_by_id(SSL *s); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 393 | int ssl_verify_alarm_type(long type); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 394 | |
| 395 | int ssl2_enc_init(SSL *s, int client); |
| 396 | void ssl2_generate_key_material(SSL *s); |
| 397 | void ssl2_enc(SSL *s,int send_data); |
| 398 | void ssl2_mac(SSL *s,unsigned char *mac,int send_data); |
Ben Laurie | f06b01e | 1999-01-16 17:56:00 +0000 | [diff] [blame] | 399 | SSL_CIPHER *ssl2_get_cipher_by_char(const unsigned char *p); |
| 400 | int ssl2_put_cipher_by_char(const SSL_CIPHER *c,unsigned char *p); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 401 | int ssl2_part_read(SSL *s, unsigned long f, int i); |
| 402 | int ssl2_do_write(SSL *s); |
| 403 | int ssl2_set_certificate(SSL *s, int type, int len, unsigned char *data); |
| 404 | void ssl2_return_error(SSL *s,int reason); |
| 405 | void ssl2_write_error(SSL *s); |
| 406 | int ssl2_num_ciphers(void); |
| 407 | SSL_CIPHER *ssl2_get_cipher(unsigned int u); |
| 408 | int ssl2_new(SSL *s); |
| 409 | void ssl2_free(SSL *s); |
| 410 | int ssl2_accept(SSL *s); |
| 411 | int ssl2_connect(SSL *s); |
Ben Laurie | 61f5b6f | 1999-04-23 15:01:15 +0000 | [diff] [blame] | 412 | int ssl2_read(SSL *s, void *buf, int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 413 | int ssl2_peek(SSL *s, char *buf, int len); |
Ben Laurie | 61f5b6f | 1999-04-23 15:01:15 +0000 | [diff] [blame] | 414 | int ssl2_write(SSL *s, const void *buf, int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 415 | int ssl2_shutdown(SSL *s); |
| 416 | void ssl2_clear(SSL *s); |
| 417 | long ssl2_ctrl(SSL *s,int cmd, long larg, char *parg); |
| 418 | long ssl2_ctx_ctrl(SSL_CTX *s,int cmd, long larg, char *parg); |
| 419 | int ssl2_pending(SSL *s); |
| 420 | |
Ben Laurie | f06b01e | 1999-01-16 17:56:00 +0000 | [diff] [blame] | 421 | SSL_CIPHER *ssl3_get_cipher_by_char(const unsigned char *p); |
| 422 | int ssl3_put_cipher_by_char(const SSL_CIPHER *c,unsigned char *p); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 423 | void ssl3_init_finished_mac(SSL *s); |
| 424 | int ssl3_send_server_certificate(SSL *s); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 425 | int ssl3_get_finished(SSL *s,int state_a,int state_b); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 426 | int ssl3_setup_key_block(SSL *s); |
| 427 | int ssl3_send_change_cipher_spec(SSL *s,int state_a,int state_b); |
| 428 | int ssl3_change_cipher_state(SSL *s,int which); |
| 429 | void ssl3_cleanup_key_block(SSL *s); |
| 430 | int ssl3_do_write(SSL *s,int type); |
| 431 | void ssl3_send_alert(SSL *s,int level, int desc); |
| 432 | int ssl3_generate_master_secret(SSL *s, unsigned char *out, |
| 433 | unsigned char *p, int len); |
| 434 | int ssl3_get_req_cert_type(SSL *s,unsigned char *p); |
| 435 | long ssl3_get_message(SSL *s, int st1, int stn, int mt, long max, int *ok); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 436 | int ssl3_send_finished(SSL *s, int a, int b, unsigned char *sender,int slen); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 437 | int ssl3_num_ciphers(void); |
| 438 | SSL_CIPHER *ssl3_get_cipher(unsigned int u); |
| 439 | int ssl3_renegotiate(SSL *ssl); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 440 | int ssl3_renegotiate_check(SSL *ssl); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 441 | int ssl3_dispatch_alert(SSL *s); |
Ben Laurie | 61f5b6f | 1999-04-23 15:01:15 +0000 | [diff] [blame] | 442 | int ssl3_read_bytes(SSL *s, int type, unsigned char *buf, int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 443 | int ssl3_part_read(SSL *s, int i); |
Ben Laurie | 61f5b6f | 1999-04-23 15:01:15 +0000 | [diff] [blame] | 444 | int ssl3_write_bytes(SSL *s, int type, const void *buf, int len); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 445 | int ssl3_final_finish_mac(SSL *s, EVP_MD_CTX *ctx1,EVP_MD_CTX *ctx2, |
| 446 | unsigned char *sender, int slen,unsigned char *p); |
| 447 | int ssl3_cert_verify_mac(SSL *s, EVP_MD_CTX *in, unsigned char *p); |
Ben Laurie | e778802 | 1999-04-17 21:25:43 +0000 | [diff] [blame] | 448 | void ssl3_finish_mac(SSL *s, const unsigned char *buf, int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 449 | int ssl3_enc(SSL *s, int send_data); |
| 450 | int ssl3_mac(SSL *ssl, unsigned char *md, int send_data); |
| 451 | unsigned long ssl3_output_cert_chain(SSL *s, X509 *x); |
Ben Laurie | f73e07c | 1999-04-12 17:23:57 +0000 | [diff] [blame] | 452 | SSL_CIPHER *ssl3_choose_cipher(SSL *ssl,STACK_OF(SSL_CIPHER) *have, |
| 453 | STACK_OF(SSL_CIPHER) *pref); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 454 | int ssl3_setup_buffers(SSL *s); |
| 455 | int ssl3_new(SSL *s); |
| 456 | void ssl3_free(SSL *s); |
| 457 | int ssl3_accept(SSL *s); |
| 458 | int ssl3_connect(SSL *s); |
Ben Laurie | 61f5b6f | 1999-04-23 15:01:15 +0000 | [diff] [blame] | 459 | int ssl3_read(SSL *s, void *buf, int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 460 | int ssl3_peek(SSL *s,char *buf, int len); |
Ben Laurie | 61f5b6f | 1999-04-23 15:01:15 +0000 | [diff] [blame] | 461 | int ssl3_write(SSL *s, const void *buf, int len); |
Ralf S. Engelschall | d02b48c | 1998-12-21 10:52:47 +0000 | [diff] [blame] | 462 | int ssl3_shutdown(SSL *s); |
| 463 | void ssl3_clear(SSL *s); |
| 464 | long ssl3_ctrl(SSL *s,int cmd, long larg, char *parg); |
| 465 | long ssl3_ctx_ctrl(SSL_CTX *s,int cmd, long larg, char *parg); |
| 466 | int ssl3_pending(SSL *s); |
| 467 | |
| 468 | int ssl23_accept(SSL *s); |
| 469 | int ssl23_connect(SSL *s); |
| 470 | int ssl23_read_bytes(SSL *s, int n); |
| 471 | int ssl23_write_bytes(SSL *s); |
| 472 | |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 473 | int tls1_new(SSL *s); |
| 474 | void tls1_free(SSL *s); |
| 475 | void tls1_clear(SSL *s); |
| 476 | long tls1_ctrl(SSL *s,int cmd, long larg, char *parg); |
| 477 | SSL_METHOD *tlsv1_base_method(void ); |
| 478 | |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 479 | int ssl_init_wbio_buffer(SSL *s, int push); |
Mark J. Cox | 413c4f4 | 1999-02-16 09:22:21 +0000 | [diff] [blame] | 480 | void ssl_free_wbio_buffer(SSL *s); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 481 | |
| 482 | int tls1_change_cipher_state(SSL *s, int which); |
| 483 | int tls1_setup_key_block(SSL *s); |
| 484 | int tls1_enc(SSL *s, int snd); |
| 485 | int tls1_final_finish_mac(SSL *s, EVP_MD_CTX *in1_ctx, EVP_MD_CTX *in2_ctx, |
| 486 | unsigned char *str, int slen, unsigned char *p); |
| 487 | int tls1_cert_verify_mac(SSL *s, EVP_MD_CTX *in, unsigned char *p); |
| 488 | int tls1_mac(SSL *ssl, unsigned char *md, int snd); |
| 489 | int tls1_generate_master_secret(SSL *s, unsigned char *out, |
| 490 | unsigned char *p, int len); |
| 491 | int tls1_alert_code(int code); |
| 492 | int ssl3_alert_code(int code); |
Ralf S. Engelschall | dfeab06 | 1998-12-21 11:00:56 +0000 | [diff] [blame] | 493 | int ssl_ok(SSL *s); |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 494 | |
Ben Laurie | f73e07c | 1999-04-12 17:23:57 +0000 | [diff] [blame] | 495 | SSL_COMP *ssl3_comp_find(STACK_OF(SSL_COMP) *sk, int n); |
| 496 | STACK_OF(SSL_COMP) *SSL_COMP_get_compression_methods(void); |
Mark J. Cox | 413c4f4 | 1999-02-16 09:22:21 +0000 | [diff] [blame] | 497 | |
Ralf S. Engelschall | 58964a4 | 1998-12-21 10:56:39 +0000 | [diff] [blame] | 498 | |
Mark J. Cox | 413c4f4 | 1999-02-16 09:22:21 +0000 | [diff] [blame] | 499 | #endif |