Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加密解密不成功


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

主题：加密解密不成功
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		加密解密不成功  发帖心情 Post By：2021/12/31 15:48:00 [显示全部帖子]

自定义用户登录中
cmd.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = dt.DataRows(0)
Dim pw As String = e.Form.Controls("PassWord").Value
Dim pw2 As String = DecryptText(dr("Password"),"a23","op#")
If pw = pw2 Then

msgbox(dr("Password"))显示为R2kBuWk4uk0=
msgbox(pw2)显示是空的
这是什么原因呢
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2021/12/31 16:13:00 [显示全部帖子]

msgbox(s = "R2kBuWk4uk0=") 
显示为False
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2021/12/31 16:22:00 [显示全部帖子]

Dim Val1 As String = e.Form.Controls("PassWord").Value
Dim PassWord As String = EncryptText(Val1,"a23","op#") '加密
还真是的，从数据库表里复制到EXCEL，发现后面一大串空格。但这空格又不知是怎么产生的
[此贴子已经被作者于2021/12/31 16:22:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2021/12/31 16:48:00 [显示全部帖子]

嗯，类型改为nvarchar后可以了，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询