【VBA研究】如何用Base64 编解码方法实现简单的加解密

最新推荐文章于 2025-05-21 18:58:30 发布

原创

最新推荐文章于 2025-05-21 18:58:30 发布 · 2.9k 阅读

5 ·

CC 4.0 BY-SA版权

本文介绍了如何使用VBA实现基于Base64的加解密，通过打乱或替换字符字典来增强安全性。在用户登录系统的密码保存中，作者利用这一方法加密密码，仅比较密文而不还原明文，强调了这种方法在不同语言中的通用性，并提供了生成随机密码的函数示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

作者：iamlaosong

Base64编码的思想是是采用64个基本的ASCII码字符对数据进行重新编码，将数据变成字符串实现文本传输。由于编码简单，所以很容易实现，代码也是现成的。利用这个编码规则可以实现简单的加解密。编解码方法见： VB实现Base64 编解码

我用VBA做了个简单的系统，其中用到用户登录，自然要保存用户名和密码。密码存放在数据库中，不想明码保存，于是就想到用这个编码方法进行加密。Base64编码是按照64个字符字典进行编码的，为了加密，这64个字符可以打乱原来的顺序，也可以用其他字符替换掉部分字符，如果不考虑解码，这个字符字典中的字符甚至可以重复。比如密码保存，只需比较密文，不需要还原成明文进行比较，那么字符字典中重复也是没有问题的，可以任意取64个字符作为字典。

虽然我是用VBA实现，但这个思路用其他语言实现是没有问题的。

下面这个函数就可以用来生成密码的密文，其中的数据字典是用个随机函数随意生成的：

Function B64Encode(sou_str As String) As String                                  'Base64 编码
    On Error GoTo over                                                          '排错
    Dim buf() As Byte, length As Long, mods As Long
    Dim Str() As Byte, kk As Long, i As Long
    '字符字典（用随机产生的）
    Const B64_CHAR_DICT =