/*

 * Copyright (c) 2014, 2016, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code 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 General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

#include <jni.h>

#include <stdio.h>

#include <stdlib.h>

#include <dlfcn.h>

#include <link.h>

#include "nativeFunc.h"

/* standard md5/md/softcrypto method names (ordering is from mapfile) */

static const char MD5_INIT[]                     = "MD5Init";

static const char MD5_UPDATE[]                   = "MD5Update";

static const char MD5_FINAL[]                    = "MD5Final";

static const char SHA1_INIT[]                    = "SHA1Init";

static const char SHA1_UPDATE[]                  = "SHA1Update";

static const char SHA1_FINAL[]                   = "SHA1Final";

static const char SHA2_INIT[]                    = "SHA2Init";

static const char SHA2_UPDATE[]                  = "SHA2Update";

static const char SHA2_FINAL[]                   = "SHA2Final";

static const char UCRYPTO_VERSION[]              = "ucrypto_version";

static const char UCRYPTO_GET_MECHLIST[]         = "ucrypto_get_mechlist";

static const char UCRYPTO_ENCRYPT_INIT[]         = "ucrypto_encrypt_init";

static const char UCRYPTO_ENCRYPT_UPDATE[]       = "ucrypto_encrypt_update";

static const char UCRYPTO_ENCRYPT_FINAL[]        = "ucrypto_encrypt_final";

static const char UCRYPTO_ENCRYPT[]              = "ucrypto_encrypt";

static const char UCRYPTO_DECRYPT_INIT[]         = "ucrypto_decrypt_init";

static const char UCRYPTO_DECRYPT_UPDATE[]       = "ucrypto_decrypt_update";

static const char UCRYPTO_DECRYPT_FINAL[]        = "ucrypto_decrypt_final";

static const char UCRYPTO_DECRYPT[]              = "ucrypto_decrypt";

static const char UCRYPTO_SIGN_INIT[]            = "ucrypto_sign_init";

static const char UCRYPTO_SIGN_UPDATE[]          = "ucrypto_sign_update";

static const char UCRYPTO_SIGN_FINAL[]           = "ucrypto_sign_final";

static const char UCRYPTO_VERIFY_INIT[]          = "ucrypto_verify_init";

static const char UCRYPTO_VERIFY_UPDATE[]        = "ucrypto_verify_update";

static const char UCRYPTO_VERIFY_FINAL[]         = "ucrypto_verify_final";

static const char UCRYPTO_DIGEST_INIT[]          = "ucrypto_digest_init";

static const char UCRYPTO_DIGEST_UPDATE[]        = "ucrypto_digest_update";

static const char UCRYPTO_DIGEST_FINAL[]         = "ucrypto_digest_final";

static const char UCRYPTO_FREE_CONTEXT[]         = "ucrypto_free_context";

static const char UCRYPTO_STRERROR[]             = "ucrypto_strerror";

