anchor.diff:      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)).
   
  
positive.code: 	    {Entry, RestLines} = join_entry(Lines, []),
  	    decode_pem_entries(RestLines, [decode_pem_entry(Start, Entry) | Entries])
      end.
  
  decode_pem_entry(Start, [<<"Proc-Type: 4,ENCRYPTED", _/binary>>, Line | Lines]) ->
      Type = asn1_type(Start),
  
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().
  