wie die Überschrift schon sagt habe ich ein Problem
Ich möchte nicht mehr per telnet sondern per SSH auf meine Sachen zugreifen
Telnet funktioniert sehr gut und läuft auch auf Linux Mint und auf dem Mac.
was habe ich bis jetzt gemacht..?
ich habe mit der unit telnetsshclient mein telnet ans laufen gebracht.. funktioniert auch sehr gut.
https://wiki.freepascal.org/Synapse#SSH ... le_program
telnet ist schon verbunden und kann benutzt werden.
nun möchte ich aber auf SSH umstellen und da habe ich paar probleme{======================== Telnet-Client ==============================}
Uses.... telnetsshclient
procedure TForm1.Button16Click(Sender: TObject);
begin
memo6.Lines.Clear;
end;
procedure TForm1.TelnetConnect;
begin
comm:=TTelnetSSHClient.Create;
comm.HostName:= Edit6.Text;
if comm.HostName='' then
begin
ShowMessage('Please specify hostname .');
exit;
end;
comm.TargetPort:= ('23');
if comm.TargetPort ='' then
begin
ShowMessage('Please specify target port .');
exit;
end;
comm.UserName:= Edit3.Text;
if comm.UserName ='' then
begin
ShowMessage('Please specify target Benutzername .');
exit;
end;
comm.Password:= Edit4.Text;
if comm.Password ='' then
begin
ShowMessage('Please specify target Passwort .');
exit;
end;
comm.ProtocolType:=Telnet;
Memo6.Append('connecting ..' + comm.Connect);
if comm.Connected then
begin
Memo6.Append('Connected');
Memo6.Append('Server: ' + comm.HostName + ':'+comm.TargetPort);
end;
end;
ich habe in der telnetsshclient.pas das {$DEFINE HAS_SSH_SUPPORT} auscommentiert das telnet mit Port 23 funktioniert und habe das für den Port 22 rückgängig gemacht und die ssl_libssh2.pas und die libssh2_publickey.pas und die libssh2_sftp.pas mit ins Verzeichnis gelegt , den Port auf 22 geändert , lässt sich auch compilieren , funktioniert aber nicht.
vielleicht kann mir ja jemand von Euch da weiter helfen.
gruss
reiter
Verein
Links
Suche