anchor.diff:  identity_pass_phrase("ssh-rsa") ->
       rsa_pass_phrase.
   
  -lookup_host_key_fd(Fd, Host, KeyType) ->
  +lookup_host_key_fd(Fd, KeyToMatch, Host, KeyType) ->
       case io:get_line(Fd, '') of
   	eof ->
   	    {error, not_found};
   	Line ->
   	    case ssh_decode_line(Line, known_hosts) of
   		[{Key, Attributes}] ->
  -		    handle_host(Fd, Host, proplists:get_value(hostnames, Attributes), Key, KeyType);
  +		    handle_host(Fd, KeyToMatch, Host, proplists:get_value(hostnames, Attributes), Key, KeyType);
   		[] ->
  -		    lookup_host_key_fd(Fd, Host, KeyType)
  +		    lookup_host_key_fd(Fd, KeyToMatch, Host, KeyType)
   	    end
       end.
   
  
positive.code: replace_localhost(Host) ->
      Host.
  
  do_lookup_host_key(Host, Alg, Opts) ->
      case file:open(file_name(user, "known_hosts", Opts), [read, binary]) of
  	{ok, Fd} ->
  	    Res = lookup_host_key_fd(Fd, Host, Alg),
  	    file:close(Fd),
  	    {ok, Res};
  	{error, enoent} -> {error, not_found};
  
negative.code: 
  %% Used by client
  is_host_key(Key, PeerName, Algorithm, Opts) ->
      case lookup_host_key(Key, PeerName, Algorithm, Opts) of
  	{ok, Key} ->
  	    true;
  	_ ->
  