anchor.diff:  -export([decode_cipher_text/2]).
   
   %% Encoding
  --export([encode_plain_text/4, encode_change_cipher_spec/2]).
  +-export([encode_plain_text/4, encode_tls_cipher_text/5, encode_change_cipher_spec/2]).
   
   %% Protocol version handling
  --export([protocol_version/1, lowest_protocol_version/2, lowest_protocol_version/1,
  -	 highest_protocol_version/1, supported_protocol_versions/0,
  +-export([protocol_version/1, lowest_protocol_version/1, lowest_protocol_version/2,
  +	 highest_protocol_version/1, highest_protocol_version/2,
  +	 is_higher/2, supported_protocol_versions/0,
   	 is_acceptable_version/2]).
   
   %% DTLS Epoch handling
  
positive.code: calc_aad(Type, {MajVer, MinVer}, Epoch, SeqNo) ->
      NewSeq = (Epoch bsl 48) + SeqNo,
      <<NewSeq:64/integer, ?BYTE(Type), ?BYTE(MajVer), ?BYTE(MinVer)>>.
  
  lowest_list_protocol_version(Ver, []) ->
      Ver;
  lowest_list_protocol_version(Ver1,  [Ver2 | Rest]) ->
      lowest_list_protocol_version(lowest_protocol_version(Ver1, Ver2), Rest).
  
negative.code: %%
  %% Description: Highest protocol version present in a list
  %%--------------------------------------------------------------------
  highest_protocol_version([]) ->
      highest_protocol_version();
  highest_protocol_version(Versions) ->
      [Ver | Vers] = Versions,
      highest_list_protocol_version(Ver, Vers).
  
  %%--------------------------------------------------------------------
  -spec highest_protocol_version(dtls_version(), dtls_version()) -> dtls_version().
  %%
  %% Description: Highest protocol version of two given versions
  %%--------------------------------------------------------------------
  highest_protocol_version(Version = {M, N}, {M, O})   when N < O ->
      Version;
  highest_protocol_version({M, _},
  			Version = {M, _}) ->
      Version;
  highest_protocol_version(Version = {M,_},
  			{N, _}) when M < N ->
      Version;
  highest_protocol_version(_,Version) ->
      Version.
  
  %%--------------------------------------------------------------------
  -spec is_higher(V1 :: dtls_version(), V2::dtls_version()) -> boolean().
  %%
  %% Description: Is V1 > V2
  %%--------------------------------------------------------------------
  is_higher({M, N}, {M, O}) when N < O ->
      true;
  is_higher({M, _}, {N, _}) when M < N ->
      true;
  is_higher(_, _) ->
      false.
  
  %%--------------------------------------------------------------------
  -spec supported_protocol_versions() -> [dtls_version()].
  