Hello Wolfram,
I don't have OpenSSL in uses:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
ssl_openssl, ssl_openssl_lib, tlntsend, ssl_cryptlib;
Here's the project source:
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
tlntsend in 'tlntsend.pas',
blcksock in 'blcksock.pas',
cryptlib in 'cryptlib.pas',
ssl_openssl in 'ssl_openssl.pas',
synacode in 'synacode.pas',
synafpc in 'synafpc.pas',
synaip in 'synaip.pas',
synautil in 'synautil.pas',
synsock in 'synsock.pas',
ssl_cryptlib in 'ssl_cryptlib.pas';
> 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
