I'd appreciate some help here if anyone's able...
I'm using Delphi 2010, and am trying to implement some simple SSH
client support in an application of mine. I've downloaded synapse
release 39, as well as the required ssl_cryptlib and cl32.dll compiled
libraries. I've then set up a simple test VCL application with the
following:
procedure TForm1.Button1Click(Sender: TObject);
var
c : TTelnetSend;
logPos : integer;
begin
c := TTelnetSend.Create;
c.TargetHost := '192.168.25.206';
c.TargetPort := '22';
c.UserName := 'admin';
c.Password := 'admin';
c.SSHLogin;
logPos := 1;
while c.Sock.CanRead(1000) or (c.Sock.WaitingData > 0) do
begin
c.Sock.RecvPacket(1000);
write(copy(c.SessionLog, logPos, Length(c.SessionLog)));
logPos := Length(c.SessionLog);
end;
writeln('end');
end;
Everything compiles and the app runs, but never successfully connects.
If I capture the exchange with wireshark and follow the TCP stream, I
notice the session begins with
SSH-2.0-IPSSH-6.5.0
SSH-2.0-cryptlib
...but terminates with "Handshake failed". There's clearly some
algorithm negotiation going on in between, which I can provide if it
would be helpful.
Can anyone shed any light on what might be happening? Any suggestions
on how to troubleshoot? I've done this with several different hosts,
with the same result.
Appreciate any assistance,
Andrew
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
