anchor.diff:  use_algorithms(RemoteHelloBin) ->
       MyAlgos = ssh:chk_algos_opts(
                   [{modify_algorithms,
  -                  [{append,
  -                    [{kex,['diffie-hellman-group1-sha1']}
  -                    ]}
  +                  [{append, alg_diff()}
                     ]}
                   ]),
       ssh_transport:adjust_algs_for_peer_version(binary_to_list(RemoteHelloBin)++"\r\n",
                                                  MyAlgos).
  +
  +
  +alg_class_diff(Tag) ->
  +    alg_diff(proplists:get_value(Tag, ssh:default_algorithms()),
  +             proplists:get_value(Tag, ssh_transport:supported_algorithms())).
  +
  +alg_diff() ->
  +    alg_diff(ssh:default_algorithms(), ssh_transport:supported_algorithms()).
  +
  +alg_diff(L1, L2) when is_atom(hd(L1)) ; is_atom(hd(L2))  ->
  +    (L2--L1)--['AEAD_AES_256_GCM','AEAD_AES_128_GCM'];
  +alg_diff(L1, L2) ->
  +    [{T, Diff} || {{T,EL1},{T,EL2}} <- lists:zip(L1,L2),
  +                  Diff <- [alg_diff(EL1,EL2)],
  +                  Diff =/= []
  +    ].
  +
   
   kexint_msg2default_algorithms(#ssh_msg_kexinit{kex_algorithms = Kex,
                                                  server_host_key_algorithms = PubKey,
  
positive.code:                                            public_key -> Alg;
                                             _ -> 'ssh-rsa'
                                         end,
                            SftpRootDir = new_dir(Config),
                            %% ct:log("Rootdir = ~p",[SftpRootDir]),
                            {Server, Host, HostPort} =
                                ssh_test_lib:daemon(0,
                                                    [{preferred_algorithms, [{Tag,[Alg]}]},
                                                     {system_dir, setup_local_hostdir(HostKeyAlg, Config)},
                                                     {user_dir, UserDir},
                                                     {user_passwords, [{?USER,?PASSWD}]},
  
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"),
  