Question

我试图在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结束签名消息？

我试图关注我发现的一些代码snipets，但是在调用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)

现在我想我已经完成了。

使用PKCS7_sign在FoxPro中签名邮件

0 个答案: