[求助]加密解密 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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#")

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 字符串中的无效字符。

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#")

前面解密的代码写错了，用以上代码解密是解决了，我想以同样的方式重新加密回去，会提示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#")

判断一下单元格有没有数据再加密

if bm1>"" then dr("部门") = EncryptText(bm1,"a23","op#")

主题：[求助]加密解密