/*
 * pkcs15-init driver for JavaCards with IsoApplet installed.
 *
 * Copyright (C) 2014 Philip Wendland <wendlandphilip@gmail.com>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include "config.h"

#include <sys/types.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <stdarg.h>

#include "../libopensc/log.h"
#include "../libopensc/internal.h"
#include "../libopensc/opensc.h"
#include "../libopensc/cardctl.h"
#include "../libopensc/asn1.h"
#include "pkcs15-init.h"
#include "profile.h"

#define ISOAPPLET_KEY_ID_MIN 0
#define ISOAPPLET_KEY_ID_MAX 15

/* Curve parameters of a curve specified by the OID. */
struct ec_curve
{
	const struct sc_lv_data oid; /* Object ID in hex, including structural information */
	const struct sc_lv_data prime;
	const struct sc_lv_data coefficientA;
	const struct sc_lv_data coefficientB;
	const struct sc_lv_data basePointG;
	const struct sc_lv_data order;
	const struct sc_lv_data coFactor;
};

/* OpenSC only works with named curves, but we need the
 * explicit parameters for ECC key generation or import. */
static const struct ec_curve curves[] =
{
	{
		/* brainpoolP192r1 */
		{ (unsigned char *) "\x06\x09\x2B\x24\x03\x03\x02\x08\x01\x01\x03", 11},
		{ (unsigned char *) "\xC3\x02\xF4\x1D\x93\x2A\x36\xCD\xA7\xA3\x46\x30\x93\xD1\x8D\xB7\x8F\xCE\x47\x6D\xE1\xA8\x62\x97", 24},
		{ (unsigned char *) "\x6A\x91\x17\x40\x76\xB1\xE0\xE1\x9C\x39\xC0\x31\xFE\x86\x85\xC1\xCA\xE0\x40\xE5\xC6\x9A\x28\xEF", 24},
		{ (unsigned char *) "\x46\x9A\x28\xEF\x7C\x28\xCC\xA3\xDC\x72\x1D\x04\x4F\x44\x96\xBC\xCA\x7E\xF4\x14\x6F\xBF\x25\xC9", 24},
		{ (unsigned char *) "\x04\xC0\xA0\x64\x7E\xAA\xB6\xA4\x87\x53\xB0\x33\xC5\x6C\xB0\xF0\x90\x0A\x2F\x5C\x48\x53\x37\x5F\xD6\x14\xB6\x90\x86\x6A\xBD\x5B\xB8\x8B\x5F\x48\x28\xC1\x49\x00\x02\xE6\x77\x3F\xA2\xFA\x29\x9B\x8F", 49},
		{ (unsigned char *) "\xC3\x02\xF4\x1D\x93\x2A\x36\xCD\xA7\xA3\x46\x2F\x9E\x9E\x91\x6B\x5B\xE8\xF1\x02\x9A\xC4\xAC\xC1", 24},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* brainpoolP224r1 */
		{ (unsigned char *) "\x06\x09\x2B\x24\x03\x03\x02\x08\x01\x01\x05", 11},
		{ (unsigned char *) "\xD7\xC1\x34\xAA\x26\x43\x66\x86\x2A\x18\x30\x25\x75\xD1\xD7\x87\xB0\x9F\x07\x57\x97\xDA\x89\xF5\x7E\xC8\xC0\xFF", 28},
		{ (unsigned char *) "\x68\xA5\xE6\x2C\xA9\xCE\x6C\x1C\x29\x98\x03\xA6\xC1\x53\x0B\x51\x4E\x18\x2A\xD8\xB0\x04\x2A\x59\xCA\xD2\x9F\x43", 28},
		{ (unsigned char *) "\x25\x80\xF6\x3C\xCF\xE4\x41\x38\x87\x07\x13\xB1\xA9\x23\x69\xE3\x3E\x21\x35\xD2\x66\xDB\xB3\x72\x38\x6C\x40\x0B", 28},
		{ (unsigned char *) "\x04\x0D\x90\x29\xAD\x2C\x7E\x5C\xF4\x34\x08\x23\xB2\xA8\x7D\xC6\x8C\x9E\x4C\xE3\x17\x4C\x1E\x6E\xFD\xEE\x12\xC0\x7D\x58\xAA\x56\xF7\x72\xC0\x72\x6F\x24\xC6\xB8\x9E\x4E\xCD\xAC\x24\x35\x4B\x9E\x99\xCA\xA3\xF6\xD3\x76\x14\x02\xCD", 57},
		{ (unsigned char *) "\xD7\xC1\x34\xAA\x26\x43\x66\x86\x2A\x18\x30\x25\x75\xD0\xFB\x98\xD1\x16\xBC\x4B\x6D\xDE\xBC\xA3\xA5\xA7\x93\x9F", 28},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* brainpoolP256r1 */
		{ (unsigned char *) "\x06\x09\x2B\x24\x03\x03\x02\x08\x01\x01\x07", 11},
		{ (unsigned char *) "\xA9\xFB\x57\xDB\xA1\xEE\xA9\xBC\x3E\x66\x0A\x90\x9D\x83\x8D\x72\x6E\x3B\xF6\x23\xD5\x26\x20\x28\x20\x13\x48\x1D\x1F\x6E\x53\x77", 32},
		{ (unsigned char *) "\x7D\x5A\x09\x75\xFC\x2C\x30\x57\xEE\xF6\x75\x30\x41\x7A\xFF\xE7\xFB\x80\x55\xC1\x26\xDC\x5C\x6C\xE9\x4A\x4B\x44\xF3\x30\xB5\xD9", 32},
		{ (unsigned char *) "\x26\xDC\x5C\x6C\xE9\x4A\x4B\x44\xF3\x30\xB5\xD9\xBB\xD7\x7C\xBF\x95\x84\x16\x29\x5C\xF7\xE1\xCE\x6B\xCC\xDC\x18\xFF\x8C\x07\xB6", 32},
		{ (unsigned char *) "\x04\x8B\xD2\xAE\xB9\xCB\x7E\x57\xCB\x2C\x4B\x48\x2F\xFC\x81\xB7\xAF\xB9\xDE\x27\xE1\xE3\xBD\x23\xC2\x3A\x44\x53\xBD\x9A\xCE\x32\x62\x54\x7E\xF8\x35\xC3\xDA\xC4\xFD\x97\xF8\x46\x1A\x14\x61\x1D\xC9\xC2\x77\x45\x13\x2D\xED\x8E\x54\x5C\x1D\x54\xC7\x2F\x04\x69\x97", 65},
		{ (unsigned char *) "\xA9\xFB\x57\xDB\xA1\xEE\xA9\xBC\x3E\x66\x0A\x90\x9D\x83\x8D\x71\x8C\x39\x7A\xA3\xB5\x61\xA6\xF7\x90\x1E\x0E\x82\x97\x48\x56\xA7", 32},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* brainpoolP320r1 */
		{ (unsigned char *) "\x06\x09\x2B\x24\x03\x03\x02\x08\x01\x01\x09", 11},
		{ (unsigned char *) "\xD3\x5E\x47\x20\x36\xBC\x4F\xB7\xE1\x3C\x78\x5E\xD2\x01\xE0\x65\xF9\x8F\xCF\xA6\xF6\xF4\x0D\xEF\x4F\x92\xB9\xEC\x78\x93\xEC\x28\xFC\xD4\x12\xB1\xF1\xB3\x2E\x27", 40},
		{ (unsigned char *) "\x3E\xE3\x0B\x56\x8F\xBA\xB0\xF8\x83\xCC\xEB\xD4\x6D\x3F\x3B\xB8\xA2\xA7\x35\x13\xF5\xEB\x79\xDA\x66\x19\x0E\xB0\x85\xFF\xA9\xF4\x92\xF3\x75\xA9\x7D\x86\x0E\xB4", 40},
		{ (unsigned char *) "\x52\x08\x83\x94\x9D\xFD\xBC\x42\xD3\xAD\x19\x86\x40\x68\x8A\x6F\xE1\x3F\x41\x34\x95\x54\xB4\x9A\xCC\x31\xDC\xCD\x88\x45\x39\x81\x6F\x5E\xB4\xAC\x8F\xB1\xF1\xA6", 40},
		{ (unsigned char *) "\x04\x43\xBD\x7E\x9A\xFB\x53\xD8\xB8\x52\x89\xBC\xC4\x8E\xE5\xBF\xE6\xF2\x01\x37\xD1\x0A\x08\x7E\xB6\xE7\x87\x1E\x2A\x10\xA5\x99\xC7\x10\xAF\x8D\x0D\x39\xE2\x06\x11\x14\xFD\xD0\x55\x45\xEC\x1C\xC8\xAB\x40\x93\x24\x7F\x77\x27\x5E\x07\x43\xFF\xED\x11\x71\x82\xEA\xA9\xC7\x78\x77\xAA\xAC\x6A\xC7\xD3\x52\x45\xD1\x69\x2E\x8E\xE1", 81},
		{ (unsigned char *) "\xD3\x5E\x47\x20\x36\xBC\x4F\xB7\xE1\x3C\x78\x5E\xD2\x01\xE0\x65\xF9\x8F\xCF\xA5\xB6\x8F\x12\xA3\x2D\x48\x2E\xC7\xEE\x86\x58\xE9\x86\x91\x55\x5B\x44\xC5\x93\x11", 40},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* prime192v1, secp192r1, ansiX9p192r1 */
		{ (unsigned char *) "\x06\x08\x2A\x86\x48\xCE\x3D\x03\x01\x01", 10},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF", 24},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFC", 24},
		{ (unsigned char *) "\x64\x21\x05\x19\xE5\x9C\x80\xE7\x0F\xA7\xE9\xAB\x72\x24\x30\x49\xFE\xB8\xDE\xEC\xC1\x46\xB9\xB1", 24},
		{ (unsigned char *) "\x04\x18\x8D\xA8\x0E\xB0\x30\x90\xF6\x7C\xBF\x20\xEB\x43\xA1\x88\x00\xF4\xFF\x0A\xFD\x82\xFF\x10\x12\x07\x19\x2B\x95\xFF\xC8\xDA\x78\x63\x10\x11\xED\x6B\x24\xCD\xD5\x73\xF9\x77\xA1\x1E\x79\x48\x11", 49},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\x99\xDE\xF8\x36\x14\x6B\xC9\xB1\xB4\xD2\x28\x31", 24},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* prime224v1, nistp224 */
		{ (unsigned char *) "\x06\x05\x2b\x81\x04\x00\x21", 7},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", 28},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE", 28},
		{ (unsigned char *) "\xB4\x05\x0A\x85\x0C\x04\xB3\xAB\xF5\x41\x32\x56\x50\x44\xB0\xB7\xD7\xBF\xD8\xBA\x27\x0B\x39\x43\x23\x55\xFF\xB4", 28},
		{ (unsigned char *) "\x04\xB7\x0E\x0C\xBD\x6B\xB4\xBF\x7F\x32\x13\x90\xB9\x4A\x03\xC1\xD3\x56\xC2\x11\x22\x34\x32\x80\xD6\x11\x5C\x1D\x21\xBD\x37\x63\x88\xB5\xF7\x23\xFB\x4C\x22\xDF\xE6\xCD\x43\x75\xA0\x5A\x07\x47\x64\x44\xD5\x81\x99\x85\x00\x7E\x34", 57},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\x16\xA2\xE0\xB8\xF0\x3E\x13\xDD\x29\x45\x5C\x5C\x2A\x3D", 28},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* prime256v1, secp256r1, ansiX9p256r1 */
		{ (unsigned char *) "\x06\x08\x2A\x86\x48\xCE\x3D\x03\x01\x07", 10},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF", 32},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFC", 32},
		{ (unsigned char *) "\x5A\xC6\x35\xD8\xAA\x3A\x93\xE7\xB3\xEB\xBD\x55\x76\x98\x86\xBC\x65\x1D\x06\xB0\xCC\x53\xB0\xF6\x3B\xCE\x3C\x3E\x27\xD2\x60\x4B", 32},
		{ (unsigned char *) "\x04\x6B\x17\xD1\xF2\xE1\x2C\x42\x47\xF8\xBC\xE6\xE5\x63\xA4\x40\xF2\x77\x03\x7D\x81\x2D\xEB\x33\xA0\xF4\xA1\x39\x45\xD8\x98\xC2\x96\x4F\xE3\x42\xE2\xFE\x1A\x7F\x9B\x8E\xE7\xEB\x4A\x7C\x0F\x9E\x16\x2B\xCE\x33\x57\x6B\x31\x5E\xCE\xCB\xB6\x40\x68\x37\xBF\x51\xF5", 65},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\x00\x00\x00\x00\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xBC\xE6\xFA\xAD\xA7\x17\x9E\x84\xF3\xB9\xCA\xC2\xFC\x63\x25\x51", 32},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* prime384v1, secp384r1, ansiX9p384r1 */
		{ (unsigned char *) "\x06\x05\x2B\x81\x04\x00\x22", 7},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xFF\xFF\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFF\xFF\xFF", 48},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xFF\xFF\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFF\xFF\xFC", 48},
		{ (unsigned char *) "\xB3\x31\x2F\xA7\xE2\x3E\xE7\xE4\x98\x8E\x05\x6B\xE3\xF8\x2D\x19\x18\x1D\x9C\x6E\xFE\x81\x41\x12\x03\x14\x08\x8F\x50\x13\x87\x5A\xC6\x56\x39\x8D\x8A\x2E\xD1\x9D\x2A\x85\xC8\xED\xD3\xEC\x2A\xEF", 48},
		{ (unsigned char *) "\x04\xAA\x87\xCA\x22\xBE\x8B\x05\x37\x8E\xB1\xC7\x1E\xF3\x20\xAD\x74\x6E\x1D\x3B\x62\x8B\xA7\x9B\x98\x59\xF7\x41\xE0\x82\x54\x2A\x38\x55\x02\xF2\x5D\xBF\x55\x29\x6C\x3A\x54\x5E\x38\x72\x76\x0A\xB7\x36\x17\xDE\x4A\x96\x26\x2C\x6F\x5D\x9E\x98\xBF\x92\x92\xDC\x29\xF8\xF4\x1D\xBD\x28\x9A\x14\x7C\xE9\xDA\x31\x13\xB5\xF0\xB8\xC0\x0A\x60\xB1\xCE\x1D\x7E\x81\x9D\x7A\x43\x1D\x7C\x90\xEA\x0E\x5F", 97},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xC7\x63\x4D\x81\xF4\x37\x2D\xDF\x58\x1A\x0D\xB2\x48\xB0\xA7\x7A\xEC\xEC\x19\x6A\xCC\xC5\x29\x73", 48},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* secp192k1 */
		{ (unsigned char *) "\x06\x05\x2B\x81\x04\x00\x1F", 7},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xEE\x37", 24},
		{ (unsigned char *) "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 24},
		{ (unsigned char *) "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03", 24},
		{ (unsigned char *) "\x04\xDB\x4F\xF1\x0E\xC0\x57\xE9\xAE\x26\xB0\x7D\x02\x80\xB7\xF4\x34\x1D\xA5\xD1\xB1\xEA\xE0\x6C\x7D\x9B\x2F\x2F\x6D\x9C\x56\x28\xA7\x84\x41\x63\xD0\x15\xBE\x86\x34\x40\x82\xAA\x88\xD9\x5E\x2F\x9D", 49},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\x26\xF2\xFC\x17\x0F\x69\x46\x6A\x74\xDE\xFD\x8D", 24},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		/* secp256k1 */
		{ (unsigned char *) "\x06\x05\x2B\x81\x04\x00\x0A", 7},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xFF\xFF\xFC\x2F", 32},
		{ (unsigned char *) "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 32},
		{ (unsigned char *) "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07", 32},
		{ (unsigned char *) "\x04\x79\xBE\x66\x7E\xF9\xDC\xBB\xAC\x55\xA0\x62\x95\xCE\x87\x0B\x07\x02\x9B\xFC\xDB\x2D\xCE\x28\xD9\x59\xF2\x81\x5B\x16\xF8\x17\x98\x48\x3A\xDA\x77\x26\xA3\xC4\x65\x5D\xA4\xFB\xFC\x0E\x11\x08\xA8\xFD\x17\xB4\x48\xA6\x85\x54\x19\x9C\x47\xD0\x8F\xFB\x10\xD4\xB8", 65},
		{ (unsigned char *) "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFE\xBA\xAE\xDC\xE6\xAF\x48\xA0\x3B\xBF\xD2\x5E\x8C\xD0\x36\x41\x41", 32},
		{ (unsigned char *) "\x00\x01", 2}
	},

	{
		{ NULL, 0},
		{ NULL, 0},
		{ NULL, 0},
		{ NULL, 0},
		{ NULL, 0},
		{ NULL, 0},
		{ NULL, 0}
	}
};


