转码的实现方法探讨：
<先不谈加密，仅讨论转码处理，因为加密是单独的过程，可以在转码处理前先调用> 1、基本知识
字符串在VBA中实际上等同于一个字节数组（Byte型数组），为了加深印象，我们测试以下示例：
Sub 基本知识()
Dim s() As Byte
s = "基本知识说明123"
MsgBox s(0) & "," & s(1)
MsgBox s
End Sub
运行代码可以看到，既可以通过数组方式获取元素值，也能直接以字符串形式读取，既然知道字符
串基本等价于字节数组，那么我们直接建立一个字节数组并赋值也能得到相应的字符串，通过上面
的示例可以看到s(0)和s(1)的值分别为250,87，我们来做以下测试：
Sub 建立字符串数组()
Dim s(1) As Byte
s(0) = 250
s(1) = 87
MsgBox s
End Sub
运行后弹出消息框“基”，验证正确。好了，我们现在知道了通过数值也能创建字符串。
2、转码逻辑
通过刚才上面的示例我们可以了解到，字符串内的字符编码规则为每个字符占两个字节（256,256），
要用11个转码符表示某个字符的话，需要使用多个转换符组合来表示一个原字符，具体计算如下：
假设转换符为：“一二三四五六七八九十〇”，共11个字符（当然我们可以修改，但至少需要两个）
使用11个转换符的话，LOG(256*256,11)=4.625，也就是说，至少需要5个转换符来表示一个原字符。
（上述步骤可以用代码实现自适应长度）
以下为简单示例：
假设我们有一个字符串，其中只有一个字符“关”，这个字符在字节数组中的值为s(0)=115,s(1)=81
把两个字节转换成十进制数为20851（注意高低位反转:81*256+115），它的转换处理过程如下：
1）初值20851 mod 11得到6，然后20851\11得到1895；
2）继续1895 mod 11得到3，然后1895\11得到172；
3）继续172 mod 11得到7，然后172\11得到15；
4）继续15 mod 11得到4，然后15\11得到1。
5）继续1 mod 11得到1，小于11结束。
按顺序我们得到6、3、7、4、1（当然也可以倒过来，反正算法都是自己编的，怎么都行），不足5个数
的用0补足。此数字串对应的转换符（注意首位要从0开始数）为：七四八五二，也即“关”转码后会变成
“七四八五二”。
看上去理论上没有任何障碍，可以实际编写代码测试。
3、逆转码逻辑
接下来我们看一下如何逆转换（转换符和上面必须一致）：
结果字符串每5位表示原字符串中的一个字符，找出此5位各自在转换符中的位置（注意首位要从0开始数），
得到一个数字串6、3、7、4、1，逆计算过程：6*11^0+3*11^1+7*11^2+4*11^3+1*11^4，顺利得到
原来的编码20851，接下来要把20851分成两个字节：20851 mod 256得到115，20851\256得到81，
根据高低位原则，115放在前字节，81放到后字节。
我们来验证一下结果是否正确：
Sub test_1()
Dim s(1) As Byte
s(0) = 115
s(1) = 81
MsgBox s
[a1] = CStr(s) '注意输出至单元格区域时必须加CStr()
End Sub
得到结果“关”，正确。
楼主: 大灰狼1976
IP卡
狗仔卡
发表于 2021-9-10 14:14
显身卡
楼主
