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_to.c | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/sbearssl/sbearssl_rsa_skey_to.c

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

diff --git a/src/sbearssl/sbearssl_rsa_skey_to.c b/src/sbearssl/sbearssl_rsa_skey_to.c
new file mode 100644
index 0000000..3c4139b
--- /dev/null
+++ b/src/sbearssl/sbearssl_rsa_skey_to.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <bearssl.h>
+#include <s6-networking/sbearssl.h>
+
+void sbearssl_rsa_skey (sbearssl_rsa_skey const *l, br_rsa_private_key *k, char const *s)
+{
+  k->n_bitlen = l->n_bitlen ;
+  k->p = s + l->p ;
+  k->plen = l->plen ;
+  k->q = s + l->q ;
+  k->qlen = l->qlen ;
+  k->dp = s + l->dp ;
+  k->dplen = l->dplen ;
+  k->dq = s + l->dq ;
+  k->dqlen = l->dqlen ;
+  k->iq = s + l->iq ;
+  k->iqlen = l->iqlen ;
+}
-- 
cgit v1.3.1