/*
 * Create DF, using default pkcs15init functions.
 */
static int
isoApplet_create_dir(sc_profile_t *profile, sc_pkcs15_card_t *p15card, sc_file_t *df)
{
	sc_card_t *card = p15card->card;
	int r = SC_SUCCESS;

	LOG_FUNC_CALLED(card->ctx);

	if(!profile || !df || !p15card->card->ctx)
	{
		LOG_FUNC_RETURN(card->ctx, SC_ERROR_INVALID_ARGUMENTS);
	}
	r = sc_pkcs15init_create_file(profile, p15card, df);
	LOG_FUNC_RETURN(card->ctx, r);
}

/*
 * Select a PIN reference.
 *
 * Basically (as I understand it) the caller passes an auth_info object and the
 * auth_info->attrs.pin.reference is supposed to be set accordingly and return.
 *
 * The IsoApplet only supports a PIN and a PUK at the moment.
 * The reference for the PIN is 1, for the PUK 2.
 */
static int
isoApplet_select_pin_reference(sc_profile_t *profile, sc_pkcs15_card_t *p15card,
                               sc_pkcs15_auth_info_t *auth_info)
{
	sc_card_t *card = p15card->card;
	int	preferred;
	int current;

	LOG_FUNC_CALLED(card->ctx);

	if (auth_info->auth_type != SC_PKCS15_PIN_AUTH_TYPE_PIN)
	{
		LOG_FUNC_RETURN(card->ctx, SC_ERROR_OBJECT_NOT_VALID);
	}

	current = auth_info->attrs.pin.reference;
	if (current < 0)
	{
		current = 0;
	}

	if(current > 2)
	{
		/* Only two PINs supported: User PIN and PUK. */
		LOG_FUNC_RETURN(card->ctx, SC_ERROR_TOO_MANY_OBJECTS);
	}
	else
	{
		if(auth_info->attrs.pin.flags & SC_PKCS15_PIN_FLAG_UNBLOCKING_PIN)
		{
			/* PUK */
			preferred = 2;
		}
		else
		{
			/* PIN */
			preferred = 1;
		}
	}

	auth_info->attrs.pin.reference = preferred;
	LOG_FUNC_RETURN(card->ctx, SC_SUCCESS);
}

