2 * Copyright (c) 2003 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of KTH nor the names of its contributors may be
18 * used to endorse or promote products derived from this software without
19 * specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
22 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
24 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
25 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
26 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
28 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
30 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
31 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
33 #include "krb5_locl.h"
39 #include <openssl/evp.h>
42 static int verbose
= 0;
45 hex_dump_data(const void *data
, size_t length
)
49 hex_encode(data
, length
, &p
);
65 "password", "ATHENA.MIT.EDUraeburn", -1,
67 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
68 "\xcd\xed\xb5\x28\x1b\xb2\xf8\x01\x56\x5a\x11\x22\xb2\x56\x35\x15",
69 "\x42\x26\x3c\x6e\x89\xf4\xfc\x28\xb8\xdf\x68\xee\x09\x79\x9f\x15"
72 "password", "ATHENA.MIT.EDUraeburn", -1,
74 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
75 "\xcd\xed\xb5\x28\x1b\xb2\xf8\x01\x56\x5a\x11\x22\xb2\x56\x35\x15"
76 "\x0a\xd1\xf7\xa0\x4b\xb9\xf3\xa3\x33\xec\xc0\xe2\xe1\xf7\x08\x37",
77 "\xfe\x69\x7b\x52\xbc\x0d\x3c\xe1\x44\x32\xba\x03\x6a\x92\xe6\x5b"
78 "\xbb\x52\x28\x09\x90\xa2\xfa\x27\x88\x39\x98\xd7\x2a\xf3\x01\x61"
81 "password", "ATHENA.MIT.EDUraeburn", -1,
83 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
84 "\x01\xdb\xee\x7f\x4a\x9e\x24\x3e\x98\x8b\x62\xc7\x3c\xda\x93\x5d",
85 "\xc6\x51\xbf\x29\xe2\x30\x0a\xc2\x7f\xa4\x69\xd6\x93\xbd\xda\x13"
88 "password", "ATHENA.MIT.EDUraeburn", -1,
90 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
91 "\x01\xdb\xee\x7f\x4a\x9e\x24\x3e\x98\x8b\x62\xc7\x3c\xda\x93\x5d"
92 "\xa0\x53\x78\xb9\x32\x44\xec\x8f\x48\xa9\x9e\x61\xad\x79\x9d\x86",
93 "\xa2\xe1\x6d\x16\xb3\x60\x69\xc1\x35\xd5\xe9\xd2\xe2\x5f\x89\x61"
94 "\x02\x68\x56\x18\xb9\x59\x14\xb4\x67\xc6\x76\x22\x22\x58\x24\xff"
97 "password", "ATHENA.MIT.EDUraeburn", -1,
99 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
100 "\x5c\x08\xeb\x61\xfd\xf7\x1e\x4e\x4e\xc3\xcf\x6b\xa1\xf5\x51\x2b",
101 "\x4c\x01\xcd\x46\xd6\x32\xd0\x1e\x6d\xbe\x23\x0a\x01\xed\x64\x2a"
104 "password", "ATHENA.MIT.EDUraeburn", -1,
106 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
107 "\x5c\x08\xeb\x61\xfd\xf7\x1e\x4e\x4e\xc3\xcf\x6b\xa1\xf5\x51\x2b"
108 "\xa7\xe5\x2d\xdb\xc5\xe5\x14\x2f\x70\x8a\x31\xe2\xe6\x2b\x1e\x13",
109 "\x55\xa6\xac\x74\x0a\xd1\x7b\x48\x46\x94\x10\x51\xe1\xe8\xb0\xa7"
110 "\x54\x8d\x93\xb0\xab\x30\xa8\xbc\x3f\xf1\x62\x80\x38\x2b\x8c\x2a"
113 "password", "\x12\x34\x56\x78\x78\x56\x34\x12", 8,
115 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
116 "\xd1\xda\xa7\x86\x15\xf2\x87\xe6\xa1\xc8\xb1\x20\xd7\x06\x2a\x49",
117 "\xe9\xb2\x3d\x52\x27\x37\x47\xdd\x5c\x35\xcb\x55\xbe\x61\x9d\x8e"
120 "password", "\x12\x34\x56\x78\x78\x56\x34\x12", 8,
122 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
123 "\xd1\xda\xa7\x86\x15\xf2\x87\xe6\xa1\xc8\xb1\x20\xd7\x06\x2a\x49"
124 "\x3f\x98\xd2\x03\xe6\xbe\x49\xa6\xad\xf4\xfa\x57\x4b\x6e\x64\xee",
125 "\x97\xa4\xe7\x86\xbe\x20\xd8\x1a\x38\x2d\x5e\xbc\x96\xd5\x90\x9c"
126 "\xab\xcd\xad\xc8\x7c\xa4\x8f\x57\x45\x04\x15\x9f\x16\xc3\x6e\x31"
129 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
130 "pass phrase equals block size", -1,
132 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
133 "\x13\x9c\x30\xc0\x96\x6b\xc3\x2b\xa5\x5f\xdb\xf2\x12\x53\x0a\xc9",
134 "\x59\xd1\xbb\x78\x9a\x82\x8b\x1a\xa5\x4e\xf9\xc2\x88\x3f\x69\xed"
137 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
138 "pass phrase equals block size", -1,
140 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
141 "\x13\x9c\x30\xc0\x96\x6b\xc3\x2b\xa5\x5f\xdb\xf2\x12\x53\x0a\xc9"
142 "\xc5\xec\x59\xf1\xa4\x52\xf5\xcc\x9a\xd9\x40\xfe\xa0\x59\x8e\xd1",
143 "\x89\xad\xee\x36\x08\xdb\x8b\xc7\x1f\x1b\xfb\xfe\x45\x94\x86\xb0"
144 "\x56\x18\xb7\x0c\xba\xe2\x20\x92\x53\x4e\x56\xc5\x53\xba\x4b\x34"
147 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
148 "pass phrase exceeds block size", -1,
150 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
151 "\x9c\xca\xd6\xd4\x68\x77\x0c\xd5\x1b\x10\xe6\xa6\x87\x21\xbe\x61",
152 "\xcb\x80\x05\xdc\x5f\x90\x17\x9a\x7f\x02\x10\x4c\x00\x18\x75\x1d"
155 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
156 "pass phrase exceeds block size", -1,
158 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
159 "\x9c\xca\xd6\xd4\x68\x77\x0c\xd5\x1b\x10\xe6\xa6\x87\x21\xbe\x61"
160 "\x1a\x8b\x4d\x28\x26\x01\xdb\x3b\x36\xbe\x92\x46\x91\x5e\xc8\x2a",
161 "\xd7\x8c\x5c\x9c\xb8\x72\xa8\xc9\xda\xd4\x69\x7f\x0b\xb5\xb2\xd2"
162 "\x14\x96\xc8\x2b\xeb\x2c\xae\xda\x21\x12\xfc\xee\xa0\x57\x40\x1b"
166 "\xf0\x9d\x84\x9e" /* g-clef */, "EXAMPLE.COMpianist", -1,
168 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
169 "\x6b\x9c\xf2\x6d\x45\x45\x5a\x43\xa5\xb8\xbb\x27\x6a\x40\x3b\x39",
170 "\xf1\x49\xc1\xf2\xe1\x54\xa7\x34\x52\xd4\x3e\x7f\xe6\x2a\x56\xe5"
173 "\xf0\x9d\x84\x9e" /* g-clef */, "EXAMPLE.COMpianist", -1,
175 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
176 "\x6b\x9c\xf2\x6d\x45\x45\x5a\x43\xa5\xb8\xbb\x27\x6a\x40\x3b\x39"
177 "\xe7\xfe\x37\xa0\xc4\x1e\x02\xc2\x81\xff\x30\x69\xe1\xe9\x4f\x52",
178 "\x4b\x6d\x98\x39\xf8\x44\x06\xdf\x1f\x09\xcc\x16\x6d\xb4\xb8\x3c"
179 "\x57\x18\x48\xb7\x84\xa3\xd6\xbd\xc3\x46\x58\x9a\x3e\x39\x3f\x9e"
184 ETYPE_ARCFOUR_HMAC_MD5
, 16,
186 "\xac\x8e\x65\x7f\x83\xdf\x82\xbe\xea\x5d\x43\xbd\xaf\x78\x00\xcc"
191 ETYPE_ARCFOUR_HMAC_MD5
, 16,
193 "\x0c\xb6\x94\x88\x05\xf7\x97\xbf\x2a\x82\x80\x79\x73\xb8\x95\x37"
198 string_to_key_test(krb5_context context
)
200 krb5_data password
, opaque
;
206 for (i
= 0; i
< sizeof(keys
)/sizeof(keys
[0]); i
++) {
208 password
.data
= keys
[i
].password
;
209 password
.length
= strlen(password
.data
);
211 salt
.salttype
= KRB5_PW_SALT
;
212 salt
.saltvalue
.data
= keys
[i
].salt
;
213 if (keys
[i
].saltlen
== -1)
214 salt
.saltvalue
.length
= strlen(salt
.saltvalue
.data
);
216 salt
.saltvalue
.length
= keys
[i
].saltlen
;
219 opaque
.length
= sizeof(iter
);
220 _krb5_put_int(iter
, keys
[i
].iterations
, 4);
222 if (keys
[i
].pbkdf2
) {
223 unsigned char keyout
[32];
225 if (keys
[i
].keylen
> sizeof(keyout
))
228 PKCS5_PBKDF2_HMAC_SHA1(password
.data
, password
.length
,
229 salt
.saltvalue
.data
, salt
.saltvalue
.length
,
231 keys
[i
].keylen
, keyout
);
233 if (memcmp(keyout
, keys
[i
].pbkdf2
, keys
[i
].keylen
) != 0) {
234 krb5_warnx(context
, "%d: pbkdf2", i
);
241 hex_dump_data(keyout
, keys
[i
].keylen
);
248 ret
= krb5_string_to_key_data_salt_opaque (context
,
255 krb5_warn(context
, ret
, "%d: string_to_key_data_salt_opaque",
261 if (key
.keyvalue
.length
!= keys
[i
].keylen
) {
262 krb5_warnx(context
, "%d: key wrong length (%lu/%lu)",
263 i
, (unsigned long)key
.keyvalue
.length
,
264 (unsigned long)keys
[i
].keylen
);
269 if (memcmp(key
.keyvalue
.data
, keys
[i
].key
, keys
[i
].keylen
) != 0) {
270 krb5_warnx(context
, "%d: key wrong", i
);
277 hex_dump_data(key
.keyvalue
.data
, key
.keyvalue
.length
);
279 krb5_free_keyblock_contents(context
, &key
);
286 krb_enc(krb5_context context
,
295 krb5_data_zero(&decrypt
);
297 ret
= krb5_decrypt(context
,
305 krb5_warn(context
, ret
, "krb5_decrypt");
309 if (decrypt
.length
!= clear
->length
||
310 memcmp(decrypt
.data
, clear
->data
, decrypt
.length
) != 0) {
311 krb5_warnx(context
, "clear text not same");
315 krb5_data_free(&decrypt
);
321 krb_enc_iov2(krb5_context context
,
327 krb5_crypto_iov iov
[4];
336 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
337 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[0].data
.length
);
338 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
340 iov
[1].flags
= KRB5_CRYPTO_TYPE_DATA
;
341 iov
[1].data
.length
= len
;
342 iov
[1].data
.data
= emalloc(iov
[1].data
.length
);
343 memcpy(iov
[1].data
.data
, p
, iov
[1].data
.length
);
346 iov
[2].flags
= KRB5_CRYPTO_TYPE_PADDING
;
347 krb5_crypto_length(context
, crypto
, KRB5_CRYPTO_TYPE_PADDING
, &iov
[2].data
.length
);
348 iov
[2].data
.data
= emalloc(iov
[2].data
.length
);
350 iov
[3].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
351 krb5_crypto_length(context
, crypto
, iov
[3].flags
, &iov
[3].data
.length
);
352 iov
[3].data
.data
= emalloc(iov
[3].data
.length
);
354 ret
= krb5_encrypt_iov_ivec(context
, crypto
, usage
,
355 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
357 errx(1, "encrypt iov failed: %d", ret
);
360 for (i
= 0, len
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++)
361 len
+= iov
[i
].data
.length
;
362 if (len
!= cipher_len
)
363 errx(1, "cipher len wrong");
369 p
= q
= emalloc(len
);
370 for (i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
371 memcpy(q
, iov
[i
].data
.data
, iov
[i
].data
.length
);
372 q
+= iov
[i
].data
.length
;
375 ret
= krb5_decrypt(context
, crypto
, usage
, p
, len
, &decrypt
);
377 krb5_err(context
, 1, ret
, "krb5_decrypt");
379 krb5_data_free(&decrypt
);
384 * Now decrypt use iov
387 /* padding turn into data */
388 p
= q
= emalloc(iov
[1].data
.length
+ iov
[2].data
.length
);
390 memcpy(q
, iov
[1].data
.data
, iov
[1].data
.length
);
391 q
+= iov
[1].data
.length
;
392 memcpy(q
, iov
[2].data
.data
, iov
[2].data
.length
);
394 free(iov
[1].data
.data
);
395 free(iov
[2].data
.data
);
397 iov
[1].data
.data
= p
;
398 iov
[1].data
.length
+= iov
[2].data
.length
;
400 iov
[2].flags
= KRB5_CRYPTO_TYPE_EMPTY
;
401 iov
[2].data
.length
= 0;
403 ret
= krb5_decrypt_iov_ivec(context
, crypto
, usage
,
404 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
405 free(iov
[0].data
.data
);
406 free(iov
[3].data
.data
);
409 krb5_err(context
, 1, ret
, "decrypt iov failed: %d", ret
);
411 if (clear
->length
!= iov
[1].data
.length
)
412 errx(1, "length incorrect");
415 if (memcmp(iov
[1].data
.data
, p
, iov
[1].data
.length
) != 0)
416 errx(1, "iov[1] incorrect");
418 free(iov
[1].data
.data
);
425 krb_enc_iov(krb5_context context
,
431 krb5_crypto_iov iov
[3];
437 len
= cipher
->length
;
439 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
440 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[0].data
.length
);
441 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
442 memcpy(iov
[0].data
.data
, p
, iov
[0].data
.length
);
443 p
+= iov
[0].data
.length
;
444 len
-= iov
[0].data
.length
;
446 iov
[1].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
447 krb5_crypto_length(context
, crypto
, iov
[1].flags
, &iov
[1].data
.length
);
448 iov
[1].data
.data
= emalloc(iov
[1].data
.length
);
449 memcpy(iov
[1].data
.data
, p
+ len
- iov
[1].data
.length
, iov
[1].data
.length
);
450 len
-= iov
[1].data
.length
;
452 iov
[2].flags
= KRB5_CRYPTO_TYPE_DATA
;
453 iov
[2].data
.length
= len
;
454 iov
[2].data
.data
= emalloc(len
);
455 memcpy(iov
[2].data
.data
, p
, len
);
457 ret
= krb5_decrypt_iov_ivec(context
, crypto
, usage
,
458 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
460 krb5_err(context
, 1, ret
, "krb_enc_iov decrypt iov failed: %d", ret
);
462 if (clear
->length
!= iov
[2].data
.length
)
463 errx(1, "length incorrect");
466 if (memcmp(iov
[2].data
.data
, p
, iov
[2].data
.length
) != 0)
467 errx(1, "iov[2] incorrect");
469 free(iov
[0].data
.data
);
470 free(iov
[1].data
.data
);
471 free(iov
[2].data
.data
);
478 krb_checksum_iov(krb5_context context
,
483 krb5_crypto_iov iov
[4];
491 iov
[0].flags
= KRB5_CRYPTO_TYPE_CHECKSUM
;
492 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[0].data
.length
);
493 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
495 iov
[1].flags
= KRB5_CRYPTO_TYPE_DATA
;
496 iov
[1].data
.length
= len
;
497 iov
[1].data
.data
= p
;
499 iov
[2].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
500 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[2].data
.length
);
501 iov
[2].data
.data
= malloc(iov
[2].data
.length
);
503 ret
= krb5_create_checksum_iov(context
, crypto
, usage
,
504 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
506 krb5_err(context
, 1, ret
, "krb5_create_checksum_iov failed");
508 ret
= krb5_verify_checksum_iov(context
, crypto
, usage
, iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
510 krb5_err(context
, 1, ret
, "krb5_verify_checksum_iov");
512 free(iov
[0].data
.data
);
513 free(iov
[2].data
.data
);
520 krb_enc_mit(krb5_context context
,
521 krb5_enctype enctype
,
527 #ifndef HEIMDAL_SMALLER
535 e
.ciphertext
= *cipher
;
537 ret
= krb5_c_decrypt(context
, *key
, usage
, NULL
, &e
, &decrypt
);
541 if (decrypt
.length
!= clear
->length
||
542 memcmp(decrypt
.data
, clear
->data
, decrypt
.length
) != 0) {
543 krb5_warnx(context
, "clear text not same");
547 krb5_data_free(&decrypt
);
549 ret
= krb5_c_encrypt_length(context
, enctype
, clear
->length
, &len
);
553 if (len
!= cipher
->length
) {
554 krb5_warnx(context
, "c_encrypt_length wrong %lu != %lu",
555 (unsigned long)len
, (unsigned long)cipher
->length
);
558 #endif /* HEIMDAL_SMALLER */
564 krb5_enctype enctype
;
574 ETYPE_AES256_CTS_HMAC_SHA1_96
,
577 "\x47\x75\x69\x64\x65\x6c\x69\x6e\x65\x73\x20\x74\x6f\x20\x41\x75"
578 "\x74\x68\x6f\x72\x73\x20\x6f\x66\x20\x49\x6e\x74\x65\x72\x6e\x65",
580 "\xcf\x79\x8f\x0d\x76\xf3\xe0\xbe\x8e\x66\x94\x70\xfa\xcc\x9e\x91"
581 "\xa9\xec\x1c\x5c\x21\xfb\x6e\xef\x1a\x7a\xc8\xc1\xcc\x5a\x95\x24"
582 "\x6f\x9f\xf4\xd5\xbe\x5d\x59\x97\x44\xd8\x47\xcd",
584 "\x54\x68\x69\x73\x20\x69\x73\x20\x61\x20\x74\x65\x73\x74\x2e\x0a"
590 krb_enc_test(krb5_context context
)
595 krb5_data cipher
, plain
;
598 for (i
= 0; i
< sizeof(krbencs
)/sizeof(krbencs
[0]); i
++) {
600 kb
.keytype
= krbencs
[i
].enctype
;
601 kb
.keyvalue
.length
= krbencs
[i
].keylen
;
602 kb
.keyvalue
.data
= krbencs
[i
].key
;
604 ret
= krb5_crypto_init(context
, &kb
, krbencs
[i
].enctype
, &crypto
);
606 cipher
.length
= krbencs
[i
].elen
;
607 cipher
.data
= krbencs
[i
].edata
;
608 plain
.length
= krbencs
[i
].plen
;
609 plain
.data
= krbencs
[i
].pdata
;
611 ret
= krb_enc(context
, crypto
, krbencs
[i
].usage
, &cipher
, &plain
);
614 errx(1, "krb_enc failed with %d for test %d", ret
, i
);
616 ret
= krb_enc_iov(context
, crypto
, krbencs
[i
].usage
, &cipher
, &plain
);
618 errx(1, "krb_enc_iov failed with %d for test %d", ret
, i
);
620 ret
= krb_enc_iov2(context
, crypto
, krbencs
[i
].usage
,
621 cipher
.length
, &plain
);
623 errx(1, "krb_enc_iov2 failed with %d for test %d", ret
, i
);
625 ret
= krb_checksum_iov(context
, crypto
, krbencs
[i
].usage
, &plain
);
627 errx(1, "krb_checksum_iov failed with %d for test %d", ret
, i
);
629 krb5_crypto_destroy(context
, crypto
);
631 ret
= krb_enc_mit(context
, krbencs
[i
].enctype
, &kb
,
632 krbencs
[i
].usage
, &cipher
, &plain
);
634 errx(1, "krb_enc_mit failed with %d for test %d", ret
, i
);
641 iov_test(krb5_context context
)
643 krb5_enctype enctype
= KRB5_ENCTYPE_AES256_CTS_HMAC_SHA1_96
;
647 krb5_data signonly
, in
, in2
;
648 krb5_crypto_iov iov
[6];
650 unsigned char *base
, *p
;
652 ret
= krb5_generate_random_keyblock(context
, enctype
, &key
);
654 krb5_err(context
, 1, ret
, "krb5_generate_random_keyblock");
656 ret
= krb5_crypto_init(context
, &key
, 0, &crypto
);
658 krb5_err(context
, 1, ret
, "krb5_crypto_init");
661 ret
= krb5_crypto_length(context
, crypto
, KRB5_CRYPTO_TYPE_HEADER
, &len
);
663 krb5_err(context
, 1, ret
, "krb5_crypto_length");
665 signonly
.data
= "This should be signed";
666 signonly
.length
= strlen(signonly
.data
);
667 in
.data
= "inputdata";
668 in
.length
= strlen(in
.data
);
670 in2
.data
= "INPUTDATA";
671 in2
.length
= strlen(in2
.data
);
674 memset(iov
, 0, sizeof(iov
));
676 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
677 iov
[1].flags
= KRB5_CRYPTO_TYPE_DATA
;
679 iov
[2].flags
= KRB5_CRYPTO_TYPE_SIGN_ONLY
;
680 iov
[2].data
= signonly
;
681 iov
[3].flags
= KRB5_CRYPTO_TYPE_EMPTY
;
682 iov
[4].flags
= KRB5_CRYPTO_TYPE_PADDING
;
683 iov
[5].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
685 ret
= krb5_crypto_length_iov(context
, crypto
, iov
,
686 sizeof(iov
)/sizeof(iov
[0]));
688 krb5_err(context
, 1, ret
, "krb5_crypto_length_iov");
690 for (len
= 0, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
691 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
693 len
+= iov
[i
].data
.length
;
699 * Allocate data for the fields
702 for (p
= base
, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
703 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
705 iov
[i
].data
.data
= p
;
706 p
+= iov
[i
].data
.length
;
708 assert(iov
[1].data
.length
== in
.length
);
709 memcpy(iov
[1].data
.data
, in
.data
, iov
[1].data
.length
);
715 ret
= krb5_encrypt_iov_ivec(context
, crypto
, 7, iov
,
716 sizeof(iov
)/sizeof(iov
[0]), NULL
);
718 krb5_err(context
, 1, ret
, "krb5_encrypt_iov_ivec");
724 ret
= krb5_decrypt_iov_ivec(context
, crypto
, 7,
725 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
727 krb5_err(context
, 1, ret
, "krb5_decrypt_iov_ivec");
733 if (krb5_data_cmp(&iov
[1].data
, &in
) != 0)
734 krb5_errx(context
, 1, "decrypted data not same");
742 /* Set up for second try */
744 iov
[3].flags
= KRB5_CRYPTO_TYPE_DATA
;
747 ret
= krb5_crypto_length_iov(context
, crypto
,
748 iov
, sizeof(iov
)/sizeof(iov
[0]));
750 krb5_err(context
, 1, ret
, "krb5_crypto_length_iov");
752 for (len
= 0, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
753 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
755 len
+= iov
[i
].data
.length
;
761 * Allocate data for the fields
764 for (p
= base
, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
765 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
767 iov
[i
].data
.data
= p
;
768 p
+= iov
[i
].data
.length
;
770 assert(iov
[1].data
.length
== in
.length
);
771 memcpy(iov
[1].data
.data
, in
.data
, iov
[1].data
.length
);
773 assert(iov
[3].data
.length
== in2
.length
);
774 memcpy(iov
[3].data
.data
, in2
.data
, iov
[3].data
.length
);
782 ret
= krb5_encrypt_iov_ivec(context
, crypto
, 7,
783 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
785 krb5_err(context
, 1, ret
, "krb5_encrypt_iov_ivec");
791 ret
= krb5_decrypt_iov_ivec(context
, crypto
, 7,
792 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
794 krb5_err(context
, 1, ret
, "krb5_decrypt_iov_ivec");
800 if (krb5_data_cmp(&iov
[1].data
, &in
) != 0)
801 krb5_errx(context
, 1, "decrypted data 2.1 not same");
803 if (krb5_data_cmp(&iov
[3].data
, &in2
) != 0)
804 krb5_errx(context
, 1, "decrypted data 2.2 not same");
812 krb5_crypto_destroy(context
, crypto
);
814 krb5_free_keyblock_contents(context
, &key
);
822 random_to_key(krb5_context context
)
827 ret
= krb5_random_to_key(context
,
829 "\x21\x39\x04\x58\x6A\xBD\x7F"
830 "\x21\x39\x04\x58\x6A\xBD\x7F"
831 "\x21\x39\x04\x58\x6A\xBD\x7F",
835 krb5_warn(context
, ret
, "random_to_key");
838 if (key
.keyvalue
.length
!= 24)
841 if (memcmp(key
.keyvalue
.data
,
842 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7"
843 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7"
844 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7",
848 krb5_free_keyblock_contents(context
, &key
);
854 main(int argc
, char **argv
)
857 krb5_context context
;
860 ret
= krb5_init_context (&context
);
862 errx (1, "krb5_init_context failed: %d", ret
);
864 val
|= string_to_key_test(context
);
866 val
|= krb_enc_test(context
);
867 val
|= random_to_key(context
);
868 val
|= iov_test(context
);
870 if (verbose
&& val
== 0)
873 printf("tests failed\n");
875 krb5_free_context(context
);