anchor.diff:      ?TLS_RSA_WITH_RC4_128_MD5;
   suite({rsa, rc4_128, sha}) ->
       ?TLS_RSA_WITH_RC4_128_SHA;
  -%% suite({rsa, idea_cbc, sha}) -> 
  -%%     ?TLS_RSA_WITH_IDEA_CBC_SHA;
   suite({rsa, des_cbc, sha}) ->
       ?TLS_RSA_WITH_DES_CBC_SHA; 
   suite({rsa, '3des_ede_cbc', sha}) ->
  
positive.code: 		      (Key, IV, T) when byte_size(Key) =:= 32 ->
  			   crypto:aes_cbc_256_decrypt(Key, IV, T)
  		   end, CipherState, HashSz, Fragment, Version).
  %% decipher(?IDEA, HashSz, CipherState, Fragment, Version) ->
  %%     block_decipher(fun(Key, IV, T) ->
  %%  			   crypto:idea_cbc_decrypt(Key, IV, T)
  %%  		   end, CipherState, HashSz, Fragment, Version);
  
  block_decipher(Fun, #cipher_state{key=Key, iv=IV} = CipherState0, 
  	       HashSz, Fragment, Version) ->
  
negative.code:      ?TLS_RSA_WITH_3DES_EDE_CBC_SHA,
       ?TLS_RSA_WITH_AES_128_CBC_SHA256,
       ?TLS_RSA_WITH_AES_128_CBC_SHA,
       ?TLS_RSA_WITH_RC4_128_SHA,
       ?TLS_RSA_WITH_RC4_128_MD5,
       ?TLS_RSA_WITH_DES_CBC_SHA].
  