关于EncryptText 加密函数的疑惑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

关于EncryptText 加密函数的疑惑，

使用EncryptText 和DecryptText 进行加解密的操作，发现对需加密的文本来说，仅仅只是加密了前四个字符，后面的字符没有被加密，如下面

使用密匙1：e3f7b 密匙2：b3bb1

加密：这是一段测试的文本，便于管控效果。

EncryptText(“这是一段测试的文本，便于管控效果。”,"e3f7b","b3bb1")

得到加密后的字符串为：HYTlCim0V2Bv5Pt6R0Y0JwbjRxewr7YUVB/A0P9WJmokgS5nX28Wkg==

如果使用不同的密匙对上面加密后的字符串进行解密操作如：密匙1：12e1b8f 密匙2：a975ca2，得到的结果为：

????测试的文本，便于管控效果。

从上面情况来看，实际上文本加密函数，仅仅只是对前面四个字符进行了加密，后面的都没有加密，如果是这样的话，文本加密函数就失去了真正的作用，还请官方核实一下，该情况是否真的存在？

[此贴子已经被作者于2019/7/26 13:09:17编辑过]

我测试没有问题。第二个密钥解密会出错。而且我加密的字符串结果和您的也不一样。截图看看您的效果

此主题相关图片如下：1.png

从错误提示可以看出来，其实这个加解密底层使用的是.net提供的加解密功能，如果有问题整个.net程序界早就爆了

感谢有点蓝老师，是我输入代码是不小心造成的误解：

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编辑过]

主题：关于EncryptText 加密函数的疑惑