Mostrar mensajes previos
Ordenar por
por Wachimole Sin sí­ntomas
Hola a todos, me ayudan con este problema..
Pasa que estoy intentando modificar offsets hexadecimalmente desde visual basic..
Lo pude hacer, pero con un gran error..
Cuando lo hago me lo modifica correctamente, pero tambien me duplica todo..
Aca el codigo:

Código: Seleccionar todo

Dim Archivo() As Byte
Open Text1.Text For Binary As #1
    Archivo() = Space(LOF(1))
    Get #1, , Archivo()
Close #1

Archivo(Text3.Text) = HexToDec(Text2.Text)
Open Text1.Text For Binary As #1
    Put #1, , Archivo()
Close #1
Encontre una posible solucion, osea, no lo soluciono con esto, pero creo que por aca viene la mano.. Uso este codigo:

Código: Seleccionar todo

Dim Archivo() As Byte
Open Text1.Text For Binary As #1
    Archivo() = Space(LOF(1))
    Get #1, , Archivo()
Close #1

Archivo(Text3.Text) = HexToDec(Text2.Text)
Open Text1.Text For Binary As #1
    Put #1, , Archivo(Text3.Text)
Close #1
Con este otro codigo no me duplica nada, pero me modifica el primer offset, no el que yo marco en el text3.text..
Bueno, espero que me digan cual es mi error..

Un saludo,
Wachimole

PD: Me olvide de aclarar que la funcion HexToDec ya la tengo declarada :P
por Wachimole Sin sí­ntomas
Finalmente lo pude hacer andar con este codigo:

Código: Seleccionar todo

Archivo(Text3.Text) = HexToDec(Text2.Text)
Open Text1.Text For Binary As #1
    For i = 0 To FileLen(Text1.Text) - 1
        Put 1#, , Archivo(i)
    Next i
Close #1
Un saludo a todos, si quieren pueden cerrar! :D
Temas similares
Problema con espia por Manuteball en Dudas y Preguntas
Problema con ettercap y bettercap por k4k4 en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”