- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于EncryptText 加密函数的疑惑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138253)
-- 发布时间：2019/7/26 12:58:00
-- 关于EncryptText 加密函数的疑惑
关于EncryptText 加密函数的疑惑，
使用EncryptText 和DecryptText 进行加解密的操作，发现对需加密的文本来说，仅仅只是加密了前四个字符，后面的字符没有被加密，如下面
使用 密匙1：e3f7b 密匙2：b3bb1
加密：这是一段测试的文本，便于管控效果。
EncryptText(“这是一段测试的文本，便于管控效果。”,"e3f7b","b3bb1")
得到加密后的字符串为：HYTlCim0V2Bv5Pt6R0Y0JwbjRxewr7YUVB/A0P9WJmokgS5nX28Wkg==
如果使用不同的密匙对上面加密后的字符串进行解密操作如：密匙1：12e1b8f 密匙2：a975ca2，得到的结果为：
????测试的文本，便于管控效果。
从上面情况来看，实际上文本加密函数，仅仅只是对前面四个字符进行了加密，后面的都没有加密，如果是这样的话，文本加密函数就失去了真正的作用，还请官方核实一下，该情况是否真的存在？
[此贴子已经被作者于2019/7/26 13:09:17编辑过]
-- 发布时间：2019/7/26 13:54:00
--
我测试没有问题。第二个密钥解密会出错。而且我加密的字符串结果和您的也不一样。截图看看您的效果
此主题相关图片如下：1.png
-- 发布时间：2019/7/26 14:00:00
--
从错误提示可以看出来，其实这个加解密底层使用的是.net提供的加解密功能，如果有问题整个.net程序界早就爆了
-- 发布时间：2019/7/26 14:42:00
--
感谢有点蓝老师，是我输入代码是不小心造成的误解：
Dim A1 As String =e.Form.Controls("TextBox6").Value
Dim A2 As String =e.Form.Controls("TextBox2").Value
Dim A3 As String =e.Form.Controls("TextBox4").Value
If e.Form.Controls("TextBox2").Value Is Nothing Or e.Form.Controls("TextBox4").Value Is Nothing Then
Else
Dim Val2 As String = DecryptText(A1,2,A3) \'解密 这里正确输入代码应该是：Dim Val2 As String = DecryptText(A1,A2,A3) \'解密 加密阶段也是一样的漏掉了A
e.Form.Controls("TextBox3").Value=Val2
End If
[此贴子已经被作者于2019/7/26 14:43:39编辑过]