Initial commit

.gitignore

@@ -0,0 +1 @@
+_build

rebar.config

@@ -0,0 +1 @@
+{escript_emu_args, "%%! +sbtu +A0 -noshell -boot start_clean\n"}.

rebar.lock

@@ -0,0 +1 @@
+[].

src/genecpubkey.app.src

@@ -0,0 +1,17 @@
+{application, genecpubkey, [
+    {description, "Generate PEM file with EC Public key from EC Private key"},
+    {vsn, "0"},
+    {registered, []},
+    {applications, [
+        kernel,
+        stdlib,
+        public_key
+    ]},
+    {env, []},
+    {modules, []},
+    {maintainers, [
+        "Andrew Mayorov <a.mayorov@rbkmoney.com>"
+    ]},
+    {licenses, []},
+    {links, []}
+]}.

src/genecpubkey.erl

@@ -0,0 +1,16 @@
+-module(genecpubkey).
+
+-export([main/1]).
+
+-spec main([string()]) -> no_return().
+
+main([PrivKeyPEMFilename, PubKeyPEMFilename]) ->
+    {ok, PrivKeyPEMBin} = file:read_file(PrivKeyPEMFilename),
+    [PrivKeyPEMEntry] = public_key:pem_decode(PrivKeyPEMBin),
+    [PrivKeyPEMEntry] = public_key:pem_decode(PrivKeyPEMBin),
+    PrivKey = public_key:pem_entry_decode(PrivKeyPEMEntry),
+    {'ECPrivateKey', 1, _, ECParams, PublicKey} = PrivKey,
+    PubKey = {{'ECPoint', PublicKey}, ECParams},
+    PubKeyPEMEntry = public_key:pem_entry_encode('SubjectPublicKeyInfo', PubKey),
+    PubKeyPEMBin = public_key:pem_encode([PubKeyPEMEntry]),
+    ok = file:write_file(PubKeyPEMFilename, PubKeyPEMBin).