VBA写的加密模块

</pre><pre name="code" class="vb">'**************************************************************

' 红色金刚石 jinggangshi

'**************************************************************

Option Explicit

'加密算法：
'1 、生成一个加密对照序号表，并存储
'2 、生成基准加密字符表
'3 、根据密码的长度求出向前和向后舍弃的字符长度
'4 、向前和向后舍弃字符，生成加密字符表
'5 、用加密字符表与明文做异或运算，计算出密文
'6 、如何对齐？
'7 、
Public Function EncryptString(ByVal s_mm As String, _
                                ByVal jmdzxhb As String, _
                                ByVal i_rnd As Integer, _
                                ByVal b As Boolean) As String

    EncryptString = ""
    '密码字符串
    If Len(Trim(s_mm)) = 0 Then
        Exit Function
    End If
    
    Dim a_s_mm() As String
    If b Then
        a_s_mm = SplitCustom(s_mm)
    Else
        a_s_mm = Split(s_mm)
    End If
        
    '密码长度，作参数用
    Dim i_l_mm As Integer
    i_l_mm = UBound(a_s_mm) + 1
        
'1 、生成一个加密对照序号表，并存储

    If Trim(jmdzxhb) = "" Then
        If b Then
            jmdzxhb = Join(CreateR