/*
 * Create a PIN and store it on the card using CHANGE REFERENCE DATA for PIN transmission.
 * First, the PUK is transmitted, then the PIN. Now, the IsoApplet is in the
 * "STATE_OPERATIONAL_ACTIVATED" lifecycle state.
 */
static int
isoApplet_create_pin(sc_profile_t *profile, sc_pkcs15_card_t *p15card, sc_file_t *df,
                     sc_pkcs15_object_t *pin_obj,
                     const u8 *pin, size_t pin_len,
                     const u8 *puk, size_t puk_len)
{
	sc_card_t *card = p15card->card;
	sc_pkcs15_auth_info_t *auth_info = (sc_pkcs15_auth_info_t *) pin_obj->data;
	struct sc_pkcs15_pin_attributes *pin_attrs = &auth_info->attrs.pin;
	int r;

	LOG_FUNC_CALLED(card->ctx);

	if(!pin || !pin_len || !df)
	{
		LOG_FUNC_RETURN(card->ctx, SC_ERROR_INVALID_ARGUMENTS);
	}

	if(pin_attrs->reference != 1 &&	pin_attrs->reference != 2)
	{
		/* Reject PIN reference. */
		LOG_FUNC_RETURN(card->ctx, SC_ERROR_INVALID_PIN_REFERENCE);
	}

	/* If we have a PUK, set it first. */
	if(puk && puk_len)
	{
		/* The PUK has a incremented reference, i.e. pins are odd, puks are equal (+1). */
		r = sc_change_reference_data(p15card->card, SC_AC_CHV,
		                             pin_attrs->reference+1,
		                             NULL, 0,
		                             puk, puk_len, NULL);
		if(r < 0)
		{
			LOG_FUNC_RETURN(card->ctx, r);
		}
	}

	/* Store PIN: (use CHANGE REFERENCE DATA). */
	r = sc_change_reference_data(p15card->card, SC_AC_CHV,
	                             pin_attrs->reference,
	                             NULL, 0,
	                             pin, pin_len, NULL);
	LOG_TEST_RET(card->ctx, r, "Failed to set PIN");

	sc_pkcs15_pincache_add(p15card, pin_obj, pin, pin_len);
	LOG_FUNC_RETURN(card->ctx, SC_SUCCESS);
}

