《Access快速开发基础教程》免费视频(8)-张志专栏

敏感数据解密

账号密码功能的开发基本完成，并添加了一条记录，数据是保存在Data.mdb文件中的表【tblPassword】，打开这个表后，可以看到【密码】和【备注】是加密的，数据如下图所示。

在这种情况下，如果数据文件Data.mdb不小心泄露，由于是加密后的信息，信息获得者只掌握了卡号或用户名，并不知晓密码，消除了安全隐患，起到了保密作用。

当自已登录软件时，则需要看到解密后的数据，这一节课讲解了如何实现对数据的解密。

相关代码

Dim cnn: Set cnn = CurrentProject.Connection  'ADO.Connection()
Dim strSQL: strSQL = "SELECT * FROM [TblPassword] WHERE [PID]=" & SQLText(Me.OpenArgs)
Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
If Not IsNull(rst!Pword) Then
  Me!Pword2.Tag = rst!Pword
End If
If Not IsNull(rst!PBrief) Then
  Me!PBrief2.Tag = rst!PBrief
End If
rst.Close
Set rst = Nothing
Set cnn = Nothing

视频讲解

点击：https://m.qlchat.com/wechat/page/topic-intro?topicId=2000016558517486 (打开网页后用微信扫描登录)