加解密文本的函数-王宇虹
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


加解密文本的函数

发表时间:2007/11/13 8:19:01 评论(0) 浏览(3393)  评论 | 加入收藏 | 复制
   
摘 要:加解密文本的函数
正 文:
Private Sub Comman1_Click()
Dim str1, str2, str3 As String
str1 = "王宇虹"
str2 = Encrypt(str1, 188, 24)
MsgBox str2
str3 = Encrypt(str2, 188, 24)
MsgBox str3
End Sub


Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _
ByVal Key2 As Integer) As String
Dim bLowData As Byte
Dim bHigData As Byte
Dim i As Integer
Dim strEncrypt As String
Dim strChar As String
For i = 1 To Len(strSource)

'从待加(解)密字符串中取出一个字符

strChar = Mid(strSource, i, 1)

' 取字符的低字节和Key1进行异或运算

bLowData = AscB(MidB(strChar, 1, 1)) Xor Key1

'取字符的高字节和K2进行异或运算

bHigData = AscB(MidB(strChar, 2, 1)) Xor Key2

'将运算后的数据合成新的字符

strEncrypt = strEncrypt & ChrB(bLowData) & ChrB(bHigData)

Next
Encrypt = strEncrypt
End Function


Access软件网交流QQ群(群号:198465573)
 
 相关文章
数据的优化和安全--如何加密/解密数据库   【UMVSoft整理  2008/8/8】
[源码]字符串加密解密  【Alex  2009/6/30】
[示例]通过按钮打开程序之前提示输入密码\加密表\对表加密的一种方...  【钱玉炜  2009/8/29】
对后台加密及解密例子  【咱家是猫  2010/7/24】
BAT批处理文件加解密工具  【江羽  2010/10/20】
【access入门】另类字段加密,加密字段需输入密码才能显示隐藏列...  【麥田  2011/7/18】
【Access示例】对密码进行加密  【缪炜  2013/11/8】
【Access示例】如何用代码给Access加密  【缪炜  2014/9/14】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

王宇虹

文章分类

文章存档

友情链接