mark 重写加密函数
foxtable的这个函数有问题,你要在全局代码加入这句代码
Public function DecryptText(s As String, m1 As String, m2 As String) As Stringtry Return Foxtable.DecryptText(s,m1,m2)catch ex As Exception Return NothingEnd tryEnd Function