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

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

• sztigma.tk


• Conversor Universal


• NickCiske

Saludos!!