TLS

synrc · Oct 25, 2024 · 7000913 · 7000913
1 parent 2d45306
commit 7000913
Show file tree

Hide file tree

Showing 7 changed files with 16 additions and 12 deletions.
diff --git a/lib/application.ex b/lib/application.ex
@@ -15,9 +15,8 @@ defmodule CA do
 
   def start(_type, _args) do
       :logger.add_handlers(:ca)
-      children = [ { Bandit, scheme: :http, port: 8047, plug: CA.EST } ]
-      CA.CMP.start ; CA.CMC.start ; CA.TSP.start ; CA.OCSP.start
-      Supervisor.start_link(children, strategy: :one_for_one, name: CA.Supervisor)
+      :lists.foldl(fn service, _ -> {:ok, _} = service.start() end, [],
+          [ CA.CMP, CA.TSP, CA.OCSP, CA.CMC, CA.EST ])
   end
 
 end
diff --git a/lib/services/cmc.ex b/lib/services/cmc.ex
@@ -1,9 +1,9 @@
 defmodule CA.CMC do
-    @moduledoc "CA/CMC TLS server."
+    @moduledoc "CA/CMC TLS TCP server."
     require CA
 
     def code(),  do: :binary.encode_hex(:crypto.strong_rand_bytes(8))
-    def start(), do: :erlang.spawn(fn -> listen(1839) end)
+    def start(), do: {:ok, :erlang.spawn(fn -> listen(1839) end)}
 
     def listen(port) do
         {:ok, socket} = :gen_tcp.listen(port,

diff --git a/lib/services/cmp.ex b/lib/services/cmp.ex
@@ -14,7 +14,7 @@ defmodule CA.CMP do
            {p1,{p21,p22,{:namedCurve,{1,3,132,0,34}}},p3},b,c,ext},ai,code}
   end
 
-  def start(), do: :erlang.spawn(fn -> listen(1829) end)
+  def start(), do: {:ok, :erlang.spawn(fn -> listen(1829) end)}
 
   def listen(port) do
       {:ok, socket} = :gen_tcp.listen(port,

diff --git a/lib/services/est.ex b/lib/services/est.ex
@@ -1,10 +1,15 @@
 defmodule CA.EST do
-  @moduledoc "CA/EST server."
+  @moduledoc "CA/EST TLS HTTP server."
   use Plug.Router
   plug :match
   plug :dispatch
   plug Plug.Parsers, parsers: [:json], json_decoder: Jason
 
+  def start() do 
+      children = [ { Bandit, scheme: :http, port: 8047, plug: __MODULE__ } ]
+      Supervisor.start_link(children, strategy: :one_for_one, name: CA.Supervisor)
+  end
+
   # Authority PKI X.509 EST RFC 7030
 
   post "/.well-known/est/simpleenroll" do CA.EST.Post.post(conn, [], "Authority", [], "ENROLL") end

diff --git a/lib/services/ocsp.ex b/lib/services/ocsp.ex
@@ -1,9 +1,9 @@
 defmodule CA.OCSP do
-    @moduledoc "CA/OCSP server."
+    @moduledoc "CA/OCSP TCP server."
     require CA
 
     def code(),  do: :binary.encode_hex(:crypto.strong_rand_bytes(8))
-    def start(), do: :erlang.spawn(fn -> listen(1859) end)
+    def start(), do: {:ok, :erlang.spawn(fn -> listen(1859) end)}
 
     def listen(port) do
         {:ok, socket} = :gen_tcp.listen(port,

diff --git a/lib/services/tsp.ex b/lib/services/tsp.ex
@@ -1,9 +1,9 @@
 defmodule CA.TSP do
-    @moduledoc "CA/TSP server."
+    @moduledoc "CA/TSP TCP server."
     require CA
 
     def code(),  do: :binary.encode_hex(:crypto.strong_rand_bytes(8))
-    def start(), do: :erlang.spawn(fn -> listen(1849) end)
+    def start(), do: {:ok, :erlang.spawn(fn -> listen(1849) end)}
 
     def listen(port) do
         {:ok, socket} = :gen_tcp.listen(port,

diff --git a/lib/signing/CAdES.ex b/lib/signing/CAdES.ex
@@ -103,7 +103,7 @@ defmodule CA.CAdES do
 
   def parseCert(cert, []), do: parseCert(cert)
   def parseCert(cert, [si|_]) do
-      {:SignerInfo, _v, serial, _alg, attrs, _, _, _} = si
+      {:SignerInfo, _v, _serial, _alg, attrs, _, _, _} = si
       {:Certificate, a, _, _} = cert
       {:Certificate_toBeSigned, _ver, _sel, _alg, issuer, _val, issuee, _a, _b, _c, exts} = a
       extensions = :lists.map(fn {:Extension,code,_x,b} ->