/*
 * @brief Get the curve parameters associated with the curve specified by an OID.
 *
 * @param[in]  oid       The DER encoded OID of the curve.
 * @param[in]  oid_len   The length of oid.
 * @param[out] curve_out The ec_curve containing the set of parameters.
 *
 * @returns	SC_SUCCESS: If the curve was found.
 *			SC_ERROR_INVALID_ARGUMENTS: If named_curve was null or the curve
 *										was not found
 */
static int
isoApplet_get_curve(u8 *oid, size_t oid_len, const struct ec_curve **curve_out)
{
	int i;

	if(!oid)
		return SC_ERROR_INVALID_ARGUMENTS;

	/* Search the curve parameters. */
	for (i = 0; curves[i].oid.value; i++)
	{
		if (oid_len == curves[i].oid.len && memcmp(oid, curves[i].oid.value, curves[i].oid.len) == 0)
		{
			*curve_out = &curves[i];
			return SC_SUCCESS;
		}
	}

	return SC_ERROR_INVALID_ARGUMENTS;
}


/*
 * @brief Generate a RSA private key on the card.
 *
 * A MANAGE SECURITY ENVIRONMENT apdu must have been sent before.
 * This function uses card_ctl to access the card-isoApplet driver.
 *
 * @param[in] key_info
 * @param[in] card
 * @param[in] pubkey The public key of the generated key pair
 *                   returned by the card.
 *
 * @return	SC_ERROR_INVALID_ARGUMENTS: Invalid key length.
 *          SC_ERROR_OUT_OF_MEMORY
 */
