anchor.diff:  exor() ->
       [{doc, "Test the exor function"}].
   exor(Config) when is_list(Config) ->
  -    B = <<1, 2, 3, 4, 5, 6, 7, 8, 9, 10>>,
  -    Z1 = zero_bin(B),
  -    Z1 = crypto:exor(B, B),
  -    B1 = crypto:rand_bytes(100),
  -    B2 = crypto:rand_bytes(100),
  -    Z2 = zero_bin(B1),
  -    Z2 = crypto:exor(B1, B1),
  -    Z2 = crypto:exor(B2, B2),
  -    R = xor_bytes(B1, B2),
  -    R = crypto:exor(B1, B2).
  +    do_exor(<<1, 2, 3, 4, 5, 6, 7, 8, 9, 10>>),
  +    do_exor(term_to_binary(lists:seq(1, 1000000))).
   %%--------------------------------------------------------------------
   rand_uniform() ->
       [{doc, "rand_uniform and random_bytes testing"}].
  
positive.code: 	       "0c0d0e0f1c1d1e1f2c2d2e2f3c3d3e3f").
  hmac_inc(_) ->
      [<<"Sampl">>, <<"e #1">>].
  
  rfc_2202_hmac_md5() ->
      [
  
negative.code: 
  rc4() ->
      [{rc4, <<"apaapa">>, <<"Yo baby yo">>},
       {rc4, <<"apaapa">>, list_to_binary(lists:seq(0, 255))},
       {rc4, <<"apaapa">>, lists:duplicate(1000000, $a)}
      ].
  
  aes_ctr() ->
  