Saludos a todos!
Tengo un programa que uso para leer un archivo .bin, lo convierto a binario y cambio bits de un lado a otro. Pero es necesario que el proceso se haga cada 16 bits, en total son 8 cambios de posicion.
Necesito hacer esto cada 16 bits hasta el final del archivo:
12 al 2
15 al 4
9 al 13
5 al 10
11al 8
3 al 7
1 al 14
16 al 6
La manera que lo estoy haciendolo me da el resultado pero me tomaria una eternidad hacerlo asi
Chunk = Text1.Text
Bit1 = 12
Bit2 = 16
bChar = Mid$(Chunk, Bit1, 1)
Mid$(Chunk, Bit1, 1) = Mid$(Chunk, Bit2, 1)
Mid$(Chunk, Bit2, 1) = bChar
Text2.Text = Chunk
En otras palabras estoy haciendo esto 8 veces cada 12 bits, me muero...
Hay alguna manera de automatizar los 8 cambios cada 16 bits hasta el final?
8 bit shift cada 16 bits independientemente...
Gracias por su tiempo amigos!
Tengo un programa que uso para leer un archivo .bin, lo convierto a binario y cambio bits de un lado a otro. Pero es necesario que el proceso se haga cada 16 bits, en total son 8 cambios de posicion.
Necesito hacer esto cada 16 bits hasta el final del archivo:
12 al 2
15 al 4
9 al 13
5 al 10
11al 8
3 al 7
1 al 14
16 al 6
La manera que lo estoy haciendolo me da el resultado pero me tomaria una eternidad hacerlo asi
Chunk = Text1.Text
Bit1 = 12
Bit2 = 16
bChar = Mid$(Chunk, Bit1, 1)
Mid$(Chunk, Bit1, 1) = Mid$(Chunk, Bit2, 1)
Mid$(Chunk, Bit2, 1) = bChar
Text2.Text = Chunk
En otras palabras estoy haciendo esto 8 veces cada 12 bits, me muero...
Hay alguna manera de automatizar los 8 cambios cada 16 bits hasta el final?
8 bit shift cada 16 bits independientemente...
Gracias por su tiempo amigos!