Foxtable(狐表)用户栏目专家坐堂 → [求助]为什么DecryptText(password,"哈","东")语句不执行呢?


  共有2258人关注过本帖树形打印复制链接

主题:[求助]为什么DecryptText(password,"哈","东")语句不执行呢?

帅哥哟,离线,有人找我吗?
新福星
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15526 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]为什么DecryptText(password,"哈","东")语句不执行呢?  发帖心情 Post By:2020/9/8 17:16:00 [只看该作者]

如下图。期望执行 DecryptText(password,"哈","东")语句得到解压缩的值,但是如图所示,无值!在命令窗口是可以得到正确结果的!

何因!谢谢

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200908171159.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107729 积分:547978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/8 17:21:00 [只看该作者]

不要使用中文做加解密的键值

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15526 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/9/8 17:29:00 [只看该作者]

英文我也试了也不出来

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107729 积分:547978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/8 17:34:00 [只看该作者]

加密和解密都必须是同一个键,键长度最好是8位

Dim s As String = EncryptText("111","12345678","87654321")
Output.Show(DecryptText(s,"12345678","87654321"))

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15526 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/9/8 17:35:00 [只看该作者]

刚才再试换成了英文仍然是这种情况。bin目录我也删除了。

MessageBox.Show(username & "/" & password)
    jmma= DecryptText(password,"XX","NN")
MessageBox.Show(username & "/" & password & "/////" &  jmma)


 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15526 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/9/8 17:43:00 [只看该作者]

Dim s As String = EncryptText("111","12345678","87654321")
Output.Show(DecryptText(s,"12345678","87654321"))

 

用这个在命令窗口是正常的,可以解压的。

现在问题是还没有遇到解压缩。现在只是把窗口接收来的密码压缩加密,然后用这个结果到用户表中查找的!就是这个压缩加密出不来,真是奇怪!

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15526 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/9/8 17:53:00 [只看该作者]

很奇怪。换了一个字串定义就好了

 回到顶部