static int
isoApplet_generate_key_rsa(sc_pkcs15_prkey_info_t *key_info, sc_card_t *card,
                           sc_pkcs15_pubkey_t *pubkey)
{
	int rv;
	size_t keybits;
	struct sc_cardctl_isoApplet_genkey args;

	LOG_FUNC_CALLED(card->ctx);

	memset(&args, 0, sizeof(args));

	/* Check key size: */
	keybits = key_info->modulus_length;
	if (keybits != 2048 && keybits != 4096)
	{
		rv = SC_ERROR_INVALID_ARGUMENTS;
		sc_log(card->ctx, "%s: RSA private key length is unsupported, correct length is 2048 or 4096", sc_strerror(rv));
		goto err;
	}

	/* Generate the key.
	 * Note: key size is not explicitly passed to the card.
	 * Its derived from the algorithm reference. */
	args.algorithm_ref = keybits == 2048 ? SC_ISOAPPLET_ALG_REF_RSA_GEN_2048 : SC_ISOAPPLET_ALG_REF_RSA_GEN_4096;
	args.priv_key_ref = key_info->key_reference;

	args.pubkey.rsa.modulus.len = keybits / 8;
	args.pubkey.rsa.modulus.value = malloc(args.pubkey.rsa.modulus.len);
	if (!args.pubkey.rsa.modulus.value)
	{
		rv = SC_ERROR_OUT_OF_MEMORY;
		sc_log(card->ctx, "%s: Unable to allocate public key buffer.", sc_strerror(rv));
		goto err;
	}

	args.pubkey.rsa.exponent.len = 3;
	args.pubkey.rsa.exponent.value = malloc(args.pubkey.rsa.exponent.len);
	if(!args.pubkey.rsa.exponent.value)
	{
		rv = SC_ERROR_OUT_OF_MEMORY;
		sc_log(card->ctx, "%s: Unable to allocate public key exponent buffer.", sc_strerror(rv));
		goto err;
	}

	rv = sc_card_ctl(card, SC_CARDCTL_ISOAPPLET_GENERATE_KEY, &args);
	if (rv < 0)
	{
		sc_log(card->ctx, "%s: Error in card_ctl", sc_strerror(rv));
		goto err;
	}

	/* extract the public key */
	pubkey->algorithm = SC_ALGORITHM_RSA;
	pubkey->u.rsa.modulus.len	= args.pubkey.rsa.modulus.len;
	pubkey->u.rsa.modulus.data	= args.pubkey.rsa.modulus.value;
	pubkey->u.rsa.exponent.len	= args.pubkey.rsa.exponent.len;
	pubkey->u.rsa.exponent.data	= args.pubkey.rsa.exponent.value;
	rv = SC_SUCCESS;
	LOG_FUNC_RETURN(card->ctx, rv);
err:
	if (args.pubkey.rsa.modulus.value)
	{
		free(args.pubkey.rsa.modulus.value);
		pubkey->u.rsa.modulus.data = NULL;
		pubkey->u.rsa.modulus.len = 0;
	}
	if (args.pubkey.rsa.exponent.value)
	{
		free(args.pubkey.rsa.exponent.value);
		pubkey->u.rsa.exponent.data = NULL;
		pubkey->u.rsa.exponent.len = 0;
	}
	LOG_FUNC_RETURN(card->ctx, rv);
}

/*
 * @brief Generate a EC private key on the card.
 *
 * A MANAGE SECURITY ENVIRONMENT apdu must have been sent before.
 * This function uses card_ctl to access the card-isoApplet driver.
 *
 * @param[in]     key_info
 * @param[in]     card
 * @param[in/out] pubkey The public key of the generated key pair
 *						 returned by the card.
 *
 * @return SC_ERROR_INVALID_ARGUMENTS: Invalid key length or curve.
 *         SC_ERROR_OUT_OF_MEMORY
 *         SC_ERROR_INCOMPATIBLE_KEY: The data returned by the card
 *                                    was unexpected and can not be
 *                                    handled.
 */
