| 1 | // Copyright (c) 2019-2024 Alexander Medvednikov. All rights reserved. |
| 2 | // Use of this source code is governed by an MIT license |
| 3 | // that can be found in the LICENSE file. |
| 4 | module ecdsa |
| 5 | |
| 6 | // See https://docs.openssl.org/master/man7/openssl_user_macros/#description |
| 7 | // should be 0x30000000L, but a lot of EC_KEY method was deprecated on version 3.0 |
| 8 | // #define OPENSSL_API_COMPAT 0x10100000L |
| 9 | |
| 10 | #flag darwin -L/opt/homebrew/opt/openssl/lib |
| 11 | #flag darwin -I/opt/homebrew/opt/openssl/include |
| 12 | #flag darwin -I/usr/local/opt/openssl/include |
| 13 | #flag darwin -L/usr/local/opt/openssl/lib |
| 14 | |
| 15 | #flag linux -I/usr/local/include/openssl |
| 16 | #flag linux -L/usr/local/lib64/ |
| 17 | |
| 18 | #flag openbsd -I/usr/local/include/eopenssl35 |
| 19 | #flag openbsd -L/usr/local/lib/eopenssl35 -Wl,-rpath,/usr/local/lib/eopenssl35 |
| 20 | |
| 21 | // Installed through choco: |
| 22 | #flag windows -IC:/Program Files/OpenSSL-Win64/include |
| 23 | #flag windows -LC:/Program Files/OpenSSL-Win64/lib/VC/x64/MD |
| 24 | |
| 25 | // Installed on the CI: |
| 26 | #flag windows -IC:/Program Files/OpenSSL/include |
| 27 | #flag windows -LC:/Program Files/OpenSSL/lib/VC/x64/MD |
| 28 | |
| 29 | #flag -I/usr/include/openssl |
| 30 | |
| 31 | #flag -lcrypto |
| 32 | |
| 33 | #include <openssl/ecdsa.h> |
| 34 | #include <openssl/obj_mac.h> |
| 35 | #include <openssl/bn.h> |
| 36 | #include <openssl/evp.h> |
| 37 | #include <openssl/ec.h> |
| 38 | #include <openssl/x509.h> |
| 39 | #include <openssl/bio.h> |
| 40 | #include <openssl/pem.h> |
| 41 | #include <openssl/param_build.h> |
| 42 | |
| 43 | // The following header is available on OpenSSL 3.0, but not in OpenSSL 1.1.1f |
| 44 | //#include <openssl/core.h> |
| 45 | |
| 46 | // NID constants for elliptic curves |
| 47 | pub const C.NID_X9_62_prime256v1 int |
| 48 | pub const C.NID_secp384r1 int |
| 49 | pub const C.NID_secp521r1 int |
| 50 | pub const C.NID_secp256k1 int |
| 51 | pub const C.NID_X9_62_id_ecPublicKey int // The new opaque of public key pair high level API |
| 52 | |
| 53 | @[typedef] |
| 54 | struct C.EVP_PKEY {} |
| 55 | |
| 56 | fn C.EVP_PKEY_new() &C.EVP_PKEY |
| 57 | fn C.EVP_PKEY_free(key &C.EVP_PKEY) |
| 58 | fn C.EVP_PKEY_base_id(key &C.EVP_PKEY) i32 |
| 59 | fn C.EVP_PKEY_bits(pkey &C.EVP_PKEY) i32 |
| 60 | fn C.EVP_PKEY_size(key &C.EVP_PKEY) i32 |
| 61 | fn C.EVP_PKEY_eq(a &C.EVP_PKEY, b &C.EVP_PKEY) i32 |
| 62 | fn C.EVP_PKEY_check(ctx &C.EVP_PKEY_CTX) i32 |
| 63 | fn C.EVP_PKEY_public_check(ctx &C.EVP_PKEY_CTX) i32 |
| 64 | fn C.EVP_PKEY_dup(key &C.EVP_PKEY) &C.EVP_PKEY |
| 65 | fn C.EVP_PKEY_set_bn_param(pkey &C.EVP_PKEY, key_name &char, bn &C.BIGNUM) i32 |
| 66 | |
| 67 | fn C.EVP_PKEY_get_group_name(pkey &C.EVP_PKEY, gname &u8, gname_sz u32, gname_len &usize) i32 |
| 68 | fn C.EVP_PKEY_get1_encoded_public_key(pkey &C.EVP_PKEY, ppub &&u8) usize |
| 69 | fn C.EVP_PKEY_get_bn_param(pkey &C.EVP_PKEY, key_name &char, bn &&C.BIGNUM) i32 |
| 70 | fn C.EVP_PKEY_fromdata_init(ctx &C.EVP_PKEY_CTX) i32 |
| 71 | fn C.EVP_PKEY_fromdata(ctx &C.EVP_PKEY_CTX, ppkey &&C.EVP_PKEY, selection i32, params &C.OSSL_PARAM) i32 |
| 72 | |
| 73 | // no-prehash signing (verifying) |
| 74 | fn C.EVP_PKEY_sign(ctx &C.EVP_PKEY_CTX, sig &u8, siglen &usize, tbs &u8, tbslen i32) i32 |
| 75 | fn C.EVP_PKEY_sign_init(ctx &C.EVP_PKEY_CTX) i32 |
| 76 | fn C.EVP_PKEY_verify_init(ctx &C.EVP_PKEY_CTX) i32 |
| 77 | fn C.EVP_PKEY_verify(ctx &C.EVP_PKEY_CTX, sig &u8, siglen i32, tbs &u8, tbslen i32) i32 |
| 78 | |
| 79 | // single shoot digest signing (verifying) routine |
| 80 | fn C.EVP_DigestSign(ctx &C.EVP_MD_CTX, sig &u8, siglen &usize, tbs &u8, tbslen i32) i32 |
| 81 | fn C.EVP_DigestVerify(ctx &C.EVP_MD_CTX, sig &u8, siglen i32, tbs &u8, tbslen i32) i32 |
| 82 | |
| 83 | // Message digest routines |
| 84 | fn C.EVP_DigestInit(ctx &C.EVP_MD_CTX, md &C.EVP_MD) i32 |
| 85 | fn C.EVP_DigestUpdate(ctx &C.EVP_MD_CTX, d voidptr, cnt i32) i32 |
| 86 | fn C.EVP_DigestFinal(ctx &C.EVP_MD_CTX, md &u8, s &u32) i32 |
| 87 | |
| 88 | // Recommended hashed signing/verifying routines |
| 89 | fn C.EVP_DigestSignInit(ctx &C.EVP_MD_CTX, pctx &&C.EVP_PKEY_CTX, tipe &C.EVP_MD, e voidptr, pkey &C.EVP_PKEY) i32 |
| 90 | fn C.EVP_DigestSignUpdate(ctx &C.EVP_MD_CTX, d voidptr, cnt i32) i32 |
| 91 | fn C.EVP_DigestSignFinal(ctx &C.EVP_MD_CTX, sig &u8, siglen &usize) i32 |
| 92 | fn C.EVP_DigestVerifyInit(ctx &C.EVP_MD_CTX, pctx &&C.EVP_PKEY_CTX, tipe &C.EVP_MD, e voidptr, pkey &C.EVP_PKEY) i32 |
| 93 | fn C.EVP_DigestVerifyUpdate(ctx &C.EVP_MD_CTX, d voidptr, cnt i32) i32 |
| 94 | fn C.EVP_DigestVerifyFinal(ctx &C.EVP_MD_CTX, sig &u8, siglen i32) i32 |
| 95 | |
| 96 | // EVP_PKEY Context |
| 97 | @[typedef] |
| 98 | struct C.EVP_PKEY_CTX {} |
| 99 | |
| 100 | fn C.EVP_PKEY_CTX_new(pkey &C.EVP_PKEY, e voidptr) &C.EVP_PKEY_CTX |
| 101 | fn C.EVP_PKEY_CTX_new_id(id i32, e voidptr) &C.EVP_PKEY_CTX |
| 102 | fn C.EVP_PKEY_keygen_init(ctx &C.EVP_PKEY_CTX) i32 |
| 103 | fn C.EVP_PKEY_keygen(ctx &C.EVP_PKEY_CTX, ppkey &&C.EVP_PKEY) i32 |
| 104 | fn C.EVP_PKEY_CTX_set_ec_paramgen_curve_nid(ctx &C.EVP_PKEY_CTX, nid i32) i32 |
| 105 | fn C.EVP_PKEY_CTX_set_ec_param_enc(ctx &C.EVP_PKEY_CTX, param_enc i32) i32 |
| 106 | fn C.EVP_PKEY_CTX_free(ctx &C.EVP_PKEY_CTX) |
| 107 | |
| 108 | fn C.EVP_PKEY_get_bits(pkey &C.EVP_PKEY) i32 |
| 109 | |
| 110 | // BIO input output declarations. |
| 111 | @[typedef] |
| 112 | struct C.BIO_METHOD {} |
| 113 | |
| 114 | @[typedef] |
| 115 | pub struct C.BIO {} |
| 116 | |
| 117 | fn C.BIO_new(t &C.BIO_METHOD) &C.BIO |
| 118 | fn C.BIO_free_all(a &C.BIO) |
| 119 | fn C.BIO_s_mem() &C.BIO_METHOD |
| 120 | fn C.BIO_write(b &C.BIO, buf &u8, length i32) i32 |
| 121 | fn C.PEM_read_bio_PrivateKey(bp &C.BIO, x &&C.EVP_PKEY, cb i32, u &voidptr) &C.EVP_PKEY |
| 122 | fn C.PEM_read_bio_PUBKEY(bp &C.BIO, x &&C.EVP_PKEY, cb i32, u &voidptr) &C.EVP_PKEY |
| 123 | fn C.PEM_write_bio_PUBKEY(bp &C.BIO, x &C.EVP_PKEY) i32 |
| 124 | fn C.d2i_PUBKEY(k &&C.EVP_PKEY, pp &&u8, length u32) &C.EVP_PKEY |
| 125 | fn C.i2d_PUBKEY_bio(bo &C.BIO, pkey &C.EVP_PKEY) i32 |
| 126 | fn C.d2i_PUBKEY_bio(bo &C.BIO, key &&C.EVP_PKEY) &C.EVP_PKEY |
| 127 | |
| 128 | // Elliptic curve point related declarations. |
| 129 | @[typedef] |
| 130 | struct C.EC_POINT {} |
| 131 | |
| 132 | fn C.EC_POINT_new(group &C.EC_GROUP) &C.EC_POINT |
| 133 | fn C.EC_POINT_mul(group &C.EC_GROUP, r &C.EC_POINT, n &C.BIGNUM, q &C.EC_POINT, m &C.BIGNUM, ctx &C.BN_CTX) i32 |
| 134 | fn C.EC_POINT_point2buf(group &C.EC_GROUP, point &C.EC_POINT, form i32, pbuf &&u8, ctx &C.BN_CTX) usize |
| 135 | fn C.EC_POINT_free(point &C.EC_POINT) |
| 136 | |
| 137 | // Elliptic group (curve) related declarations. |
| 138 | @[typedef] |
| 139 | struct C.EC_GROUP {} |
| 140 | |
| 141 | fn C.EC_GROUP_free(group &C.EC_GROUP) |
| 142 | fn C.EC_GROUP_new_by_curve_name(nid i32) &C.EC_GROUP |
| 143 | |
| 144 | // Elliptic BIGNUM related declarations. |
| 145 | @[typedef] |
| 146 | struct C.BIGNUM {} |
| 147 | |
| 148 | fn C.BN_new() &C.BIGNUM |
| 149 | fn C.BN_num_bits(a &C.BIGNUM) i32 |
| 150 | fn C.BN_bn2bin(a &C.BIGNUM, to &u8) i32 |
| 151 | fn C.BN_bn2binpad(a &C.BIGNUM, to &u8, tolen i32) i32 |
| 152 | fn C.BN_cmp(a &C.BIGNUM, b &C.BIGNUM) i32 |
| 153 | fn C.BN_bin2bn(s &u8, len i32, ret &C.BIGNUM) &C.BIGNUM |
| 154 | fn C.BN_free(a &C.BIGNUM) |
| 155 | |
| 156 | // BIGNUM context |
| 157 | @[typedef] |
| 158 | struct C.BN_CTX {} |
| 159 | |
| 160 | fn C.BN_CTX_new() &C.BN_CTX |
| 161 | fn C.BN_CTX_free(ctx &C.BN_CTX) |
| 162 | |
| 163 | @[typedef] |
| 164 | struct C.EVP_MD_CTX {} |
| 165 | |
| 166 | fn C.EVP_MD_CTX_new() &C.EVP_MD_CTX |
| 167 | fn C.EVP_MD_CTX_free(ctx &C.EVP_MD_CTX) |
| 168 | |
| 169 | // Wrapper of digest and signing related of the C opaque and functions. |
| 170 | @[typedef] |
| 171 | struct C.EVP_MD {} |
| 172 | |
| 173 | fn C.EVP_sha256() &C.EVP_MD |
| 174 | fn C.EVP_sha384() &C.EVP_MD |
| 175 | fn C.EVP_sha512() &C.EVP_MD |
| 176 | fn C.EVP_MD_get_size(md &C.EVP_MD) i32 // -1 failure |
| 177 | |
| 178 | fn C.OPENSSL_free(addr voidptr) |
| 179 | |
| 180 | @[typedef] |
| 181 | struct C.OSSL_PARAM {} |
| 182 | |
| 183 | @[typedef] |
| 184 | struct C.OSSL_PARAM_BLD {} |
| 185 | |
| 186 | fn C.OSSL_PARAM_free(params &C.OSSL_PARAM) |
| 187 | fn C.OSSL_PARAM_BLD_free(param_bld &C.OSSL_PARAM_BLD) |
| 188 | fn C.OSSL_PARAM_BLD_new() &C.OSSL_PARAM_BLD |
| 189 | fn C.OSSL_PARAM_BLD_push_utf8_string(bld &C.OSSL_PARAM_BLD, key &char, buf &char, bsize usize) i32 |
| 190 | fn C.OSSL_PARAM_BLD_push_BN(bld &C.OSSL_PARAM_BLD, key &char, bn &C.BIGNUM) i32 |
| 191 | fn C.OSSL_PARAM_BLD_push_octet_string(bld &C.OSSL_PARAM_BLD, key &char, buf voidptr, bsize usize) i32 |
| 192 | fn C.OSSL_PARAM_BLD_to_param(bld &C.OSSL_PARAM_BLD) &C.OSSL_PARAM |
| 193 | |