anchor.diff:      end;
   host_match1(_, _, []) ->
       false.
  -
  -
  -
  -%%%--------------------------------
  -%% in: "host" out: "host,1.2.3.4.
  -add_ip(IP) when is_tuple(IP) ->
  -    ssh_connection:encode_ip(IP);
  -add_ip(Host) ->
  -    case inet:getaddr(Host, inet) of
  -	{ok, Addr} ->
  -	    case ssh_connection:encode_ip(Addr) of
  -		false -> Host;
  -		IPString -> Host ++ "," ++ IPString
  -	    end;
  -	_ -> Host
  -    end.
  -
  -replace_localhost("localhost") ->
  -    {ok, Hostname} = inet:gethostname(),
  -    Hostname;
  -replace_localhost(Host) ->
  -    Host.
   
   %%%---------------- COMMON FUNCTIONS ------------------------------
   
  
positive.code: 
  %%%---------------- CLIENT FUNCTIONS ------------------------------
  
  lookup_host_keys(Host, KeyType, Key, File) ->
      case file:read_file(File) of
          {ok,Bin} ->
  
negative.code:     case file:open(KnownHosts, [write,append]) of
  	{ok, Fd} ->
  	    ok = file:change_mode(KnownHosts, 8#644),
              KeyType = erlang:atom_to_binary(ssh_transport:public_algo(Key), latin1),
              EncKey = ssh_message:ssh2_pubkey_encode(Key),
              SshBin =
                  iolist_to_binary([Host1, " ",
                                    KeyType," ",base64:encode(iolist_to_binary(EncKey)),
                                    "\n"]),
              Res = file:write(Fd, SshBin),
  	    file:close(Fd),
  	    Res;
  	Error ->
  	    Error
      end.
  
  %%%================================================================
  %%%
  