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

Struggling with BIO mem function and utf 8 conversion

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-12 12:35:22 +02:00
parent b62d91901b
commit 4f3e85b864
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -213,7 +213,10 @@
(BIO_get_mem_data (λ (bio-ptr) (BIO_get_mem_data (λ (bio-ptr)
(let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0))) (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
(let ((r* (subbytes (cadr r) 0 (car r)))) (let ((r* (subbytes (cadr r) 0 (car r))))
r*)))) (write r*)(newline)
(let ((r** (bytes->string/utf-8 r*)))
(write r**)(newline)
r**)))))
(ASN1_OCTET_STRING_new (λ () (ASN1_OCTET_STRING_new (λ ()
(ASN1_STRING_type_new V_ASN1_OCTET_STRING))) (ASN1_STRING_type_new V_ASN1_OCTET_STRING)))
) )