Public EncKey As String = "odBearBecauseHeIsVeryGoodSiuHungIsAGo"
    Public Function EncryptString(ByVal Contents As String) As Byte()
        Try
            Dim EncKeyLength As Integer = EncKey.Length
            Dim Encoding As New System.Text.ASCIIEncoding
            Dim ContentsBytes As System.Collections.Generic.List(Of Byte) = Encoding.GetBytes(Contents).ToList
            Dim ResultBytes As New System.Collections.Generic.List(Of Byte)
            Dim CountBuffer As Integer = 0
            Try
                For Each buffer As Byte In ContentsBytes
                    If buffer <> &HD Then
                        buffer += Asc(EncKey(CountBuffer))
                        ResultBytes.Add(buffer)
                        CountBuffer += 1
                    End If
                    If CountBuffer > EncKeyLength - 1 Then
                        CountBuffer = 0
                    End If
                Next
            Catch ex As Exception
 
            End Try
            Return ResultBytes.ToArray
        Catch ex As Exception
            Return New Byte() {}
        End Try
    End Function
 
    Public Function DecryptBytes(ByVal Contents() As Byte, Optional ByVal EncryptionKeyIndex As Integer = 0) As String
        Try
            Dim EncKeyLength As Integer = EncKey.Length
            Dim ResultString(Contents.Length - 1) As Char
            Dim ResultIndexBuffer As Integer = 0
            Dim CharBuffer As Integer
            Try
                For Each buffer As Byte In Contents
                    CharBuffer = buffer
                    CharBuffer -= Asc(EncKey.Chars(EncryptionKeyIndex))
                    ResultString(ResultIndexBuffer) = ChrW(CharBuffer)
                    ResultIndexBuffer += 1
                    EncryptionKeyIndex += 1
                    If EncryptionKeyIndex > EncKeyLength - 1 Then
                        EncryptionKeyIndex = 0
                    End If
                Next
            Catch ex As Exception
 
            End Try
            Return New String(ResultString)
        Catch ex As Exception
            Return String.Empty
        End Try
    End Function

Public EncKey As String = "odBearBecauseHeIsVeryGoodSiuHungIsAGo"
 
    Private Sub mnuOpenTest_Click(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) _ 
Handles mnuOpenTest.Click
 
        opoOpenTest.FileName = Nothing
        opoOpenTest.ShowDialog()
 
        Dim strFileName As String = opoOpenTest.FileName
        Dim fs As New FileStream _ 
(strFileName, FileMode.Open, FileAccess.Read)
 
        Dim Filesss As New StreamReader(fs)
 
        Dim encoding As New System.Text.ASCIIEncoding
 
        Do While Filesss.Peek() > -1
 
            Dim Superbyte() As Byte = encoding.GetBytes(Filesss.ReadLine())
 
            Me.txtText.Text &= DecryptBytes(Superbyte)
        Loop
 
    End Sub
 
    Public Function DecryptBytes(ByVal Contents() As Byte, Optional ByVal EncryptionKeyIndex As Integer = 0) As String
        Try
            Dim EncKeyLength As Integer = EncKey.Length
            Dim ResultString(Contents.Length - 1) As Char
            Dim ResultIndexBuffer As Integer = 0
            Dim CharBuffer As Integer
            Try
                For Each buffer As Byte In Contents
                    CharBuffer = buffer
                    CharBuffer -= Asc(EncKey.Chars(EncryptionKeyIndex))
                    ResultString(ResultIndexBuffer) = ChrW(CharBuffer)
                    ResultIndexBuffer += 1
                    EncryptionKeyIndex += 1
                    If EncryptionKeyIndex > EncKeyLength - 1 Then
                        EncryptionKeyIndex = 0
                    End If
                Next
            Catch ex As Exception
 
            End Try
            Return New String(ResultString)
        Catch ex As Exception
            Return String.Empty
        End Try
    End Function

Public Function Open(ByVal filename As String) As String
        Dim stuff() as Byte = System.IO.File.ReadAllBytes(filename)
        Dim copied() as Byte
        '....Do stuff here to copy everything from stuff to copied EXCEPT THE FIRST 123 BYTES
        Return DecryptBytes(copied)
    End Sub
 
    Public Function DecryptBytes(ByVal Contents() As Byte, Optional ByVal EncryptionKeyIndex As Integer = 0) As String
        Try
            Dim EncKeyLength As Integer = EncKey.Length
            Dim ResultString(Contents.Length - 1) As Char
            Dim ResultIndexBuffer As Integer = 0
            Dim CharBuffer As Integer
            Try
                For Each buffer As Byte In Contents
                    CharBuffer = buffer
                    CharBuffer -= Asc(EncKey.Chars(EncryptionKeyIndex))
                    ResultString(ResultIndexBuffer) = ChrW(CharBuffer)
                    ResultIndexBuffer += 1
                    EncryptionKeyIndex += 1
                    If EncryptionKeyIndex > EncKeyLength - 1 Then
                        EncryptionKeyIndex = 0
                    End If
                Next
            Catch ex As Exception
 
            End Try
            Return New String(ResultString)
        Catch ex As Exception
            Return String.Empty
        End Try
    End Function