comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Subir, Bajar Archivos de Texto [FTP]

  • 0 Respuestas
  • 2724 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 03:58:19 pm »

Estas pequeñas funciones sirven  para subir y bajar archivos de texto por ftp, se usa la conexión directa y las funciones de la wininet ftpputfile y ftpgetfile para subir y bajar archivos...

para subir archivos:
Código: ASM
  1. UploadTextFile Proc Server:DWORD, User:DWORD, Pass:DWORD, LocalFileName:DWORD, RemoteFileName:DWORD
  2.     Local hInternet:DWORD
  3.     Local hFtp:DWORD
  4.  
  5.     invoke InternetOpen, NULL, INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0
  6.     mov hInternet, eax
  7.  
  8.     invoke InternetConnect, hInternet, Server, 21, User, Pass,\
  9.                          INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0
  10.  
  11.  
  12.     mov hFtp, eax
  13.     invoke FtpPutFile, hFtp, LocalFileName, RemoteFileName, FTP_TRANSFER_TYPE_ASCII, 0
  14.  
  15.     .if eax
  16.         print "File Successfully Uploaded !", 0Dh, 0Ah
  17.     .else
  18.         print "Error Uploading File, Use InternetGetLastResponseInfo For More Information", 0Dh, 0Ah
  19.     .endif
  20.  
  21.     invoke InternetCloseHandle, hInternet
  22.     invoke InternetCloseHandle, hFtp
  23.     xor eax, eax
  24.     ret
  25. UploadTextFile EndP
  26.  
  27.  


para bajar archivos:
Código: ASM
  1. DownloadTextFile Proc Server:DWORD, User:DWORD, Pass:DWORD, LocalFileName:DWORD, RemoteFileName:DWORD
  2.     Local hInternet:DWORD
  3.     Local hFtp:DWORD
  4.  
  5.     invoke InternetOpen, NULL, INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0
  6.     mov hInternet, eax
  7.  
  8.     invoke InternetConnect, hInternet, Server, INTERNET_DEFAULT_FTP_PORT, User, Pass,\
  9.                             INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0
  10.  
  11.     mov hFtp, eax
  12.  
  13.     invoke FtpGetFile, hFtp, RemoteFileName, LocalFileName, TRUE, FILE_ATTRIBUTE_NORMAL,\
  14.                        FTP_TRANSFER_TYPE_ASCII, 0
  15.     .if eax
  16.         print "File Downloaded Successfully !", 0Dh, 0Ah
  17.     .else
  18.         print "Error Downloading File, Use InternetGetLastResponseInfo For More Information", 0Dh, 0Ah
  19.     .endif
  20.  
  21.     invoke InternetCloseHandle, hInternet
  22.     invoke InternetCloseHandle, hFtp
  23.     xor eax, eax
  24.     ret
  25. DownloadTextFile EndP

En MASM hecho por pisznett


bytes ;)
« Última modificación: Junio 03, 2013, 11:27:20 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!