Frequently Asked Question
How to implement wodKeys with wodSSHTunnel in Delphi?
Last Updated 12 years ago
This is how wodKeys component should be implemented in wodSSHTunnel using Delphi:
procedure TForm1.Button1Click(Sender: TObject);
var
key : WODSSHKeyLib_TLB.Keys;
tkey : TKeys;
begin
tkey := TKeys.Create(nil);
tkey.Load ('c:\rsa.txt','');
tkey.DefaultInterface.QueryInterface(WODSSHKeyLib_TLB.IID_IKeys, key);
//ShowMessage(key.PublicKeyOpenSSH[0]);
wodTunnel1.Hostname := 'your_hostname';
wodTunnel1.Login := 'your_login';
wodTunnel1.Protocol := SSHAuto;
wodTunnel1.Port := 22;
wodTunnel1.Authentication := authPubkey;
wodTunnel1.PrivateKey := key.PrivateKey[0]; //1 for DSA key
wodTunnel1.Connect;
end;
Example shows how to connect to server using your PrivateKey with wodKeys (server needs to have your public key in that case).
