signature is {r,s}

synrc · Aug 2, 2023 · f47bb4a · f47bb4a
1 parent 5e49469
commit f47bb4a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/lib/CAdES.ex b/lib/CAdES.ex
@@ -24,7 +24,8 @@ defmodule CA.CAdES do
   def readSignature() do
       name = "priv/CAdES/CAdES-X-CA.p7s"
       {:ok, bin} = :file.read_file name
-      :io.format '~p~n', [parseSignData(bin)]
+      ber = parseSignData(bin)
+      ber
   end
 
   def extract(code, person) do

diff --git a/lib/ecdsa.ex b/lib/ecdsa.ex
@@ -19,6 +19,12 @@ defmodule CA.ECDSA do
           [point, :crypto.ec_curve(:pubkey_cert_records.namedCurves(oid))])
   end
 
+  def signature(name) do
+      {:ok, sig} = :file.read_file name
+      {{_,[{_,r},{_,s}]},""} = :asn1rt_nif.decode_ber_tlv sig
+      {r,s}
+  end
+
   def sign(file, priv) do
       {:ok, msg} = :file.read_file file
       {:ok, key} = :file.read_file priv