Código:
Public Function Encrypta(Texto As String) As String
Dim i As Integer
Dim Char As String
Dim Temp As String
For i = 1 To Len(Texto)
Char = Mid$(Texto, i, 1)
Temp = Temp & Chr(Asc(Char) + i)
Next
Encrypta = Temp
End Function
Código:
Public Function DesEncrypta(Texto As String) As String
Dim Temp As String
Dim i As Integer
Dim Char As String
For i = 1 To Len(Texto)
Char = Mid$(Texto, i, 1)
Temp = Temp & Chr(Asc(Char) - i)
Next
DesEncrypta = Temp
End Function
Para un mejor Cifrado las uso 2 veces
Texto = Encrypta(Encrypta("Hola a todos"))
OtroTexto = DesEncrypta(DesEncrypta("Jsri*m.„�x…‹"))
Si la usas mas de 3 veces muere XD
Saludos