1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
%%% Copyright (c) 2016, NORDUnet A/S.
%%% See LICENSE for licensing information.
-module(catlfish_compat).
-export([unpack_issuer/1, unpack_signature/1, poison_val/1]).
-include_lib("public_key/include/public_key.hrl").
unpack_issuer(Issuer) ->
unpack_issuer(erlang:system_info(otp_release), Issuer).
unpack_signature(Signature) ->
unpack_signature(erlang:system_info(otp_release), Signature).
poison_val(Value) ->
poison_val(erlang:system_info(otp_release), Value).
%% @doc Dig out alg, params and key from issuer.
unpack_issuer("R16" ++ _, Issuer) ->
#'SubjectPublicKeyInfo'{
algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params},
subjectPublicKey = {0, Key}} = Issuer,
{Alg, Params, Key};
unpack_issuer("17", Issuer) ->
#'SubjectPublicKeyInfo'{
algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params},
subjectPublicKey = {0, Key}} = Issuer,
{Alg, Params, Key};
unpack_issuer("18", Issuer) ->
#'SubjectPublicKeyInfo'{
algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params},
subjectPublicKey = Key} = Issuer,
{Alg, Params, Key};
unpack_issuer("19", Issuer) ->
#'SubjectPublicKeyInfo'{
algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params},
subjectPublicKey = Key} = Issuer,
{Alg, Params, Key}.
%% @doc Unpack a #'Certificate'.signature, return the signature.
unpack_signature("R16" ++ _, Signature) ->
{_, Sig} = Signature,
Sig;
unpack_signature("17", Signature) ->
{_, Sig} = Signature,
Sig;
unpack_signature("18", Signature) ->
Signature;
unpack_signature("19", Signature) ->
Signature.
%% Use a list for R17 and a binary for newer versions.
poison_val("R16" ++ _, Val) ->
Val;
poison_val("17", Val) ->
Val;
poison_val("18", Val) ->
list_to_binary(Val);
poison_val("19", Val) ->
list_to_binary(Val).
|
