anchor.diff:  %
   %% Description: Returns the issuer id.
   %%--------------------------------------------------------------------
  -pkix_issuer_id(Cert, Signed)->
  -    pkix_issuer_id(Cert, Signed, decode).
  +pkix_issuer_id(#'OTPCertificate'{} = OtpCert, Signed) when (Signed == self) or 
  +							   (Signed == other) ->
  +    pubkey_cert:issuer_id(OtpCert, Signed);
  +pkix_issuer_id(Cert, Signed) when is_binary(Cert) -> 
  +    OtpCert = pkix_decode_cert(Cert, otp),
  +    pkix_issuer_id(OtpCert, Signed).
   
   %%--------------------------------------------------------------------
   -spec pkix_crl_issuer(CRL::binary()| #'CertificateList'{}) -> 
  
positive.code: pem_entry_decode({Asn1Type, CryptDer, {Cipher, {#'PBEParameter'{},_}}} = PemEntry, 
   		 Password) when is_atom(Asn1Type) andalso
   				is_binary(CryptDer) andalso
   				is_list(Cipher) ->
      do_pem_entry_decode(PemEntry, Password);
  pem_entry_decode({Asn1Type, CryptDer, {Cipher, Salt}} = PemEntry, 
  		 Password) when is_atom(Asn1Type) andalso
  				is_binary(CryptDer) andalso
  				is_list(Cipher) andalso
  				is_binary(Salt) andalso
  				((erlang:byte_size(Salt) == 8) or (erlang:byte_size(Salt) == 16)) ->
      do_pem_entry_decode(PemEntry, Password).	
  
  
  
negative.code: 		    parameters = Params,
  		    publicKey = {0, PubKey}}.
  
  