imports System
imports System.Text
imports System.Security.Cryptography
imports System.IO
 
public module MyModule
	sub Main
		'initialize our key
		Dim tripleDESKey As SymmetricAlgorithm = SymmetricAlgorithm.Create("TripleDES")
		tripleDESKey.Key = Convert.FromBase64String("cPSQAC05GBXzMhRRz7tm8cqg+vHdHyN5")
		tripleDESKey.IV = Convert.FromBase64String("jIShBJVBfXo=")
		
		'load our encrypted value into a memory stream
		Dim encryptedValue as String = "8yN73RDmMFuXo9ux8QKC6w=="
		Dim encryptedStream As MemoryStream = New MemoryStream()
		encryptedStream.Write(Convert.FromBase64String(encryptedValue), 0, Convert.FromBase64String(encryptedValue).Length)
		encryptedStream.Position = 0
	
		'set up a stream to do the decryption
		Dim cs As CryptoStream = New CryptoStream(EncryptedStream, tripleDESKey.CreateDecryptor, CryptoStreamMode.Read)
		Dim decryptedStream As MemoryStream = New MemoryStream()		
		Dim buf() As Byte = New Byte(2048) {}
		Dim bytesRead As Integer
		
		'keep reading from encrypted stream via the crypto stream
		'and store that in the decrypted stream
		bytesRead = cs.Read(buf, 0, buf.Length)
		While (bytesRead > 0)
			decryptedStream.Write(buf, 0, bytesRead)
			bytesRead = cs.Read(buf, 0, buf.Length)
		End While
 
		'reassemble the decrypted stream into a string	
		Dim decryptedValue As String = Encoding.ASCII.GetString(DecryptedStream.ToArray())
		
		Console.WriteLine(decryptedValue.ToString())
		Console.ReadLine() 'so you can see it
	end sub
end module