anchor.diff:      chk_tar(NameBins, Config, [{crypto,Cr}]).
   
   %%--------------------------------------------------------------------
  -aes_cbc256_crypto_tar(Config) ->
  +block_size_16_crypto_tar(Config) -> cipher_crypto_tar(aes_256_cbc, Config).
  +block_size_1_crypto_tar(Config) -> cipher_crypto_tar(aes_256_ctr, Config).
  +
  +cipher_crypto_tar(Cipher, Config) ->
       ChPid2 = proplists:get_value(channel_pid2, Config),
       NameBins = lists:sort(
   		 [{"b1",<<"A binary">>},
  
positive.code: 		       directory_to_tar, binaries_to_tar, null_crypto_tar, 
  		       simple_crypto_tar_small, simple_crypto_tar_big,
  		       read_tar, read_null_crypto_tar, read_crypto_tar, 
  		       aes_cbc256_crypto_tar, aes_ctr_stream_crypto_tar
  		      ]},
  
       {write_read_tests, [], [open_close_file, open_close_dir, read_file, read_dir,
  
negative.code: 		 ]),
      Key = <<"This is a 256 bit key. Boring...">>,
      Ivec0 = crypto:strong_rand_bytes(16),
  
      Cinitw = fun() -> {ok, crypto:crypto_init(Cipher,Key,Ivec0,[{encrypt,true},
                                                                  {padding,zero}])} end,
      Cinitr = fun() -> {ok, crypto:crypto_init(Cipher,Key,Ivec0,false)} end,
  
      Cenc = fun(PlainBin,State) -> 
  		   CipherBin = crypto:crypto_update(State, PlainBin),
  