anchor.diff:      {Cipher, aead, sha256};
   openssl_cipher_str_to_algs(Kex, CipherStr, HashStr) ->
       Hash = algo_str_to_atom(HashStr),
  -    Cipher = algo_str_to_atom(cipher_name_from_openssl(CipherStr)),
  +    Cipher = algo_str_to_atom(cipher_name_from_openssl(string:strip(CipherStr, left, $-))),
       case openssl_is_aead_cipher(CipherStr) of
           true ->
               {Cipher, aead, Hash};
  
positive.code:     lists:append(string:replace(CipherStr, "_", "-", all)).
  
  
  openssl_suite_start(Kex) ->
      case openssl_kex_name(Kex) of
          "" ->
              "";
          Name ->
              Name ++ "-"
      end.
  
  openssl_kex_name("RSA") ->
      "";
  openssl_kex_name("DHE_RSA") ->
      "EDH-RSA";
  openssl_kex_name(Kex) ->
      lists:append(string:replace(Kex, "_", "-", all)).
  kex_name_from_openssl(Kex) ->
      case lists:append(string:replace(Kex, "-", "_", all)) of
          "EDH_RSA" ->
              "DHE_RSA"; 
          Str  ->
              Str
  
negative.code:     suite_str_to_map("TLS_RSA_WITH_3DES_EDE_CBC_SHA");
  suite_openssl_str_to_map("SRP-DSS-DES-CBC3-SHA") ->
      suite_str_to_map("TLS_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA");
  suite_openssl_str_to_map("EDH-RSA" ++ Rest) ->
      suite_openssl_str_to_map("DHE-RSA", Rest);
  suite_openssl_str_to_map("DHE-RSA-" ++ Rest) ->
      suite_openssl_str_to_map("DHE-RSA", Rest);
  suite_openssl_str_to_map("DHE-DSS-" ++ Rest) ->
      suite_openssl_str_to_map("DHE-DSS", Rest);
  suite_openssl_str_to_map("EDH-DSS-" ++ Rest) ->
      suite_openssl_str_to_map("DHE-DSS", Rest);
  suite_openssl_str_to_map("DES" ++ _ = Rest) ->
  