String in Byte Array und zurück wandeln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

'------------------Daten(Bytearray) in String und zurück-------------------
    Public Function StringToByteArray(ByRef str As String) As Byte()
        Return Convert.FromBase64String(str)
    End Function

    Public Function ByteArrayToString(ByRef Barr() As Byte) As String
        Return Convert.ToBase64String(Barr)
    End Function

'------------------Text in Bytearray und zurück-------------------
    Public Function TextStringToByteArray(ByRef str As String) As Byte()
        Dim enc As System.Text.Encoding = System.Text.Encoding.Default

        Return enc.GetBytes(str)
    End Function

    Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String
        Dim enc As System.Text.Encoding = System.Text.Encoding.Default

        Return enc.GetString(Barr)
    End Function