我有一个软件进入的验证机器码，以前用得好好的，改成64位后，出现“Base-64 字符串中的无效字符。”

代码是这样的：Dim s As String = FileSys.ReadAllText("c:\\stscode.txt")
Dim Regok As Boolean
If ComputerId<> DecryptText(s,"xxxx","xxxxxx") Then    \'若注册码不正确
       Regok  = False
Else
       Regok = True
End If

但正过来计算的函数是正确的，不出错。

就是这个逆向运算函数就出错。

mark 重写加密函数

 foxtable的这个函数有问题，你要在全局代码加入这句代码

Public function DecryptText(s As String, m1 As String, m2 As String) As String
try
    Return Foxtable.DecryptText(s,m1,m2)
catch ex As Exception
    Return Nothing
End try
End Function