Access - Encripatación y Desencriptación

   
Vista:

Encripatación y Desencriptación

Publicado por HECFAVAS hecfavas@hotmail.com (1 intervención) el 14/07/2011 05:52:37
Hola, a todos espero que me puedan ayudar.

Tengo una tabla en access la cual tiene un campo encriptado y usa el siguiente código de encriptación

Public Function EncryptText(text1 As String, Optional passw As Variant)
Dim I As Integer, C As Integer
Dim Buffer As String
If IsMissing(passw) Then passw = "prueba"
For I = 1 To Len(text1)
C = Asc(Mid$(text1, I, 1))
C = C + Asc(Mid$(passw, (I Mod Len(passw)) + 1, 1))
Buffer = Buffer & Chr$(C And &HFF)
Next I
EncryptText = Buffer
End Function

El cual encripta bien, pero al momento de desencriptarlo con este código no me da el mismo resultado que el que escribí


Public Function DecryptText(text1 As String, Optional passw As Variant)
Dim I As Integer, C As Integer
Dim Buffer As String
If IsMissing(passw) Then passw = "sony"
For I = 1 To Len(text1)
C = Asc(Mid$(text1, I, 1))
C = C - Asc(Mid$(passw, (I Mod Len(passw)) + 1, 1))
Buffer = Buffer & Chr$(C And &HFF)
Next I
DecryptText = Buffer
End Function

Una aclaración el código no lo he escrito, lo encontre navegando pero me gustaría que me ayudaran con eso como también me dijeran que método utiliza si no es mucho pedir.

Gracias por la atención prestada.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder