Conexão ssh

[robinhocne]

Bom dia,

Procurei pela internet alguns exemplos de conexão com ssh, achei muitos exemplos, componentes mas está complicado, pois muitos não funciona, peguei o do synapse mas também está dando erro...

Precisar conectar via ssh e baixar uns arquivos e apagar da pasta, somente isso.

Alguém pode me ajudar ?

[Jhonas]

voce chegou a ver esse link ?

http://www.example-code.com/delphiAx/ssh.asp

abraço

[robinhocne]

Jhonas uso o delphi 7, nele não funciona...

[Jhonas]

código pronto para uso do synapse

http://synapse.ararat.cz/lib/exe/fetch.php/file:synapse40.zip

ou

http://synapse.ararat.cz/doku.php/download

abraço

 

 

[robinhocne]

cheguei a baixar esse exemplo, mas está dando esse erro ao tentar conectar

 

Synapse TCP/IP Socket error 10091

 

[robinhocne]

baixei a dll correta, mas agora ele não faz nada, fica travado....

percebi que ele trava no Init dessa função abaixo

procedure TSimpleSFTP.Connect(Host,Port,UserName,Password:string);
var NoDelay:Boolean;
begin //setup proxy settings, ... before connecting
  FSocket.RaiseExcept:=True;
  try
    FSocket.Connect(Host,Port);
    //CryptLib manual recommends to disable the Nagle algorithm
    NoDelay:=True;
    setsockopt(FSocket.Socket,IPPROTO_TCP,TCP_NODELAY,@NoDelay,SizeOf(NoDelay));
    //do ssh handshake
    FSocket.SSL.SSLType:=LT_SSHv2;
    FSocket.SSL.Username:=UserName;
    FSocket.SSL.Password:=Password;
    FSocket.SSL.SSHChannelType:='subsystem';
    FSocket.SSL.SSHChannelArg1:='sftp';
    FSocket.SSLDoConnect;
    //negotiate protocol version
    ResetSessionParams;
    Init;
  except
    Disconnect;
    raise;
  end;
end;

 

[Jhonas]

Synapse TCP/IP Socket error 10091

Com relação ao erro:

Synapse TCP/IP Socket error 10091 - subsistema de rede não está disponível

A implementação Winsock não pode funcionar neste momento, porque o sistema subjacente que ele utiliza para fornecer serviços de rede está indisponível no momento. Tente o seguinte:

     * Verifique se o arquivo WINSOCK.DLL está no caminho atual.
     * Verifique se o arquivo WINSOCK.DLL é do mesmo fornecedor como sua pilha de protocolo subjacente. Você não pode misturar e combinar. (WINSOCK DLLs devem ser fornecidos pelo mesmo fornecedor que forneceu a pilha de protocolo subjacente) .Você não pode usar mais de uma implementação Winsock simultaneamente. Se você tem mais de uma DLL WINSOCK em seu sistema, certifique-se o primeiro no caminho é apropriado para o subsistema de rede atualmente carregado.
     * Verifique a documentação de implementação Winsock para ter certeza de todos os componentes necessários estão instalados e configurados corretamente.

--------------------------------------------------

Observe as configurações ... inclusive qual a porta para utilização

http://comments.gmane.org/gmane.comp.lang.delphi.synapse.public/3634

arquivos do synapse

http://sourceforge.net/p/synalist/code/HEAD/tree/trunk/

abraço

 

[robinhocne]

Jhonas agora não estou tendo esse erro, só que ele para no Init e não vai mais, trava....

Sobre a dll WinSock ele não pediu essa dll.

[Jhonas]

não tenho certeza, mas acho que 

FSocket.SSL.SSLType:=LT_SSHv2;

é para o delphi 2010 ...  verifique

[robinhocne]

tirando isso ele dá erro

 

Synapse TCP/IP Socket erro 10091: Client sent ASCII text string 
beginning 'SSH-2...', is this the correct address/port?.

 

[Jhonas]

não ..  isso tem haver com o tipo de biblioteca que é usada para cada versão do delphi

pelo que eu vi:

FSocket.SSL.SSLType:=LT_SSHv2;

é usada pelo delphi 2010

Não tenho como testar o código para lhe dar uma resposta melhor ..  a unica coisa que dá pra fazer é indicar o que talvez seja possivel fazer ... tipo esse exemplo

http://code.google.com/p/delphi-google-api/source/browse/trunk/+delphi-google-api/libs/synapse/source/lib/tlntsend.pas?r=4

ou esse

http://cryptlib.sogot.de/delphi.html

abraço