2.2kvistas

Algoritmo para encriptar y desencriptar cadenas de texto mediante un PASSWORD utilizando visual basic .net.

Hola comunidad, espero estén bien. Aquí les traigo un algoritmo que encontré hace tiempo en la red, que me sirvió de mucho al momento de guardar datos en un archivo XML asi como en la base de datos.

Su uso es muy simple y sencillo.

Lo puedes meter en una clase o en un modulo y listo.

En este algoritmo ademas de indicar el texto a encriptar, debemos pasarle una cadena de texto que servirá como PASSWORD/CONTRASEÑA para desencriptar esta misma cadena de texto.

Public Function EncryptText(ByVal strText As String, ByVal strPwd As String) As String
        Dim i As Integer, C As Integer
        Dim strBuff As String = ""

        strPwd = UCase$(strPwd)

        'Encrypt string
        If Len(strPwd) > 0 Then
            For i = 1 To Len(strText)
                C = Asc(Mid$(strText, i, 1))
                C += Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
                strBuff &= Chr(C And &HFF)
            Next i
        Else
            strBuff = strText
        End If
        Return strBuff
    End Function

Pues para desencriptar solo es necesario especificar la cadena y el PASSWORD/CONTRASEÑA que elegimos.

Public Function DecryptText(ByVal strText As String, ByVal strPwd As String) As String
        Dim i As Integer, C As Integer
        Dim strBuff As String = ""

        strPwd = UCase$(strPwd)

        'Decrypt string
        If Len(strPwd) > 0 Then
            For i = 1 To Len(strText)
                C = Asc(Mid$(strText, i, 1))
                C -= Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
                strBuff &= Chr(C And &HFF)
            Next i
        Else
            strBuff = strText
        End If
        Return strBuff
    End Function
Shares

Share