static int
isoApplet_generate_key_ec(const sc_pkcs15_prkey_info_t *key_info, sc_card_t *card,
                          sc_pkcs15_pubkey_t *pubkey)
{
	int	r;
	const struct ec_curve *curve = NULL;
	struct sc_ec_parameters *alg_id_params = NULL;
	sc_cardctl_isoApplet_genkey_t args;
	const struct sc_ec_parameters *info_ecp =
	    (struct sc_ec_parameters *) key_info->params.data;

	LOG_FUNC_CALLED(card->ctx);

	memset(&args, 0, sizeof(args));

	/* Check key size: */
	if(key_info->field_length == 0)
	{
		sc_log(card->ctx, "Unknown field length.");
		r = SC_ERROR_INVALID_ARGUMENTS;
		goto out;
	}

	r = isoApplet_get_curve(info_ecp->der.value, info_ecp->der.len, &curve);
	if(r < 0)
	{
		sc_log(card->ctx, "EC key generation failed: Unsupported curve: [%s].", info_ecp->named_curve);
		goto out;
	}

	/* Generate the key.
	 * Note: The field size is not explicitly passed to the card.
	 *       As we only support FP curves, the field length can be calculated from any parameter. */
	args.pubkey.ec.params.prime.value			= curve->prime.value;
	args.pubkey.ec.params.prime.len				= curve->prime.len;
	args.pubkey.ec.params.coefficientA.value	= curve->coefficientA.value;
	args.pubkey.ec.params.coefficientA.len		= curve->coefficientA.len;
	args.pubkey.ec.params.coefficientB.value	= curve->coefficientB.value;
	args.pubkey.ec.params.coefficientB.len		= curve->coefficientB.len;
	args.pubkey.ec.params.basePointG.value 		= curve->basePointG.value;
	args.pubkey.ec.params.basePointG.len		= curve->basePointG.len;
	args.pubkey.ec.params.order.value 			= curve->order.value;
	args.pubkey.ec.params.order.len				= curve->order.len;
	args.pubkey.ec.params.coFactor.value 		= curve->coFactor.value;
	args.pubkey.ec.params.coFactor.len			= curve->coFactor.len;
	/* The length of the public key point will be:
	 * Uncompressed tag + 2 * field length in bytes. */
	args.pubkey.ec.ecPointQ.len = 1 + (key_info->field_length + 7) / 8 * 2;
	args.pubkey.ec.ecPointQ.value = malloc(args.pubkey.ec.ecPointQ.len);
	if(!args.pubkey.ec.ecPointQ.value)
	{
		r = SC_ERROR_OUT_OF_MEMORY;
		goto out;
	}

	args.algorithm_ref = SC_ISOAPPLET_ALG_REF_EC_GEN;
	args.priv_key_ref = key_info->key_reference;

	/* On-card key generation */
	r = sc_card_ctl(card, SC_CARDCTL_ISOAPPLET_GENERATE_KEY, &args);
	if (r < 0)
	{
		sc_log(card->ctx, "%s: Error in card_ctl.", sc_strerror(r));
		goto out;
	}

	/* Extract and compose the public key. */
	pubkey->algorithm = SC_ALGORITHM_EC;

	/* der-encoded parameters */
	alg_id_params = calloc(1, sizeof(*alg_id_params));
	if(!alg_id_params)
	{
		r = SC_ERROR_OUT_OF_MEMORY;
		goto out;
	}
	alg_id_params->der.len = curve->oid.len;
	alg_id_params->der.value = malloc(alg_id_params->der.len);
	if(!alg_id_params->der.value)
	{
		r = SC_ERROR_OUT_OF_MEMORY;
		goto out;
	}
	memcpy(alg_id_params->der.value, curve->oid.value, curve->oid.len);
	alg_id_params->type = 1; /* named curve */

	pubkey->alg_id = malloc(sizeof(*pubkey->alg_id));
	if(!pubkey->alg_id)
	{
		r = SC_ERROR_OUT_OF_MEMORY;
		goto out;
	}
	pubkey->alg_id->algorithm = SC_ALGORITHM_EC;
	sc_init_oid(&pubkey->alg_id->oid);
	pubkey->alg_id->params = alg_id_params;

	/* Extract ecpointQ */
	pubkey->u.ec.ecpointQ.len = args.pubkey.ec.ecPointQ.len;
	pubkey->u.ec.ecpointQ.value = malloc(pubkey->u.ec.ecpointQ.len);
	if(!pubkey->u.ec.ecpointQ.value)
	{
		r = SC_ERROR_OUT_OF_MEMORY;
		goto out;
	}
	memcpy(pubkey->u.ec.ecpointQ.value, args.pubkey.ec.ecPointQ.value, args.pubkey.ec.ecPointQ.len);

	/* The OID is also written to the pubkey->u.ec.params */
	free(pubkey->u.ec.params.der.value);
	pubkey->u.ec.params.der.value = malloc(alg_id_params->der.len);
	if(!pubkey->u.ec.params.der.value)
	{
		r = SC_ERROR_OUT_OF_MEMORY;
		goto out;
	}
	memcpy(pubkey->u.ec.params.der.value, alg_id_params->der.value, alg_id_params->der.len);
	pubkey->u.ec.params.der.len = alg_id_params->der.len;
	r = sc_pkcs15_fix_ec_parameters(card->ctx, &pubkey->u.ec.params);
out:
	if(args.pubkey.ec.ecPointQ.value)
	{
		free(args.pubkey.ec.ecPointQ.value);
		args.pubkey.ec.ecPointQ.value = NULL;
	}
	if(r < 0 && pubkey)
	{
		if(pubkey->alg_id)
		{
			free(pubkey->alg_id);
			pubkey->alg_id = NULL;
		}
		if(pubkey->u.ec.params.der.value)
		{
			free(pubkey->u.ec.params.der.value);
			pubkey->u.ec.params.der.value = NULL;
			pubkey->u.ec.params.der.len = 0;
		}
		if(pubkey->u.ec.params.named_curve)
		{
			free(pubkey->u.ec.params.named_curve);
			pubkey->u.ec.params.named_curve = NULL;
		}
		if(pubkey->u.ec.ecpointQ.value)
		{
			free(pubkey->u.ec.ecpointQ.value);
			pubkey->u.ec.ecpointQ.value = NULL;
			pubkey->u.ec.ecpointQ.len = 0;
		}
		memset(pubkey, 0, sizeof(sc_pkcs15_pubkey_t));
	}
	if(r < 0 && alg_id_params)
	{
		if(alg_id_params->der.value)
		{
			free(alg_id_params->der.value);
			alg_id_params->der.value = NULL;
		}
		free(alg_id_params);
		pubkey->alg_id->params = NULL;
	}
	LOG_FUNC_RETURN(card->ctx, r);
}

