Mensajes

Muchas Gracias!!!!

Ok voy a tratar, ya esto me da una idea mas clara...

Y tengo que trabajar con bits obligatoriamente, el convertir a binario no es problema, donde me estanque es en trabajar cada word individual hasta el final... Hace mucho mucho no trabajo con vb6 y estoy perdido en esa area.

No te entendi bien: Estas intercambiando los bits de cada WORD (2 bytes) del archivo?

Esto seria para cifrar la data?

Si pero para descifrar...

Es que no se como expresrme al 100%... A ver si me explico... tengo un file cifrado, pero para decriptarlo necesito hacer esos 8 pasos cada 16 bits osea cada 2 bytes... Leo el fichero cpmpleto y lo voy proceando cada 16 bits... En fin, necesito un loop o algo parecido que lo haga...

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!