Hi All,
Welcome to my blog again. I had a requirement in my project to encrypt some settings using a simple encryption. But I couldn't find a ready made solution, and from my college days, I always liked 3DES encryption. So, here is a "ready made" solution :
{Note: Of course, you'll have to change the IV (initialization vector) and the Key in the variable strCrypt }
Welcome to my blog again. I had a requirement in my project to encrypt some settings using a simple encryption. But I couldn't find a ready made solution, and from my college days, I always liked 3DES encryption. So, here is a "ready made" solution :
{Note: Of course, you'll have to change the IV (initialization vector) and the Key in the variable strCrypt }
Imports System.Security.Cryptography
Imports System.IO
Public Class clsDCrypto
Private m_bKey(), m_bIV() As Byte
Public Sub New()
Dim strCrypt, strIV As String
strCrypt = "q5AsCA64SeY+SpoJ24ERrg=="
strIV = "VaOHJOI2J/c="
m_bKey = Convert.FromBase64String(strCrypt)
m_bIV = Convert.FromBase64String(strIV)
End Sub
Public Function DecryptString(ByVal strCipherText As String) As String
Dim strTempDecrypt As String
Dim memstream2 As New MemoryStream
Dim iCryptoDecryptor As ICryptoTransform
Dim tDESProviderd As New TripleDESCryptoServiceProvider
Dim cryptdStream As CryptoStream
Dim bCipher As Byte()
bCipher = Convert.FromBase64String(strCipherText)
tDESProviderd.KeySize = 128
iCryptoDecryptor = tDESProviderd.CreateDecryptor(m_bKey, m_bIV)
cryptdStream = New CryptoStream(memstream2, iCryptoDecryptor, CryptoStreamMode.Write)
cryptdStream.Write(bCipher, 0, bCipher.Length)
cryptdStream.FlushFinalBlock()
memstream2.Position = 0
Dim temp2(CType(memstream2.Length - 1, System.Int32)) As Byte
memstream2.Read(temp2, 0, CType(temp2.Length, System.Int32))
memstream2.Close()
cryptdStream.Close()
strTempDecrypt = System.Text.Encoding.UTF8.GetString(temp2)
Return strTempDecrypt
End Function
Public Function EncryptString(ByVal strPlainText As String) As String
Dim tDESProvider As New TripleDESCryptoServiceProvider
'Dim tDes2 As New TripleDES
Dim cryptStream As CryptoStream
Dim iCryptoEncryptor As ICryptoTransform
Dim memStream As New MemoryStream()
Dim bPlainText As Byte()
Dim strTempEncrypt As String
tDESProvider.KeySize = 128
iCryptoEncryptor = tDESProvider.CreateEncryptor(m_bKey, m_bIV)
cryptStream = New CryptoStream(memStream, iCryptoEncryptor, CryptoStreamMode.Write)
bPlainText = System.Text.Encoding.UTF8.GetBytes(strPlainText)
cryptStream.Write(bPlainText, 0, bPlainText.Length)
cryptStream.FlushFinalBlock()
Dim tmp(CType(memStream.Length - 1, System.Int32)) As Byte
memStream.Position = 0
memStream.Read(tmp, 0, CType(memStream.Length, System.Int32))
memStream.Close()
cryptStream.Close()
strTempEncrypt = Convert.ToBase64String(tmp)
Return strTempEncrypt
End Function
End Class
