Encrypt decrypt string
There is a class to encrypt ot decrypt strings
Imports System.IO
Imports System.Text.Encoding
Imports System.Security.Cryptography
Public Class Crypto
Private Shared PKey As String = "My key string goes here"
Private Shared IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
Private Sub New()
End Sub
Public Shared Function EncryptString(ByVal StringToEncrypt As String) As String
Return Encrypt(StringToEncrypt, PKey)End Function
Public Shared Function DecryptString(ByVal StringToDecrypt As String) As StringReturn Decrypt(StringToDecrypt, PKey)
End Function
Private Shared Function Encrypt(ByVal strText As String, ByVal strEncrKey As String) As String
Dim byKey() As Byte
Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}Try
byKey = System.Text.Encoding.UTF8.GetBytes(Left(strEncrKey, 8))
Dim des As New DESCryptoServiceProviderDim inputByteArray() As Byte = UTF8.GetBytes(strText)
Dim ms As New MemoryStreamDim cs As New CryptoStream(ms, des.CreateEncryptor(byKey, IV), CryptoStreamMode.Write)cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
cs.Close()
cs = Nothing
des.Clear()
des = Nothing
Dim arrX() As Byte = ms.ToArrayms.Close()
ms = Nothing
System.GC.Collect()
Return System.Convert.ToBase64String(arrX) Catch ex As ExceptionReturn "Encryption failed."
End Try
End Function
Private Shared Function Decrypt(ByVal strText As String, ByVal sDecrKey As String) As String Dim byKey() As Byte = {} Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
Dim inputByteArray(strText.Length) As Byte
Try
byKey = System.Text.Encoding.UTF8.GetBytes(Left(sDecrKey, 8))
Dim des As New DESCryptoServiceProviderinputByteArray = System.Convert.FromBase64String(strText)
Dim ms As New MemoryStreamDim cs As New CryptoStream(ms, des.CreateDecryptor(byKey, IV), CryptoStreamMode.Write)cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8()cs.Close()
cs = Nothing
des.Clear()
des = Nothing
Dim arrX() As Byte = ms.ToArrayms.Close()
ms = Nothing
System.GC.Collect()
Return encoding.GetString(arrX) Catch ex As ExceptionReturn "Decryption failed."
End Try
End Function
End Class
Hope it helps