aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--src/openssl.c98
-rw-r--r--src/openssl.pubkey.lua4
2 files changed, 55 insertions, 47 deletions
diff --git a/src/openssl.c b/src/openssl.c
index 7a03c97..5fcf76d 100644
--- a/src/openssl.c
+++ b/src/openssl.c
@@ -64,7 +64,7 @@
#endif
#define BIGNUM_CLASS "BIGNUM*"
-#define PUBKEY_CLASS "EVP_PKEY*"
+#define PKEY_CLASS "EVP_PKEY*"
#define X509_NAME_CLASS "X509_NAME*"
#define X509_GENS_CLASS "GENERAL_NAMES*"
#define X509_CERT_CLASS "X509*"
@@ -706,7 +706,7 @@ int luaopen__openssl_bignum(lua_State *L) {
/*
- * EVP_PKEY - openssl.pubkey
+ * EVP_PKEY - openssl.pkey
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
@@ -753,7 +753,7 @@ static int pk_new(lua_State *L) {
/* #1 table or key; if key, #2 format and #3 type */
lua_settop(L, 3);
- ud = prepsimple(L, PUBKEY_CLASS);
+ ud = prepsimple(L, PKEY_CLASS);
if (lua_istable(L, 1) || lua_isnil(L, 1)) {
int type = EVP_PKEY_RSA;
@@ -806,14 +806,14 @@ static int pk_new(lua_State *L) {
creat:
if (!(*ud = EVP_PKEY_new()))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
switch (EVP_PKEY_type(type)) {
case EVP_PKEY_RSA: {
RSA *rsa;
if (!(rsa = RSA_generate_key(bits, exp, 0, 0)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
EVP_PKEY_set1_RSA(*ud, rsa);
@@ -825,11 +825,11 @@ creat:
DSA *dsa;
if (!(dsa = DSA_generate_parameters(bits, 0, 0, 0, 0, 0, 0)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
if (!DSA_generate_key(dsa)) {
DSA_free(dsa);
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
}
EVP_PKEY_set1_DSA(*ud, dsa);
@@ -842,11 +842,11 @@ creat:
DH *dh;
if (!(dh = DH_generate_parameters(bits, exp, 0, 0)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
if (!DH_generate_key(dh)) {
DH_free(dh);
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
}
EVP_PKEY_set1_DH(*ud, dh);
@@ -861,7 +861,7 @@ creat:
EC_KEY *key;
if (!(grp = EC_GROUP_new_by_curve_name(curve)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
EC_GROUP_set_asn1_flag(grp, OPENSSL_EC_NAMED_CURVE);
@@ -870,7 +870,7 @@ creat:
if (!(key = EC_KEY_new())) {
EC_GROUP_free(grp);
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
}
EC_KEY_set_group(key, grp);
@@ -879,7 +879,7 @@ creat:
if (!EC_KEY_generate_key(key)) {
EC_KEY_free(key);
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
}
EVP_PKEY_set1_EC_KEY(*ud, key);
@@ -914,7 +914,7 @@ creat:
data = luaL_checklstring(L, 1, &len);
if (!(bio = BIO_new_mem_buf((void *)data, len)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
if (type == X509_PEM || type == X509_ANY) {
if (ispub == 1 || ispub == -1) {
@@ -952,7 +952,7 @@ done:
BIO_free(bio);
if (!ok)
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
} else {
return luaL_error(L, "%s: unknown key initializer", lua_typename(L, lua_type(L, 1)));
}
@@ -967,7 +967,7 @@ static int pk_interpose(lua_State *L) {
static int pk_type(lua_State *L) {
- EVP_PKEY *key = checksimple(L, 1, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 1, PKEY_CLASS);
int nid = key->type;
pushnid(L, nid);
@@ -977,7 +977,7 @@ static int pk_type(lua_State *L) {
static int pk_setPublicKey(lua_State *L) {
- EVP_PKEY **key = luaL_checkudata(L, 1, PUBKEY_CLASS);
+ EVP_PKEY **key = luaL_checkudata(L, 1, PKEY_CLASS);
const char *data;
size_t len;
BIO *bio;
@@ -987,7 +987,7 @@ static int pk_setPublicKey(lua_State *L) {
type = optencoding(L, 3, "*", X509_ANY|X509_PEM|X509_DER);
if (!(bio = BIO_new_mem_buf((void *)data, len)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
if (type == X509_ANY || type == X509_PEM) {
ok = !!PEM_read_bio_PUBKEY(bio, key, 0, "");
@@ -1000,7 +1000,7 @@ static int pk_setPublicKey(lua_State *L) {
BIO_free(bio);
if (!ok)
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
lua_pushboolean(L, 1);
@@ -1009,7 +1009,7 @@ static int pk_setPublicKey(lua_State *L) {
static int pk_setPrivateKey(lua_State *L) {
- EVP_PKEY **key = luaL_checkudata(L, 1, PUBKEY_CLASS);
+ EVP_PKEY **key = luaL_checkudata(L, 1, PKEY_CLASS);
const char *data;
size_t len;
BIO *bio;
@@ -1019,7 +1019,7 @@ static int pk_setPrivateKey(lua_State *L) {
type = optencoding(L, 3, "*", X509_ANY|X509_PEM|X509_DER);
if (!(bio = BIO_new_mem_buf((void *)data, len)))
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
if (type == X509_ANY || type == X509_PEM) {
ok = !!PEM_read_bio_PrivateKey(bio, key, 0, "");
@@ -1032,7 +1032,7 @@ static int pk_setPrivateKey(lua_State *L) {
BIO_free(bio);
if (!ok)
- return throwssl(L, "pubkey.new");
+ return throwssl(L, "pkey.new");
lua_pushboolean(L, 1);
@@ -1041,19 +1041,19 @@ static int pk_setPrivateKey(lua_State *L) {
static int pk_sign(lua_State *L) {
- EVP_PKEY *key = checksimple(L, 1, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 1, PKEY_CLASS);
EVP_MD_CTX *md = luaL_checkudata(L, 2, DIGEST_CLASS);
luaL_Buffer B;
unsigned n;
if (LUAL_BUFFERSIZE < EVP_PKEY_size(key))
- return luaL_error(L, "pubkey:sign: LUAL_BUFFERSIZE(%u) < EVP_PKEY_size(%u)", (unsigned)LUAL_BUFFERSIZE, (unsigned)EVP_PKEY_size(key));
+ return luaL_error(L, "pkey:sign: LUAL_BUFFERSIZE(%u) < EVP_PKEY_size(%u)", (unsigned)LUAL_BUFFERSIZE, (unsigned)EVP_PKEY_size(key));
luaL_buffinit(L, &B);
n = LUAL_BUFFERSIZE;
if (!EVP_SignFinal(md, (void *)luaL_prepbuffer(&B), &n, key))
- return throwssl(L, "pubkey:sign");
+ return throwssl(L, "pkey:sign");
luaL_addsize(&B, n);
luaL_pushresult(&B);
@@ -1063,7 +1063,7 @@ static int pk_sign(lua_State *L) {
static int pk_verify(lua_State *L) {
- EVP_PKEY *key = checksimple(L, 1, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 1, PKEY_CLASS);
size_t len;
const void *sig = luaL_checklstring(L, 2, &len);
EVP_MD_CTX *md = luaL_checkudata(L, 3, DIGEST_CLASS);
@@ -1079,7 +1079,7 @@ static int pk_verify(lua_State *L) {
break;
default:
- return throwssl(L, "pubkey:verify");
+ return throwssl(L, "pkey:verify");
}
return 1;
@@ -1087,7 +1087,7 @@ static int pk_verify(lua_State *L) {
static int pk_toPEM(lua_State *L) {
- EVP_PKEY *key = checksimple(L, 1, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 1, PKEY_CLASS);
int top, i, ok;
BIO *bio;
char *pem;
@@ -1111,7 +1111,7 @@ static int pk_toPEM(lua_State *L) {
switch (checkoption(L, i, NULL, opts)) {
case 0: case 1: /* public, PublicKey */
if (!PEM_write_bio_PUBKEY(bio, key))
- return throwssl(L, "pubkey:__tostring");
+ return throwssl(L, "pkey:__tostring");
len = BIO_get_mem_data(bio, &pem);
lua_pushlstring(L, pem, len);
@@ -1120,7 +1120,7 @@ static int pk_toPEM(lua_State *L) {
break;
case 2: case 3: /* private, PrivateKey */
if (!PEM_write_bio_PrivateKey(bio, key, 0, 0, 0, 0, 0))
- throwssl(L, "pubkey:__tostring");
+ throwssl(L, "pkey:__tostring");
len = BIO_get_mem_data(bio, &pem);
lua_pushlstring(L, pem, len);
@@ -1140,7 +1140,7 @@ static int pk_toPEM(lua_State *L) {
DSA_free(dsa);
if (!ok)
- return throwssl(L, "pubkey:__tostring");
+ return throwssl(L, "pkey:__tostring");
break;
}
@@ -1152,7 +1152,7 @@ static int pk_toPEM(lua_State *L) {
DH_free(dh);
if (!ok)
- return throwssl(L, "pubkey:__tostring");
+ return throwssl(L, "pkey:__tostring");
break;
}
@@ -1166,7 +1166,7 @@ static int pk_toPEM(lua_State *L) {
EC_KEY_free(ec);
if (!ok)
- return throwssl(L, "pubkey:__tostring");
+ return throwssl(L, "pkey:__tostring");
break;
}
@@ -1193,7 +1193,7 @@ static int pk_toPEM(lua_State *L) {
static int pk__tostring(lua_State *L) {
- EVP_PKEY *key = checksimple(L, 1, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 1, PKEY_CLASS);
int type = optencoding(L, 2, "pem", X509_PEM|X509_DER);
BIO *bio = getbio(L);
char *data;
@@ -1203,11 +1203,11 @@ static int pk__tostring(lua_State *L) {
switch (type) {
case X509_PEM:
if (!PEM_write_bio_PUBKEY(bio, key))
- return throwssl(L, "pubkey:__tostring");
+ return throwssl(L, "pkey:__tostring");
break;
case X509_DER:
if (!i2d_PUBKEY_bio(bio, key))
- return throwssl(L, "pubkey:__tostring");
+ return throwssl(L, "pkey:__tostring");
break;
} /* switch() */
@@ -1220,7 +1220,7 @@ static int pk__tostring(lua_State *L) {
static int pk__gc(lua_State *L) {
- EVP_PKEY **ud = luaL_checkudata(L, 1, PUBKEY_CLASS);
+ EVP_PKEY **ud = luaL_checkudata(L, 1, PKEY_CLASS);
EVP_PKEY_free(*ud);
*ud = NULL;
@@ -1252,12 +1252,20 @@ static const luaL_Reg pk_globals[] = {
{ NULL, NULL },
};
-int luaopen__openssl_pubkey(lua_State *L) {
+int luaopen__openssl_pkey(lua_State *L) {
initall(L);
luaL_newlib(L, pk_globals);
return 1;
+} /* luaopen__openssl_pkey() */
+
+
+/*
+ * Deprecated module name.
+ */
+int luaopen__openssl_pubkey(lua_State *L) {
+ return luaopen__openssl_pkey(L);
} /* luaopen__openssl_pubkey() */
@@ -2461,7 +2469,7 @@ done:
static int xc_getPublicKey(lua_State *L) {
X509 *crt = checksimple(L, 1, X509_CERT_CLASS);
- EVP_PKEY **key = prepsimple(L, PUBKEY_CLASS);
+ EVP_PKEY **key = prepsimple(L, PKEY_CLASS);
if (!(*key = X509_get_pubkey(crt)))
return throwssl(L, "x509.cert:getPublicKey");
@@ -2472,7 +2480,7 @@ static int xc_getPublicKey(lua_State *L) {
static int xc_setPublicKey(lua_State *L) {
X509 *crt = checksimple(L, 1, X509_CERT_CLASS);
- EVP_PKEY *key = checksimple(L, 2, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 2, PKEY_CLASS);
if (!X509_set_pubkey(crt, key))
return throwssl(L, "x509.cert:setPublicKey");
@@ -2504,7 +2512,7 @@ static const EVP_MD *xc_signature(lua_State *L, int index, EVP_PKEY *key) {
static int xc_sign(lua_State *L) {
X509 *crt = checksimple(L, 1, X509_CERT_CLASS);
- EVP_PKEY *key = checksimple(L, 2, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 2, PKEY_CLASS);
if (!X509_sign(crt, key, xc_signature(L, 3, key)))
return throwssl(L, "x509.cert:sign");
@@ -2708,7 +2716,7 @@ static int xr_setSubject(lua_State *L) {
static int xr_getPublicKey(lua_State *L) {
X509_REQ *csr = checksimple(L, 1, X509_CSR_CLASS);
- EVP_PKEY **key = prepsimple(L, PUBKEY_CLASS);
+ EVP_PKEY **key = prepsimple(L, PKEY_CLASS);
if (!(*key = X509_REQ_get_pubkey(csr)))
return throwssl(L, "x509.cert:getPublicKey");
@@ -2719,7 +2727,7 @@ static int xr_getPublicKey(lua_State *L) {
static int xr_setPublicKey(lua_State *L) {
X509_REQ *csr = checksimple(L, 1, X509_CSR_CLASS);
- EVP_PKEY *key = checksimple(L, 2, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 2, PKEY_CLASS);
if (!X509_REQ_set_pubkey(csr, key))
return throwssl(L, "x509.csr:setPublicKey");
@@ -2732,7 +2740,7 @@ static int xr_setPublicKey(lua_State *L) {
static int xr_sign(lua_State *L) {
X509_REQ *csr = checksimple(L, 1, X509_CSR_CLASS);
- EVP_PKEY *key = checksimple(L, 2, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 2, PKEY_CLASS);
if (!X509_REQ_sign(csr, key, xc_signature(L, 3, key)))
return throwssl(L, "x509.csr:sign");
@@ -3309,7 +3317,7 @@ static int sx_setCertificate(lua_State *L) {
static int sx_setPrivateKey(lua_State *L) {
SSL_CTX *ctx = checksimple(L, 1, SSL_CTX_CLASS);
- EVP_PKEY *key = checksimple(L, 2, PUBKEY_CLASS);
+ EVP_PKEY *key = checksimple(L, 2, PKEY_CLASS);
/*
* NOTE: No easy way to dup the key, but a shared reference should
@@ -4214,7 +4222,7 @@ static void initall(lua_State *L) {
pthread_mutex_unlock(&mutex);
addclass(L, BIGNUM_CLASS, bn_methods, bn_metatable);
- addclass(L, PUBKEY_CLASS, pk_methods, pk_metatable);
+ addclass(L, PKEY_CLASS, pk_methods, pk_metatable);
addclass(L, X509_NAME_CLASS, xn_methods, xn_metatable);
addclass(L, X509_GENS_CLASS, gn_methods, gn_metatable);
addclass(L, X509_CERT_CLASS, xc_methods, xc_metatable);
diff --git a/src/openssl.pubkey.lua b/src/openssl.pubkey.lua
index 6dc5614..2cbd6d2 100644
--- a/src/openssl.pubkey.lua
+++ b/src/openssl.pubkey.lua
@@ -1,4 +1,4 @@
-local pubkey = require"_openssl.pubkey"
+local pkey = require"_openssl.pkey"
-return pubkey
+return pkey
generated by cgit v1.2.3-59-g8ed1b (git 2.39.0) at 2024-12-26 18:47:02 +0000