Visual Basic

Public Class ICrypto
	'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
#Region "Methods"

	'Function to Return a Key
	<DebuggerStepThrough()> _
	Private Shared Function GetKey(ByVal Data As String, ByVal KeySize As Integer) As Byte()
		Dim nSize As Integer = CInt((KeySize / 8) - 1)
		Dim vKey(nSize) As Byte
		If (Data.Length >= 1) Then
			Dim lastBound As Integer = Data.Length
			If (lastBound > nSize) Then lastBound = nSize

			For i As Integer = 0 To lastBound - 1
				vKey(i) = Convert.ToByte(Data.Chars(i))
			Next
		End If

		Return vKey
	End Function

	'Function to Get the Initialization Vector
	<DebuggerStepThrough()> _
	Private Shared Function GetIV(ByVal Data As String, ByVal BlockSize As Integer) As Byte()
		Dim nSize As Integer = CInt((BlockSize / 8) - 1)
		Dim vVector(nSize) As Byte
		If (Data.Length >= 1) Then
			Dim lastBound As Integer = Data.Length
			If (lastBound > nSize) Then lastBound = nSize
			For i As Integer = 0 To lastBound - 1
				vVector(i) = Convert.ToByte(Data.Chars(i))
			Next
		End If

		Return vVector
	End Function

	'Function to Encrypt Data
	<DebuggerStepThrough()> _
	Public Shared Function Encrypt(ByVal Data As String, ByVal Password As String, Optional ByVal ConvertToBase64 As Boolean = True) As String
		Dim provCrypto As Cryptography.SymmetricAlgorithm
		Dim mEncryptor As ICryptoTransform
		Dim stCrypto As Cryptography.CryptoStream
		Dim stMemory As IO.MemoryStream, stWriter As IO.StreamWriter
		Dim vData() As Byte
		Dim sData As String

		'Exit if there is no Data
		If (IsNothing(Data)) Then Return String.Empty
		If (Data.Equals(String.Empty)) Then Return String.Empty

		Try
			'Initialize the Crypto Provider (3DES)
			provCrypto = Cryptography.TripleDES.Create()
			provCrypto.KeySize = 128
			provCrypto.BlockSize = 64
			provCrypto.Mode = CipherMode.CBC
			provCrypto.Padding = PaddingMode.PKCS7

			'Initialize the Memory Stream and Encrypt the Data
			vData = ConvertStringToBytes(Data)
			stMemory = New IO.MemoryStream
			mEncryptor = provCrypto.CreateEncryptor(GetKey(Password, provCrypto.KeySize), GetIV("Initialization Vector", provCrypto.BlockSize))
			stCrypto = New CryptoStream(stMemory, mEncryptor, CryptoStreamMode.Write)

			'Write the Encrypted Data
			stCrypto.Write(vData, 0, vData.Length)
			stCrypto.FlushFinalBlock()

			If (ConvertToBase64) Then
				'Base64 Encoding enables Saving to XML
				sData = System.Convert.ToBase64String(stMemory.ToArray())
			Else
				sData = ConvertBytesToString(stMemory.ToArray())				 'Encode the Byte Array to UTF8
			End If

		Catch ex As Exception		   ': MsgBox(ex.ToString)
		Finally
			Erase vData
			If (Not IsNothing(stMemory)) Then stMemory.Close() : stMemory = Nothing
			If (Not IsNothing(stCrypto)) Then stCrypto.Clear() : stCrypto.Close() : stCrypto = Nothing
			If (Not IsNothing(mEncryptor)) Then mEncryptor.Dispose() : mEncryptor = Nothing
			If (Not IsNothing(provCrypto)) Then provCrypto.Clear() : provCrypto = Nothing

		End Try

		'Return the Data
		Return sData
	End Function

	'Function to Decrypt Data
	<DebuggerStepThrough()> _
	Public Shared Function Decrypt(ByVal Data As String, ByVal Password As String, Optional ByVal ConvertFromBase64 As Boolean = True) As String
		Dim provCrypto As Cryptography.SymmetricAlgorithm
		Dim mDecryptor As ICryptoTransform
		Dim stCrypto As Cryptography.CryptoStream
		Dim stMemory As IO.MemoryStream
		Dim vData() As Byte
		Dim sData As String

		'Exit if there is no Data
		If (IsNothing(Data)) Then Return String.Empty
		If (Data.Equals(String.Empty)) Then Return String.Empty

		Try
			'Initialize the Crypto Provider (3DES)
			provCrypto = Cryptography.TripleDES.Create()
			provCrypto.KeySize = 128
			provCrypto.BlockSize = 64
			provCrypto.Mode = CipherMode.CBC
			provCrypto.Padding = PaddingMode.PKCS7

			'Decrypt the Data
			If (ConvertFromBase64) Then
				ReDim vData(Data.Length)
				vData = System.Convert.FromBase64String(Data)
			Else
				vData = ConvertStringToBytes(Data)
			End If
			stMemory = New IO.MemoryStream
			mDecryptor = provCrypto.CreateDecryptor(GetKey(Password, provCrypto.KeySize), GetIV("Initialization Vector", provCrypto.BlockSize))
			stCrypto = New CryptoStream(stMemory, mDecryptor, CryptoStreamMode.Write)
			stCrypto.Write(vData, 0, vData.Length)
			stCrypto.FlushFinalBlock()

			'Read the Encrypted Data
			sData = ConvertBytesToString(stMemory.ToArray())

		Catch ex As Exception		   ': MsgBox(ex.ToString)
		Finally
			Erase vData
			If (Not IsNothing(stMemory)) Then stMemory.Close() : stMemory = Nothing
			If (Not IsNothing(stCrypto)) Then stCrypto.Clear() : stCrypto = Nothing
			If (Not IsNothing(mDecryptor)) Then mDecryptor.Dispose() : mDecryptor = Nothing
			If (Not IsNothing(provCrypto)) Then provCrypto.Clear() : provCrypto = Nothing

		End Try

		'Return the Data
		Return sData
	End Function

	'Function to Convert a String to a Byte Array
	<DebuggerStepThrough()> _
	Public Shared Function ConvertStringToBytes(ByVal Data As String) As Byte()
		Return System.Text.UTF8Encoding.UTF8.GetBytes(Data)
	End Function

	'Function to Convert Bytes to a String
	<DebuggerStepThrough()> _
	Public Shared Function ConvertBytesToString(ByVal Bytes() As Byte) As String
		Return System.Text.UTF8Encoding.UTF8.GetString(Bytes)
	End Function

#End Region
	'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>

	'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
#Region "Class Constructors / Destructors"

	'Initialize the Class
	Private Sub New()
	End Sub

#End Region
	'<<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>><<o>>
End Class