Update SoftHSM v2.0 to the latest version

[aaf/sshsm.git] / SoftHSMv2 / modules / tests / test_openssl_gost.c

diff --git a/SoftHSMv2/modules/tests/test_openssl_gost.c b/SoftHSMv2/modules/tests/test_openssl_gost.c
new file mode 100644 (file)
index 0000000..33487e1
--- /dev/null
+++ b/SoftHSMv2/modules/tests/test_openssl_gost.c
@@ -0,0 +1,41 @@
+#include <openssl/engine.h>
+#include <openssl/crypto.h>
+#include <openssl/opensslv.h>
+int main()
+{
+        ENGINE* eg;
+        const EVP_MD* EVP_GOST_34_11;
+
+        /* Initialise OpenSSL */
+        OpenSSL_add_all_algorithms();
+
+        /* Load engines */
+#if OPENSSL_VERSION_NUMBER < 0x10100000L || defined(LIBRESSL_VERSION_NUMBER)
+        ENGINE_load_builtin_engines();
+#else
+        OPENSSL_init_crypto(OPENSSL_INIT_ENGINE_ALL_BUILTIN | OPENSSL_INIT_LOAD_CONFIG, NULL);
+#endif
+
+        /* Initialise the GOST engine */
+        eg = ENGINE_by_id("gost");
+        if (eg == NULL)
+                return 1;
+        if (ENGINE_init(eg) <= 0)
+                return 1;
+
+        /* better than digest_gost */
+        EVP_GOST_34_11 = ENGINE_get_digest(eg, NID_id_GostR3411_94);
+        if (EVP_GOST_34_11 == NULL)
+                return 1;
+
+        /* from the openssl.cnf */
+        if (ENGINE_register_pkey_asn1_meths(eg) <= 0)
+                return 1;
+        if (ENGINE_ctrl_cmd_string(eg,
+            "CRYPT_PARAMS",
+            "id-Gost28147-89-CryptoPro-A-ParamSet",
+            0) <= 0)
+                return 1;
+
+        return 0;
+}