elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  leer archivo BINARIO
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 4 Ir Abajo Respuesta Imprimir
Autor Tema: leer archivo BINARIO  (Leído 21,918 veces)
WestOn

Desconectado Desconectado

Mensajes: 272


El testamento Maya...


Ver Perfil
leer archivo BINARIO
« en: 28 Septiembre 2008, 04:27 am »

buenas se puede leer una dll y "pegar" el contenido en un text.text??

Este es el code q he hecho aora:
Código:
Option Explicit
Dim RUTA As String

Private Sub Command1_Click()
 Dim Archivo As String
    Open RUTA For Binary As #201
Do
Input #201, Archivo
Loop Until EOF(201) = True
Close #201
        Text1.Text = Archivo
End Sub

Private Sub Form_Load()
RUTA = "ejemplo.DLL"
End Sub
Pero este code no sirve de nada...se pone a 100% la compu y parece q vaya a estallar ejeje..
si me dejan alguna sugerencia se lo agradecere ;)
un saludo


« Última modificación: 28 Septiembre 2008, 16:32 pm por WestOn » En línea

En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: leer archivo dll
« Respuesta #1 en: 28 Septiembre 2008, 04:29 am »

Utiliza simplemente esto:

Código
  1. Dim s_ContenidoDLL As String
  2.  
  3. Open RUTA For Binary As #1
  4.    s_ContenidoDLL = Space(LOF(1)
  5.    Get #1, , s_ContenidoDLL
  6. Close i_ArchivoLibre

EDITADO: perdona, me equivoqué al poner la variable en GET. Corrígelo.

Saludos.


« Última modificación: 28 Septiembre 2008, 04:35 am por aaronduran2 » En línea

WestOn

Desconectado Desconectado

Mensajes: 272


El testamento Maya...


Ver Perfil
Re: leer archivo dll
« Respuesta #2 en: 28 Septiembre 2008, 04:32 am »

grax voy a probarlo y comento ;)
En línea

En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            
WestOn

Desconectado Desconectado

Mensajes: 272


El testamento Maya...


Ver Perfil
Re: leer archivo dll
« Respuesta #3 en: 28 Septiembre 2008, 04:38 am »

El code funciona, porq se rellena el text, pero se rellena de espacios! no hay ni una sola letra, este es el code q puesto:
Código:
Option Explicit
Dim RUTA As String

Private Sub Command1_Click()
 Dim Archivo As String
 Open RUTA For Binary As #1
Archivo = Space(LOF(1))
Get #1, , RUTA
Close #1
        Text1.Text = Archivo
End Sub

Private Sub Form_Load()
RUTA = "ejemplo.DLL"
End Sub
un saludo
En línea

En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: leer archivo dll
« Respuesta #4 en: 28 Septiembre 2008, 04:39 am »

Edité el post en el que puse el código. Me había equivocado de variable.

Código
  1. Dim Archivo As String
  2. Open RUTA For Binary As #1
  3. Archivo = Space(LOF(1))
  4. Get #1, , Archivo
  5. Close #1

Perdón por la confusión.

Saludos.
En línea

WestOn

Desconectado Desconectado

Mensajes: 272


El testamento Maya...


Ver Perfil
Re: leer archivo dll
« Respuesta #5 en: 28 Septiembre 2008, 04:46 am »

no pasa nada, mmm de todas formas al leerla me sale esto
Resultado:
MZ

Es lo mismo q me sale si lo leo con este otro code:
Código:
Open ruta For binary As #201
Do
Input #201, f
Loop Until EOF(201) = True
Close #201
Close
text1.text =f
Resultado:
MZ

Alguna idea? un saludo
En línea

En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: leer archivo dll
« Respuesta #6 en: 28 Septiembre 2008, 04:51 am »

Probé con esto pero tampoco me funciona.

Código
  1. Dim Datos As String
  2.  
  3. Open "C:\Windows\System32\rundll32.exe" For Input As #1
  4.    Do Until EOF(1)
  5.        Line Input #1, Datos
  6.    Loop
  7. Close #1
  8.  
  9. Text1.Text = Datos

El código que había puesto antes lo utilizo para leer el contenido de un ejecutable en un crypter que estoy haciendo. Siempre funcionó, lo que no entiendo es por qué ahora no lo hace. Intentaré solucionarlo.

Saludos.
« Última modificación: 28 Septiembre 2008, 04:54 am por aaronduran2 » En línea

WestOn

Desconectado Desconectado

Mensajes: 272


El testamento Maya...


Ver Perfil
Re: leer archivo dll
« Respuesta #7 en: 28 Septiembre 2008, 04:52 am »

ok si encuentro la forma la posteare un saludo y grax ;)
En línea

En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: leer archivo dll
« Respuesta #8 en: 28 Septiembre 2008, 04:58 am »

Ya está solucionado. Lo que debes hacer es utilizar:

Código
  1. Dim s_ArchivoOrigen As String
  2.  
  3. Open RUTA For Binary As #1
  4.    s_ArchivoOrigen = Space(LOF(1))
  5.    Get #1, , s_ArchivoOrigen
  6. Close #1
  7.  
  8. Open "C:\DLL.txt" For Output As #1
  9.    Print #1, s_ArchivoOrigen
  10. Close #1

Lo que hay que hacer es guardar el contenido de s_ArchivoOrigen en un archivo. Luego puedes utilizar Line Input para cargarlo en un TextBox.

Saludos.
En línea

WestOn

Desconectado Desconectado

Mensajes: 272


El testamento Maya...


Ver Perfil
Re: leer archivo dll
« Respuesta #9 en: 28 Septiembre 2008, 05:12 am »

mmm cierto aora si lo lee, como si se abriera con el bloc, de todas formas el contenido no es leible..
Estracto de la dll leida:
"™6s“9s ˜6sTE8sK{9s£¼6sš{8sù9s*9su:sÞÃ7s½8sñf8s3 8s›‘9s•:7sŒS8sª 9sª9s¾i8sui8sÞ 9sû8s¤5*sÌ£*söm:sk8s¸k:s09s¤i8s]"....

xD! ahi alguna forma de leer el contenido "bien" o solo se puede obtener esos caracteres?

un saludo y gracias
« Última modificación: 28 Septiembre 2008, 05:19 am por WestOn » En línea

En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            
Páginas: [1] 2 3 4 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Archivo binario, al leerlo me muestra 2 veces el ultimo registro
Programación C/C++
.:BlackCoder:. 6 8,226 Último mensaje 13 Marzo 2011, 05:58 am
por .:BlackCoder:.
[?] leer binario y guardar en struct dato AYUDA « 1 2 »
Programación C/C++
nolosabe 17 9,979 Último mensaje 29 Octubre 2011, 15:44 pm
por nolosabe
Leer archivo binario en Vbs
Scripting
kapo.damy 2 4,158 Último mensaje 14 Diciembre 2011, 04:51 am
por kapo.damy
Problema al leer un archivo binario en C
Programación C/C++
the_jocker 5 5,454 Último mensaje 13 Agosto 2012, 01:37 am
por CSQCasimiro
Ayuda con programa en C (archivo binario)
Programación C/C++
anaceci21 0 1,745 Último mensaje 28 Mayo 2013, 23:08 pm
por anaceci21
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines