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