anchor.diff:  rc4() ->
       [{rc4, <<"apaapa">>, <<"Yo baby yo">>},
        {rc4, <<"apaapa">>, list_to_binary(lists:seq(0, 255))},
  -     {rc4, <<"apaapa">>, lists:duplicate(1000000, $a)}
  +     {rc4, <<"apaapa">>, long_msg()}
       ].
   
   aes_ctr() ->
  
positive.code:     [{doc, "Test all different hash functions"}].
  hash(Config) when is_list(Config) ->
      {Type, MsgsLE, Digests} = proplists:get_value(hash, Config),
      Msgs = lists:map(fun lazy_eval/1, MsgsLE),
      [LongMsg | _] = lists:reverse(Msgs),
      Inc = iolistify(LongMsg),
      [IncrDigest | _] = lists:reverse(Digests),
  
negative.code:      [{doc, "Test all different hmac functions"}].
  hmac(Config) when is_list(Config) ->
      {Type, Keys, DataLE, Expected} = proplists:get_value(hmac, Config),
      Data = lazy_eval(DataLE),
      hmac(Type, Keys, Data, Expected),
      hmac(Type, lists:map(fun iolistify/1, Keys), lists:map(fun iolistify/1, Data), Expected),
      hmac_increment(Type).
  