20 lines
636 B
Elixir
20 lines
636 B
Elixir
defmodule Clacks.Keys do
|
|
def generate_rsa_pem() do
|
|
key = :public_key.generate_key({:rsa, 2048, 65_537})
|
|
entry = :public_key.pem_entry_encode(:RSAPrivateKey, key)
|
|
pem = :public_key.pem_encode([entry]) |> String.trim_trailing()
|
|
{:ok, pem}
|
|
end
|
|
|
|
def keys_from_pem(pem) do
|
|
with [private_key_code] <- :public_key.pem_decode(pem),
|
|
private_key <- :public_key.pem_entry_decode(private_key_code),
|
|
{:RSAPrivateKey, _, modulus, exponent, _, _, _, _, _, _, _} <- private_key do
|
|
{:ok, private_key, {:RSAPublicKey, modulus, exponent}}
|
|
else
|
|
error ->
|
|
{:error, error}
|
|
end
|
|
end
|
|
end
|