Funciones de encriptacion

Funciones para encriptar y desencriptar una cadena de texto
[Libro de ejemplo]
Las siguientes funciones sirven para encriptar (o cifrar) y desencriptar (o descifrar) una cadena de texto en funciónde la clave facilitada.
Cuanto más larga sea la clave, más difícil será descubrirla, aunque no tiene ningún sentido que su longitud sea mayor que la del texto a encriptar.
La complejidad de la claveestá determinada tanto por su longitud como por lo variada que sea. Por ejemplo, la clave “AAAAAAA” sería tan sencilla de descubir como “A”

Esta es la función para encriptar:
Public FunctionEncriptar(texto As String, clave As String) As String
If Len(texto) = 0 Or Len(clave) = 0 Then
Encriptar = "Error en la función Encriptar."
Exit Function
End IfDim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Encriptar = Encriptar + Chr(IIf(Asc(Mid(texto, posT, 1)) + Asc(Mid(clave, posC, 1)) > 255,Asc(Mid(texto, posT, 1)) + Asc(Mid(clave, posC, 1)) - 255, Asc(Mid(texto, posT, 1)) + Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End Function
Lasintaxis es:

=Encriptar(“Texto a encriptar”; “Clave”)


Y esta es la función para desencriptar:
Public Function Desencriptar(texto As String, clave As String) As String
If Len(texto) = 0 OrLen(clave) = 0 Then
Desencriptar = "Error en la función Desencriptar"
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1For posT = 1 To Len(texto)
Desencriptar = Desencriptar + Chr(IIf(Asc(Mid(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) < 0, Asc(Mid(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) + 255,Asc(Mid(texto, posT, 1)) - Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End Function
La sintaxis es:

=Desencriptar(“Texto a desencriptar”; “Clave”)...