Visual Basic 6: Code needed for TripleDES Encryption/Decryption

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class Encrypt
    Private _Transform As ICryptoTransform
    Public Sub New()
        _Transform = Nothing
        Dim tdes As New TripleDESCryptoServiceProvider
        Dim bKey As Byte() = Convert.FromBase64String("knpQXScPNUl2ha0BanyJI2voWif8eSlp")
        Dim bIV As Byte() = Convert.FromBase64String("OTpHDm/9aak=")
        _Transform = tdes.CreateEncryptor(bKey, bIV)
    End Sub
    Public Function EncryptData(ByVal Data As String) As String
        Dim outStream As MemoryStream = New  MemoryStream
        Dim encStream As New CryptoStream(outStream, _Transform, CryptoStreamMode.Write)
        Dim DataArray As Byte() = Encoding.ASCII.GetBytes(Data)
        encStream.Write(DataArray, 0, DataArray.Length)
        encStream.Close()
        Return Convert.ToBase64String(outStream.ToArray)
    End Function
End Class

Select allOpen in new window

Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

Public Class Decrypt
    Private _Transform As ICryptoTransform
    Public Sub New()
        Dim tdes As New TripleDESCryptoServiceProvider
        _Transform = Nothing

        Dim bKey as Byte()=Convert.FromBase64String("knpQXScPNUl2ha0BanyJI2voWif8eSlp")
        Dim bIV as Byte()=Convert.FromBase64String("OTpHDm/9aak=")
        _Transform = tdes.CreateDecryptor(bKey,bIV)
    End Sub
    Public Function StrToByteArray(str As String) As Byte()
       Dim encoding As New System.Text.ASCIIEncoding()
       Return encoding.GetBytes(str)
    End Function 'StrToByteArray
    Public Function DecryptData(ByVal Data As String) As String
        Try
            Dim inStream As MemoryStream = New MemoryStream(Convert.FromBase64String(Data))
            Dim cryptoStream As cryptoStream = New cryptoStream(inStream, _Transform, CryptoStreamMode.Read)

            Dim outStream As MemoryStream = New MemoryStream
            Dim writer As StreamWriter = New StreamWriter(outStream)
            Dim reader As StreamReader = New StreamReader(cryptoStream)

            writer.Write(reader.ReadToEnd())

            reader.Close()
            writer.Close()
            cryptoStream.Close()
            Return Encoding.ASCII.GetString(outStream.ToArray())
        Catch ex As Exception
            Diagnostics.Trace.WriteLine(ex.ToString)
            Return Nothing
        End Try
    End Function
End Class

Select allOpen in new window