Autor
|
Tema: leer archivo BINARIO (Leído 21,780 veces)
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
Wenas, he estado buscando como leer y obtener los datos de archivos binarios y he encontrado este post de hendrix: Sacalos a texto plano (si es un exe por ejemplo, va a empezar por MZ...), luego saca los ascii de esas letras y luego al ascii pasalo a binario....aunque no se para que quieres ahcer eso... No es mas facil (y elegante) en hexadecimal como un buen editor hexadecimal???
Un Saludo. Mi pregunta es como puedo pasarlo a hexadecimal, y posteriormente (nose como..:S) poder pasarlo a letras normales para cargarlo al text... PD: No hace falta q me den todo el code, simplemente orientarme hacia q tengo q hacer q ando un poco perdido xD grax de antemano un saludo
|
|
« Última modificación: 28 Septiembre 2008, 19:09 pm por WestOn »
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Mi pregunta es como puedo pasarlo a hexadecimal, y posteriormente (nose como..:S) poder pasarlo a letras normales para cargarlo al text...
Public Function Hex_String(CodigoHex As String) As String Dim i As Double Dim nBytes As Double Dim ddd As String nBytes = Len(CodigoHex) \ 2 Hex_String = String(nBytes, " ") For i = 0 To nBytes - 1 ddd = ddd & Chr$(Val("&H" & Mid$(CodigoHex, i * 2 + 1, 2))) 'Mid$(Hex_String, i + 1, 1) = Chr$(Val("&H" & Mid$(CodigoHex, i * 2 + 1, 2))) Next Hex_String = ddd End Function ' Fin del codigo ' ---------------------------------------------------------------------------> ' ---------------------------------------------------------------------------> ' ---------------------------------------------------------------------------> ' Convierte los bits a Hexadecimal y despues a String ' Por ejemplo: 077 lo combierte a 4D y despues a la letra M ' Funcion que funciona en conjunto de la funcion de Haxadecimal a string ' Regresa 2 digitos Hexadecimales por bit (8 por byte) Public Function Byte_Hex_String(ByVal x) As String x = x And &HFF If x < 16 Then Byte_Hex_String = Hex_String("0" & Hex(x)) Else Byte_Hex_String = Hex_String(Hex(x)) End If End Function Private Sub Form_Load() MsgBox Hex_String("4d") MsgBox Byte_Hex_String("77") End Sub
|
|
« Última modificación: 29 Septiembre 2008, 03:37 am por ░▒▓BlackZeroҖ▓▒░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
krackwar
Desconectado
Mensajes: 900
|
Abrelo como byte no como string... y hay te da el archivo en byte's vas transformando los numeros a hexadecimal . Resultado: MZ Por cierto nose bien como funciona el VB pero esto debe ocurrir por que despues de "MZ" hay un byte 0 (chr(0)) .
|
|
|
En línea
|
Mi blogBienvenido 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.
|
|
|
Freeze.
|
Mira yo hize este ejemplo: Private Sub Form_Load() Dim cont() As Byte Open "C:\Ejecutable.exe" For Binary As #1 cont = Input(LOF(1), #1) Close #1 Text1.Text = cont End Sub.
A mi me funcinó. Es simple Solo colocale al TextBox (Text1) Multiline en True y Scrollbars en vertical o como a ti te guste
|
|
|
En línea
|
|
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
Grax a tdos, voy ver si lo consigo y ya os digo En el code de ░▒▓BlackZeroҖ▓▒░ me da error nada mas arrancar: nBytes = Len(CodigoHex) \ 2 "Procedimiento externo no es válido (CodigoHex)" Freeze tu code me da el mismo resultado: un saludo
|
|
« Última modificación: 28 Septiembre 2008, 21:54 pm por WestOn »
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
Freeze.
|
Pues si :O :O :O No quiero pasar por loco pero hubo un momento en que me lo mostró
|
|
|
En línea
|
|
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
jejej , he subido una dll (con un code sencillo), para q si alguien es capaz de obtener lo q ahi dentro nos ponga aqui el code q ha usado http://www.megaupload.com/es/?d=FOICFGN7un saludo
|
|
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
Freeze tu code me da el mismo resultado: No leiste mi post .
|
|
|
En línea
|
Mi blogBienvenido 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.
|
|
|
|
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,173
|
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,851
|
29 Octubre 2011, 15:44 pm
por nolosabe
|
|
|
Leer archivo binario en Vbs
Scripting
|
kapo.damy
|
2
|
4,115
|
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,403
|
13 Agosto 2012, 01:37 am
por CSQCasimiro
|
|
|
Ayuda con programa en C (archivo binario)
Programación C/C++
|
anaceci21
|
0
|
1,717
|
28 Mayo 2013, 23:08 pm
por anaceci21
|
|