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!!
1.000.000 de Gracias!!!!!!!!!!!!!!!!!!
ResponderEliminarMe salvaron la vida
Saludos
ahora arrevez por favor :P
ResponderEliminarEstimado muchas gracias me sirvió un montón pero en esa linea (la que esta mas abajo) le cortas el ultimo carácter al resultado yo lo compare con otros convertidores y siempre en tu aplicación me faltaba un numero así que borre el -1 y me comenzaron a quedar igual, no se con que finalidad iba esa parte pero por si alguien lo ve luego para que este enterado...
ResponderEliminarMuchas Gracias
Val = Resultado.ToString.Substring(0, Resultado.ToString.Length - 1)
cabron idiota con que programa se abre eso yo uso vb 6.0
ResponderEliminarchoto marica puta burro ps hazlo tu
ResponderEliminar