2003-10-02 04:47:11 -04:00
|
|
|
/*
|
|
|
|
* 'OpenSSL for Ruby' project
|
|
|
|
* Copyright (C) 2003 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
|
|
|
* All rights reserved.
|
|
|
|
*/
|
|
|
|
/*
|
2015-04-19 23:55:09 -04:00
|
|
|
* This program is licensed under the same licence as Ruby.
|
2003-10-02 04:47:11 -04:00
|
|
|
* (See the file 'LICENCE'.)
|
|
|
|
*/
|
|
|
|
#include "ossl.h"
|
|
|
|
|
2016-05-25 04:50:03 -04:00
|
|
|
#if !defined(OPENSSL_NO_ENGINE)
|
2003-10-02 04:47:11 -04:00
|
|
|
|
2015-05-29 01:55:02 -04:00
|
|
|
#define NewEngine(klass) \
|
|
|
|
TypedData_Wrap_Struct((klass), &ossl_engine_type, 0)
|
|
|
|
#define SetEngine(obj, engine) do { \
|
2011-02-23 08:05:32 -05:00
|
|
|
if (!(engine)) { \
|
2003-10-02 04:47:11 -04:00
|
|
|
ossl_raise(rb_eRuntimeError, "ENGINE wasn't initialized."); \
|
|
|
|
} \
|
2015-05-29 01:55:02 -04:00
|
|
|
RTYPEDDATA_DATA(obj) = (engine); \
|
2003-10-02 04:47:11 -04:00
|
|
|
} while(0)
|
|
|
|
#define GetEngine(obj, engine) do { \
|
2014-12-12 16:57:49 -05:00
|
|
|
TypedData_Get_Struct((obj), ENGINE, &ossl_engine_type, (engine)); \
|
2011-02-23 08:05:32 -05:00
|
|
|
if (!(engine)) { \
|
2003-10-02 04:47:11 -04:00
|
|
|
ossl_raise(rb_eRuntimeError, "ENGINE wasn't initialized."); \
|
|
|
|
} \
|
|
|
|
} while (0)
|
|
|
|
|
2010-04-22 04:04:13 -04:00
|
|
|
/*
|
2003-10-02 04:47:11 -04:00
|
|
|
* Classes
|
|
|
|
*/
|
2013-11-20 23:37:14 -05:00
|
|
|
/* Document-class: OpenSSL::Engine
|
|
|
|
*
|
|
|
|
* This class is the access to openssl's ENGINE cryptographic module
|
|
|
|
* implementation.
|
|
|
|
*
|
|
|
|
* See also, https://www.openssl.org/docs/crypto/engine.html
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
VALUE cEngine;
|
2013-11-20 23:37:14 -05:00
|
|
|
/* Document-class: OpenSSL::Engine::EngineError
|
|
|
|
*
|
|
|
|
* This is the generic exception for OpenSSL::Engine related errors
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
VALUE eEngineError;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Private
|
|
|
|
*/
|
2017-11-25 09:12:08 -05:00
|
|
|
#if !defined(LIBRESSL_VERSION_NUMBER) && OPENSSL_VERSION_NUMBER >= 0x10100000
|
|
|
|
#define OSSL_ENGINE_LOAD_IF_MATCH(engine_name, x) \
|
2003-10-02 04:47:11 -04:00
|
|
|
do{\
|
2017-11-25 09:12:08 -05:00
|
|
|
if(!strcmp(#engine_name, RSTRING_PTR(name))){\
|
|
|
|
if (OPENSSL_init_crypto(OPENSSL_INIT_ENGINE_##x, NULL))\
|
|
|
|
return Qtrue;\
|
|
|
|
else\
|
|
|
|
ossl_raise(eEngineError, "OPENSSL_init_crypto"); \
|
|
|
|
}\
|
|
|
|
}while(0)
|
|
|
|
#else
|
|
|
|
#define OSSL_ENGINE_LOAD_IF_MATCH(engine_name, x) \
|
|
|
|
do{\
|
|
|
|
if(!strcmp(#engine_name, RSTRING_PTR(name))){\
|
|
|
|
ENGINE_load_##engine_name();\
|
2003-10-02 04:47:11 -04:00
|
|
|
return Qtrue;\
|
|
|
|
}\
|
|
|
|
}while(0)
|
2017-11-25 09:12:08 -05:00
|
|
|
#endif
|
2003-10-02 04:47:11 -04:00
|
|
|
|
2014-12-12 16:57:49 -05:00
|
|
|
static void
|
|
|
|
ossl_engine_free(void *engine)
|
|
|
|
{
|
|
|
|
ENGINE_free(engine);
|
|
|
|
}
|
|
|
|
|
|
|
|
static const rb_data_type_t ossl_engine_type = {
|
|
|
|
"OpenSSL/Engine",
|
|
|
|
{
|
|
|
|
0, ossl_engine_free,
|
|
|
|
},
|
|
|
|
0, 0, RUBY_TYPED_FREE_IMMEDIATELY,
|
|
|
|
};
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
2017-09-03 08:35:27 -04:00
|
|
|
* OpenSSL::Engine.load(name = nil)
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* This method loads engines. If _name_ is nil, then all builtin engines are
|
|
|
|
* loaded. Otherwise, the given _name_, as a String, is loaded if available to
|
|
|
|
* your runtime, and returns true. If _name_ is not found, then nil is
|
2013-11-20 23:37:14 -05:00
|
|
|
* returned.
|
|
|
|
*
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_s_load(int argc, VALUE *argv, VALUE klass)
|
|
|
|
{
|
|
|
|
VALUE name;
|
|
|
|
|
|
|
|
rb_scan_args(argc, argv, "01", &name);
|
2005-03-31 00:09:24 -05:00
|
|
|
if(NIL_P(name)){
|
|
|
|
ENGINE_load_builtin_engines();
|
|
|
|
return Qtrue;
|
|
|
|
}
|
2016-05-23 07:40:07 -04:00
|
|
|
StringValueCStr(name);
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_DYNAMIC
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(dynamic, DYNAMIC);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2020-03-09 05:26:19 -04:00
|
|
|
#ifndef OPENSSL_NO_STATIC_ENGINE
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_4758CCA
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(4758cca, 4758CCA);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_AEP
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(aep, AEP);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_ATALLA
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(atalla, ATALLA);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_CHIL
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(chil, CHIL);
|
2011-11-03 19:45:23 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_CSWIFT
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(cswift, CSWIFT);
|
2011-11-03 19:45:23 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_NURON
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(nuron, NURON);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_SUREWARE
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(sureware, SUREWARE);
|
2011-11-03 19:45:23 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_UBSEC
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(ubsec, UBSEC);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_PADLOCK
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(padlock, PADLOCK);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_CAPI
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(capi, CAPI);
|
2010-04-23 04:37:55 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_GMP
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(gmp, GMP);
|
2011-11-03 19:45:23 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_GOST
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(gost, GOST);
|
2011-11-03 19:45:23 -04:00
|
|
|
#endif
|
2020-03-09 05:26:19 -04:00
|
|
|
#endif
|
2021-03-24 05:32:15 -04:00
|
|
|
#ifdef HAVE_ENGINE_LOAD_CRYPTODEV
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(cryptodev, CRYPTODEV);
|
2003-10-02 04:47:11 -04:00
|
|
|
#endif
|
2017-11-25 09:12:08 -05:00
|
|
|
OSSL_ENGINE_LOAD_IF_MATCH(openssl, OPENSSL);
|
2016-05-23 07:40:07 -04:00
|
|
|
rb_warning("no such builtin loader for `%"PRIsVALUE"'", name);
|
2005-03-31 00:09:24 -05:00
|
|
|
return Qnil;
|
2003-10-02 04:47:11 -04:00
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
2017-09-03 08:35:27 -04:00
|
|
|
* OpenSSL::Engine.cleanup
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* It is only necessary to run cleanup when engines are loaded via
|
|
|
|
* OpenSSL::Engine.load. However, running cleanup before exit is recommended.
|
|
|
|
*
|
2016-06-07 08:20:46 -04:00
|
|
|
* Note that this is needed and works only in OpenSSL < 1.1.0.
|
2013-11-20 23:37:14 -05:00
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_s_cleanup(VALUE self)
|
|
|
|
{
|
2017-11-25 09:12:08 -05:00
|
|
|
#if defined(LIBRESSL_VERSION_NUMBER) || OPENSSL_VERSION_NUMBER < 0x10100000
|
2003-10-02 04:47:11 -04:00
|
|
|
ENGINE_cleanup();
|
2017-11-25 09:12:08 -05:00
|
|
|
#endif
|
2003-10-02 04:47:11 -04:00
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* OpenSSL::Engine.engines -> [engine, ...]
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* Returns an array of currently loaded engines.
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_s_engines(VALUE klass)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
VALUE ary, obj;
|
|
|
|
|
|
|
|
ary = rb_ary_new();
|
|
|
|
for(e = ENGINE_get_first(); e; e = ENGINE_get_next(e)){
|
2015-05-29 01:55:02 -04:00
|
|
|
obj = NewEngine(klass);
|
2011-07-21 20:13:07 -04:00
|
|
|
/* Need a ref count of two here because of ENGINE_free being
|
|
|
|
* called internally by OpenSSL when moving to the next ENGINE
|
|
|
|
* and by us when releasing the ENGINE reference */
|
2011-11-04 03:19:23 -04:00
|
|
|
ENGINE_up_ref(e);
|
2015-05-29 01:55:02 -04:00
|
|
|
SetEngine(obj, e);
|
2003-10-02 04:47:11 -04:00
|
|
|
rb_ary_push(ary, obj);
|
|
|
|
}
|
|
|
|
|
|
|
|
return ary;
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
2017-09-03 08:35:27 -04:00
|
|
|
* OpenSSL::Engine.by_id(name) -> engine
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Fetches the engine as specified by the _id_ String.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* OpenSSL::Engine.by_id("openssl")
|
|
|
|
* => #<OpenSSL::Engine id="openssl" name="Software engine support">
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* See OpenSSL::Engine.engines for the currently loaded engines.
|
2013-11-20 23:37:14 -05:00
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_s_by_id(VALUE klass, VALUE id)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
VALUE obj;
|
|
|
|
|
2016-05-23 07:40:07 -04:00
|
|
|
StringValueCStr(id);
|
2003-10-02 04:47:11 -04:00
|
|
|
ossl_engine_s_load(1, &id, klass);
|
2015-05-29 01:55:02 -04:00
|
|
|
obj = NewEngine(klass);
|
2006-08-31 06:30:33 -04:00
|
|
|
if(!(e = ENGINE_by_id(RSTRING_PTR(id))))
|
2003-10-02 04:47:11 -04:00
|
|
|
ossl_raise(eEngineError, NULL);
|
2015-05-29 01:55:02 -04:00
|
|
|
SetEngine(obj, e);
|
2005-09-07 04:29:47 -04:00
|
|
|
if(rb_block_given_p()) rb_yield(obj);
|
2003-10-02 04:47:11 -04:00
|
|
|
if(!ENGINE_init(e))
|
|
|
|
ossl_raise(eEngineError, NULL);
|
|
|
|
ENGINE_ctrl(e, ENGINE_CTRL_SET_PASSWORD_CALLBACK,
|
2009-03-13 03:45:35 -04:00
|
|
|
0, NULL, (void(*)(void))ossl_pem_passwd_cb);
|
2016-05-18 00:07:45 -04:00
|
|
|
ossl_clear_error();
|
2003-10-02 04:47:11 -04:00
|
|
|
|
|
|
|
return obj;
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* engine.id -> string
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Gets the id for this engine.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* OpenSSL::Engine.load
|
|
|
|
* OpenSSL::Engine.engines #=> [#<OpenSSL::Engine#>, ...]
|
|
|
|
* OpenSSL::Engine.engines.first.id
|
|
|
|
* #=> "rsax"
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_get_id(VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
GetEngine(self, e);
|
|
|
|
return rb_str_new2(ENGINE_get_id(e));
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* engine.name -> string
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Get the descriptive name for this engine.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* OpenSSL::Engine.load
|
|
|
|
* OpenSSL::Engine.engines #=> [#<OpenSSL::Engine#>, ...]
|
|
|
|
* OpenSSL::Engine.engines.first.name
|
|
|
|
* #=> "RSAX engine support"
|
|
|
|
*
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_get_name(VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
GetEngine(self, e);
|
|
|
|
return rb_str_new2(ENGINE_get_name(e));
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* engine.finish -> nil
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* Releases all internal structural references for this engine.
|
|
|
|
*
|
|
|
|
* May raise an EngineError if the engine is unavailable
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_finish(VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
|
|
|
|
GetEngine(self, e);
|
|
|
|
if(!ENGINE_finish(e)) ossl_raise(eEngineError, NULL);
|
|
|
|
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
|
|
|
* engine.cipher(name) -> OpenSSL::Cipher
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Returns a new instance of OpenSSL::Cipher by _name_, if it is available in
|
|
|
|
* this engine.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2016-12-10 03:12:02 -05:00
|
|
|
* An EngineError will be raised if the cipher is unavailable.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* e = OpenSSL::Engine.by_id("openssl")
|
|
|
|
* => #<OpenSSL::Engine id="openssl" name="Software engine support">
|
|
|
|
* e.cipher("RC4")
|
|
|
|
* => #<OpenSSL::Cipher:0x007fc5cacc3048>
|
|
|
|
*
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_get_cipher(VALUE self, VALUE name)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
const EVP_CIPHER *ciph, *tmp;
|
|
|
|
int nid;
|
|
|
|
|
2016-05-23 07:40:07 -04:00
|
|
|
tmp = EVP_get_cipherbyname(StringValueCStr(name));
|
|
|
|
if(!tmp) ossl_raise(eEngineError, "no such cipher `%"PRIsVALUE"'", name);
|
2003-10-02 04:47:11 -04:00
|
|
|
nid = EVP_CIPHER_nid(tmp);
|
|
|
|
GetEngine(self, e);
|
|
|
|
ciph = ENGINE_get_cipher(e, nid);
|
|
|
|
if(!ciph) ossl_raise(eEngineError, NULL);
|
|
|
|
|
|
|
|
return ossl_cipher_new(ciph);
|
2009-04-18 10:10:06 -04:00
|
|
|
}
|
2003-10-02 04:47:11 -04:00
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
|
|
|
* engine.digest(name) -> OpenSSL::Digest
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Returns a new instance of OpenSSL::Digest by _name_.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* Will raise an EngineError if the digest is unavailable.
|
|
|
|
*
|
|
|
|
* e = OpenSSL::Engine.by_id("openssl")
|
|
|
|
* #=> #<OpenSSL::Engine id="openssl" name="Software engine support">
|
|
|
|
* e.digest("SHA1")
|
|
|
|
* #=> #<OpenSSL::Digest: da39a3ee5e6b4b0d3255bfef95601890afd80709>
|
|
|
|
* e.digest("zomg")
|
|
|
|
* #=> OpenSSL::Engine::EngineError: no such digest `zomg'
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_get_digest(VALUE self, VALUE name)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
const EVP_MD *md, *tmp;
|
|
|
|
int nid;
|
|
|
|
|
2016-05-23 07:40:07 -04:00
|
|
|
tmp = EVP_get_digestbyname(StringValueCStr(name));
|
|
|
|
if(!tmp) ossl_raise(eEngineError, "no such digest `%"PRIsVALUE"'", name);
|
2003-10-02 04:47:11 -04:00
|
|
|
nid = EVP_MD_nid(tmp);
|
|
|
|
GetEngine(self, e);
|
|
|
|
md = ENGINE_get_digest(e, nid);
|
|
|
|
if(!md) ossl_raise(eEngineError, NULL);
|
|
|
|
|
|
|
|
return ossl_digest_new(md);
|
2009-04-18 10:10:06 -04:00
|
|
|
}
|
2003-10-02 04:47:11 -04:00
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
|
|
|
* engine.load_private_key(id = nil, data = nil) -> OpenSSL::PKey
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Loads the given private key identified by _id_ and _data_.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* An EngineError is raised of the OpenSSL::PKey is unavailable.
|
|
|
|
*
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_load_privkey(int argc, VALUE *argv, VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
EVP_PKEY *pkey;
|
2005-09-18 18:56:11 -04:00
|
|
|
VALUE id, data, obj;
|
2003-10-02 04:47:11 -04:00
|
|
|
char *sid, *sdata;
|
|
|
|
|
2005-09-07 04:29:47 -04:00
|
|
|
rb_scan_args(argc, argv, "02", &id, &data);
|
2016-05-23 07:40:07 -04:00
|
|
|
sid = NIL_P(id) ? NULL : StringValueCStr(id);
|
|
|
|
sdata = NIL_P(data) ? NULL : StringValueCStr(data);
|
2003-10-02 04:47:11 -04:00
|
|
|
GetEngine(self, e);
|
|
|
|
pkey = ENGINE_load_private_key(e, sid, NULL, sdata);
|
|
|
|
if (!pkey) ossl_raise(eEngineError, NULL);
|
2005-09-18 18:56:11 -04:00
|
|
|
obj = ossl_pkey_new(pkey);
|
|
|
|
OSSL_PKEY_SET_PRIVATE(obj);
|
2003-10-02 04:47:11 -04:00
|
|
|
|
2005-09-18 18:56:11 -04:00
|
|
|
return obj;
|
2003-10-02 04:47:11 -04:00
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
|
|
|
* engine.load_public_key(id = nil, data = nil) -> OpenSSL::PKey
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Loads the given public key identified by _id_ and _data_.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* An EngineError is raised of the OpenSSL::PKey is unavailable.
|
|
|
|
*
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_load_pubkey(int argc, VALUE *argv, VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
EVP_PKEY *pkey;
|
|
|
|
VALUE id, data;
|
|
|
|
char *sid, *sdata;
|
|
|
|
|
2005-09-18 18:56:11 -04:00
|
|
|
rb_scan_args(argc, argv, "02", &id, &data);
|
2016-05-23 07:40:07 -04:00
|
|
|
sid = NIL_P(id) ? NULL : StringValueCStr(id);
|
|
|
|
sdata = NIL_P(data) ? NULL : StringValueCStr(data);
|
2003-10-02 04:47:11 -04:00
|
|
|
GetEngine(self, e);
|
|
|
|
pkey = ENGINE_load_public_key(e, sid, NULL, sdata);
|
|
|
|
if (!pkey) ossl_raise(eEngineError, NULL);
|
|
|
|
|
|
|
|
return ossl_pkey_new(pkey);
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
|
|
|
* engine.set_default(flag)
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Set the defaults for this engine with the given _flag_.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* These flags are used to control combinations of algorithm methods.
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* _flag_ can be one of the following, other flags are available depending on
|
2013-11-20 23:37:14 -05:00
|
|
|
* your OS.
|
|
|
|
*
|
|
|
|
* [All flags] 0xFFFF
|
|
|
|
* [No flags] 0x0000
|
|
|
|
*
|
|
|
|
* See also <openssl/engine.h>
|
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_set_default(VALUE self, VALUE flag)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
2004-12-15 01:35:55 -05:00
|
|
|
int f = NUM2INT(flag);
|
2003-10-02 04:47:11 -04:00
|
|
|
|
|
|
|
GetEngine(self, e);
|
2004-12-15 01:35:55 -05:00
|
|
|
ENGINE_set_default(e, f);
|
2003-10-02 04:47:11 -04:00
|
|
|
|
|
|
|
return Qtrue;
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
2013-11-20 23:37:14 -05:00
|
|
|
* call-seq:
|
|
|
|
* engine.ctrl_cmd(command, value = nil) -> engine
|
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Sends the given _command_ to this engine.
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Raises an EngineError if the command fails.
|
2013-11-20 23:37:14 -05:00
|
|
|
*/
|
2005-09-07 04:29:47 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_ctrl_cmd(int argc, VALUE *argv, VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
VALUE cmd, val;
|
|
|
|
int ret;
|
|
|
|
|
|
|
|
GetEngine(self, e);
|
|
|
|
rb_scan_args(argc, argv, "11", &cmd, &val);
|
2016-05-23 07:40:07 -04:00
|
|
|
ret = ENGINE_ctrl_cmd_string(e, StringValueCStr(cmd),
|
|
|
|
NIL_P(val) ? NULL : StringValueCStr(val), 0);
|
2005-09-07 04:29:47 -04:00
|
|
|
if (!ret) ossl_raise(eEngineError, NULL);
|
|
|
|
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
ossl_engine_cmd_flag_to_name(int flag)
|
|
|
|
{
|
|
|
|
switch(flag){
|
|
|
|
case ENGINE_CMD_FLAG_NUMERIC: return rb_str_new2("NUMERIC");
|
|
|
|
case ENGINE_CMD_FLAG_STRING: return rb_str_new2("STRING");
|
|
|
|
case ENGINE_CMD_FLAG_NO_INPUT: return rb_str_new2("NO_INPUT");
|
|
|
|
case ENGINE_CMD_FLAG_INTERNAL: return rb_str_new2("INTERNAL");
|
|
|
|
default: return rb_str_new2("UNKNOWN");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* engine.cmds -> [["name", "description", "flags"], ...]
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
|
|
|
* Returns an array of command definitions for the current engine
|
|
|
|
*/
|
2005-09-07 04:29:47 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_get_cmds(VALUE self)
|
|
|
|
{
|
|
|
|
ENGINE *e;
|
|
|
|
const ENGINE_CMD_DEFN *defn, *p;
|
|
|
|
VALUE ary, tmp;
|
|
|
|
|
|
|
|
GetEngine(self, e);
|
|
|
|
ary = rb_ary_new();
|
|
|
|
if ((defn = ENGINE_get_cmd_defns(e)) != NULL){
|
|
|
|
for (p = defn; p->cmd_num > 0; p++){
|
|
|
|
tmp = rb_ary_new();
|
|
|
|
rb_ary_push(tmp, rb_str_new2(p->cmd_name));
|
|
|
|
rb_ary_push(tmp, rb_str_new2(p->cmd_desc));
|
|
|
|
rb_ary_push(tmp, ossl_engine_cmd_flag_to_name(p->cmd_flags));
|
|
|
|
rb_ary_push(ary, tmp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return ary;
|
|
|
|
}
|
|
|
|
|
2017-09-03 08:35:27 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* engine.inspect -> string
|
2013-11-20 23:37:14 -05:00
|
|
|
*
|
2017-09-03 08:35:27 -04:00
|
|
|
* Pretty prints this engine.
|
2013-11-20 23:37:14 -05:00
|
|
|
*/
|
2003-10-02 04:47:11 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_engine_inspect(VALUE self)
|
|
|
|
{
|
2014-01-12 19:57:41 -05:00
|
|
|
ENGINE *e;
|
|
|
|
|
|
|
|
GetEngine(self, e);
|
|
|
|
return rb_sprintf("#<%"PRIsVALUE" id=\"%s\" name=\"%s\">",
|
|
|
|
rb_obj_class(self), ENGINE_get_id(e), ENGINE_get_name(e));
|
2003-10-02 04:47:11 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
#define DefEngineConst(x) rb_define_const(cEngine, #x, INT2NUM(ENGINE_##x))
|
|
|
|
|
|
|
|
void
|
2014-09-30 01:25:32 -04:00
|
|
|
Init_ossl_engine(void)
|
2003-10-02 04:47:11 -04:00
|
|
|
{
|
2016-08-29 01:47:09 -04:00
|
|
|
#if 0
|
|
|
|
mOSSL = rb_define_module("OpenSSL");
|
|
|
|
eOSSLError = rb_define_class_under(mOSSL, "OpenSSLError", rb_eStandardError);
|
|
|
|
#endif
|
|
|
|
|
2003-10-02 04:47:11 -04:00
|
|
|
cEngine = rb_define_class_under(mOSSL, "Engine", rb_cObject);
|
|
|
|
eEngineError = rb_define_class_under(cEngine, "EngineError", eOSSLError);
|
|
|
|
|
2016-11-30 09:41:46 -05:00
|
|
|
rb_undef_alloc_func(cEngine);
|
2003-10-02 04:47:11 -04:00
|
|
|
rb_define_singleton_method(cEngine, "load", ossl_engine_s_load, -1);
|
|
|
|
rb_define_singleton_method(cEngine, "cleanup", ossl_engine_s_cleanup, 0);
|
|
|
|
rb_define_singleton_method(cEngine, "engines", ossl_engine_s_engines, 0);
|
|
|
|
rb_define_singleton_method(cEngine, "by_id", ossl_engine_s_by_id, 1);
|
|
|
|
|
|
|
|
rb_define_method(cEngine, "id", ossl_engine_get_id, 0);
|
|
|
|
rb_define_method(cEngine, "name", ossl_engine_get_name, 0);
|
|
|
|
rb_define_method(cEngine, "finish", ossl_engine_finish, 0);
|
|
|
|
rb_define_method(cEngine, "cipher", ossl_engine_get_cipher, 1);
|
|
|
|
rb_define_method(cEngine, "digest", ossl_engine_get_digest, 1);
|
|
|
|
rb_define_method(cEngine, "load_private_key", ossl_engine_load_privkey, -1);
|
|
|
|
rb_define_method(cEngine, "load_public_key", ossl_engine_load_pubkey, -1);
|
|
|
|
rb_define_method(cEngine, "set_default", ossl_engine_set_default, 1);
|
2005-09-07 04:29:47 -04:00
|
|
|
rb_define_method(cEngine, "ctrl_cmd", ossl_engine_ctrl_cmd, -1);
|
|
|
|
rb_define_method(cEngine, "cmds", ossl_engine_get_cmds, 0);
|
2003-10-02 04:47:11 -04:00
|
|
|
rb_define_method(cEngine, "inspect", ossl_engine_inspect, 0);
|
|
|
|
|
|
|
|
DefEngineConst(METHOD_RSA);
|
|
|
|
DefEngineConst(METHOD_DSA);
|
|
|
|
DefEngineConst(METHOD_DH);
|
|
|
|
DefEngineConst(METHOD_RAND);
|
2003-10-05 09:58:02 -04:00
|
|
|
#ifdef ENGINE_METHOD_BN_MOD_EXP
|
|
|
|
DefEngineConst(METHOD_BN_MOD_EXP);
|
|
|
|
#endif
|
|
|
|
#ifdef ENGINE_METHOD_BN_MOD_EXP_CRT
|
|
|
|
DefEngineConst(METHOD_BN_MOD_EXP_CRT);
|
|
|
|
#endif
|
2003-10-02 04:47:11 -04:00
|
|
|
DefEngineConst(METHOD_CIPHERS);
|
|
|
|
DefEngineConst(METHOD_DIGESTS);
|
|
|
|
DefEngineConst(METHOD_ALL);
|
|
|
|
DefEngineConst(METHOD_NONE);
|
|
|
|
}
|
|
|
|
#else
|
|
|
|
void
|
2014-09-30 01:25:32 -04:00
|
|
|
Init_ossl_engine(void)
|
2003-10-02 04:47:11 -04:00
|
|
|
{
|
|
|
|
}
|
|
|
|
#endif
|