Veréis, es que ahora que he aprendido a manejar archivos aleatorios, me gustaría saber cómo funciona el manejo de archivos binarios, es decir:
Para enviar un archivo desde el servidor al cliente en VB6 (en un troyano, por ejemplo) hay que abrir el archivo a enviar en modo binario, leer su contenido y almacenarlo en una variable; para después enviar el contenido de ésa variable, y que el cliente cree un archivo en binario y le inserte el contenido. Yo lo hacía con éste código:
--SERVIDOR--
Open [ruta_archivo.exe] For Binary As #1
contenido=Input(LOF(1), 1)
Close
socket.SendData(contenido)
//--SERVIDOR--
--CLIENTE--
socket.GetData(datos)
Open [ruta_archivo.exe] For Binary As #1
Put 1, , datos
Close
//--CLIENTE--
Hice las pruebas y no me funcionaba. El cliente me creaba un ejecutable que al abrirlo me mostraba durante un segundo la típica pantalla negra de Windows, y después se cerraba. Y al hacer ésa misma prueba pero con un archivo de texto (.txt), me creaba un archivo de texto un poco 'raro'.
El caso es que me hará falta el manejo de archivos binarios para modificar ejecutables también (un EditServer, por ejemplo) y no sé cómo funcionan.
¿Alguno puede explicarme esto de los archivos binarios?
Tened en cuenta que he seguido al pie de la letra las instrucciones de mi curso de VB.
Saludos y gracias.