/*

 * partial PKCS15 emulation for A-Trust ACOS cards

 *

 * Copyright (C) 2005  Franz Brandl <brandl@a-trust.at> based on work from

 *                     Nils Larsch  <larsch@trustcenter.de>, TrustCenter AG

 *

 * 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

 */

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include <stdlib.h>

#include <string.h>

#include <stdio.h>

#include "internal.h"

#include "common/compat_strlcpy.h"

#include "libopensc/pkcs15.h"

#include "libopensc/cardctl.h"

#define MANU_ID   "A-Trust"

#define CARD_LABEL  "a.sign Premium a"

typedef struct cdata_st {

  const char *label;

  int     authority;

  const char *path;

  const char *id;

  int         obj_flags;

} cdata;

typedef struct pdata_st {

  const char *id;

  const char *label;

  const char *path;

  int         ref;

  int         type;

  unsigned int maxlen;

  unsigned int minlen;

  unsigned int storedlen;

  int         flags;

  int         tries_left;

  const char  pad_char;

  int         obj_flags;

} pindata;

typedef struct prdata_st {

  const char *id;

  const char *label;

  unsigned int modulus_len;

  int         usage;

  const char *path;

  int         ref;

  const char *auth_id;

  int         obj_flags;

} prdata;

static int get_cert_len(sc_card_t *card, sc_path_t *path)

{

  int r;

  u8  buf[8];

  r = sc_select_file(card, path, NULL);

  if (r < 0)

    return 0;

  r = sc_read_binary(card, 0, buf, sizeof(buf), 0);

  if (r < 0)

    return 0;

  if (buf[0] != 0x30 || buf[1] != 0x82)

    return 0;

  path->index = 0;

  path->count = ((((int) buf[2]) << 8) | buf[3]) + 4;

  return 1;

}

static int acos_detect_card(sc_pkcs15_card_t *p15card)

{

  int       r;

  u8        buf[128];

  sc_path_t path;

  sc_card_t *card = p15card->card;

  /* check if we have the correct card OS */

  if (strncmp(card->name, "A-TRUST ACOS", strlen("A-TRUST ACOS")))

    return SC_ERROR_WRONG_CARD;

  /* read EF_CIN_CSN file */

  sc_format_path("DF71D001", &path);

  r = sc_select_file(card, &path, NULL);

  if (r != SC_SUCCESS)

    return SC_ERROR_WRONG_CARD;

  r = sc_read_binary(card, 0, buf, 8, 0);

  if (r != 8)

    return SC_ERROR_WRONG_CARD;

  return SC_SUCCESS;

}

static int sc_pkcs15emu_atrust_acos_init(sc_pkcs15_card_t *p15card)

