Skip to main content
6 de 10
se añadieron 21 caracteres en el cuerpo

¿Como pasar de los binarios del ascii 8-bit a los binarios del ascii 6-bit?

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 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