ENCRYPTED_KEY, pkcs8_key);
	if (ret < 0) {
		fprintf(stderr, "ret: %s\n", gnutls_strerror(ret));
		return 1;
	}

	/* Note that since the PKCS #8 key is already encrypted we don't
	 * bother encrypting that bag.
	 */
	bag_index = ret;

	gnutls_pkcs12_bag_set_friendly_name(key_bag, bag_index, "My name");

	gnutls_pkcs12_bag_set_key_id(key_bag, bag_index, &key_id);

	/* The bags were filled. Now create the PKCS #12 structure.
	 */
	gnutls_pkcs12_init(&pkcs12);

	/* Insert the two bags in the PKCS #12 structure.
	 */

	gnutls_pkcs12_set_bag(pkcs12, bag);
	gnutls_pkcs12_set_bag(pkcs12, key_bag);

	/* Generate a message authentication code for the PKCS #12
	 * structure.
	 */
	gnutls_pkcs12_generate_mac(pkcs12, password);

	pkcs12_struct_size = sizeof(pkcs12_struct);
	ret = gnutls_pkcs12_export(pkcs12, GNUTLS_X509_FMT_DER, pkcs12_struct,
				   &pkcs12_struct_size);
	if (ret < 0) {
		fprintf(stderr, "ret: %s\n", gnutls_strerror(ret));
		return 1;
	}

	fp = fopen(OUTFILE, "w");
	if (fp == NULL) {
		fprintf(stderr, "cannot open file\n");
		return 1;
	}
	fwrite(pkcs12_struct, 1, pkcs12_struct_size, fp);
	fclose(fp);

	gnutls_pkcs12_bag_deinit(bag);
	gnutls_pkcs12_bag_deinit(key_bag);
	gnutls_pkcs12_deinit(pkcs12);

	return 0;
}