以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为什么DecryptText(password,"哈","东")语句不执行呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154228)
--  作者：新福星
--  发布时间：2020/9/8 17:16:00
--  [求助]为什么DecryptText(password,"哈","东")语句不执行呢？

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

何因！谢谢

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20200908171159.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/9/8 17:21:00
--  
不要使用中文做加解密的键值
--  作者：新福星
--  发布时间：2020/9/8 17:29:00
--  
英文我也试了也不出来
--  作者：有点蓝
--  发布时间：2020/9/8 17:34:00
--  
加密和解密都必须是同一个键，键长度最好是8位

Dim s As String = EncryptText("111","12345678","87654321")
Output.Show(DecryptText(s,"12345678","87654321"))
--  作者：新福星
--  发布时间：2020/9/8 17:35:00
--  

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

MessageBox.Show(username & "/" & password)
    jmma= DecryptText(password,"XX","NN")
MessageBox.Show(username & "/" & password & "/////" &  jmma)
--  作者：新福星
--  发布时间：2020/9/8 17:43:00
--  
Dim s As String = EncryptText("111","12345678","87654321")
Output.Show(DecryptText(s,"12345678","87654321"))

 

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

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

 

 
--  作者：新福星
--  发布时间：2020/9/8 17:53:00
--  
很奇怪。换了一个字串定义就好了