以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]加密解密 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151288) |
-- 作者:lgj716330 -- 发布时间:2020/6/19 15:21:00 -- [求助]加密解密 Dim N1 As Integer = e.Form.Controls("NF").value Dim N2 As Integer = N1-1 Dim Y1 As Integer = e.Form.Controls("YF1").value Dim Y2 As Integer = e.Form.Controls("YF2").value Dim HZ1 As String = e.Form.Controls("ZNBM").value DataTables("统计表").LoadFilter = "([年份] = \'" & N1 & "\' OR [年份] = \'" & N2 & "\') and [月份] >= \'" & Y1 & "\' and [月份] <= \'" & Y2 & "\'" DataTables("统计表").Load For Each dr As DataRow In DataTables("统计表").datarows dr("部门") = DecryptText(dr("部门"),"a23","op#") dr("职位") = DecryptText(dr("职位"),"a23","op#") Next DataTables("统计表").save() Dim b As New SQLGroupTableBuilder("统计表1","统计表") b.C b.AddTable("统计表","部门编码","档案","部门编号") \'添加统计表 b.Groups.AddDef("年份") b.Groups.AddDef("月份") b.Groups.AddDef(HZ1) b.Groups.AddDef("职位") b.Groups.AddDef("姓名") b.Totals.AddDef("合计") b.Filter ="(年份 = \'" & N1 & "\' OR 年份 = \'" & N2 & "\') and 月份 >= \'" & Y1 & "\' and 月份 <= \'" & Y2 & "\'" b.Build() 提示以下错误 详细错误信息: Base-64 字符串中的无效字符。 |
-- 作者:lgj716330 -- 发布时间:2020/6/23 11:18:00 -- For Each dr As DataRow In DataTables("统计表").datarows Dim bm As String = dr("部门") Dim zw As String = dr("职位") dr("部门") = DecryptText(bm,"a23","op#") dr("职位") = DecryptText(zw,"a23","op#") Next 前面解密的代码写错了,用以上代码解密是解决了,我想以同样的方式重新加密回去,会提示Base-64 字符串中的无效字符,是不是不能在客户端直接加密? For Each dr As DataRow In DataTables("统计表").datarows Dim bm1 As String = dr("部门") Dim zw1 As String = dr("职位") dr("部门") = EncryptText(bm1,"a23","op#") dr("职位") = EncryptText(zw1,"a23","op#") Next |
-- 作者:有点蓝 -- 发布时间:2020/6/23 11:22:00 -- 判断一下单元格有没有数据再加密 if bm1>"" then dr("部门") = EncryptText(bm1,"a23","op#")
|