本文介绍了如何加密表的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧! 问题描述 我有一张包含15.000条记录的表格。 如果以后会在表格中显示(文本 框)解密后,如何加密所有信息????? 提前致谢 Javier Gomez 解决方案 Javier, 你真的需要加密,或者只是一些最低限度的保障形式使其他人难以阅读? 您可以: 1 )使用内置的Access安全流程来保护数据库 2)使用文件系统级加密程序 - 这与MS无关 访问 3)寻找有人拥有的加密组件写入使用Access 4)编写自己的自定义例程来加密和存储数据,并解密 并显示它。 以下是几个可以伪装数据的俗气例程,并且不加掩饰它: 公共函数encryptPW(pWord As String)As String encryptPW ="" For I = 1 to Len(pWord) encryptPW = encryptPW& Chr(Asc(MID(UCase(pWord),I,1))+ 50) 下一页我 结束功能 公共函数decryptPW(pWord As String)As String decryptPW ="" For I = 1 to Len(pWord) decryptPW = decryptPW& Chr(Asc(MID(pWord,I,1)) - 50) 接下来我 结束功能 Javier, 你真的需要加密,或者只需要一些最低限度的安全措施来制作它其他人难以阅读? 您可以: 1)使用内置的Access安全流程来保护数据库 2)使用文件系统级加密程序 - 这与MS无关 3)查找有人编写的加密组件与Access一起工作 4)写你自己的自定义例程来加密和存储数据,然后解密并显示它。 这里有几个俗气的例程,可以伪装数据,并且不加掩饰它:公共功能encryptPW(pWord As String)As String encryptPW ="" For I = 1 to Len(pWord) encryptPW =加密的PT& Chr(Asc(MID(UCase(pWord),I,1))+ 50)接下来我 结束函数 公共函数decryptPW(pWord As String )作为字符串 decryptPW ="" 对于I = 1到Len(pWord) decryptPW = decryptPW& Chr(Asc(MID(pWord,I,1)) - 50)接下来我 结束功能 Javier, 你真的需要加密,或者只需要一些最低限度的安全措施来制作它其他人难以阅读? 您可以: 1)使用内置的Access安全流程来保护数据库 2)使用文件系统级加密程序 - 这与MS无关 3)查找有人编写的加密组件与Access一起工作 4)写你自己的自定义例程来加密和存储数据,然后解密并显示它。 这里有几个俗气的例程,可以伪装数据,并且不加掩饰它:公共功能encryptPW(pWord As String)As String encryptPW ="" For I = 1 to Len(pWord) encryptPW =加密的PT& Chr(Asc(MID(UCase(pWord),I,1))+ 50)接下来我 结束函数 公共函数decryptPW(pWord As String )作为字符串 decryptPW ="" 对于I = 1到Len(pWord) decryptPW = decryptPW& Chr(Asc(MID(pWord,I,1)) - 50)接下来我 结束功能 I have a table with 15.000 records.How can encrypt all information if after will shown in a form (textbox)decryted ????? Thanks in advanceJavier Gomez 解决方案 Javier, Do you really need encryption, or just some minimum form of security to makeit difficult for others to read? You can: 1) use the built-in Access security processes to "secure" the database2) use a file system level encryption program - this is unrelated to MSAccess3) look for encryption components someone has written to work with Access4) write your own custom routines to encrypt and store the data, and decryptand display it. Here are a couple cheesy routines that will disguise the data, andundisguise it: Public Function encryptPW(pWord As String) As String encryptPW = ""For I = 1 To Len(pWord)encryptPW = encryptPW & Chr(Asc(MID(UCase(pWord), I, 1)) + 50)Next I End FunctionPublic Function decryptPW(pWord As String) As String decryptPW = ""For I = 1 To Len(pWord)decryptPW = decryptPW & Chr(Asc(MID(pWord, I, 1)) - 50)Next I End Function Javier, Do you really need encryption, or just some minimum form of security to make it difficult for others to read? You can: 1) use the built-in Access security processes to "secure" the database 2) use a file system level encryption program - this is unrelated to MS Access 3) look for encryption components someone has written to work with Access 4) write your own custom routines to encrypt and store the data, and decrypt and display it. Here are a couple cheesy routines that will disguise the data, and undisguise it: Public Function encryptPW(pWord As String) As String encryptPW = "" For I = 1 To Len(pWord) encryptPW = encryptPW & Chr(Asc(MID(UCase(pWord), I, 1)) + 50) Next I End Function Public Function decryptPW(pWord As String) As String decryptPW = "" For I = 1 To Len(pWord) decryptPW = decryptPW & Chr(Asc(MID(pWord, I, 1)) - 50) Next I End Function Javier, Do you really need encryption, or just some minimum form of security to make it difficult for others to read? You can: 1) use the built-in Access security processes to "secure" the database 2) use a file system level encryption program - this is unrelated to MS Access 3) look for encryption components someone has written to work with Access 4) write your own custom routines to encrypt and store the data, and decrypt and display it. Here are a couple cheesy routines that will disguise the data, and undisguise it: Public Function encryptPW(pWord As String) As String encryptPW = "" For I = 1 To Len(pWord) encryptPW = encryptPW & Chr(Asc(MID(UCase(pWord), I, 1)) + 50) Next I End Function Public Function decryptPW(pWord As String) As String decryptPW = "" For I = 1 To Len(pWord) decryptPW = decryptPW & Chr(Asc(MID(pWord, I, 1)) - 50) Next I End Function 这篇关于如何加密表的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!
10-30 01:47