From 018025f0f36a4847df265c9948dbaf7073ed3245 Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Fri, 25 Nov 2016 18:16:05 +0000
Subject:  Alpha version of the SSL work.

 Doesn't build yet, but I'm scared of losing it, so using git as
storage.
 Will fix the stupid bugs now, the tricky bugs later.
---
 src/sbearssl/sbearssl_rsa_skey_from.c | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 src/sbearssl/sbearssl_rsa_skey_from.c

(limited to 'src/sbearssl/sbearssl_rsa_skey_from.c')

diff --git a/src/sbearssl/sbearssl_rsa_skey_from.c b/src/sbearssl/sbearssl_rsa_skey_from.c
new file mode 100644
index 0000000..3e6a04b
--- /dev/null
+++ b/src/sbearssl/sbearssl_rsa_skey_from.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <bearssl.h>
+#include <skalibs/stralloc.h>
+#include <s6-networking/sbearssl.h>
+
+int sbearssl_rsa_skey_from (sbearssl_rsa_skey *l, br_rsa_private_key const *k, stralloc *sa)
+{
+  if (!stralloc_readyplus(k->plen + k->qlen + k->dplen + k->dqlen + k->iqlen)) return 0 ;
+  l->n_bitlen = k->n_bitlen ;
+  l->p = sa->len ;
+  stralloc_catb(sa, k->p, k->plen) ;
+  l->plen = k->plen ;
+  l->q = sa->len ;
+  stralloc_catb(sa, k->q, k->qlen) ;
+  l->qlen = k->qlen ;
+  l->dp = sa->len ;
+  stralloc_catb(sa, k->dp, k->dplen) ;
+  l->dplen = k->dplen ;
+  l->dq = sa->len ;
+  stralloc_catb(sa, k->dq, k->dqlen) ;
+  l->dqlen = k->dqlen ;
+  l->iq = sa->len ;
+  stralloc_catb(sa, k->iq, k->iqlen) ;
+  l->iqlen = k->iqlen ;
+  return 1 ;
+}
-- 
cgit v1.3.1