关于vb加密解密字符串，支持中文的

2007-03-22 10:22:07 1.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

为VB6项目集成AES加密：DLL方案实现与避坑指南 AES（高级加密标准）作为目前全球广泛采用的对称加密算法，通过分组加密和密钥扩展机制，为数据提供了高强度的机密性保护。其技术价值在于平衡了安全性与性能，成为保护敏感信息的行业标准。在实际工程中，AES常用于加密配置文件、网络传输数据及用户文件等场景。针对VB6这类遗留系统，原生加密能力薄弱，直接实现AES算法复杂且低效。通过将AES核心算法用C/C++封装成标准Windows DLL，再由VB6调用，成为一种务实可靠的升级路径。该方案能有效解决类似“java.security.invalidkeyexcep 阅读详情

在网上看了一个简单的加密解密的，但是中文好像有点问题，解密不回来，请各位老大帮忙看看，谢谢
Function UserCode(password As String) As String
'用户口令加密
Dim il_bit, il_x, il_y, il_z, il_len, i As Long
Dim is_out As String
il_len = LenB(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len
il_bit = AscB(MidB(password, i, 1)) 'b系列支持中文

il_y = (il_bit * 13 Mod 256) + il_x
is_out = is_out & ChrB(Fix(il_y)) '取整 int和fix区别: fix修正负数
il_x = il_bit * 13 / 256
Next
is_out = is_out & ChrB(Fix(il_x))

password = is_out
il_len = LenB(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len
il_bit = AscB(MidB(password, i, 1))
'取前4位值
il_y = il_bit / 16 + 64
is_out = is_out & ChrB(Fix(il_y))
'取后4位值
il_y = (il_bit Mod 16) + 64
is_out = is_out & ChrB(Fix(il_y))
Next
UserCode = is_out
End Function

Function UserDeCode(password As String) As String
'口令解密
Dim is_out As String
Dim il_x, il_y, il_len, i, il_bit As Long

il_len = LenB(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len Step 2
il_bit = AscB(MidB(password, i, 1))
'取前4位值
il_y = (il_bit - 64) * 16
'取后4位值
'dd = AscW(Mid(password, i + 1, 1)) - 64
il_y = il_y + AscB(MidB(password, i + 1, 1)) - 64
is_out = is_out & ChrB(il_y)
Next

il_x = 0
il_y = 0
password = is_out
is_out = ""

il_len = LenB(password)
il_x = AscB(MidB(password, il_len, 1))
For i = (il_len - 1) To 1 Step -1
il_y = il_x * 256 + AscB(MidB(password, i, 1))
il_x = il_y Mod 13
is_out = ChrB(Fix(il_y / 13)) & is_out
Next
UserDeCode = is_out
End Function

上面的加密出来都是"?",无法解密了

...全文