Imports System

Imports System.IO

Imports System.Security.Cryptography

imports System.Text

Public Module Module1

    Public Sub Main()

        dim plainText = "This is some test text"

        Console.WriteLine("Plain Text: " & plainText)

        Console.WriteLine(plainText)

        Console.WriteLine()

        dim byteArray() = Encoding.ASCII.GetBytes( plainText )

        dim stream = new MemoryStream( byteArray )

        dim cipherBytes = encrypt(stream)

​

        Console.WriteLine("Cipher Bytes: ")

        for each b in cipherBytes

        Console.Write(b.ToString() + " ")

        next

    End Sub

    Public Function Encrypt(InputStream As Stream) As Byte()

​

        Dim outputStream = New MemoryStream()

​

        Dim EncryptionKey As String = "MAKV2SPBNI99212"

        Using encryptor As Aes = Aes.Create()

​

            Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76})

            encryptor.Key = pdb.GetBytes(32)

            encryptor.IV = pdb.GetBytes(16)

​

            Using cs As New CryptoStream(outputStream, encryptor.CreateEncryptor(), CryptoStreamMode.Write)

                Dim data As Integer

                While (Assign(data, InputStream.ReadByte())) <> -1

                    cs.WriteByte(CByte(data))

                End While

​

            End Using

        End Using

​

        Return outputStream.GetBuffer()

    End Function

​

    Public Function Decrypt(InputStream As Stream) As Byte()

​

        Dim outputStream = New MemoryStream()

​

        Dim EncryptionKey As String = "MAKV2SPBNI99212"

        Using encryptor As Aes = Aes.Create()

​

            Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76})

            encryptor.Key = pdb.GetBytes(32)

            encryptor.IV = pdb.GetBytes(16)

​

            Using cs As New CryptoStream(InputStream, encryptor.CreateDecryptor(), CryptoStreamMode.Read)

                Dim data As Integer

                While (Assign(data, cs.ReadByte())) <> -1

                    outputStream.WriteByte(CByte(data))

                End While

            End Using

        End Using

​

        Return outputStream.GetBuffer

    End Function

​

    Private Function Assign(Of T)(ByRef source As T, ByVal value As T) As T

        source = value

        Return value

    End Function

​

End Module