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
= emalloc(iov
[1].data
.length
+ iov
[2].data
.length
);
390 memcpy(p
, iov
[1].data
.data
, iov
[1].data
.length
);
391 memcpy(p
+ iov
[1].data
.length
, iov
[2].data
.data
, iov
[2].data
.length
);
393 free(iov
[1].data
.data
);
394 free(iov
[2].data
.data
);
396 iov
[1].data
.data
= p
;
397 iov
[1].data
.length
+= iov
[2].data
.length
;
399 iov
[2].flags
= KRB5_CRYPTO_TYPE_EMPTY
;
400 iov
[2].data
.length
= 0;
402 ret
= krb5_decrypt_iov_ivec(context
, crypto
, usage
,
403 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
405 krb5_err(context
, 1, ret
, "decrypt iov failed: %d", ret
);
407 if (clear
->length
!= iov
[1].data
.length
)
408 errx(1, "length incorrect");
411 if (memcmp(iov
[1].data
.data
, p
, iov
[1].data
.length
) != 0)
412 errx(1, "iov[1] incorrect");
419 krb_enc_iov(krb5_context context
,
425 krb5_crypto_iov iov
[3];
431 len
= cipher
->length
;
433 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
434 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[0].data
.length
);
435 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
436 memcpy(iov
[0].data
.data
, p
, iov
[0].data
.length
);
437 p
+= iov
[0].data
.length
;
438 len
-= iov
[0].data
.length
;
440 iov
[1].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
441 krb5_crypto_length(context
, crypto
, iov
[1].flags
, &iov
[1].data
.length
);
442 iov
[1].data
.data
= emalloc(iov
[1].data
.length
);
443 memcpy(iov
[1].data
.data
, p
+ len
- iov
[1].data
.length
, iov
[1].data
.length
);
444 len
-= iov
[1].data
.length
;
446 iov
[2].flags
= KRB5_CRYPTO_TYPE_DATA
;
447 iov
[2].data
.length
= len
;
448 iov
[2].data
.data
= emalloc(len
);
449 memcpy(iov
[2].data
.data
, p
, len
);
451 ret
= krb5_decrypt_iov_ivec(context
, crypto
, usage
,
452 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
454 krb5_err(context
, 1, ret
, "krb_enc_iov decrypt iov failed: %d", ret
);
456 if (clear
->length
!= iov
[2].data
.length
)
457 errx(1, "length incorrect");
460 if (memcmp(iov
[2].data
.data
, p
, iov
[2].data
.length
) != 0)
461 errx(1, "iov[2] incorrect");
467 krb_checksum_iov(krb5_context context
,
472 krb5_crypto_iov iov
[4];
480 iov
[0].flags
= KRB5_CRYPTO_TYPE_CHECKSUM
;
481 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[0].data
.length
);
482 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
484 iov
[1].flags
= KRB5_CRYPTO_TYPE_DATA
;
485 iov
[1].data
.length
= len
;
486 iov
[1].data
.data
= p
;
488 iov
[2].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
489 krb5_crypto_length(context
, crypto
, iov
[0].flags
, &iov
[2].data
.length
);
490 iov
[2].data
.data
= malloc(iov
[2].data
.length
);
492 ret
= krb5_create_checksum_iov(context
, crypto
, usage
,
493 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
495 krb5_err(context
, 1, ret
, "krb5_create_checksum_iov failed");
497 ret
= krb5_verify_checksum_iov(context
, crypto
, usage
, iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
499 krb5_err(context
, 1, ret
, "krb5_verify_checksum_iov");
506 krb_enc_mit(krb5_context context
,
507 krb5_enctype enctype
,
513 #ifndef HEIMDAL_SMALLER
521 e
.ciphertext
= *cipher
;
523 ret
= krb5_c_decrypt(context
, *key
, usage
, NULL
, &e
, &decrypt
);
527 if (decrypt
.length
!= clear
->length
||
528 memcmp(decrypt
.data
, clear
->data
, decrypt
.length
) != 0) {
529 krb5_warnx(context
, "clear text not same");
533 krb5_data_free(&decrypt
);
535 ret
= krb5_c_encrypt_length(context
, enctype
, clear
->length
, &len
);
539 if (len
!= cipher
->length
) {
540 krb5_warnx(context
, "c_encrypt_length wrong %lu != %lu",
541 (unsigned long)len
, (unsigned long)cipher
->length
);
544 #endif /* HEIMDAL_SMALLER */
550 krb5_enctype enctype
;
560 ETYPE_AES256_CTS_HMAC_SHA1_96
,
563 "\x47\x75\x69\x64\x65\x6c\x69\x6e\x65\x73\x20\x74\x6f\x20\x41\x75"
564 "\x74\x68\x6f\x72\x73\x20\x6f\x66\x20\x49\x6e\x74\x65\x72\x6e\x65",
566 "\xcf\x79\x8f\x0d\x76\xf3\xe0\xbe\x8e\x66\x94\x70\xfa\xcc\x9e\x91"
567 "\xa9\xec\x1c\x5c\x21\xfb\x6e\xef\x1a\x7a\xc8\xc1\xcc\x5a\x95\x24"
568 "\x6f\x9f\xf4\xd5\xbe\x5d\x59\x97\x44\xd8\x47\xcd",
570 "\x54\x68\x69\x73\x20\x69\x73\x20\x61\x20\x74\x65\x73\x74\x2e\x0a"
576 krb_enc_test(krb5_context context
)
581 krb5_data cipher
, plain
;
584 for (i
= 0; i
< sizeof(krbencs
)/sizeof(krbencs
[0]); i
++) {
586 kb
.keytype
= krbencs
[i
].enctype
;
587 kb
.keyvalue
.length
= krbencs
[i
].keylen
;
588 kb
.keyvalue
.data
= krbencs
[i
].key
;
590 ret
= krb5_crypto_init(context
, &kb
, krbencs
[i
].enctype
, &crypto
);
592 cipher
.length
= krbencs
[i
].elen
;
593 cipher
.data
= krbencs
[i
].edata
;
594 plain
.length
= krbencs
[i
].plen
;
595 plain
.data
= krbencs
[i
].pdata
;
597 ret
= krb_enc(context
, crypto
, krbencs
[i
].usage
, &cipher
, &plain
);
600 errx(1, "krb_enc failed with %d for test %d", ret
, i
);
602 ret
= krb_enc_iov(context
, crypto
, krbencs
[i
].usage
, &cipher
, &plain
);
604 errx(1, "krb_enc_iov failed with %d for test %d", ret
, i
);
606 ret
= krb_enc_iov2(context
, crypto
, krbencs
[i
].usage
,
607 cipher
.length
, &plain
);
609 errx(1, "krb_enc_iov2 failed with %d for test %d", ret
, i
);
611 ret
= krb_checksum_iov(context
, crypto
, krbencs
[i
].usage
, &plain
);
613 errx(1, "krb_checksum_iov failed with %d for test %d", ret
, i
);
615 krb5_crypto_destroy(context
, crypto
);
617 ret
= krb_enc_mit(context
, krbencs
[i
].enctype
, &kb
,
618 krbencs
[i
].usage
, &cipher
, &plain
);
620 errx(1, "krb_enc_mit failed with %d for test %d", ret
, i
);
627 iov_test(krb5_context context
)
629 krb5_enctype enctype
= ENCTYPE_AES256_CTS_HMAC_SHA1_96
;
633 krb5_data signonly
, in
, in2
;
634 krb5_crypto_iov iov
[6];
636 unsigned char *base
, *p
;
638 ret
= krb5_generate_random_keyblock(context
, enctype
, &key
);
640 krb5_err(context
, 1, ret
, "krb5_generate_random_keyblock");
642 ret
= krb5_crypto_init(context
, &key
, 0, &crypto
);
644 krb5_err(context
, 1, ret
, "krb5_crypto_init");
647 ret
= krb5_crypto_length(context
, crypto
, KRB5_CRYPTO_TYPE_HEADER
, &len
);
649 krb5_err(context
, 1, ret
, "krb5_crypto_length");
651 signonly
.data
= "This should be signed";
652 signonly
.length
= strlen(signonly
.data
);
653 in
.data
= "inputdata";
654 in
.length
= strlen(in
.data
);
656 in2
.data
= "INPUTDATA";
657 in2
.length
= strlen(in2
.data
);
660 memset(iov
, 0, sizeof(iov
));
662 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
663 iov
[1].flags
= KRB5_CRYPTO_TYPE_DATA
;
665 iov
[2].flags
= KRB5_CRYPTO_TYPE_SIGN_ONLY
;
666 iov
[2].data
= signonly
;
667 iov
[3].flags
= KRB5_CRYPTO_TYPE_EMPTY
;
668 iov
[4].flags
= KRB5_CRYPTO_TYPE_PADDING
;
669 iov
[5].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
671 ret
= krb5_crypto_length_iov(context
, crypto
, iov
,
672 sizeof(iov
)/sizeof(iov
[0]));
674 krb5_err(context
, 1, ret
, "krb5_crypto_length_iov");
676 for (len
= 0, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
677 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
679 len
+= iov
[i
].data
.length
;
685 * Allocate data for the fields
688 for (p
= base
, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
689 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
691 iov
[i
].data
.data
= p
;
692 p
+= iov
[i
].data
.length
;
694 assert(iov
[1].data
.length
== in
.length
);
695 memcpy(iov
[1].data
.data
, in
.data
, iov
[1].data
.length
);
701 ret
= krb5_encrypt_iov_ivec(context
, crypto
, 7, iov
,
702 sizeof(iov
)/sizeof(iov
[0]), NULL
);
704 krb5_err(context
, 1, ret
, "krb5_encrypt_iov_ivec");
710 ret
= krb5_decrypt_iov_ivec(context
, crypto
, 7,
711 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
713 krb5_err(context
, 1, ret
, "krb5_decrypt_iov_ivec");
719 if (krb5_data_cmp(&iov
[1].data
, &in
) != 0)
720 krb5_errx(context
, 1, "decrypted data not same");
728 /* Set up for second try */
730 iov
[3].flags
= KRB5_CRYPTO_TYPE_DATA
;
733 ret
= krb5_crypto_length_iov(context
, crypto
,
734 iov
, sizeof(iov
)/sizeof(iov
[0]));
736 krb5_err(context
, 1, ret
, "krb5_crypto_length_iov");
738 for (len
= 0, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
739 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
741 len
+= iov
[i
].data
.length
;
747 * Allocate data for the fields
750 for (p
= base
, i
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++) {
751 if (iov
[i
].flags
== KRB5_CRYPTO_TYPE_SIGN_ONLY
)
753 iov
[i
].data
.data
= p
;
754 p
+= iov
[i
].data
.length
;
756 assert(iov
[1].data
.length
== in
.length
);
757 memcpy(iov
[1].data
.data
, in
.data
, iov
[1].data
.length
);
759 assert(iov
[3].data
.length
== in2
.length
);
760 memcpy(iov
[3].data
.data
, in2
.data
, iov
[3].data
.length
);
768 ret
= krb5_encrypt_iov_ivec(context
, crypto
, 7,
769 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
771 krb5_err(context
, 1, ret
, "krb5_encrypt_iov_ivec");
777 ret
= krb5_decrypt_iov_ivec(context
, crypto
, 7,
778 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
780 krb5_err(context
, 1, ret
, "krb5_decrypt_iov_ivec");
786 if (krb5_data_cmp(&iov
[1].data
, &in
) != 0)
787 krb5_errx(context
, 1, "decrypted data 2.1 not same");
789 if (krb5_data_cmp(&iov
[3].data
, &in2
) != 0)
790 krb5_errx(context
, 1, "decrypted data 2.2 not same");
798 krb5_crypto_destroy(context
, crypto
);
806 random_to_key(krb5_context context
)
811 ret
= krb5_random_to_key(context
,
813 "\x21\x39\x04\x58\x6A\xBD\x7F"
814 "\x21\x39\x04\x58\x6A\xBD\x7F"
815 "\x21\x39\x04\x58\x6A\xBD\x7F",
819 krb5_warn(context
, ret
, "random_to_key");
822 if (key
.keyvalue
.length
!= 24)
825 if (memcmp(key
.keyvalue
.data
,
826 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7"
827 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7"
828 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7",
832 krb5_free_keyblock_contents(context
, &key
);
838 main(int argc
, char **argv
)
841 krb5_context context
;
844 ret
= krb5_init_context (&context
);
846 errx (1, "krb5_init_context failed: %d", ret
);
848 val
|= string_to_key_test(context
);
850 val
|= krb_enc_test(context
);
851 val
|= random_to_key(context
);
852 val
|= iov_test(context
);
854 if (verbose
&& val
== 0)
857 printf("tests failed\n");
859 krb5_free_context(context
);