Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Bb-7 en 10 Abril 2008, 17:14 pm



Título: Archivos binarios en VB6???
Publicado por: Bb-7 en 10 Abril 2008, 17:14 pm
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.


Título: Re: Archivos binarios en VB6???
Publicado por: krackwar en 10 Abril 2008, 17:26 pm
File Manager COMPLETO, con subida/bajada de archivos, iconos....
http://foro.elhacker.net/index.php/topic,170051.0.html (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 (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