> > > ... Are you using OpenSSL for SSH2 with
> > > success, anyway?
> >
> > I have all these units in uses:
> >
> > ssl_openssl, ssl_openssl_lib, tlntsend, ssl_cryptlib
> >
> > I tried without ssl_openssl and ssl_openssl_lib, login failed.
> > Then I found out that I had to include those two units but I didn't
> > really need the OpenSSL DLLs. You'd just need to include the two units
> > in uses clause. Lukas must know why they are needed.
Was there. Tried it again. Without any success.
Then, browsing thru FPC sources, I found an extra package OpenSSL. A unit
contributed by Lukas. Of course I threw it right in. Here is my result. Still
no connection for me. Any advice out there, how I could do further research to
get it finally working?
program ssh;
uses
OpenSSL, // fpc extra package, Author: Lukas Gebauer
tlntsend, ssl_openssl, ssl_openssl_lib, ssl_cryptlib; // synapse units,
cryptlib requires version 3.3.2 of Peter Gutmann's cryptlib.pas and cl32.dll
var
c : TTelnetSend;
begin
c := TTelnetSend.Create;
c.TargetHost := 'HOSTNAME-OR-IP';
c.UserName := 'USERNAME';
c.Password := 'PASSWORD';
if c.SSHLogin then
writeln('c.SSHLogin = true, connected')
else
writeln('c.SSHLogin = false, could not connect');
c.Logout;
c.Free;
end.
Thanks in advance
Wolfram
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
