Como pasar de los binarios del ascii 8-bit a los binarios del ascii 6-bit?
Por ejemplo, existe o no un vinculo entre H en 8-bit ASCII 0100 1000
y H en 6-bit ASCII 011000
?
Me refiero al articulo de Eric S. Raymond que fue editado dos veces recientemente sobre las tablas de conversion entre el ASCII y el binario.Aqui esta como recobrar los 6-bits.pero no el binario:
To recover the six bits, subtract 48 from the ASCII character value; if the result is greater than 40 subtract 8.
si eso es muy claro para los decimales
Char ASCII Decimal Bits
"0" 48 0 000000
"1" 49 1 000001
"2" 50 2 000010
"3" 51 3 000011
...
No lo esta para las letras
"H" 72 24 011000
He hecho el siguiente codigo para recupererar los binaries asociados con los simbolos ascii. Pero si me da 000001
por 1 en ASCII, que esta acertado, me da 1000101
por la letra u
en lugar de 111101
Module Module1
Public Function traduction_ASCII(trames As String)
Dim binario_en_8 As Integer = 0
Dim dec As Integer = 0
Dim Remainder As Integer
Dim result As String = ""
Dim j As Integer = 0
Dim tabular_binario(40) As String
'Modificamos los elementos ASCII en binarios
For i = 0 To trames.Length - 1
'Recuperamos el valor numerica del ASCII leido en 8 bits
binario_en_8 = Asc(trames.ElementAt(i))
'est esta necesario pero no se porque
dec = Val(binaire_en_8)
'la modificamos en su valor ASCII en 6 bits
dec = dec - 48
If dec > 40 Then
dec = dec - 8
End If
While dec > 0
remainder = dec Mod 2
dec /= 2
result = Remainder.ToString & result
j = j + 1
End While
While j < 6
result = "0" & result
j = j + 1
End While
tableau_binario(i) = result
result = ""
j = 0
Next
Return traduction_binaire_de_ASCII
End Function
End Module
El error es que para el programa, 1F / 2 = 8
en lugar de 7
pero no sé porque divide por esta manera