Tunel SSH

[LIGERO]

Muy buenas a todos:
Estoy intentando crear un tunel SSH entre mi base de datos de mi web y mi equipo.
He probado la conexión con Putty y perfecto, pero cuando utilizo la librería libssh2.dll con el ejemplo que hay en el foro de Embarcadero.

https://blogs.embarcadero.com/es/con...c-through-ssh/

Sin embargo no conecto.

Los parámetros de la conexión están bien pero al intentar abrir el túnel, me da el error "The authenticity of Host 'XXX.XXX.XXX.XXX' can´t be established" al ejecutarse la conexión.

Session.Connect;

De forma que no llego ni a establecer la conexión antes de autentificarme con el usuario y el pwd.

Código Delphi [-]
procedure TMainForm.butOpenTunnelClick(Sender: TObject);
Var
  Host: string;
  UserName: string;
  Password: string;
begin

  Host := 'XXX.XXX.XXX.XXX';
  UserName := 'miusuario';
  Password := 'mipwd';

  Session := CreateSession(Host, 22);
// Session.SetKeybInteractiveCallback(KeybIntCallback);

  Session.Connect;

  if not Session.UserAuthPass(UserName, Password) then
//  if not Session.UserAuth(UserName) then

  begin
    ShowMessage('Authorization Failure');
    Exit;
  end;

  SshTunnel := CreateSshTunnel(Session);
  Thread := TThread.CreateAnonymousThread(
    procedure
    begin
      SshTunnel.ForwardLocalPort(3306, 'XXX.XXX.XXX.XXX', 22);
    end);
  Thread.FreeOnTerminate := False;
  Thread.Start;
end;

He utilizado ejemplos que hay también en github de ssh, pero sigo teniendo problemas de conexión.
Utilizo RadStudio 10.3
Alguien puede ayudarme?

Gracias.

[engranaje]

Por si te puede servir de pista, a mi me parece que no tienes la clave privada cargada y por tanto no puedes veríficar que el servidor al que te estas conectando es realmente el servidor al que quieres conectarte.

Puedes revisar libssh2_knownhost_addc en https://www.libssh2.org/libssh2_knownhost_addc.html.

Si como entiendo usas Ssh-Pascal puedes revisar

Código Delphi [-]
function libssh2_knownhost_addc(hosts: PLIBSSH2_KNOWNHOSTS;
                       host,
                       salt,
                       key: PAnsiChar;
                       keylen: size_t;
                       comment: PAnsiChar;
                       commentlen: size_t; typemask: Integer;
                       var store: PLIBSSH2_KNOWNHOST): Integer; cdecl;

en https://github.com/pyscripter/Ssh-Pa...ce/libssh2.pas