2 * Copyright (c) 2005 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"
37 RCSID("$Id: test_crypto_wrapping.c,v 1.2 2005/07/09 01:31:43 lha Exp $");
40 test_wrapping(krb5_context context
,
54 ret
= krb5_generate_random_keyblock(context
, etype
, &key
);
56 krb5_err(context
, 1, ret
, "krb5_generate_random_keyblock");
58 ret
= krb5_enctype_to_string(context
, etype
, &etype_name
);
60 krb5_err(context
, 1, ret
, "krb5_enctype_to_string");
62 buf
= malloc(max_size
);
64 krb5_errx(context
, 1, "out of memory");
65 memset(buf
, 0, max_size
);
67 ret
= krb5_crypto_init(context
, &key
, 0, &crypto
);
69 krb5_err(context
, 1, ret
, "krb5_crypto_init");
71 for (size
= min_size
; size
< max_size
; size
+= step
) {
74 ret
= krb5_encrypt(context
, crypto
, 0, buf
, size
, &data
);
76 krb5_err(context
, 1, ret
, "encrypt size %d using %s",
79 wrapped_size
= krb5_get_wrapped_length(context
, crypto
, size
);
81 if (wrapped_size
!= data
.length
)
82 krb5_errx(context
, 1, "calculated wrapped length %lu != "
83 "real wrapped length %lu for data length %lu using "
85 (unsigned long)wrapped_size
,
86 (unsigned long)data
.length
,
89 krb5_data_free(&data
);
93 krb5_crypto_destroy(context
, crypto
);
94 krb5_free_keyblock_contents(context
, &key
);
99 static int version_flag
= 0;
100 static int help_flag
= 0;
102 static struct getargs args
[] = {
103 {"version", 0, arg_flag
, &version_flag
,
104 "print version", NULL
},
105 {"help", 0, arg_flag
, &help_flag
,
112 arg_printusage (args
,
113 sizeof(args
)/sizeof(*args
),
120 main(int argc
, char **argv
)
122 krb5_context context
;
126 krb5_enctype enctypes
[] = {
131 ETYPE_ARCFOUR_HMAC_MD5
,
132 ETYPE_AES128_CTS_HMAC_SHA1_96
,
133 ETYPE_AES256_CTS_HMAC_SHA1_96
136 setprogname(argv
[0]);
138 if(getarg(args
, sizeof(args
) / sizeof(args
[0]), argc
, argv
, &optidx
))
152 ret
= krb5_init_context(&context
);
154 errx (1, "krb5_init_context failed: %d", ret
);
156 for (i
= 0; i
< sizeof(enctypes
)/sizeof(enctypes
[0]); i
++) {
157 test_wrapping(context
, 0, 1024, 1, enctypes
[i
]);
158 test_wrapping(context
, 1024, 1024 * 100, 1024, enctypes
[i
]);
160 krb5_free_context(context
);