hans/racket-self-signed-cert
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-10 17:24:53 +01:00
parent b885410c2c
commit 2eb6b7fa67
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
private/self-signed-cert.rkt
View File

@@ -169,6 +169,7 @@
(RSA_generate_key (_fun _int _int _gen_rsa_cb _pointer -> _RSA-pointer)) (RSA_generate_key (_fun _int _int _gen_rsa_cb _pointer -> _RSA-pointer))
(EVP_PKEY_assign (_fun _EVP_PKEY-pointer _int _RSA-pointer -> _int)) (EVP_PKEY_assign (_fun _EVP_PKEY-pointer _int _RSA-pointer -> _int))
(EVP_sha1 (_fun -> _EVP_MD-pointer)) (EVP_sha1 (_fun -> _EVP_MD-pointer))
(EVP_sha256 (_fun -> _EVP_MD-pointer))
(X509_new (_fun -> _X509-pointer)) (X509_new (_fun -> _X509-pointer))
(X509_free (_fun _X509-pointer -> _void)) (X509_free (_fun _X509-pointer -> _void))
@@ -282,7 +283,7 @@
) )
) )
(when (= (X509_sign x509 pkey (EVP_sha1)) 0) (when (= (X509_sign x509 pkey (EVP_sha256)) 0)
(X509_free x509) (X509_free x509)
(error "Error signing certificate")) (error "Error signing certificate"))