Mercurial > dropbear
annotate testprof/der_tests.c @ 209:39d5d58461d6 libtomcrypt-orig LTC_1.05
Import of libtomcrypt 1.05
| author | Matt Johnston <matt@ucc.asn.au> |
|---|---|
| date | Wed, 06 Jul 2005 03:53:40 +0000 |
| parents | 1c15b283127b |
| children |
| rev | line source |
|---|---|
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
1 #include <tomcrypt_test.h> |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
2 |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
3 #ifndef LTC_DER |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
4 |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
5 int der_tests(void) |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
6 { |
| 209 | 7 fprintf(stderr, "NOP"); |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
8 return 0; |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
9 } |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
10 |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
11 #else |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
12 |
| 209 | 13 static int der_choice_test(void) |
| 14 { | |
| 15 ltc_asn1_list types[7], host[1]; | |
| 16 unsigned char bitbuf[10], octetbuf[10], ia5buf[10], printbuf[10], outbuf[256]; | |
| 17 unsigned long integer, oidbuf[10], outlen, inlen, x, y; | |
| 18 mp_int mpinteger; | |
| 19 ltc_utctime utctime = { 91, 5, 6, 16, 45, 40, 1, 7, 0 }; | |
| 20 | |
| 21 /* setup variables */ | |
| 22 for (x = 0; x < sizeof(bitbuf); x++) { bitbuf[x] = x & 1; } | |
| 23 for (x = 0; x < sizeof(octetbuf); x++) { octetbuf[x] = x; } | |
| 24 for (x = 0; x < sizeof(ia5buf); x++) { ia5buf[x] = 'a'; } | |
| 25 for (x = 0; x < sizeof(printbuf); x++) { printbuf[x] = 'a'; } | |
| 26 integer = 1; | |
| 27 for (x = 0; x < sizeof(oidbuf)/sizeof(oidbuf[0]); x++) { oidbuf[x] = x + 1; } | |
| 28 DO(mpi_to_ltc_error(mp_init(&mpinteger))); | |
| 29 | |
| 30 for (x = 0; x < 14; x++) { | |
| 31 /* setup list */ | |
| 32 LTC_SET_ASN1(types, 0, LTC_ASN1_PRINTABLE_STRING, printbuf, sizeof(printbuf)); | |
| 33 LTC_SET_ASN1(types, 1, LTC_ASN1_BIT_STRING, bitbuf, sizeof(bitbuf)); | |
| 34 LTC_SET_ASN1(types, 2, LTC_ASN1_OCTET_STRING, octetbuf, sizeof(octetbuf)); | |
| 35 LTC_SET_ASN1(types, 3, LTC_ASN1_IA5_STRING, ia5buf, sizeof(ia5buf)); | |
| 36 if (x > 7) { | |
| 37 LTC_SET_ASN1(types, 4, LTC_ASN1_SHORT_INTEGER, &integer, 1); | |
| 38 } else { | |
| 39 LTC_SET_ASN1(types, 4, LTC_ASN1_INTEGER, &mpinteger, 1); | |
| 40 } | |
| 41 LTC_SET_ASN1(types, 5, LTC_ASN1_OBJECT_IDENTIFIER, oidbuf, sizeof(oidbuf)/sizeof(oidbuf[0])); | |
| 42 LTC_SET_ASN1(types, 6, LTC_ASN1_UTCTIME, &utctime, 1); | |
| 43 | |
| 44 LTC_SET_ASN1(host, 0, LTC_ASN1_CHOICE, types, 7); | |
| 45 | |
| 46 | |
| 47 /* encode */ | |
| 48 outlen = sizeof(outbuf); | |
| 49 DO(der_encode_sequence(&types[x>6?x-7:x], 1, outbuf, &outlen)); | |
| 50 | |
| 51 /* decode it */ | |
| 52 inlen = outlen; | |
| 53 DO(der_decode_sequence(outbuf, inlen, &host, 1)); | |
| 54 | |
| 55 for (y = 0; y < 7; y++) { | |
| 56 if (types[y].used && y != (x>6?x-7:x)) { | |
| 57 fprintf(stderr, "CHOICE, flag %lu in trial %lu was incorrectly set to one\n", y, x); | |
| 58 return 1; | |
| 59 } | |
| 60 if (!types[y].used && y == (x>6?x-7:x)) { | |
| 61 fprintf(stderr, "CHOICE, flag %lu in trial %lu was incorrectly set to zero\n", y, x); | |
| 62 return 1; | |
| 63 } | |
| 64 } | |
| 65 } | |
| 66 mp_clear(&mpinteger); | |
| 67 return 0; | |
| 68 } | |
| 69 | |
| 70 | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
71 int der_tests(void) |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
72 { |
| 209 | 73 unsigned long x, y, z, zz, oid[2][32]; |
| 74 unsigned char buf[3][2048]; | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
75 mp_int a, b, c, d, e, f, g; |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
76 |
| 209 | 77 static const unsigned char rsa_oid_der[] = { 0x06, 0x06, 0x2a, 0x86, 0x48, 0x86, 0xf7, 0x0d }; |
| 78 static const unsigned long rsa_oid[] = { 1, 2, 840, 113549 }; | |
| 79 | |
| 80 static const unsigned char rsa_ia5[] = "[email protected]"; | |
| 81 static const unsigned char rsa_ia5_der[] = { 0x16, 0x0d, 0x74, 0x65, 0x73, 0x74, 0x31, | |
| 82 0x40, 0x72, 0x73, 0x61, 0x2e, 0x63, 0x6f, 0x6d }; | |
| 83 | |
| 84 static const unsigned char rsa_printable[] = "Test User 1"; | |
| 85 static const unsigned char rsa_printable_der[] = { 0x13, 0x0b, 0x54, 0x65, 0x73, 0x74, 0x20, 0x55, | |
| 86 0x73, 0x65, 0x72, 0x20, 0x31 }; | |
| 87 | |
| 88 static const ltc_utctime rsa_time1 = { 91, 5, 6, 16, 45, 40, 1, 7, 0 }; | |
| 89 static const ltc_utctime rsa_time2 = { 91, 5, 6, 23, 45, 40, 0, 0, 0 }; | |
| 90 ltc_utctime tmp_time; | |
| 91 | |
| 92 static const unsigned char rsa_time1_der[] = { 0x17, 0x11, 0x39, 0x31, 0x30, 0x35, 0x30, 0x36, 0x31, 0x36, 0x34, 0x35, 0x34, 0x30, 0x2D, 0x30, 0x37, 0x30, 0x30 }; | |
| 93 static const unsigned char rsa_time2_der[] = { 0x17, 0x0d, 0x39, 0x31, 0x30, 0x35, 0x30, 0x36, 0x32, 0x33, 0x34, 0x35, 0x34, 0x30, 0x5a }; | |
| 94 | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
95 DO(mpi_to_ltc_error(mp_init_multi(&a, &b, &c, &d, &e, &f, &g, NULL))); |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
96 for (zz = 0; zz < 16; zz++) { |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
97 for (z = 0; z < 1024; z++) { |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
98 if (yarrow_read(buf[0], z, &yarrow_prng) != z) { |
| 209 | 99 fprintf(stderr, "Failed to read %lu bytes from yarrow\n", z); |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
100 return 1; |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
101 } |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
102 DO(mpi_to_ltc_error(mp_read_unsigned_bin(&a, buf[0], z))); |
| 209 | 103 if (mp_iszero(&a) == MP_NO) { a.sign = buf[0][0] & 1 ? MP_ZPOS : MP_NEG; } |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
104 x = sizeof(buf[0]); |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
105 DO(der_encode_integer(&a, buf[0], &x)); |
| 209 | 106 DO(der_length_integer(&a, &y)); |
| 107 if (y != x) { fprintf(stderr, "DER INTEGER size mismatch\n"); return 1; } | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
108 mp_zero(&b); |
| 209 | 109 DO(der_decode_integer(buf[0], y, &b)); |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
110 if (y != x || mp_cmp(&a, &b) != MP_EQ) { |
| 209 | 111 fprintf(stderr, "%lu: %lu vs %lu\n", z, x, y); |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
112 #ifdef BN_MP_TORADIX_C |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
113 mp_todecimal(&a, buf[0]); |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
114 mp_todecimal(&b, buf[1]); |
| 209 | 115 fprintf(stderr, "a == %s\nb == %s\n", buf[0], buf[1]); |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
116 #endif |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
117 mp_clear_multi(&a, &b, &c, &d, &e, &f, &g, NULL); |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
118 return 1; |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
119 } |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
120 } |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
121 } |
| 209 | 122 |
| 123 /* test short integer */ | |
| 124 for (zz = 0; zz < 256; zz++) { | |
| 125 for (z = 1; z < 4; z++) { | |
| 126 if (yarrow_read(buf[0], z, &yarrow_prng) != z) { | |
| 127 fprintf(stderr, "Failed to read %lu bytes from yarrow\n", z); | |
| 128 return 1; | |
| 129 } | |
| 130 /* encode with normal */ | |
| 131 DO(mpi_to_ltc_error(mp_read_unsigned_bin(&a, buf[0], z))); | |
| 132 | |
| 133 x = sizeof(buf[0]); | |
| 134 DO(der_encode_integer(&a, buf[0], &x)); | |
| 135 | |
| 136 /* encode with short */ | |
| 137 y = sizeof(buf[1]); | |
| 138 DO(der_encode_short_integer(mp_get_int(&a), buf[1], &y)); | |
| 139 if (x != y || memcmp(buf[0], buf[1], x)) { | |
| 140 fprintf(stderr, "DER INTEGER short encoding failed, %lu, %lu\n", x, y); | |
| 141 for (z = 0; z < x; z++) fprintf(stderr, "%02x ", buf[0][z]); fprintf(stderr, "\n"); | |
| 142 for (z = 0; z < y; z++) fprintf(stderr, "%02x ", buf[1][z]); fprintf(stderr, "\n"); | |
| 143 mp_clear_multi(&a, &b, &c, &d, &e, &f, &g, NULL); | |
| 144 return 1; | |
| 145 } | |
| 146 | |
| 147 /* decode it */ | |
| 148 x = 0; | |
| 149 DO(der_decode_short_integer(buf[1], y, &x)); | |
| 150 if (x != mp_get_int(&a)) { | |
| 151 fprintf(stderr, "DER INTEGER short decoding failed, %lu, %lu\n", x, mp_get_int(&a)); | |
| 152 mp_clear_multi(&a, &b, &c, &d, &e, &f, &g, NULL); | |
| 153 return 1; | |
| 154 } | |
| 155 } | |
| 156 } | |
| 157 mp_clear_multi(&a, &b, &c, &d, &e, &f, &g, NULL); | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
158 |
| 209 | 159 |
| 160 /* Test bit string */ | |
| 161 for (zz = 1; zz < 1536; zz++) { | |
| 162 yarrow_read(buf[0], zz, &yarrow_prng); | |
| 163 for (z = 0; z < zz; z++) { | |
| 164 buf[0][z] &= 0x01; | |
| 165 } | |
| 166 x = sizeof(buf[1]); | |
| 167 DO(der_encode_bit_string(buf[0], zz, buf[1], &x)); | |
| 168 DO(der_length_bit_string(zz, &y)); | |
| 169 if (y != x) { | |
| 170 fprintf(stderr, "\nDER BIT STRING length of encoded not match expected : %lu, %lu, %lu\n", z, x, y); | |
| 171 return 1; | |
| 172 } | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
173 |
| 209 | 174 y = sizeof(buf[2]); |
| 175 DO(der_decode_bit_string(buf[1], x, buf[2], &y)); | |
| 176 if (y != zz || memcmp(buf[0], buf[2], zz)) { | |
| 177 fprintf(stderr, "%lu, %lu, %d\n", y, zz, memcmp(buf[0], buf[2], zz)); | |
| 178 return 1; | |
| 179 } | |
| 180 } | |
| 181 | |
| 182 /* Test octet string */ | |
| 183 for (zz = 1; zz < 1536; zz++) { | |
| 184 yarrow_read(buf[0], zz, &yarrow_prng); | |
| 185 x = sizeof(buf[1]); | |
| 186 DO(der_encode_octet_string(buf[0], zz, buf[1], &x)); | |
| 187 DO(der_length_octet_string(zz, &y)); | |
| 188 if (y != x) { | |
| 189 fprintf(stderr, "\nDER OCTET STRING length of encoded not match expected : %lu, %lu, %lu\n", z, x, y); | |
| 190 return 1; | |
| 191 } | |
| 192 y = sizeof(buf[2]); | |
| 193 DO(der_decode_octet_string(buf[1], x, buf[2], &y)); | |
| 194 if (y != zz || memcmp(buf[0], buf[2], zz)) { | |
| 195 fprintf(stderr, "%lu, %lu, %d\n", y, zz, memcmp(buf[0], buf[2], zz)); | |
| 196 return 1; | |
| 197 } | |
| 198 } | |
| 199 | |
| 200 /* test OID */ | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
201 x = sizeof(buf[0]); |
| 209 | 202 DO(der_encode_object_identifier(rsa_oid, sizeof(rsa_oid)/sizeof(rsa_oid[0]), buf[0], &x)); |
| 203 if (x != sizeof(rsa_oid_der) || memcmp(rsa_oid_der, buf[0], x)) { | |
| 204 fprintf(stderr, "rsa_oid_der encode failed to match, %lu, ", x); | |
| 205 for (y = 0; y < x; y++) fprintf(stderr, "%02x ", buf[0][y]); | |
| 206 fprintf(stderr, "\n"); | |
| 207 return 1; | |
| 208 } | |
| 209 | |
| 210 y = sizeof(oid[0])/sizeof(oid[0][0]); | |
| 211 DO(der_decode_object_identifier(buf[0], x, oid[0], &y)); | |
| 212 if (y != sizeof(rsa_oid)/sizeof(rsa_oid[0]) || memcmp(rsa_oid, oid[0], sizeof(rsa_oid))) { | |
| 213 fprintf(stderr, "rsa_oid_der decode failed to match, %lu, ", y); | |
| 214 for (z = 0; z < y; z++) fprintf(stderr, "%lu ", oid[0][z]); | |
| 215 fprintf(stderr, "\n"); | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
216 return 1; |
| 209 | 217 } |
| 218 | |
| 219 /* do random strings */ | |
| 220 for (zz = 0; zz < 5000; zz++) { | |
| 221 /* pick a random number of words */ | |
| 222 yarrow_read(buf[0], 4, &yarrow_prng); | |
| 223 LOAD32L(z, buf[0]); | |
| 224 z = 2 + (z % ((sizeof(oid[0])/sizeof(oid[0][0])) - 2)); | |
| 225 | |
| 226 /* fill them in */ | |
| 227 oid[0][0] = buf[0][0] % 3; | |
| 228 oid[0][1] = buf[0][1] % 40; | |
| 229 | |
| 230 for (y = 2; y < z; y++) { | |
| 231 yarrow_read(buf[0], 4, &yarrow_prng); | |
| 232 LOAD32L(oid[0][y], buf[0]); | |
| 233 } | |
| 234 | |
| 235 /* encode it */ | |
| 236 x = sizeof(buf[0]); | |
| 237 DO(der_encode_object_identifier(oid[0], z, buf[0], &x)); | |
| 238 DO(der_length_object_identifier(oid[0], z, &y)); | |
| 239 if (x != y) { | |
| 240 fprintf(stderr, "Random OID %lu test failed, length mismatch: %lu, %lu\n", z, x, y); | |
| 241 for (x = 0; x < z; x++) fprintf(stderr, "%lu\n", oid[0][x]); | |
| 242 return 1; | |
| 243 } | |
| 244 | |
| 245 /* decode it */ | |
| 246 y = sizeof(oid[0])/sizeof(oid[0][0]); | |
| 247 DO(der_decode_object_identifier(buf[0], x, oid[1], &y)); | |
| 248 if (y != z) { | |
| 249 fprintf(stderr, "Random OID %lu test failed, decode length mismatch: %lu, %lu\n", z, x, y); | |
| 250 return 1; | |
| 251 } | |
| 252 if (memcmp(oid[0], oid[1], sizeof(oid[0][0]) * z)) { | |
| 253 fprintf(stderr, "Random OID %lu test failed, decoded values wrong\n", z); | |
| 254 for (x = 0; x < z; x++) fprintf(stderr, "%lu\n", oid[0][x]); fprintf(stderr, "\n\n Got \n\n"); | |
| 255 for (x = 0; x < z; x++) fprintf(stderr, "%lu\n", oid[1][x]); | |
| 256 return 1; | |
| 257 } | |
| 258 } | |
| 259 | |
| 260 /* IA5 string */ | |
| 261 x = sizeof(buf[0]); | |
| 262 DO(der_encode_ia5_string(rsa_ia5, strlen(rsa_ia5), buf[0], &x)); | |
| 263 if (x != sizeof(rsa_ia5_der) || memcmp(buf[0], rsa_ia5_der, x)) { | |
| 264 fprintf(stderr, "IA5 encode failed: %lu, %lu\n", x, (unsigned long)sizeof(rsa_ia5_der)); | |
| 265 return 1; | |
| 266 } | |
| 267 DO(der_length_ia5_string(rsa_ia5, strlen(rsa_ia5), &y)); | |
| 268 if (y != x) { | |
| 269 fprintf(stderr, "IA5 length failed to match: %lu, %lu\n", x, y); | |
| 270 return 1; | |
| 271 } | |
| 272 y = sizeof(buf[1]); | |
| 273 DO(der_decode_ia5_string(buf[0], x, buf[1], &y)); | |
| 274 if (y != strlen(rsa_ia5) || memcmp(buf[1], rsa_ia5, strlen(rsa_ia5))) { | |
| 275 fprintf(stderr, "DER IA5 failed test vector\n"); | |
| 276 return 1; | |
| 277 } | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
278 |
| 209 | 279 /* Printable string */ |
| 280 x = sizeof(buf[0]); | |
| 281 DO(der_encode_printable_string(rsa_printable, strlen(rsa_printable), buf[0], &x)); | |
| 282 if (x != sizeof(rsa_printable_der) || memcmp(buf[0], rsa_printable_der, x)) { | |
| 283 fprintf(stderr, "PRINTABLE encode failed: %lu, %lu\n", x, (unsigned long)sizeof(rsa_printable_der)); | |
| 284 return 1; | |
| 285 } | |
| 286 DO(der_length_printable_string(rsa_printable, strlen(rsa_printable), &y)); | |
| 287 if (y != x) { | |
| 288 fprintf(stderr, "printable length failed to match: %lu, %lu\n", x, y); | |
| 289 return 1; | |
| 290 } | |
| 291 y = sizeof(buf[1]); | |
| 292 DO(der_decode_printable_string(buf[0], x, buf[1], &y)); | |
| 293 if (y != strlen(rsa_printable) || memcmp(buf[1], rsa_printable, strlen(rsa_printable))) { | |
| 294 fprintf(stderr, "DER printable failed test vector\n"); | |
| 295 return 1; | |
| 296 } | |
| 297 | |
| 298 /* Test UTC time */ | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
299 x = sizeof(buf[0]); |
| 209 | 300 DO(der_encode_utctime(&rsa_time1, buf[0], &x)); |
| 301 if (x != sizeof(rsa_time1_der) || memcmp(buf[0], rsa_time1_der, x)) { | |
| 302 fprintf(stderr, "UTCTIME encode of rsa_time1 failed: %lu, %lu\n", x, (unsigned long)sizeof(rsa_time1_der)); | |
| 303 fprintf(stderr, "\n\n"); | |
| 304 for (y = 0; y < x; y++) fprintf(stderr, "%02x ", buf[0][y]); printf("\n"); | |
| 305 | |
| 306 return 1; | |
| 307 } | |
| 308 DO(der_length_utctime(&rsa_time1, &y)); | |
| 309 if (y != x) { | |
| 310 fprintf(stderr, "UTCTIME length failed to match for rsa_time1: %lu, %lu\n", x, y); | |
| 311 return 1; | |
| 312 } | |
| 313 DO(der_decode_utctime(buf[0], &y, &tmp_time)); | |
| 314 if (y != x || memcmp(&rsa_time1, &tmp_time, sizeof(ltc_utctime))) { | |
| 315 fprintf(stderr, "UTCTIME decode failed for rsa_time1: %lu %lu\n", x, y); | |
| 316 fprintf(stderr, "\n\n%u %u %u %u %u %u %u %u %u\n\n", | |
| 317 tmp_time.YY, | |
| 318 tmp_time.MM, | |
| 319 tmp_time.DD, | |
| 320 tmp_time.hh, | |
| 321 tmp_time.mm, | |
| 322 tmp_time.ss, | |
| 323 tmp_time.off_dir, | |
| 324 tmp_time.off_mm, | |
| 325 tmp_time.off_hh); | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
326 return 1; |
| 209 | 327 } |
| 328 | |
| 329 x = sizeof(buf[0]); | |
| 330 DO(der_encode_utctime(&rsa_time2, buf[0], &x)); | |
| 331 if (x != sizeof(rsa_time2_der) || memcmp(buf[0], rsa_time2_der, x)) { | |
| 332 fprintf(stderr, "UTCTIME encode of rsa_time2 failed: %lu, %lu\n", x, (unsigned long)sizeof(rsa_time1_der)); | |
| 333 fprintf(stderr, "\n\n"); | |
| 334 for (y = 0; y < x; y++) fprintf(stderr, "%02x ", buf[0][y]); printf("\n"); | |
| 335 | |
| 336 return 1; | |
| 337 } | |
| 338 DO(der_length_utctime(&rsa_time2, &y)); | |
| 339 if (y != x) { | |
| 340 fprintf(stderr, "UTCTIME length failed to match for rsa_time2: %lu, %lu\n", x, y); | |
| 341 return 1; | |
| 342 } | |
| 343 DO(der_decode_utctime(buf[0], &y, &tmp_time)); | |
| 344 if (y != x || memcmp(&rsa_time2, &tmp_time, sizeof(ltc_utctime))) { | |
| 345 fprintf(stderr, "UTCTIME decode failed for rsa_time2: %lu %lu\n", x, y); | |
| 346 fprintf(stderr, "\n\n%u %u %u %u %u %u %u %u %u\n\n", | |
| 347 tmp_time.YY, | |
| 348 tmp_time.MM, | |
| 349 tmp_time.DD, | |
| 350 tmp_time.hh, | |
| 351 tmp_time.mm, | |
| 352 tmp_time.ss, | |
| 353 tmp_time.off_dir, | |
| 354 tmp_time.off_mm, | |
| 355 tmp_time.off_hh); | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
356 |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
357 |
| 209 | 358 return 1; |
| 359 } | |
| 360 | |
| 361 | |
| 362 | |
| 363 return der_choice_test(); | |
|
191
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
364 } |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
365 |
|
1c15b283127b
Import of libtomcrypt 1.02 with manual path rename rearrangement etc
Matt Johnston <matt@ucc.asn.au>
parents:
diff
changeset
|
366 #endif |
| 209 | 367 |
| 368 /* $Source: /cvs/libtom/libtomcrypt/testprof/der_tests.c,v $ */ | |
| 369 /* $Revision: 1.25 $ */ | |
| 370 /* $Date: 2005/06/20 20:37:45 $ */ |