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"
38 #include <openssl/evp.h>
41 static int verbose
= 0;
44 hex_dump_data(const void *data
, size_t length
)
48 hex_encode(data
, length
, &p
);
64 "password", "ATHENA.MIT.EDUraeburn", -1,
66 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
67 "\xcd\xed\xb5\x28\x1b\xb2\xf8\x01\x56\x5a\x11\x22\xb2\x56\x35\x15",
68 "\x42\x26\x3c\x6e\x89\xf4\xfc\x28\xb8\xdf\x68\xee\x09\x79\x9f\x15"
71 "password", "ATHENA.MIT.EDUraeburn", -1,
73 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
74 "\xcd\xed\xb5\x28\x1b\xb2\xf8\x01\x56\x5a\x11\x22\xb2\x56\x35\x15"
75 "\x0a\xd1\xf7\xa0\x4b\xb9\xf3\xa3\x33\xec\xc0\xe2\xe1\xf7\x08\x37",
76 "\xfe\x69\x7b\x52\xbc\x0d\x3c\xe1\x44\x32\xba\x03\x6a\x92\xe6\x5b"
77 "\xbb\x52\x28\x09\x90\xa2\xfa\x27\x88\x39\x98\xd7\x2a\xf3\x01\x61"
80 "password", "ATHENA.MIT.EDUraeburn", -1,
82 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
83 "\x01\xdb\xee\x7f\x4a\x9e\x24\x3e\x98\x8b\x62\xc7\x3c\xda\x93\x5d",
84 "\xc6\x51\xbf\x29\xe2\x30\x0a\xc2\x7f\xa4\x69\xd6\x93\xbd\xda\x13"
87 "password", "ATHENA.MIT.EDUraeburn", -1,
89 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
90 "\x01\xdb\xee\x7f\x4a\x9e\x24\x3e\x98\x8b\x62\xc7\x3c\xda\x93\x5d"
91 "\xa0\x53\x78\xb9\x32\x44\xec\x8f\x48\xa9\x9e\x61\xad\x79\x9d\x86",
92 "\xa2\xe1\x6d\x16\xb3\x60\x69\xc1\x35\xd5\xe9\xd2\xe2\x5f\x89\x61"
93 "\x02\x68\x56\x18\xb9\x59\x14\xb4\x67\xc6\x76\x22\x22\x58\x24\xff"
96 "password", "ATHENA.MIT.EDUraeburn", -1,
98 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
99 "\x5c\x08\xeb\x61\xfd\xf7\x1e\x4e\x4e\xc3\xcf\x6b\xa1\xf5\x51\x2b",
100 "\x4c\x01\xcd\x46\xd6\x32\xd0\x1e\x6d\xbe\x23\x0a\x01\xed\x64\x2a"
103 "password", "ATHENA.MIT.EDUraeburn", -1,
105 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
106 "\x5c\x08\xeb\x61\xfd\xf7\x1e\x4e\x4e\xc3\xcf\x6b\xa1\xf5\x51\x2b"
107 "\xa7\xe5\x2d\xdb\xc5\xe5\x14\x2f\x70\x8a\x31\xe2\xe6\x2b\x1e\x13",
108 "\x55\xa6\xac\x74\x0a\xd1\x7b\x48\x46\x94\x10\x51\xe1\xe8\xb0\xa7"
109 "\x54\x8d\x93\xb0\xab\x30\xa8\xbc\x3f\xf1\x62\x80\x38\x2b\x8c\x2a"
112 "password", "\x12\x34\x56\x78\x78\x56\x34\x12", 8,
114 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
115 "\xd1\xda\xa7\x86\x15\xf2\x87\xe6\xa1\xc8\xb1\x20\xd7\x06\x2a\x49",
116 "\xe9\xb2\x3d\x52\x27\x37\x47\xdd\x5c\x35\xcb\x55\xbe\x61\x9d\x8e"
119 "password", "\x12\x34\x56\x78\x78\x56\x34\x12", 8,
121 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
122 "\xd1\xda\xa7\x86\x15\xf2\x87\xe6\xa1\xc8\xb1\x20\xd7\x06\x2a\x49"
123 "\x3f\x98\xd2\x03\xe6\xbe\x49\xa6\xad\xf4\xfa\x57\x4b\x6e\x64\xee",
124 "\x97\xa4\xe7\x86\xbe\x20\xd8\x1a\x38\x2d\x5e\xbc\x96\xd5\x90\x9c"
125 "\xab\xcd\xad\xc8\x7c\xa4\x8f\x57\x45\x04\x15\x9f\x16\xc3\x6e\x31"
128 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
129 "pass phrase equals block size", -1,
131 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
132 "\x13\x9c\x30\xc0\x96\x6b\xc3\x2b\xa5\x5f\xdb\xf2\x12\x53\x0a\xc9",
133 "\x59\xd1\xbb\x78\x9a\x82\x8b\x1a\xa5\x4e\xf9\xc2\x88\x3f\x69\xed"
136 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
137 "pass phrase equals block size", -1,
139 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
140 "\x13\x9c\x30\xc0\x96\x6b\xc3\x2b\xa5\x5f\xdb\xf2\x12\x53\x0a\xc9"
141 "\xc5\xec\x59\xf1\xa4\x52\xf5\xcc\x9a\xd9\x40\xfe\xa0\x59\x8e\xd1",
142 "\x89\xad\xee\x36\x08\xdb\x8b\xc7\x1f\x1b\xfb\xfe\x45\x94\x86\xb0"
143 "\x56\x18\xb7\x0c\xba\xe2\x20\x92\x53\x4e\x56\xc5\x53\xba\x4b\x34"
146 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
147 "pass phrase exceeds block size", -1,
149 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
150 "\x9c\xca\xd6\xd4\x68\x77\x0c\xd5\x1b\x10\xe6\xa6\x87\x21\xbe\x61",
151 "\xcb\x80\x05\xdc\x5f\x90\x17\x9a\x7f\x02\x10\x4c\x00\x18\x75\x1d"
154 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
155 "pass phrase exceeds block size", -1,
157 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
158 "\x9c\xca\xd6\xd4\x68\x77\x0c\xd5\x1b\x10\xe6\xa6\x87\x21\xbe\x61"
159 "\x1a\x8b\x4d\x28\x26\x01\xdb\x3b\x36\xbe\x92\x46\x91\x5e\xc8\x2a",
160 "\xd7\x8c\x5c\x9c\xb8\x72\xa8\xc9\xda\xd4\x69\x7f\x0b\xb5\xb2\xd2"
161 "\x14\x96\xc8\x2b\xeb\x2c\xae\xda\x21\x12\xfc\xee\xa0\x57\x40\x1b"
165 "\xf0\x9d\x84\x9e" /* g-clef */, "EXAMPLE.COMpianist", -1,
167 ETYPE_AES128_CTS_HMAC_SHA1_96
, 16,
168 "\x6b\x9c\xf2\x6d\x45\x45\x5a\x43\xa5\xb8\xbb\x27\x6a\x40\x3b\x39",
169 "\xf1\x49\xc1\xf2\xe1\x54\xa7\x34\x52\xd4\x3e\x7f\xe6\x2a\x56\xe5"
172 "\xf0\x9d\x84\x9e" /* g-clef */, "EXAMPLE.COMpianist", -1,
174 ETYPE_AES256_CTS_HMAC_SHA1_96
, 32,
175 "\x6b\x9c\xf2\x6d\x45\x45\x5a\x43\xa5\xb8\xbb\x27\x6a\x40\x3b\x39"
176 "\xe7\xfe\x37\xa0\xc4\x1e\x02\xc2\x81\xff\x30\x69\xe1\xe9\x4f\x52",
177 "\x4b\x6d\x98\x39\xf8\x44\x06\xdf\x1f\x09\xcc\x16\x6d\xb4\xb8\x3c"
178 "\x57\x18\x48\xb7\x84\xa3\xd6\xbd\xc3\x46\x58\x9a\x3e\x39\x3f\x9e"
183 ETYPE_ARCFOUR_HMAC_MD5
, 16,
185 "\xac\x8e\x65\x7f\x83\xdf\x82\xbe\xea\x5d\x43\xbd\xaf\x78\x00\xcc"
190 ETYPE_ARCFOUR_HMAC_MD5
, 16,
192 "\x0c\xb6\x94\x88\x05\xf7\x97\xbf\x2a\x82\x80\x79\x73\xb8\x95\x37"
197 string_to_key_test(krb5_context context
)
199 krb5_data password
, opaque
;
205 for (i
= 0; i
< sizeof(keys
)/sizeof(keys
[0]); i
++) {
207 password
.data
= keys
[i
].password
;
208 password
.length
= strlen(password
.data
);
210 salt
.salttype
= KRB5_PW_SALT
;
211 salt
.saltvalue
.data
= keys
[i
].salt
;
212 if (keys
[i
].saltlen
== -1)
213 salt
.saltvalue
.length
= strlen(salt
.saltvalue
.data
);
215 salt
.saltvalue
.length
= keys
[i
].saltlen
;
218 opaque
.length
= sizeof(iter
);
219 _krb5_put_int(iter
, keys
[i
].iterations
, 4);
221 if (keys
[i
].pbkdf2
) {
222 unsigned char keyout
[32];
224 if (keys
[i
].keylen
> sizeof(keyout
))
227 PKCS5_PBKDF2_HMAC_SHA1(password
.data
, password
.length
,
228 salt
.saltvalue
.data
, salt
.saltvalue
.length
,
230 keys
[i
].keylen
, keyout
);
232 if (memcmp(keyout
, keys
[i
].pbkdf2
, keys
[i
].keylen
) != 0) {
233 krb5_warnx(context
, "%d: pbkdf2", i
);
240 hex_dump_data(keyout
, keys
[i
].keylen
);
247 ret
= krb5_string_to_key_data_salt_opaque (context
,
254 krb5_warn(context
, ret
, "%d: string_to_key_data_salt_opaque",
260 if (key
.keyvalue
.length
!= keys
[i
].keylen
) {
261 krb5_warnx(context
, "%d: key wrong length (%lu/%lu)",
262 i
, (unsigned long)key
.keyvalue
.length
,
263 (unsigned long)keys
[i
].keylen
);
268 if (memcmp(key
.keyvalue
.data
, keys
[i
].key
, keys
[i
].keylen
) != 0) {
269 krb5_warnx(context
, "%d: key wrong", i
);
276 hex_dump_data(key
.keyvalue
.data
, key
.keyvalue
.length
);
278 krb5_free_keyblock_contents(context
, &key
);
285 krb_enc(krb5_context context
,
294 krb5_data_zero(&decrypt
);
296 ret
= krb5_decrypt(context
,
304 krb5_warn(context
, ret
, "krb5_decrypt");
308 if (decrypt
.length
!= clear
->length
||
309 memcmp(decrypt
.data
, clear
->data
, decrypt
.length
) != 0) {
310 krb5_warnx(context
, "clear text not same");
314 krb5_data_free(&decrypt
);
320 krb_enc_iov2(krb5_context context
,
326 krb5_crypto_iov iov
[4];
334 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
335 iov
[0].data
.length
= krb5_crypto_length(context
, crypto
, iov
[0].flags
);
336 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
338 iov
[1].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
339 iov
[1].data
.length
= krb5_crypto_length(context
, crypto
, iov
[1].flags
);
340 iov
[1].data
.data
= emalloc(iov
[1].data
.length
);
342 iov
[2].flags
= KRB5_CRYPTO_TYPE_DATA
;
343 iov
[2].data
.length
= len
;
344 iov
[2].data
.data
= emalloc(iov
[2].data
.length
);
345 memcpy(iov
[2].data
.data
, p
, iov
[2].data
.length
);
348 iov
[3].flags
= KRB5_CRYPTO_TYPE_PADDING
;
349 iov
[3].data
.length
= krb5_crypto_length(context
, crypto
, KRB5_CRYPTO_TYPE_PADDING
);
350 iov
[3].data
.data
= emalloc(iov
[4].data
.length
);
352 ret
= krb5_encrypt_iov_ivec(context
, crypto
, usage
,
353 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
355 errx(1, "encrypt iov failed: %d", ret
);
358 for (i
= 0, len
= 0; i
< sizeof(iov
)/sizeof(iov
[0]); i
++)
359 len
+= iov
[i
].data
.length
;
360 if (len
!= cipher_len
)
361 errx(1, "cipher len wrong");
365 /* padding turn into data */
366 p
= emalloc(iov
[2].data
.length
+ iov
[3].data
.length
);
368 memcpy(p
, iov
[2].data
.data
, iov
[2].data
.length
);
369 memcpy(p
+ iov
[2].data
.length
, iov
[3].data
.data
, iov
[3].data
.length
);
371 free(iov
[2].data
.data
);
372 free(iov
[3].data
.data
);
374 iov
[2].data
.data
= p
;
375 iov
[2].data
.length
+= iov
[3].data
.length
;
377 iov
[3].flags
= KRB5_CRYPTO_TYPE_EMPTY
;
379 ret
= krb5_decrypt_iov_ivec(context
, crypto
, usage
,
380 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
382 errx(1, "decrypt iov failed: %d", ret
);
384 if (clear
->length
!= iov
[2].data
.length
)
385 errx(1, "length incorrect");
388 if (memcmp(iov
[2].data
.data
, p
, iov
[2].data
.length
) != 0)
389 errx(1, "iov[2] incorrect");
396 krb_enc_iov(krb5_context context
,
402 krb5_crypto_iov iov
[3];
408 len
= cipher
->length
;
410 iov
[0].flags
= KRB5_CRYPTO_TYPE_HEADER
;
411 iov
[0].data
.length
= krb5_crypto_length(context
, crypto
, iov
[0].flags
);
412 iov
[0].data
.data
= emalloc(iov
[0].data
.length
);
413 memcpy(iov
[0].data
.data
, p
, iov
[0].data
.length
);
414 p
+= iov
[0].data
.length
;
415 len
-= iov
[0].data
.length
;
417 iov
[1].flags
= KRB5_CRYPTO_TYPE_TRAILER
;
418 iov
[1].data
.length
= krb5_crypto_length(context
, crypto
, iov
[1].flags
);
419 iov
[1].data
.data
= emalloc(iov
[1].data
.length
);
420 memcpy(iov
[1].data
.data
, p
+ len
- iov
[1].data
.length
, iov
[1].data
.length
);
421 len
-= iov
[1].data
.length
;
423 iov
[2].flags
= KRB5_CRYPTO_TYPE_DATA
;
424 iov
[2].data
.length
= len
;
425 iov
[2].data
.data
= emalloc(len
);
426 memcpy(iov
[2].data
.data
, p
, len
);
428 ret
= krb5_decrypt_iov_ivec(context
, crypto
, usage
,
429 iov
, sizeof(iov
)/sizeof(iov
[0]), NULL
);
431 errx(1, "krb_enc_iov decrypt iov failed: %d", ret
);
433 if (clear
->length
!= iov
[2].data
.length
)
434 errx(1, "length incorrect");
437 if (memcmp(iov
[2].data
.data
, p
, iov
[2].data
.length
) != 0)
438 errx(1, "iov[2] incorrect");
446 krb_enc_mit(krb5_context context
,
447 krb5_enctype enctype
,
453 #ifndef HEIMDAL_SMALLER
461 e
.ciphertext
= *cipher
;
463 ret
= krb5_c_decrypt(context
, *key
, usage
, NULL
, &e
, &decrypt
);
467 if (decrypt
.length
!= clear
->length
||
468 memcmp(decrypt
.data
, clear
->data
, decrypt
.length
) != 0) {
469 krb5_warnx(context
, "clear text not same");
473 krb5_data_free(&decrypt
);
475 ret
= krb5_c_encrypt_length(context
, enctype
, clear
->length
, &len
);
479 if (len
!= cipher
->length
) {
480 krb5_warnx(context
, "c_encrypt_length wrong %lu != %lu",
481 (unsigned long)len
, (unsigned long)cipher
->length
);
484 #endif /* HEIMDAL_SMALLER */
490 krb5_enctype enctype
;
500 ETYPE_AES256_CTS_HMAC_SHA1_96
,
503 "\x47\x75\x69\x64\x65\x6c\x69\x6e\x65\x73\x20\x74\x6f\x20\x41\x75"
504 "\x74\x68\x6f\x72\x73\x20\x6f\x66\x20\x49\x6e\x74\x65\x72\x6e\x65",
506 "\xcf\x79\x8f\x0d\x76\xf3\xe0\xbe\x8e\x66\x94\x70\xfa\xcc\x9e\x91"
507 "\xa9\xec\x1c\x5c\x21\xfb\x6e\xef\x1a\x7a\xc8\xc1\xcc\x5a\x95\x24"
508 "\x6f\x9f\xf4\xd5\xbe\x5d\x59\x97\x44\xd8\x47\xcd",
510 "\x54\x68\x69\x73\x20\x69\x73\x20\x61\x20\x74\x65\x73\x74\x2e\x0a"
516 krb_enc_test(krb5_context context
)
521 krb5_data cipher
, plain
;
524 for (i
= 0; i
< sizeof(krbencs
)/sizeof(krbencs
[0]); i
++) {
526 kb
.keytype
= krbencs
[i
].enctype
;
527 kb
.keyvalue
.length
= krbencs
[i
].keylen
;
528 kb
.keyvalue
.data
= krbencs
[i
].key
;
530 ret
= krb5_crypto_init(context
, &kb
, krbencs
[i
].enctype
, &crypto
);
532 cipher
.length
= krbencs
[i
].elen
;
533 cipher
.data
= krbencs
[i
].edata
;
534 plain
.length
= krbencs
[i
].plen
;
535 plain
.data
= krbencs
[i
].pdata
;
537 ret
= krb_enc(context
, crypto
, krbencs
[i
].usage
, &cipher
, &plain
);
540 errx(1, "krb_enc failed with %d for test %d", ret
, i
);
542 ret
= krb_enc_iov(context
, crypto
, krbencs
[i
].usage
, &cipher
, &plain
);
544 errx(1, "krb_enc_iov failed with %d for test %d", ret
, i
);
546 ret
= krb_enc_iov2(context
, crypto
, krbencs
[i
].usage
,
547 cipher
.length
, &plain
);
549 errx(1, "krb_enc_iov2 failed with %d for test %d", ret
, i
);
551 krb5_crypto_destroy(context
, crypto
);
553 ret
= krb_enc_mit(context
, krbencs
[i
].enctype
, &kb
,
554 krbencs
[i
].usage
, &cipher
, &plain
);
556 errx(1, "krb_enc_mit failed with %d for test %d", ret
, i
);
564 random_to_key(krb5_context context
)
569 ret
= krb5_random_to_key(context
,
571 "\x21\x39\x04\x58\x6A\xBD\x7F"
572 "\x21\x39\x04\x58\x6A\xBD\x7F"
573 "\x21\x39\x04\x58\x6A\xBD\x7F",
577 krb5_warn(context
, ret
, "random_to_key");
580 if (key
.keyvalue
.length
!= 24)
583 if (memcmp(key
.keyvalue
.data
,
584 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7"
585 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7"
586 "\x20\x38\x04\x58\x6b\xbc\x7f\xc7",
590 krb5_free_keyblock_contents(context
, &key
);
597 main(int argc
, char **argv
)
600 krb5_context context
;
603 ret
= krb5_init_context (&context
);
605 errx (1, "krb5_init_context failed: %d", ret
);
607 val
|= string_to_key_test(context
);
609 val
|= krb_enc_test(context
);
610 val
|= random_to_key(context
);
612 if (verbose
&& val
== 0)
615 printf("tests failed\n");
617 krb5_free_context(context
);