Merge branch 'master' into fix_printf

[proxmark3-svn] / client / emv / crypto.c

/*
 * libopenemv - a library to work with EMV family of smart cards
 * Copyright (C) 2015 Dmitry Eremin-Solenikov
 *
 * 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.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "crypto.h"
#include "crypto_backend.h"

#include <string.h>

static struct crypto_backend *crypto_backend;

static bool crypto_init(void)
{
        if (crypto_backend)
                return true;

        crypto_backend = crypto_polarssl_init(); 

        if (!crypto_backend)
                return false;

        return true;
}

struct crypto_hash *crypto_hash_open(enum crypto_algo_hash hash)
{
        struct crypto_hash *ch;

        if (!crypto_init())
                return NULL;

        ch = crypto_backend->hash_open(hash);
        if (ch)
                ch->algo = hash;

        return ch;
}

void crypto_hash_close(struct crypto_hash *ch)
{
        ch->close(ch);
}

void crypto_hash_write(struct crypto_hash *ch, const unsigned char *buf, size_t len)
{
        ch->write(ch, buf, len);
}

unsigned char *crypto_hash_read(struct crypto_hash *ch)
{
        return ch->read(ch);
}

size_t crypto_hash_get_size(const struct crypto_hash *ch)
{
        return ch->get_size(ch);
}

struct crypto_pk *crypto_pk_open(enum crypto_algo_pk pk, ...)
{
        struct crypto_pk *cp;
        va_list vl;

        if (!crypto_init())
                return NULL;

        va_start(vl, pk);
        cp = crypto_backend->pk_open(pk, vl);
        va_end(vl);

        if (cp)
                cp->algo = pk;

        return cp;
}

struct crypto_pk *crypto_pk_open_priv(enum crypto_algo_pk pk, ...)
{
        struct crypto_pk *cp;
        va_list vl;

        if (!crypto_init())
                return NULL;

        if (!crypto_backend->pk_open_priv)
                return NULL;

        va_start(vl, pk);
        cp = crypto_backend->pk_open_priv(pk, vl);
        va_end(vl);

        if (cp)
                cp->algo = pk;

        return cp;
}

struct crypto_pk *crypto_pk_genkey(enum crypto_algo_pk pk, ...)
{
        struct crypto_pk *cp;
        va_list vl;

        if (!crypto_init())
                return NULL;

        if (!crypto_backend->pk_genkey)
                return NULL;

        va_start(vl, pk);
        cp = crypto_backend->pk_genkey(pk, vl);
        va_end(vl);

        if (cp)
                cp->algo = pk;

        return cp;
}

void crypto_pk_close(struct crypto_pk *cp)
{
        cp->close(cp);
}

unsigned char *crypto_pk_encrypt(const struct crypto_pk *cp, const unsigned char *buf, size_t len, size_t *clen)
{
        return cp->encrypt(cp, buf, len, clen);
}

unsigned char *crypto_pk_decrypt(const struct crypto_pk *cp, const unsigned char *buf, size_t len, size_t *clen)
{
        if (!cp->decrypt) {
                *clen = 0;

                return NULL;
        }

        return cp->decrypt(cp, buf, len, clen);
}

enum crypto_algo_pk crypto_pk_get_algo(const struct crypto_pk *cp)
{
        if (!cp)
                return PK_INVALID;

        return cp->algo;
}

size_t crypto_pk_get_nbits(const struct crypto_pk *cp)
{
        if (!cp->get_nbits)
                return 0;

        return cp->get_nbits(cp);
}

unsigned char *crypto_pk_get_parameter(const struct crypto_pk *cp, unsigned param, size_t *plen)
{
        *plen = 0;

        if (!cp->get_parameter)
                return NULL;

        return cp->get_parameter(cp, param, plen);
}