Imports System

Imports System.Text

Imports System.Security.Cryptography

Imports System.IO

Public Module Module1

    Public  Function Encryption(ByVal data() As Byte, ByVal MyKey As String) As Int32

Try

'Comment for below mention line -- Convert MyKey ie., 64 character Key to Bytes of length : 48

Dim _key() As Byte = Convert.FromBase64String(MyKey)

'Comment for below mention line -- For more security purpose, again generating Bytes of below mentioned comma seperated values of length : 16

Dim _iv() As Byte = {83, 71, 26, 58, 54, 35, 22, 11, 83, 71, 26, 58, 54, 35, 22, 11}

'Comment for below mention line -- Passing both above generated bytes values to below mention Encry System.Security.Cryptography.Rfc2898DeriveBytes function

Dim keyBuilder As Rfc2898DeriveBytes = New Rfc2898DeriveBytes(MyKey, _iv)

'Comment for below mention line -- String to a filestream, used a memorystream

Dim ms As New MemoryStream()

'Comment for below mention line -- Creating object of System.Security.Cryptography.RijndaelManaged

Dim aes As New RijndaelManaged()

'Comment for below mention line -- Setting Advanced Encryption Standard KeySize

aes.KeySize = 256

'Comment for below mention line -- A byte array filled with pseudo-random key bytes.

aes.IV = keyBuilder.GetBytes(CType(aes.BlockSize / 8, Integer))

aes.Key = keyBuilder.GetBytes(CType(aes.KeySize / 8, Integer))

'Initializes a new instance of the System.Security.Cryptography.CryptoStream class

Dim cs As New CryptoStream(ms, aes.CreateEncryptor, CryptoStreamMode.Write)

'Comment for below mention line -- Writes a sequence of bytes to the current System.Security.Cryptography.CryptoStream

cs.Write(data, 0, data.Length)

'Comment for below mention line -- clears the buffer.

cs.FlushFinalBlock()

'The byte array from which this stream was created

            Console.WriteLine(Convert.ToBase64String(ms.GetBuffer()))

​

Return 1

Catch ex As Exception

Throw ex

End Try

End Function

    '//8Ke1jQbDAac

    '//kvekka@gmail.com

    '//22 06 1984

    Public Sub Main()

        Console.WriteLine("Hello World")

        'Encoding e = new Encoding()

        Encryption(Encoding.ASCII.GetBytes("19840622"),"ntr5QHujLcpbE64rUDcLtVY7zfFA5aWgFXorDCV3fA1AIk3PU1DQaRsvyQoj6nGT")

    End Sub

End Module

'XB+RbZ6RIymFbWFmjoTf5w==

​