Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Text
- Imports System.Text.RegularExpressions
- Public Class frmTest
- Public Function TextToBinary(ByVal Text As String, Optional ByVal Separator As String = " ") As String
- Dim oReturn As New StringBuilder
- ' Convert to ASCII and go through all the bytes
- For Each Character As Byte In ASCIIEncoding.ASCII.GetBytes(Text)
- oReturn.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
- oReturn.Append(Separator)
- Next
- Return oReturn.ToString
- End Function
- Public Function BinaryToText(ByVal BinaryText As String) As String
- Dim Characters As String = Regex.Replace(BinaryText, "[^01]", "")
- Dim ByteArray((Characters.Length / 8) - 1) As Byte
- ' Retrieve the original byte array
- For Index As Integer = 0 To ByteArray.Length - 1
- ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2)
- Next
- ' Convert the ASCII-array to a Unicode string
- Return ASCIIEncoding.ASCII.GetString(ByteArray)
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement