Ms access password field1/19/2023 Unfortunately, if you modify or encrypt the connection in the linked table then you will find that you cannot connect to SQL serer. If Mid(LowerSub, lngE, 1) = strLetter Then GoTo LSubĭecrypt = Decrypt & Mid(LowerAlpha, lngE, 1) ![]() If Mid(UpperSub, lngE, 1) = strLetter Then GoTo USubĭecrypt = Decrypt & Mid(UpperAlpha, lngE, 1) ![]() StrDecrypt = strDecrypt & Chr(Asc(Mid(strvalue, lngi, 1)) - 13) Then work backwards to decrypt: Public Function Decrypt(strvalue As String) As String 'Now pass this string through ROT13 for another tier of securityĮncrypt = Encrypt & Chr(Asc(Mid(strEncrypt, lngi, 1)) + 13) StrEncrypt = strEncrypt & Mid(LowerSub, lngE, 1) If Mid(LowerAlpha, lngE, 1) = strLetter Then GoTo LSub StrEncrypt = strEncrypt & Mid(UpperSub, lngE, 1) If Mid(UpperAlpha, lngE, 1) = strLetter Then GoTo USub ![]() You can use the old "Zebras" method, by assigning different letters to the alphabet (you could also use some numbers or other ASCII characters instead): Public Function Encrypt(strvalue As String) As StringĬonst LowerAlpha As String = "abcdefghijklmnopqrstuvwxyz"Ĭonst LowerSub As String = "zebrascdfghijklmnopqtuvwxy" 'zebrasĬonst UpperAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"Ĭonst UpperSub As String = "ZEBRASCDFGHIJKLMNOPQTUVWXY" 'ZEBRAS There is no native way to encrypt/decrypt in Access, but it's not hard to create your own.
0 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |