在 Erlang 中解码 PGP 密钥

Question

我无法在 Erlang 中“pem_entry_decode”GPG 公钥。通过 OpenSSL 生成的公钥工作正常。我已经按照Erlang - 导入 GPG 公钥中的建议修复了 GPG 密钥。

#!/usr/local/bin/escript

main(_) ->
  [application:start(X) || X <- [crypto, public_key, ssl]],
  Msg = list_to_binary("Hello World!"),
  %{ok, FileContents} = file:read_file("public_openssl.pem"),
  {ok, FileContents} = file:read_file("public_gpg.asc"),
  show(FileContents),
  [Entry] = public_key:pem_decode(FileContents),
  show(Entry),
  Key = public_key:pem_entry_decode(Entry),
  show(Key),
  EM = public_key:encrypt_public(Msg, Key),
  show(EM).

show(Something) ->
  io:format("~p~n", [Something]).

错误：

escript: exception error: no match of right hand side value 
                 {error,
                     {asn1,
                         {wrong_tag,
                             {{expected,16},{got,131097,{131097,<<"\r">>}}}}}}
  in function  public_key:der_decode/2 (public_key.erl, line 170)
  in call from erl_eval:do_apply/6 (erl_eval.erl, line 572)
  in call from erl_eval:expr/5 (erl_eval.erl, line 367)
  in call from escript:eval_exprs/5 (escript.erl, line 850)
  in call from erl_eval:local_func/5 (erl_eval.erl, line 470)
  in call from escript:interpret/4 (escript.erl, line 768)
  in call from escript:start/1 (escript.erl, line 277)
  in call from init:start_it/1 

Answer 1

来自您：

{ok, FileContents} = file:read_file("public_gpg.asc")

FileContents

，选择前 16 个字符。

Answer 2

PGP 和 GPG 工具按照 RFC4880 以 OpenPGP 消息格式

导出密钥

我没有成功使用内置的 Erlang 工具来解码和解密以 OpenPGP 格式导出的数据。

此存储库实现了 Elixir 中 OpenPGP 消息格式规范的最重要部分 - https://github.com/DivvyPayHQ/open_pgp

本文还将向您介绍所有详细信息 - https://paveltyk.medium.com/openpgp-message-format-in-elixir-5719fb6fd9df