te coloco esta funcion mas apropiada que solo le envies los parametros y retorna el datos encriptado o desencriptado
si el parametro esta encriptado te lo rertona desencriptado o viseversa
Public Function Crypt(Text As String) As String
Dim strTempChar As String
Dim I As Integer
For I = 1 To Len(Text)
If Asc(Mid$(Text, I, 1)) < 128 Then
strTempChar = Asc(Mid$(Text, I, 1)) + 128
ElseIf Asc(Mid$(Text, I, 1)) > 128 Then
strTempChar = Asc(Mid$(Text, I, 1)) - 128
End If
Mid$(Text, I, 1) = Chr(strTempChar)
Next I
Crypt = Text
End Function
saludos
desarrollador de software y redes
msn/correo:
[email protected] [email protected]
Bogotá-Colombia