blob: d9f3620f1c50f9e4b22a0849d90b0cddf4cada57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
-module(plop_compat).
-export([unpack_spki/1]).
-include_lib("public_key/include/public_key.hrl").
unpack_spki(SPKI) ->
unpack_spki(erlang:system_info(otp_release), SPKI).
unpack_spki("17", SPKI) ->
#'SubjectPublicKeyInfo'{subjectPublicKey = {_, Octets},
algorithm = Algorithm} = SPKI,
{Octets, Algorithm};
unpack_spki("18", SPKI) ->
#'SubjectPublicKeyInfo'{subjectPublicKey = Octets,
algorithm = Algorithm} = SPKI,
{Octets, Algorithm}.
|