anchor.diff:  decode_pem_entries([<<>> | Lines], Entries) ->
       decode_pem_entries(Lines, Entries);
   decode_pem_entries([StartLine | Lines], Entries) ->
  -    Start = string:trim(StartLine),
  +    Start = strip_tail_whitespace(StartLine),
       case pem_end(Start) of
   	undefined ->
   	    decode_pem_entries(Lines, Entries);
  
positive.code:     public_key:der_encode('EncryptedPrivateKeyInfo',   
  			  #'EncryptedPrivateKeyInfo'{encryptionAlgorithm = AlgorithmInfo,
  						     encryptedData = EncData}).
  split_bin(Bin) ->
      split_bin(0, Bin).
  
  split_bin(N, Bin) ->
      case Bin of
  	<<Line:N/binary, "\r\n", Rest/binary>> ->
  	    [Line | split_bin(0, Rest)];
  	<<Line:N/binary, "\n", Rest/binary>> ->
  	    [Line | split_bin(0, Rest)];
  	<<Line:N/binary>> ->
  	    [Line];
  	_ ->
  	    split_bin(N+1, Bin)
      end.
  
  b64encode_and_split(Bin) ->
      split_lines(base64:encode(Bin)).
  
  
negative.code: %% Description: Decodes a PEM binary.
  %%--------------------------------------------------------------------		    
  decode(Bin) ->
      decode_pem_entries(
          binary:split(Bin, [<<"\r\n">>, <<"\r">>, <<"\n">>], [global]), []).
  
  %%--------------------------------------------------------------------
  -spec encode([public_key:pem_entry()]) -> iolist().
  