diff options
| author | Linus Nordberg <linus@nordu.net> | 2016-01-19 16:55:12 +0100 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2016-01-19 16:55:12 +0100 |
| commit | 2284984acf03ee8d5b9c748d0ac6377df9c08c30 (patch) | |
| tree | 40334c93ce6f9cf7f5b2ed43ecf749779f477e60 /src/x509.erl | |
| parent | f1fb5a44dd8f1560040cccaf455d5786326bf264 (diff) | |
Add compatibility layer for digging around in non-public data structures.
Diffstat (limited to 'src/x509.erl')
| -rw-r--r-- | src/x509.erl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/x509.erl b/src/x509.erl index 279d9b9..2d4cffa 100644 --- a/src/x509.erl +++ b/src/x509.erl @@ -171,10 +171,7 @@ signed_by_p(SubjectDer, IssuerDer) -> end. verify_sig(IssuerSPKI, {DigestOrPlainText, DigestType, Signature}) -> - %% Dig out alg, params and key from issuer. - #'SubjectPublicKeyInfo'{ - algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, - subjectPublicKey = {0, Key0}} = IssuerSPKI, + {Alg, Params, Key0} = compat:unpack_issuer(IssuerSPKI), KeyType = pubkey_cert_records:supportedPublicKeyAlgorithms(Alg), IssuerKey = case KeyType of @@ -196,7 +193,7 @@ verify_sig(IssuerSPKI, {DigestOrPlainText, DigestType, Signature}) -> %% Code from pubkey_cert:extract_verify_data/2. extract_verify_data(Cert, DerCert) -> PlainText = encoded_tbs_cert(DerCert), - {_, Sig} = Cert#'Certificate'.signature, + Sig = compat:unpack_signature(Cert#'Certificate'.signature), SigAlgRecord = Cert#'Certificate'.signatureAlgorithm, SigAlg = SigAlgRecord#'AlgorithmIdentifier'.algorithm, try |