- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于加密与解密的问题，请指教，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82169)
-- 发布时间：2016/3/12 23:48:00
-- 关于加密与解密的问题，请指教，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.rar |
1、加密的过程中，发现第一列的字符串不同的情况下，加密后有出现相同结果的情况；
2、点击解密的时候，无法解密。
请指教，谢谢
-- 发布时间：2016/3/13 1:26:00
--
数据表A中第二列字符长度太短，加密后数据无法正确保存。
加密那段程序中不能用 CurrentTable 应改为 Tables（"表A")，还要再中间加上一句话
Tables("表A").AddNew()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.table |
Dim str1 As String = e.Form.Controls("ComboBox1").text
Dim str2 As String = e.Form.Controls("ComboBox2").text
e.Form.Controls("Label3").text = str1 & str2
Tables("表A").Current("第一列") = str1 & str2 ’将输入的值写入到当前行第一列中，否则当前第一列中是空值。
Dim str As String = Tables("表A").Current("第一列")
Dim str3 As String = EncryptText(str,"Sny22#","22501!#")
e.Form.Controls("Label4").text = str3
Tables("表A").Current("第一列") = str1 & str2
Tables("表A").Current("第二列") = str3
e.Form.Controls("Label6").visible = False ’ 点加密不要显示解密后数据，Lable6中存的是上次解密后数据
解密程序中也不能用CurrentTable，改为Tables("表A")
Dim str5 As String = Tables("表A").Current("第二列")
Dim str4 As String = DecryptText(str5,"Sny22#","22501!#")
e.Form.Controls("Label6").text = str4
Tables("表A").Current("第三列") = str4
e.Form.Controls("Label6").visible = True \'显示解密后数据