Archivos diarios: 18 junio, 2010

Aplicación 8: Pasar Texto a Binario en .Net


Simple aplicación que convierte un texto a binario. Espero pronto cargar esta misma aplicación con la funcion de convertir binario a texto… Pero mientras, el fomulario quedaría así:

Su código es el siguiente y puedes descargar la aplicación desde AQUI

  Dim Val As String = Nothing
        Dim Resultado As New System.Text.StringBuilder

        For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
            Resultado.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
            Resultado.Append("")
        Next

        Val = Resultado.ToString.Substring(0, Resultado.ToString.Length - 1)
        TextBox2.Text = Val

Si alguién sabe otra forma de convertir texto a Binario no estaria demás compartir y por si acaso quieres probar herramientas online sobre converit texto a binario y viceversa aca unos link:

Saludos!!