Skip to main content
9 de 10
mejoré el formato del código para facilitar la lectura, porque los comentarios tenían dificultad para identificarse.

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