diff options
author | Kim Alvefur <zash@zash.se> | 2014-04-24 23:38:47 +0200 |
---|---|---|
committer | Kim Alvefur <zash@zash.se> | 2014-04-24 23:38:47 +0200 |
commit | ab02eadc12639d351a877dbb2fd1efdd7c8f3cd0 (patch) | |
tree | da5105a006e8e2b3cf53cc96d96e679077987904 /util | |
parent | 6316aef5bb993b6d3c6d21d6a4068a540f8c816c (diff) | |
download | prosody-ab02eadc12639d351a877dbb2fd1efdd7c8f3cd0.tar.gz prosody-ab02eadc12639d351a877dbb2fd1efdd7c8f3cd0.zip |
util.x509: And functions for converting between DER and PEM
Diffstat (limited to 'util')
-rw-r--r-- | util/x509.lua | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/util/x509.lua b/util/x509.lua index 857f02a4..1a4f5f38 100644 --- a/util/x509.lua +++ b/util/x509.lua @@ -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 @@ function verify_identity(host, service, cert) 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; |