# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1398375527 -7200
# Node ID fbab74c28e3151b08c0b8d8253e80831d24bda09
# Parent  2ae6e9063e88870b713e1ceaa7408ce5163596e7
util.x509: And functions for converting between DER and PEM

diff -r 2ae6e9063e88 -r fbab74c28e31 util/x509.lua
--- a/util/x509.lua	Wed Apr 23 00:22:36 2014 +0200
+++ b/util/x509.lua	Thu Apr 24 23:38:47 2014 +0200
@@ -20,6 +20,7 @@
 
 local nameprep = require "util.encodings".stringprep.nameprep;
 local idna_to_ascii = require "util.encodings".idna.to_ascii;
+local base64 = require "util.encodings".base64;
 local log = require "util.logger".init("x509");
 local pairs, ipairs = pairs, ipairs;
 local s_format = string.format;
@@ -214,4 +215,23 @@
 	return false
 end
 
+local pat = "%-%-%-%-%-BEGIN ([A-Z ]+)%-%-%-%-%-\r?\n"..
+"([0-9A-Za-z+/=\r\n]*)\r?\n%-%-%-%-%-END %1%-%-%-%-%-";
+
+function pem2der(pem)
+	local typ, data = pem:match(pat);
+	if typ and data then
+		return base64.decode(data), typ;
+	end
+end
+
+local wrap = ('.'):rep(64);
+local envelope = "-----BEGIN %s-----\n%s\n-----END %s-----\n"
+
+function der2pem(data, typ)
+	typ = typ and typ:upper() or "CERTIFICATE";
+	data = base64.encode(data);
+	return s_format(envelope, typ, data:gsub(wrap, '%0\n', (#data-1)/64), typ);
+end
+
 return _M;