#include <openssl/ssl.h>
#include <openssl/evp.h>
+
+#ifdef __VMS
+# pragma names save
+# pragma names as_is,shortened
+#endif
+
#include "../ssl/ssl_locl.h"
+#ifdef __VMS
+# pragma names restore
+#endif
+
#include "testutil.h"
-#include "test_main.h"
#define IVLEN 12
#define KEYLEN 16
-/* The following are unofficial test vectors generated from a locally modified
- * version of picotls.
+/* The following are self-generated test vectors. This gives us very little
+ * confidence that we've got the implementation right, but at least tells us
+ * if we accidentally break something in the future. Until we can get some
+ * other source of test vectors this is all we've got.
* TODO(TLS1.3): As and when official vectors become available we should use
* those, e.g. see
* https://www.ietf.org/id/draft-thomson-tls-tls13-vectors-00.txt, however at
* the time of writing these are not suitable because they are based on
- * draft -16, which works slightly differently to the draft -18 vectors below.
+ * draft -16, which works differently to the draft -19 vectors below.
*/
static unsigned char hs_start_hash[] = {
};
static unsigned char handshake_secret[] = {
-0xdf, 0xc9, 0x41, 0xd8, 0x26, 0x93, 0x2a, 0x59, 0x11, 0xb3, 0xb7, 0xd0, 0x38,
-0xcb, 0x65, 0x6f, 0xda, 0xaf, 0x77, 0x07, 0x1e, 0x40, 0x9a, 0x9b, 0xa6, 0xca,
-0x74, 0xda, 0x17, 0xb4, 0xe0, 0x04,
+0xa4, 0xc6, 0x2e, 0x1c, 0x3c, 0xb8, 0x0a, 0xae, 0x34, 0x34, 0x0d, 0xb8, 0xfb,
+0x0d, 0xd5, 0x0d, 0x2d, 0x2f, 0x08, 0xa4, 0x54, 0x6b, 0xbb, 0x2e, 0x60, 0xc6,
+0x53, 0xac, 0xb3, 0xca, 0xf2, 0x87
};
static const char *client_hts_label = "client handshake traffic secret";
static unsigned char client_hts[] = {
-0x4b, 0x38, 0x48, 0xf1, 0x5d, 0xb1, 0x5e, 0x88, 0xcf, 0x3e, 0x3b, 0xff, 0xa6,
-0xba, 0x02, 0xc1, 0xc5, 0xd1, 0xe5, 0xb1, 0xc3, 0xf3, 0x10, 0xdf, 0xe5, 0xc9,
-0x69, 0x5a, 0x4a, 0xc6, 0x06, 0x38,
+0xd7, 0x58, 0x9f, 0x10, 0xa8, 0x30, 0xf3, 0x85, 0x63, 0x6f, 0xd9, 0xb0, 0x61,
+0xd5, 0x20, 0x19, 0xb1, 0x45, 0x96, 0x82, 0x24, 0x8e, 0x36, 0x45, 0xf7, 0x5a,
+0xd7, 0x2f, 0x31, 0xec, 0x57, 0xf7
};
static unsigned char client_hts_key[] = {
-0xe5, 0x7b, 0x8c, 0x38, 0x6d, 0x6f, 0x09, 0x14, 0xe2, 0xe5, 0x4e, 0x36, 0x23,
-0x91, 0x2a, 0xd4
+0xcc, 0x8b, 0xda, 0xbf, 0x83, 0x74, 0x2d, 0xf4, 0x53, 0x44, 0xff, 0xbc, 0xa4,
+0x43, 0xc8, 0x2a
};
static unsigned char client_hts_iv[] = {
-0x4d, 0x2e, 0x61, 0x0c, 0x4d, 0x3a, 0x8e, 0x5f, 0x15, 0x41, 0x1e, 0xfd
+0xa4, 0x83, 0x46, 0x11, 0xc2, 0x78, 0xea, 0x0f, 0x94, 0x52, 0x1d, 0xca
};
static const char *server_hts_label = "server handshake traffic secret";
static unsigned char server_hts[] = {
-0x74, 0x1f, 0xb3, 0xb8, 0x41, 0x24, 0xc4, 0x7e, 0x1b, 0x2e, 0xa9, 0x4f, 0x0c,
-0x42, 0xc9, 0x06, 0xb7, 0x7c, 0x84, 0x92, 0x05, 0xed, 0x5f, 0x19, 0xda, 0xbb,
-0xbb, 0xce, 0xc7, 0x29, 0x06, 0x7e,
+0xba, 0x7c, 0x3b, 0x74, 0x0d, 0x1e, 0x84, 0x82, 0xd6, 0x6f, 0x3e, 0x5e, 0x1d,
+0x6e, 0x25, 0xdc, 0x87, 0x1f, 0x48, 0x74, 0x2f, 0x65, 0xa4, 0x40, 0x39, 0xda,
+0xdc, 0x02, 0x2a, 0x16, 0x19, 0x5c
};
static unsigned char server_hts_key[] = {
-0x72, 0x61, 0x1c, 0xc8, 0x0d, 0x65, 0x9c, 0x89, 0xf8, 0x94, 0x9e, 0x32, 0x67,
-0xe1, 0x6c, 0x2d
-
+0x7d, 0x22, 0x2a, 0x3f, 0x72, 0x37, 0x92, 0xd9, 0x95, 0x9a, 0xe1, 0x66, 0x32,
+0x6f, 0x0d, 0xc9
};
static unsigned char server_hts_iv[] = {
-0x43, 0xfe, 0x11, 0x29, 0x0f, 0xe8, 0xfe, 0x84, 0x9c, 0x9b, 0x21, 0xef,
+0xa2, 0x73, 0xcd, 0x4e, 0x20, 0xe7, 0xe1, 0xe3, 0xcb, 0x0e, 0x18, 0x9e
};
static unsigned char master_secret[] = {
-0xfe, 0x8d, 0xfb, 0xd0, 0x14, 0x94, 0x4e, 0x22, 0x65, 0x16, 0x7d, 0xc4, 0x20,
-0x01, 0x5b, 0x10, 0x64, 0x74, 0xb7, 0x22, 0x9a, 0x95, 0xd1, 0x48, 0x0c, 0xb9,
-0xac, 0xd1, 0xa0, 0x28, 0xb7, 0x67
+0x9a, 0x2f, 0x36, 0xdc, 0x68, 0xab, 0x8f, 0x07, 0xef, 0x41, 0xea, 0x63, 0x39,
+0xfc, 0x46, 0x6b, 0x11, 0x24, 0xd6, 0xba, 0x6b, 0x8a, 0x92, 0x74, 0x61, 0xd3,
+0x64, 0x82, 0xc1, 0xc9, 0xc7, 0x0e
};
static const char *client_ats_label = "client application traffic secret";
static unsigned char client_ats[] = {
-0x56, 0x9e, 0x9c, 0x17, 0xe3, 0x52, 0x1f, 0xdd, 0x09, 0xf4, 0xb8, 0x4f, 0x6c,
-0xd6, 0x6d, 0xa8, 0x23, 0xde, 0xeb, 0x81, 0xbb, 0xb1, 0xde, 0x61, 0xe2, 0x82,
-0x56, 0x27, 0xf7, 0x00, 0x63, 0x81,
+0xc3, 0x60, 0x5f, 0xb3, 0xc4, 0x4b, 0xc2, 0x25, 0xd2, 0xaf, 0x36, 0xad, 0x99,
+0xa1, 0xcd, 0xcf, 0x71, 0xc4, 0xb9, 0xa2, 0x3d, 0xd2, 0x3e, 0xe6, 0xff, 0xca,
+0x2c, 0x71, 0x86, 0x3d, 0x1f, 0x85
};
static unsigned char client_ats_key[] = {
-0xcb, 0xfa, 0xae, 0x71, 0x8d, 0xfb, 0x52, 0xba, 0x7b, 0x87, 0xde, 0x8b, 0x6d,
-0xac, 0x92, 0x60
+0x3a, 0x25, 0x23, 0x12, 0xde, 0x0f, 0x53, 0xc7, 0xa0, 0xb2, 0xcf, 0x71, 0xb7,
+0x1a, 0x0d, 0xc7
};
static unsigned char client_ats_iv[] = {
-0x74, 0x86, 0x88, 0xe9, 0x7f, 0x72, 0xfb, 0xf3, 0x33, 0x1e, 0xfb, 0x55
+0xbd, 0x0d, 0x3c, 0x26, 0x9d, 0x2d, 0xa6, 0x52, 0x1b, 0x8d, 0x45, 0xef
};
static const char *server_ats_label = "server application traffic secret";
static unsigned char server_ats[] = {
-0xd1, 0xbf, 0xdc, 0x8b, 0x84, 0xf4, 0x16, 0xb7, 0xc6, 0x90, 0xd9, 0xc9, 0x2c,
-0x23, 0x11, 0xb3, 0x05, 0xad, 0x75, 0xfc, 0xe6, 0x29, 0x90, 0x2b, 0xe1, 0x03,
-0xdd, 0x0c, 0x12, 0x51, 0xea, 0xd2,
+0x27, 0x8d, 0x96, 0x76, 0x95, 0x9e, 0x3e, 0x39, 0xa4, 0xa9, 0xfc, 0x46, 0x9c,
+0x32, 0x9f, 0xe0, 0x29, 0x50, 0x22, 0x45, 0x39, 0x82, 0xdd, 0x1c, 0xc5, 0xfb,
+0xa9, 0x0a, 0x68, 0x29, 0x4e, 0x80
};
static unsigned char server_ats_key[] = {
-0x35, 0xc2, 0xd1, 0x54, 0xa8, 0x43, 0x03, 0xc6, 0x55, 0xa0, 0x2e, 0x5e, 0x1f,
-0x82, 0x31, 0x62
+0x78, 0xbd, 0xd7, 0xc6, 0xb0, 0xf1, 0x50, 0x5e, 0xae, 0x54, 0xff, 0xa5, 0xf2,
+0xed, 0x0b, 0x77
};
static unsigned char server_ats_iv[] = {
-0xe5, 0x77, 0xd9, 0x8a, 0xb3, 0x2e, 0xec, 0x79, 0xb1, 0x63, 0x68, 0xc2
+0xb1, 0x7b, 0x1c, 0xa2, 0xca, 0xbe, 0xe4, 0xac, 0xb5, 0xf3, 0x91, 0x7e
};
/* Mocked out implementations of various functions */
const EVP_MD *md = ssl_handshake_md(s);
if (!ssl_handshake_hash(s, hash, sizeof(hash), &hashsize)) {
- fprintf(stderr, "Failed to get hash\n");
+ TEST_error("Failed to get hash");
return 0;
}
if (!tls13_hkdf_expand(s, md, prk, label, labellen, hash, gensecret,
hashsize)) {
- fprintf(stderr, "Secret generation failed\n");
+ TEST_error("Secret generation failed");
return 0;
}
- if (memcmp(gensecret, ref_secret, hashsize) != 0) {
- fprintf(stderr, "Generated secret does not match\n");
+ if (!TEST_mem_eq(gensecret, hashsize, ref_secret, hashsize))
return 0;
- }
if (!tls13_derive_key(s, md, gensecret, key, KEYLEN)) {
- fprintf(stderr, "Key generation failed\n");
+ TEST_error("Key generation failed");
return 0;
}
- if (memcmp(key, ref_key, KEYLEN) != 0) {
- fprintf(stderr, "Generated key does not match\n");
+ if (!TEST_mem_eq(key, KEYLEN, ref_key, KEYLEN))
return 0;
- }
if (!tls13_derive_iv(s, md, gensecret, iv, IVLEN)) {
- fprintf(stderr, "IV generation failed\n");
+ TEST_error("IV generation failed");
return 0;
}
- if (memcmp(iv, ref_iv, IVLEN) != 0) {
- fprintf(stderr, "Generated IV does not match\n");
+ if (!TEST_mem_eq(iv, IVLEN, ref_iv, IVLEN))
return 0;
- }
return 1;
}
size_t master_secret_length;
ctx = SSL_CTX_new(TLS_method());
- if (ctx == NULL)
+ if (!TEST_ptr(ctx))
goto err;
s = SSL_new(ctx);
- if (s == NULL)
+ if (!TEST_ptr(s ))
goto err;
s->session = SSL_SESSION_new();
- if (s->session == NULL)
+ if (!TEST_ptr(s->session))
goto err;
- if (!tls13_generate_secret(s, ssl_handshake_md(s), NULL, NULL, 0,
- (unsigned char *)&s->early_secret)) {
- fprintf(stderr, "Early secret generation failed\n");
+ if (!TEST_true(tls13_generate_secret(s, ssl_handshake_md(s), NULL, NULL, 0,
+ (unsigned char *)&s->early_secret))) {
+ TEST_info("Early secret generation failed");
goto err;
}
- if (memcmp(s->early_secret, early_secret, sizeof(early_secret)) != 0) {
- fprintf(stderr, "Early secret does not match\n");
+ if (!TEST_mem_eq(s->early_secret, sizeof(early_secret),
+ early_secret, sizeof(early_secret))) {
+ TEST_info("Early secret does not match");
goto err;
}
- if (!tls13_generate_handshake_secret(s, ecdhe_secret,
- sizeof(ecdhe_secret))) {
- fprintf(stderr, "Hanshake secret generation failed\n");
+ if (!TEST_true(tls13_generate_handshake_secret(s, ecdhe_secret,
+ sizeof(ecdhe_secret)))) {
+ TEST_info("Hanshake secret generation failed");
goto err;
}
- if (memcmp(s->handshake_secret, handshake_secret,
- sizeof(handshake_secret)) != 0) {
- fprintf(stderr, "Handshake secret does not match\n");
+ if (!TEST_mem_eq(s->handshake_secret, sizeof(handshake_secret),
+ handshake_secret, sizeof(handshake_secret)))
goto err;
- }
hashsize = EVP_MD_size(ssl_handshake_md(s));
- if (sizeof(client_hts) != hashsize || sizeof(client_hts_key) != KEYLEN
- || sizeof(client_hts_iv) != IVLEN) {
- fprintf(stderr, "Internal test error\n");
+ if (!TEST_size_t_eq(sizeof(client_hts), hashsize))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(client_hts_key), KEYLEN))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(client_hts_iv), IVLEN))
goto err;
- }
- if (!test_secret(s, s->handshake_secret, (unsigned char *)client_hts_label,
- strlen(client_hts_label), client_hts, client_hts_key,
- client_hts_iv)) {
- fprintf(stderr, "Client handshake secret test failed\n");
+ if (!TEST_true(test_secret(s, s->handshake_secret,
+ (unsigned char *)client_hts_label,
+ strlen(client_hts_label), client_hts,
+ client_hts_key, client_hts_iv))) {
+ TEST_info("Client handshake secret test failed");
goto err;
}
- if (sizeof(server_hts) != hashsize || sizeof(server_hts_key) != KEYLEN
- || sizeof(server_hts_iv) != IVLEN) {
- fprintf(stderr, "Internal test error\n");
+ if (!TEST_size_t_eq(sizeof(server_hts), hashsize))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(server_hts_key), KEYLEN))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(server_hts_iv), IVLEN))
goto err;
- }
- if (!test_secret(s, s->handshake_secret, (unsigned char *)server_hts_label,
- strlen(server_hts_label), server_hts, server_hts_key,
- server_hts_iv)) {
- fprintf(stderr, "Server handshake secret test failed\n");
+ if (!TEST_true(test_secret(s, s->handshake_secret,
+ (unsigned char *)server_hts_label,
+ strlen(server_hts_label), server_hts,
+ server_hts_key, server_hts_iv))) {
+ TEST_info("Server handshake secret test failed");
goto err;
}
*/
full_hash = 1;
- if (!tls13_generate_master_secret(s, out_master_secret,
- s->handshake_secret, hashsize,
- &master_secret_length)) {
- fprintf(stderr, "Master secret generation failed\n");
+ if (!TEST_true(tls13_generate_master_secret(s, out_master_secret,
+ s->handshake_secret, hashsize,
+ &master_secret_length))) {
+ TEST_info("Master secret generation failed");
goto err;
}
- if (master_secret_length != sizeof(master_secret) ||
- memcmp(out_master_secret, master_secret,
- sizeof(master_secret)) != 0) {
- fprintf(stderr, "Master secret does not match\n");
+ if (!TEST_mem_eq(out_master_secret, master_secret_length,
+ master_secret, sizeof(master_secret))) {
+ TEST_info("Master secret does not match");
goto err;
}
- if (sizeof(client_ats) != hashsize || sizeof(client_ats_key) != KEYLEN
- || sizeof(client_ats_iv) != IVLEN) {
- fprintf(stderr, "Internal test error\n");
+ if (!TEST_size_t_eq(sizeof(client_ats), hashsize))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(client_ats_key), KEYLEN))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(client_ats_iv), IVLEN))
goto err;
- }
- if (!test_secret(s, out_master_secret, (unsigned char *)client_ats_label,
- strlen(client_ats_label), client_ats, client_ats_key,
- client_ats_iv)) {
- fprintf(stderr, "Client application data secret test failed\n");
+ if (!TEST_true(test_secret(s, out_master_secret,
+ (unsigned char *)client_ats_label,
+ strlen(client_ats_label), client_ats,
+ client_ats_key, client_ats_iv))) {
+ TEST_info("Client application data secret test failed");
goto err;
}
- if (sizeof(server_ats) != hashsize || sizeof(server_ats_key) != KEYLEN
- || sizeof(server_ats_iv) != IVLEN) {
- fprintf(stderr, "Internal test error\n");
+ if (!TEST_size_t_eq(sizeof(server_ats), hashsize))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(server_ats_key), KEYLEN))
+ goto err;
+ if (!TEST_size_t_eq(sizeof(server_ats_iv), IVLEN))
goto err;
- }
- if (!test_secret(s, out_master_secret, (unsigned char *)server_ats_label,
- strlen(server_ats_label), server_ats, server_ats_key,
- server_ats_iv)) {
- fprintf(stderr, "Server application data secret test failed\n");
+ if (!TEST_true(test_secret(s, out_master_secret,
+ (unsigned char *)server_ats_label,
+ strlen(server_ats_label), server_ats,
+ server_ats_key, server_ats_iv))) {
+ TEST_info("Server application data secret test failed");
goto err;
}
projects / openssl.git / blobdiff