/**

 * Initialize native T4 crypto function pointers

 */

  jboolean* buf;

  void *lib;

  buf = malloc(2 * sizeof(jboolean));

  buf[0] = buf[1] = JNI_FALSE;

  ftab = (T4CRYPTO_FUNCTION_TABLE_PTR) calloc(1, sizeof(T4CRYPTO_FUNCTION_TABLE));

  if (ftab == NULL) {

    free(buf);

    return NULL;

  }

  lib = dlopen("libsoftcrypto.so", RTLD_NOW);

  if (lib != NULL) {

    // These APIs aren't available for v0 lib on Solaris 10

    ftab->ucryptoVersion = (UCRYPTO_VERSION_FN_PTR)

      dlsym(lib, UCRYPTO_VERSION);

    ftab->ucryptoGetMechList = (UCRYPTO_GET_MECHLIST_FN_PTR)

      dlsym(lib, UCRYPTO_GET_MECHLIST);

    ftab->ucryptoSignInit = (UCRYPTO_SIGN_INIT_FN_PTR)

      dlsym(lib, UCRYPTO_SIGN_INIT);

    ftab->ucryptoSignUpdate = (UCRYPTO_SIGN_UPDATE_FN_PTR)

      dlsym(lib, UCRYPTO_SIGN_UPDATE);

    ftab->ucryptoSignFinal = (UCRYPTO_SIGN_FINAL_FN_PTR)

      dlsym(lib, UCRYPTO_SIGN_FINAL);

    ftab->ucryptoVerifyInit = (UCRYPTO_VERIFY_INIT_FN_PTR)

      dlsym(lib, UCRYPTO_VERIFY_INIT);

    ftab->ucryptoVerifyUpdate = (UCRYPTO_VERIFY_UPDATE_FN_PTR)

      dlsym(lib, UCRYPTO_VERIFY_UPDATE);

    ftab->ucryptoVerifyFinal = (UCRYPTO_VERIFY_FINAL_FN_PTR)

      dlsym(lib, UCRYPTO_VERIFY_FINAL);

    // These APS are added starting S12

    ftab->ucryptoDigestInit = (UCRYPTO_DIGEST_INIT_FN_PTR)

      dlsym(lib, UCRYPTO_DIGEST_INIT);

    ftab->ucryptoDigestUpdate = (UCRYPTO_DIGEST_UPDATE_FN_PTR)

      dlsym(lib, UCRYPTO_DIGEST_UPDATE);

    ftab->ucryptoDigestFinal = (UCRYPTO_DIGEST_FINAL_FN_PTR)

      dlsym(lib, UCRYPTO_DIGEST_FINAL);

    ftab->ucryptoFreeContext = (UCRYPTO_FREE_CONTEXT_FN_PTR)

      dlsym(lib, UCRYPTO_FREE_CONTEXT);

    ftab->ucryptoStrerror = (UCRYPTO_STRERROR_FN_PTR)

      dlsym(lib, UCRYPTO_STRERROR);

    // These should be avilable for all libsoftcrypto libs

    ftab->ucryptoEncryptInit = (UCRYPTO_ENCRYPT_INIT_FN_PTR)

      dlsym(lib, UCRYPTO_ENCRYPT_INIT);

    ftab->ucryptoEncryptUpdate = (UCRYPTO_ENCRYPT_UPDATE_FN_PTR)

      dlsym(lib, UCRYPTO_ENCRYPT_UPDATE);

    ftab->ucryptoEncryptFinal = (UCRYPTO_ENCRYPT_FINAL_FN_PTR)

      dlsym(lib, UCRYPTO_ENCRYPT_FINAL);

    ftab->ucryptoEncrypt = (UCRYPTO_ENCRYPT_FN_PTR)

      dlsym(lib, UCRYPTO_ENCRYPT);

    ftab->ucryptoDecryptInit = (UCRYPTO_DECRYPT_INIT_FN_PTR)

      dlsym(lib, UCRYPTO_DECRYPT_INIT);

    ftab->ucryptoDecryptUpdate = (UCRYPTO_DECRYPT_UPDATE_FN_PTR)

      dlsym(lib, UCRYPTO_DECRYPT_UPDATE);

    ftab->ucryptoDecryptFinal = (UCRYPTO_DECRYPT_FINAL_FN_PTR)

      dlsym(lib, UCRYPTO_DECRYPT_FINAL);

    ftab->ucryptoDecrypt = (UCRYPTO_DECRYPT_FN_PTR)

      dlsym(lib, UCRYPTO_DECRYPT);

    if (ftab->ucryptoEncryptInit != NULL &&

        ftab->ucryptoEncryptUpdate != NULL &&

        ftab->ucryptoEncryptFinal != NULL &&

        ftab->ucryptoEncrypt != NULL &&

        ftab->ucryptoDecryptInit != NULL &&

        ftab->ucryptoDecryptUpdate != NULL &&

        ftab->ucryptoDecryptFinal != NULL &&

        ftab->ucryptoDecrypt != NULL) {

      buf[1] = JNI_TRUE;

    } else {

      dlclose(lib);

    }

    // proceed with libmd when libucrypto does not support digest operations

    if (ftab->ucryptoDigestInit == NULL ||

        ftab->ucryptoDigestUpdate == NULL ||

        ftab->ucryptoDigestFinal == NULL) {

      lib = dlopen("libmd.so", RTLD_NOW);

      if (lib != NULL) {

        ftab->md5Init = (MD5INIT_FN_PTR) dlsym(lib, MD5_INIT);

        ftab->md5Update = (MD5UPDATE_FN_PTR) dlsym(lib, MD5_UPDATE);

        ftab->md5Final = (MD5FINAL_FN_PTR) dlsym(lib, MD5_FINAL);

        ftab->sha1Init = (SHA1INIT_FN_PTR) dlsym(lib, SHA1_INIT);

        ftab->sha1Update = (SHA1UPDATE_FN_PTR) dlsym(lib, SHA1_UPDATE);

        ftab->sha1Final = (SHA1FINAL_FN_PTR) dlsym(lib, SHA1_FINAL);

        ftab->sha2Init = (SHA2INIT_FN_PTR) dlsym(lib, SHA2_INIT);

        ftab->sha2Update = (SHA2UPDATE_FN_PTR) dlsym(lib, SHA2_UPDATE);

        ftab->sha2Final = (SHA2FINAL_FN_PTR) dlsym(lib, SHA2_FINAL);

        if (ftab->md5Init != NULL && ftab->md5Update != NULL &&

            ftab->md5Final != NULL && ftab->sha1Init != NULL &&

            ftab->sha1Update != NULL && ftab->sha1Final != NULL &&

            ftab->sha2Init != NULL && ftab->sha2Update != NULL &&

            ftab->sha2Final != NULL) {

          buf[0] = JNI_TRUE;

        } else {

          dlclose(lib);

        }

      }

    }

  }

  return buf;

}