static int
isoApplet_generate_key(sc_profile_t *profile, sc_pkcs15_card_t *p15card,
                       sc_pkcs15_object_t *obj,
                       sc_pkcs15_pubkey_t *pubkey)
{
	int r;
	sc_pkcs15_prkey_info_t *key_info = (sc_pkcs15_prkey_info_t *) obj->data;
	sc_file_t *privKeyFile=NULL;
	sc_card_t *card = p15card->card;

	LOG_FUNC_CALLED(card->ctx);

	/* Authentication stuff. */
	r = sc_profile_get_file_by_path(profile, &key_info->path, &privKeyFile);
	if(r < 0 || !privKeyFile)
	{
		SC_FUNC_RETURN(card->ctx, SC_LOG_DEBUG_VERBOSE, SC_ERROR_NOT_SUPPORTED);
	}
	r = sc_pkcs15init_authenticate(profile, p15card, privKeyFile, SC_AC_OP_CREATE_EF);
	if(r < 0)
	{
		sc_file_free(privKeyFile);
		SC_FUNC_RETURN(card->ctx, SC_LOG_DEBUG_VERBOSE, SC_ERROR_NOT_SUPPORTED);
	}
	sc_file_free(privKeyFile);

	/* Generate the key. */
	switch(obj->type)
	{
	case SC_PKCS15_TYPE_PRKEY_RSA:
		r = isoApplet_generate_key_rsa(key_info, card, pubkey);
		break;

	case SC_PKCS15_TYPE_PRKEY_EC:
		r = isoApplet_generate_key_ec(key_info, card, pubkey);
		break;

	default:
		r = SC_ERROR_NOT_SUPPORTED;
		sc_log(card->ctx, "%s: Key generation failed: Unknown/unsupported key type.", strerror(r));
	}

	LOG_FUNC_RETURN(card->ctx, r);
}


/*
 * Create a new key file. This is a no-op, because private keys are stored as key objects on the javacard.
 */
static int
isoApplet_create_key(sc_profile_t *profile, sc_pkcs15_card_t *p15card, sc_pkcs15_object_t *obj)
{
	sc_card_t *card = p15card->card;
	LOG_FUNC_RETURN(card->ctx, SC_SUCCESS);
}

/*
 * Select a key reference.
 */
static int
isoApplet_select_key_reference(sc_profile_t *profile, sc_pkcs15_card_t *p15card,
                               sc_pkcs15_prkey_info_t *key_info)
{
	int rv = SC_SUCCESS;
	sc_card_t *card = p15card->card;

	LOG_FUNC_CALLED(card->ctx);

	if(key_info->key_reference < ISOAPPLET_KEY_ID_MIN)
	{
		key_info->key_reference = ISOAPPLET_KEY_ID_MIN;
		rv = SC_SUCCESS;
	}
	if(key_info->key_reference > ISOAPPLET_KEY_ID_MAX)
	{
		rv = SC_ERROR_TOO_MANY_OBJECTS;
	}
	LOG_FUNC_RETURN(card->ctx, rv);
}

/*
 * Store a usable private key on the card.
 */
