anchor.diff:  
   build_cipher_block(BlockSz, Mac, Fragment) ->
       TotSz = byte_size(Mac) + erlang:iolist_size(Fragment) + 1,
  -    {PaddingLength, Padding} = get_padding(TotSz, BlockSz),
  -    [Fragment, Mac, PaddingLength, Padding].
  +    [Fragment, Mac, padding_with_len(TotSz, BlockSz)].
   
   block_cipher(Fun, BlockSz, #cipher_state{key=Key, iv=IV} = CS0,
   	     Mac, Fragment, {3, N})
  
positive.code: %% Padding must be checked in TLS 1.1 and after  
  is_correct_padding(#generic_block_cipher{padding_length = Len,
  					 padding = Padding}, _, _) ->
      Len == byte_size(Padding) andalso
          binary:copy(?byte(Len), Len) == Padding.
  
  get_padding(Length, BlockSize) ->
      get_padding_aux(BlockSize, Length rem BlockSize).
  
  get_padding_aux(_, 0) ->
      {0, <<>>};
  get_padding_aux(BlockSize, PadLength) ->
      N = BlockSize - PadLength,
      {N, binary:copy(?byte(N), N)}.
  
  random_iv(IV) ->
      IVSz = byte_size(IV),
  
negative.code: 				   Cipher == chacha20_poly1305 ->
      unknown.  
  
  effective_key_bits(null) ->
      0;
  effective_key_bits(des_cbc) ->
  