+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: RC2 Encryption (/Thread-RC2-Encryption)
RC2 Encryption - Clan99 - 07-04-2011
Code:
Public Function RC2Encrypt(ByVal strInput As String, ByVal strPassword As String) As String
Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider
Dim HashRC2 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim strEncrypted As String = ""
Try
Dim Hash() As Byte = HashRC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(strPassword))
RC2.Key = Hash
RC2.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(strInput)
strEncrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return strEncrypted
Catch ex As Exception
End Try
End Function
Public Function RC2Decrypt(ByVal strInput As String, ByVal strPassword As String) As String
Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider
Dim HashRC2 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim strDecrypted As String = ""
Try
Dim Ha