{

  const cdata certs[] = {

    {"C.CH.EKEY", 0, "DF71C001","1", 0},/* Decryption Certificate */

    {NULL, 0, NULL, NULL, 0}

  };

  const pindata pins[] = {

    { "01", "PIN.DEC", "3F00DF71", 0x81, /* Decryption PIN */

      SC_PKCS15_PIN_TYPE_ASCII_NUMERIC,

      4, 4, 8, SC_PKCS15_PIN_FLAG_NEEDS_PADDING |

      SC_PKCS15_PIN_FLAG_LOCAL, -1, 0x00,

      SC_PKCS15_CO_FLAG_MODIFIABLE | SC_PKCS15_CO_FLAG_PRIVATE },

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

  };

  const prdata prkeys[] = {

    { "01", "SK.CH.EKEY", 1536,

      SC_PKCS15_PRKEY_USAGE_SIGN | SC_PKCS15_PRKEY_USAGE_DECRYPT | SC_PKCS15_PRKEY_USAGE_UNWRAP,

      "", /* do not specify file here to prevent reset of security state */

      0x88, "01", SC_PKCS15_CO_FLAG_PRIVATE},

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

  };

  int    r, i;

  u8     buf[256];

  char   buf2[256];

  sc_path_t path;

  sc_file_t *file = NULL;

  sc_card_t *card = p15card->card;

  /* get serial number */

  /* read EF_CIN_CSN file */

  sc_format_path("DF71D001", &path);

  r = sc_select_file(card, &path, NULL);

  if (r != SC_SUCCESS)

    return SC_ERROR_INTERNAL;

  r = sc_read_binary(card, 0, buf, 8, 0);

  if (r != 8)

    return SC_ERROR_INTERNAL;

  r = sc_bin_to_hex(buf, 8, buf2, sizeof(buf2), 0);

  if (r != SC_SUCCESS)

    return SC_ERROR_INTERNAL;

  set_string(&p15card->tokeninfo->serial_number, buf2);

  if (!p15card->tokeninfo->serial_number)

    return SC_ERROR_INTERNAL;

  /* manufacturer ID */

  set_string(&p15card->tokeninfo->manufacturer_id, MANU_ID);

  if (!p15card->tokeninfo->manufacturer_id)

    goto err;

  /* card label */

  set_string(&p15card->tokeninfo->label, CARD_LABEL);

  if (!p15card->tokeninfo->label)

    goto err;

  /* set certs */

  for (i = 0; certs[i].label; i++) {

    struct sc_pkcs15_cert_info cert_info;

    struct sc_pkcs15_object    cert_obj;

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

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

    sc_pkcs15_format_id(certs[i].id, &cert_info.id);

    cert_info.authority = certs[i].authority;

    sc_format_path(certs[i].path, &cert_info.path);

    if (!get_cert_len(card, &cert_info.path))

      /* skip errors */

      continue;

    strlcpy(cert_obj.label, certs[i].label, sizeof(cert_obj.label));

    cert_obj.flags = certs[i].obj_flags;

    r = sc_pkcs15emu_add_x509_cert(p15card, &cert_obj, &cert_info);

    if (r < 0)

      goto err;

  }

  /* set pins */

  for (i = 0; pins[i].label; i++) {

    struct sc_pkcs15_auth_info pin_info;

    struct sc_pkcs15_object   pin_obj;

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

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

    sc_pkcs15_format_id(pins[i].id, &pin_info.auth_id);

    pin_info.auth_type = SC_PKCS15_PIN_AUTH_TYPE_PIN;

    pin_info.attrs.pin.reference     = pins[i].ref;

    pin_info.attrs.pin.flags         = pins[i].flags;

    pin_info.attrs.pin.type          = pins[i].type;

    pin_info.attrs.pin.min_length    = pins[i].minlen;

    pin_info.attrs.pin.stored_length = pins[i].storedlen;

    pin_info.attrs.pin.max_length    = pins[i].maxlen;

    pin_info.attrs.pin.pad_char      = pins[i].pad_char;

    sc_format_path(pins[i].path, &pin_info.path);

    pin_info.tries_left    = -1;

    pin_info.logged_in = SC_PIN_STATE_UNKNOWN;

    strlcpy(pin_obj.label, pins[i].label, sizeof(pin_obj.label));

    pin_obj.flags = pins[i].obj_flags;

    r = sc_pkcs15emu_add_pin_obj(p15card, &pin_obj, &pin_info);

    if (r < 0)

      goto err;

  }

  /* set private keys */

  for (i = 0; prkeys[i].label; i++) {

    struct sc_pkcs15_prkey_info prkey_info;

    struct sc_pkcs15_object     prkey_obj;

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

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

    sc_pkcs15_format_id(prkeys[i].id, &prkey_info.id);

    prkey_info.usage         = prkeys[i].usage;

    prkey_info.native        = 1;

    prkey_info.key_reference = prkeys[i].ref;

    prkey_info.modulus_length= prkeys[i].modulus_len;

    sc_format_path(prkeys[i].path, &prkey_info.path);

    strlcpy(prkey_obj.label, prkeys[i].label, sizeof(prkey_obj.label));

    prkey_obj.flags = prkeys[i].obj_flags;

    if (prkeys[i].auth_id)

      sc_pkcs15_format_id(prkeys[i].auth_id, &prkey_obj.auth_id);

    r = sc_pkcs15emu_add_rsa_prkey(p15card, &prkey_obj, &prkey_info);

    if (r < 0)

      goto err;

  }

  /* select the application DF */

  sc_format_path("DF71", &path);

  r = sc_select_file(card, &path, &file);

  if (r != SC_SUCCESS || !file)

    goto err;

  /* set the application DF */

  sc_file_free(p15card->file_app);

  p15card->file_app = file;

  return SC_SUCCESS;

err:

  sc_pkcs15_card_clear(p15card);

  return SC_ERROR_INTERNAL;

}

int sc_pkcs15emu_atrust_acos_init_ex(sc_pkcs15_card_t *p15card,

          struct sc_aid *aid)

{

  if (acos_detect_card(p15card))

    return SC_ERROR_WRONG_CARD;

  return sc_pkcs15emu_atrust_acos_init(p15card);

}