static int
isoApplet_store_key(sc_profile_t *profile, sc_pkcs15_card_t *p15card, sc_pkcs15_object_t *object,
                    sc_pkcs15_prkey_t *key)
{
	sc_card_t *card = p15card->card;
	sc_pkcs15_prkey_info_t *key_info = (sc_pkcs15_prkey_info_t *) object->data;
	sc_file_t *privKeyFile=NULL;
	sc_cardctl_isoApplet_import_key_t args;
	int r;

	LOG_FUNC_CALLED(card->ctx);

	/* Authentication stuff. */
	r = sc_profile_get_file_by_path(profile, &key_info->path, &privKeyFile);
	if(r < 0 || !privKeyFile)
	{
		SC_FUNC_RETURN(card->ctx, SC_LOG_DEBUG_VERBOSE, SC_ERROR_NOT_SUPPORTED);
	}
	r = sc_pkcs15init_authenticate(profile, p15card, privKeyFile, SC_AC_OP_CREATE_EF);
	if(r < 0)
	{
		sc_file_free(privKeyFile);
		SC_FUNC_RETURN(card->ctx, SC_LOG_DEBUG_VERBOSE, SC_ERROR_NOT_SUPPORTED);
	}
	sc_file_free(privKeyFile);

	/* Key import. */
	switch(object->type)
	{
	case SC_PKCS15_TYPE_PRKEY_RSA:
		args.algorithm_ref = SC_ISOAPPLET_ALG_REF_RSA_GEN_2048;
		if(!key->u.rsa.p.data
		        ||!key->u.rsa.q.data
		        ||!key->u.rsa.iqmp.data
		        ||!key->u.rsa.dmp1.data
		        ||!key->u.rsa.dmq1.data)
		{
			LOG_TEST_RET(card->ctx, SC_ERROR_INVALID_ARGUMENTS, "Only CRT RSA keys may be imported.");
		}
		args.privkey.rsa.p.value    = key->u.rsa.p.data;
		args.privkey.rsa.p.len      = key->u.rsa.p.len;
		args.privkey.rsa.q.value    = key->u.rsa.q.data;
		args.privkey.rsa.q.len      = key->u.rsa.q.len;
		args.privkey.rsa.iqmp.value = key->u.rsa.iqmp.data;
		args.privkey.rsa.iqmp.len   = key->u.rsa.iqmp.len;
		args.privkey.rsa.dmp1.value = key->u.rsa.dmp1.data;
		args.privkey.rsa.dmp1.len   = key->u.rsa.dmp1.len;
		args.privkey.rsa.dmq1.value = key->u.rsa.dmq1.data;
		args.privkey.rsa.dmq1.len   = key->u.rsa.dmq1.len;
		break;

	case SC_PKCS15_TYPE_PRKEY_EC:
	{
		const struct ec_curve *curve = NULL;

		args.algorithm_ref = SC_ISOAPPLET_ALG_REF_EC_GEN;
		if(key->u.ec.params.der.len == 0 || key->u.ec.params.der.value == NULL) {
			r = sc_pkcs15_fix_ec_parameters(card->ctx, &key->u.ec.params);
			LOG_TEST_RET(card->ctx, r, "EC key storing failed: Unknown curve.");
		}
		r = isoApplet_get_curve(key->u.ec.params.der.value, key->u.ec.params.der.len, &curve);
		LOG_TEST_RET(card->ctx, r, "EC key generation failed: Unsupported curve");
		args.privkey.ec.params.prime.value        = curve->prime.value;
		args.privkey.ec.params.prime.len          = curve->prime.len;
		args.privkey.ec.params.coefficientA.value = curve->coefficientA.value;
		args.privkey.ec.params.coefficientA.len   = curve->coefficientA.len;
		args.privkey.ec.params.coefficientB.value = curve->coefficientB.value;
		args.privkey.ec.params.coefficientB.len   = curve->coefficientB.len;
		args.privkey.ec.params.basePointG.value   = curve->basePointG.value;
		args.privkey.ec.params.basePointG.len     = curve->basePointG.len;
		args.privkey.ec.params.order.value        = curve->order.value;
		args.privkey.ec.params.order.len          = curve->order.len;
		args.privkey.ec.params.coFactor.value     = curve->coFactor.value;
		args.privkey.ec.params.coFactor.len       = curve->coFactor.len;
		args.privkey.ec.privateD.value            = key->u.ec.privateD.data;
		args.privkey.ec.privateD.len              = key->u.ec.privateD.len;
	}
	break;

	default:
		LOG_FUNC_RETURN(card->ctx, SC_ERROR_NOT_SUPPORTED);
	}
	args.priv_key_ref = key_info->key_reference;

	r = sc_card_ctl(card, SC_CARDCTL_ISOAPPLET_IMPORT_KEY, &args);
	if (r < 0)
	{
		sc_log(card->ctx, "%s: Error in card_ctl", sc_strerror(r));
		LOG_FUNC_RETURN(card->ctx, r);
	}

	LOG_FUNC_RETURN(card->ctx, SC_SUCCESS);
}

static struct sc_pkcs15init_operations sc_pkcs15init_isoApplet_operations =
{
	NULL,                           /* erase_card */
	NULL,                           /* init_card */
	isoApplet_create_dir,           /* create_dir */
	NULL,                           /* create_domain */
	isoApplet_select_pin_reference, /* pin_reference*/
	isoApplet_create_pin,           /* create_pin */
	isoApplet_select_key_reference, /* key_reference */
	isoApplet_create_key,           /* create_key */
	isoApplet_store_key,            /* store_key */
	isoApplet_generate_key,         /* generate_key */
	NULL, NULL,                     /* encode private/public key */
	NULL,                           /* finalize */
	NULL,                           /* delete_object */
	NULL, NULL, NULL, NULL, NULL,   /* pkcs15init emulation */
	NULL,                           /* sanity_check*/
};

struct
sc_pkcs15init_operations *sc_pkcs15init_get_isoApplet_ops(void)
{
	return &sc_pkcs15init_isoApplet_operations;
}
