3

我正在尝试在 FoxPro 中使用来自 libeay32 的 PKCS7_sign，但对加密知之甚少。

我有以下内容：

具有此（公钥）的字符串变量：

-----BEGIN RSA PRIVATE KEY-----
MIICXAIBAAKBgQCai5tzRyUbP32sY/16acr+isSBTW/k/t6DA5lcTKQ3P9r+Wlns
...
na1O9rEZAskh7LeVKVMGxszSFfR91EuQpkw3HT5ynCU=
-----END RSA PRIVATE KEY-----

带有此（证书）的字符串变量：

-----BEGIN CERTIFICATE-----
Yjs6K/HUQzQQ0fnRhpKYLHY2kOUB5SwNwNEC7isEUBkDNnuh52ZEpSI/fN+4PONN
...
HvCAaD4WhNInP+kwYAKx+5nOHXhL8omgpKgvRGX8
-----END CERTIFICATE-----

带有如下消息的字符串变量：

<?xml version="1.0" encoding="UTF8"?>
<loginTicketRequest version="1.0">
...
</loginTicketRequest>

如何使用 PKCS7_sign 获得签名消息？

我试图遵循我发现的一些代码片段，但在调用 PKCS7_sign 时我不断收到异常。

我用过：

BIO_new(BIO_s_mem())
PEM_read_bio_PrivateKey
PEM_read_bio_X509_AUX
BIO_new_mem_buf

但真的没有太多想法或理解我在做什么或为什么做。PKCS7_sign 的签名是

PKCS7_sign(X509 *signcert, EVP_PKEY *pkey, STACK_OF(X509) *certs, BIO *data, int flags)

我认为问题在于获取我所拥有的密钥和证书数据，我理解的是 PEM 格式，X509 和 EVP_PKEY 格式。

稍后更新几个小时和 1000 杯咖啡：

我终于设法把它拉出来了。由于我基本上是在黑暗中拍摄，我不知道代码是否有问题，这是我到目前为止所拥有的，它的工作原理：

Lparameters pXml

Declare SSL_library_init In 'ssleay32.dll'

Declare BIO_free In 'libeay32.dll' Integer bio

Declare Integer BIO_s_mem In 'libeay32.dll'

Declare Integer BIO_new In 'libeay32.dll' Integer Type

Declare EVP_PKEY_free In 'libeay32.dll' Integer ikey

Declare X509_free In 'libeay32.dll' Integer a

Declare Integer PKCS7_sign In 'libeay32.dll' Integer signcert, Integer ikey, Integer certs, Integer bio, Integer iflags

Declare Integer PEM_read_bio_PrivateKey In 'libeay32.dll' Integer bio, Integer x, Integer cb, String u

Declare Integer PEM_read_bio_X509 In 'libeay32.dll' Integer bio, Integer x, Integer cb, Integer u

Declare Integer BIO_new_mem_buf In 'libeay32.dll' String buf, Integer ilen

Declare Integer PEM_write_bio_PKCS7 In 'libeay32.dll' Integer bio, Integer x

Declare Integer BIO_read In 'libeay32.dll' Integer bio, String @buf, Integer ilen

SSL_library_init()

m.cbuf = Filetostr(This.UtilGetPath() + This.Cuit + '.crt')
m.kbuf = Filetostr(This.UtilGetPath() + This.Cuit + '.key')

m.bioc = BIO_new_mem_buf(m.cbuf, Len(m.cbuf))

m.fc = PEM_read_bio_X509(m.bioc, 0, 0, 0)

m.biok = BIO_new_mem_buf(m.kbuf, Len(m.kbuf))

m.fk = PEM_read_bio_PrivateKey(m.biok, 0, 0, 0)

m.biom = BIO_new_mem_buf(m.pXml, Len(pXml))

m.smsg  = PKCS7_sign(m.fc, m.fk, 0, m.biom, PKCS7_NOATTR)

m.bios = BIO_new(BIO_s_mem())

PEM_write_bio_PKCS7(m.bios, m.smsg)

m.buf = Space(4096)

m.nlen = BIO_read(bios, @m.buf, Len(m.buf))

m.buf = Left(m.buf, nlen)

BIO_free(m.bios)
BIO_free(m.biok)
BIO_free(m.bioc)
BIO_free(m.biom)
X509_free(m.fc)
EVP_PKEY_free(m.fk)

m.buf = Strextract(m.buf, '-----BEGIN PKCS7-----' + 0h0a, '-----END PKCS7-----')

Return m.buf

我看到的问题之一（我确信还有其他问题）是我没有从 PKCS7_sign 中释放结果。在这种情况下如何释放 m.smsg？我在它上面试过 BIO_free 但它当然不起作用，一定有一些函数可以释放 PKCS7 结构。

我不喜欢的另一件事是使用 BIO_read，但我无法使用 BIO_get_mem_data。

更新 2

我发现 PKCS7_free 并发现 BIO_get_mem_data 是 BIO_ctrl 的宏，所以我现在有：

m.lnLen = BIO_ctrl(m.bios, BIO_CTRL_INFO, 0, @m.parg)

要获取指向数据和长度的指针，最后我也会这样做

PKCS7_free(m.smsg)

现在我想我已经完成了。

4

0 回答 0