OpenFileDialog.Filter = "csv files (*.csv)|*.csv"
OpenFileDialog.ShowDialog()
Dim filename As String
filename = OpenFileDialog.FileName()
 
Dim sr As New IO.StreamReader(filename)
Dim Test As New ArrayList
Dim TestCount As Integer
Do While sr.Peek() > -1
  Test.Add(sr.ReadLine)
Loop
sr.Close()
TestCount = Test.Count()
Dim str(20) As String
Dim endC As New Collection, i As Integer, a As Integer = 0, c As Integer
Dim l As Integer
 
For c = 0 To Test.Count() - 1
For i = 0 To Test(c).Length() - 1
endC.Add(Test(c).Chars(a), i)
a += 1
str(i) = endC.Item(a)
str(i) = StrReverse(Convert.ToString(System.Uri.FromHex(Test(c).Chars(i)), _
  2).PadLeft(4, "0")) 'gedreht
For i2 As Integer = 0 To str(i).Length - 1
l = (l << 1) + Integer.Parse(str(i).Substring(i2, 1))
Next
str(i) = l
If str(i).Length = 1 Then str(i) = "0" & str(i)
l = Nothing
Next
Test(c) = str(1) & str(0) & str(3) & _
str(2) & str(5) & str(4) & str(7) & str(6) & _
str(9) & str(8)
a = 0
endC = Nothing
Next