Lagre informasjon kryptert i Microsoft Access

[JohnRichard]

Er dette mulig?

[ravika]

Er dette mulig?

7083326[/snapback]

Har ikke satt meg stort inn i kryptering av data i Access, men har ved en tidligere anledning brukt denne krypteringen av data:

 

Public Function PerformEncryption(ByRef strPassword As String, ByVal boo As Boolean) As String
   ' boo = True then Encrypt, boo = False then Decrypt
   
   Dim strCode As String, intCounter As Integer

   For intCounter = 1 To Len(strPassword)
       If intCounter Mod 2 = 0 Then
           If boo = True Then
               strCode = strCode + Chr(Asc(Mid(UCase(strPassword), intCounter, 1)) + 1)
           Else
               strCode = strCode + Chr(Asc(Mid(UCase(strPassword), intCounter, 1)) - 1)
           End If
       Else
           If boo = True Then
               strCode = strCode + Chr(Asc(Mid(UCase(strPassword), intCounter, 1)) + 2)
           Else
               strCode = strCode + Chr(Asc(Mid(UCase(strPassword), intCounter, 1)) - 2)
           End If
       End If
   Next intCounter

   PerformEncryption = strCode

End Function

MyString = PerformEncryption(MyString, True)

 

Hentet fra: Access World Forums