Encrypt&Decrypt (xor,des,rc2,tripleDES)

Public Function DES_Encrypt(ByVal input As String, ByVal pass As String) As String

        Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider

        Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim encrypted As String = ""

        Try

            Dim hash(7) As Byte

            Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))

            Array.Copy(temp, 0, hash, 0, 8)

            DES.Key = hash

            DES.Mode = Security.Cryptography.CipherMode.ECB

            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor

            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(Input)

            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

            Return encrypted

        Catch ex As Exception

        End Try

    End Function

Public Function DES_Decrypt(ByVal input As String, ByVal pass As String) As String

        Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider

        Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim decrypted As String = ""

        Try

            Dim hash(7) As Byte

            Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))

            Array.Copy(temp, 0, hash, 0, 8)

            DES.Key = hash

            DES.Mode = Security.Cryptography.CipherMode.ECB

            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateDecryptor

            Dim Buffer As Byte() = Convert.FromBase64String(input)

            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

            Return decrypted

        Catch ex As Exception

        End Try

    End Function

Public Function RC2_Encrypt(ByVal input As String, ByVal pass As String) As String

        Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider

        Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim encrypted As String = ""

        Try

            Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))

           

            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(input)

            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

            Return encrypted

        Catch ex As Exception

        End Try

    End Function

Public Function RC2_Decrypt(ByVal input As String, ByVal pass As String) As String

        Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider

        Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim decrypted As String = ""

        Try

              Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))

            RC2.Key = hash

            RC2.Mode = Security.Cryptography.CipherMode.ECB

            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateDecryptor

            Dim Buffer As Byte() = Convert.FromBase64String(input)

            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

            Return decrypted

        Catch ex As Exception

        End Try

    End Function

Public Function TripleDES_Encrypt(ByVal input As String, ByVal pass As String) As String

        Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider

        Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim encrypted As String = ""

        Try

            Dim hash(23) As Byte

            Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))

            Array.Copy(temp, 0, hash, 0, 16)

            Array.Copy(temp, 0, hash, 15, 8)

            TripleDES.Key = hash

            TripleDES.Mode = Security.Cryptography.CipherMode.ECB

            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateEncryptor

            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)

            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

            Return encrypted

        Catch ex As Exception

        End Try

    End Function

Public Function TripleDES_Decrypt(ByVal input As String, ByVal pass As String) As String

        Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider

        Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim decrypted As String = ""

        Try

            Dim hash(23) As Byte

            Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))

            Array.Copy(temp, 0, hash, 0, 16)

            Array.Copy(temp, 0, hash, 15, 8)

            TripleDES.Key = hash

            TripleDES.Mode = Security.Cryptography.CipherMode.ECB

            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateDecryptor

            Dim Buffer As Byte() = Convert.FromBase64String(input)

            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))

            Return decrypted

        Catch ex As Exception

        End Try

    End Function

Public Function XOR_Encrypt(ByVal Input As String, ByVal pass As String) As String

        Dim out As New System.Text.StringBuilder

        Dim u As Integer

        For i As Integer = 0 To Input.Length - 1

            Dim tmp As String = No tienes permisos para ver links. Registrate o Entra con tu cuenta(No tienes permisos para ver links. Registrate o Entra con tu cuenta(Input(i)) Xor No tienes permisos para ver links. Registrate o Entra con tu cuenta(pass(u)))

            If tmp.Length = 1 Then tmp = "0" & tmp

            out.Append(tmp)

            If u = pass.Length - 1 Then u = 0 Else u = u + 1

        Next

        Return out.ToString

    End Function

Public Function XOR_Decrypt(ByVal Input As String, ByVal pass As String) As String

        Dim out As New System.Text.StringBuilder

        Dim u As Integer

        For i As Integer = 0 To Input.Length - 1 Step +2

            Dim tmp As String = No tienes permisos para ver links. Registrate o Entra con tu cuenta(("&H" & Input.Substring(i, 2)) Xor No tienes permisos para ver links. Registrate o Entra con tu cuenta(pass(u)))

            out.Append(tmp)

            If u = pass.Length - 1 Then u = 0 Else u = u + 1

        Next

        Return out.ToString

    End Function