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 recupererarlos pero si me da 000001
por 1 en ASCII, me da 1000101
por la letra u
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