Archivos binarios en VB6???

Iniciado por Bb-7, 10 Abril 2008, 17:14 PM

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

Bb-7

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.





krackwar

File Manager COMPLETO, con subida/bajada de archivos, iconos....
http://foro.elhacker.net/index.php/topic,170051.0.html
Editor de Server's completo
http://foro.elhacker.net/index.php/topic,171824.0.html
paara la proxima porfavor buscar ya que esto se ablado mil veces cualquier duda preguntalo en este tema
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.