Algoritmos para encriptar y desencriptar

Encriptar Cadena

Public Function EncriptarCadena (ByVal cadena As String) As String
Dim idx As Integer Dim result As String For idx = 0 To cadena.Length - 1 result += EncriptarCaracter(cadena.Substring(idx, 1), cadena.Length, idx) Next Return result
End Function

Encriptar caracter


Private Function EncriptarCaracter (ByVal caracter As String, _ ByVal variable As Integer, _ ByVal a_indice As Integer) As String Dim caracterEncriptado As String, indice As Integer If patron_busqueda.IndexOf(caracter) <> -1 Then indice = (patron_busqueda.IndexOf(caracter) + variable + a_indice) Mod patron_busqueda.Length Return Patron_encripta.Substring(indice, 1) End If Return caracter
End Function