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.Connect;
if not Session.UserAuthPass(UserName, Password) 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.