anchor.diff:      {IP,Port} = ip_port(Config),
       chk_all_algos(?FUNCTION_NAME, CommonAlgs, Config,
                     fun(Tag, Alg) ->
  +                          PrefAlgs =
  +                              [{T,L} || {T,L} <- ssh_transport:supported_algorithms(),
  +                                        T =/= Tag],
                             ConnRes =
                                 ssh:connect(IP, Port, 
                                             [{user,?USER},
                                              {password,?PASSWD},
                                              {auth_methods, "password"},
                                              {user_dir, new_dir(Config)},
  -                                           {preferred_algorithms, [{Tag,[Alg]}]},
  +                                           {preferred_algorithms, [{Tag,[Alg]} | PrefAlgs]},
                                              {silently_accept_hosts,true},
                                              {user_interaction,false}
                                             ])  ,
  
positive.code:                                             [' ']
                                      end
          ],
                                          
      chk_all_algos(?FUNCTION_NAME, CommonAuths, Config,
                    fun(AuthMethod,Alg) ->
                            {Opts,Dir} =
                                case AuthMethod of
                                    publickey ->
                                        {[], setup_remote_auth_keys_and_local_priv(Alg, Config)};
                                    _ ->
                                        {[{password,?PASSWD}], new_dir(Config)}
                                end,
                            ssh:connect(IP, Port, [{auth_methods, atom_to_list(AuthMethod)},
                                                   {user,?USER},
                                                   {user_dir, Dir},
                                                   {silently_accept_hosts,true},
  
negative.code:                                                    {password, ?PASSWD   },
                                                     {auth_methods, "password"},
                                                     {silently_accept_hosts,true},
                                                     {preferred_algorithms, ssh_transport:supported_algorithms()},
                                                     {user_interaction,false}
                                                    ]),
      _ = ssh_sftp:make_dir(Ch, ".ssh"),
  