Hola a todos
aqui les dejo un source para hacer envio de informacion a traves de ftp , alguien tendra uno para hacer envio a traves de email
,, ese si no se como ,, y una propuesta que si creamos un keylogger
no se si este permitido en este foro pero es mi propuesta
Código:
procedure SubirArchivoFTP (Host: PChar; Puerto: integer; User, Pass, FicheroASubir, NombreParaSubir: Pchar);
var
intconn, intopen : hinternet;
begin
intopen := InternetOpen('iexplore', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
intconn := InternetConnect(intopen, Host, Puerto, User, Pass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
sleep(100);
if GetLastError=0 then
FtpPutFile(intconn, FicheroASubir, NombreParaSubir, FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(intconn);
InternetCloseHandle(intopen);
end;
saludos de antemano