仿照微信接口库开发指南制作扫码登录客户端。测试扫码时总是提示:Base-64 字符数组或字符串的长度无效。
按照论坛说的方法重写加密函数后不提示错误了。但测试HttpRequest时好像解密不成功,调试如下:
……
msgbox(nonce & "||" & token)
loginid = DecryptText(urldecode(token),nonce,Vars("dkey")) '解密出loginid,dkey为公共密钥
msgbox("解出的loginid:" & loginid)
……
第一个msgbox显示出正常信息,第二个msgbox则显示loginid为空
单独把解密语句放到命令行执行又可以成功解密出loginid
这到底是怎么回事啊???
附重写加密函数:
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