如何加密表 [英] How to encrypt a Table
问题描述
我有一张包含15.000条记录的表格。
如果以后会在表格中显示（文本
框）解密后，如何加密所有信息?????
提前致谢
Javier Gomez
Javier Gomez写道：< blockquote class =post_quotes>我有一个包含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
" ; DFS" <无**** @ DFS.com>在消息新闻中写道：< Yc ***************** @ fe03.lga> ...Javier Gomez写道：我有一张包含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 =加密的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）
接下来我
结束功能
你的解密函数只返回1个问题大写字母。
你能告诉我如何重新解决这个问题吗？
谢谢你！
Javier Gomez
" DFS" <无**** @ DFS.com>在消息新闻中写道：< Yc ***************** @ fe03.lga> ...Javier Gomez写道：我有一张包含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 =加密的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 (text
box)decryted ?????
Thanks in advance
Javier Gomez
Javier Gomez wrote:I have a table with 15.000 records.
How can encrypt all information if after will shown in a form (text
box)decryted ?????
Thanks in advance
Javier Gomez
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
Thank You ! it is ok !
But only missing variable in the function
regards
Javier
"DFS" <no****@DFS.com> wrote in message news:<Yc*****************@fe03.lga>...Javier Gomez wrote:I have a table with 15.000 records.
How can encrypt all information if after will shown in a form (text
box)decryted ?????
Thanks in advance
Javier Gomez
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
Only 1 more problem your decrypt function returns Uppercase letters.
Can you tell me how to resovel this problem ?
Thank you !
Javier Gomez
"DFS" <no****@DFS.com> wrote in message news:<Yc*****************@fe03.lga>...Javier Gomez wrote:I have a table with 15.000 records.
How can encrypt all information if after will shown in a form (text
box)decryted ?????
Thanks in advance
Javier Gomez
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
这篇关于如何加密表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
