anchor.diff:  pem_entry_decode({Asn1Type, CryptDer, {Cipher, {#'PBEParameter'{},_}}} = PemEntry, 
    		 Password) when is_atom(Asn1Type) andalso
    				is_binary(CryptDer) andalso
  - 				is_list(Cipher) ->
  + 				is_list(Cipher) andalso
  +				is_list(Password) ->
       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)) ->
  +				((erlang:byte_size(Salt) == 8) or (erlang:byte_size(Salt) == 16)) andalso
  +				is_list(Password) ->
       do_pem_entry_decode(PemEntry, Password).	
   
   
  
positive.code: %
  %% Description: Returns the issuer id.
  %%--------------------------------------------------------------------
  pkix_issuer_id(Cert, Signed)->
      pkix_issuer_id(Cert, Signed, decode).
  
  %%--------------------------------------------------------------------
  -spec pkix_crl_issuer(CRL::binary()| #'CertificateList'{}) -> 
  
negative.code:     iolist_to_binary(pubkey_pem:encode(PemEntries)).
  
  %%--------------------------------------------------------------------
  -spec pem_entry_decode(pem_entry(), string()) -> term().
  %
  %% Description: Decodes a pem entry. pem_decode/1 returns a list of
  %% pem entries.
  