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
[sourcecode language="vb"]
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
[/sourcecode]
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!!
