Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于EncryptText 加密函数的疑惑


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

主题：关于EncryptText 加密函数的疑惑
帅哥哟，离线，有人找我吗？
teng0731
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3471 威望：0 精华：0 注册：2011/6/6 11:22:00 		关于EncryptText 加密函数的疑惑  发帖心情 Post By：2019/7/26 12:58:00 [显示全部帖子]

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

使用  密匙1：e3f7b      密匙2：b3bb1
加密：这是一段测试的文本，便于管控效果。
EncryptText(“这是一段测试的文本，便于管控效果。”,"e3f7b","b3bb1") 
得到加密后的字符串为：HYTlCim0V2Bv5Pt6R0Y0JwbjRxewr7YUVB/A0P9WJmokgS5nX28Wkg==

如果使用不同的密匙对上面加密后的字符串进行解密操作如：密匙1：12e1b8f     密匙2：a975ca2，得到的结果为：
????测试的文本，便于管控效果。

从上面情况来看，实际上文本加密函数，仅仅只是对前面四个字符进行了加密，后面的都没有加密，如果是这样的话，文本加密函数就失去了真正的作用，还请官方核实一下，该情况是否真的存在？
[此贴子已经被作者于2019/7/26 13:09:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
teng0731
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3471 威望：0 精华：0 注册：2011/6/6 11:22:00 		  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询