帮忙看看这段密码转换的程序是如何转换的

Public Function PassWordConvert(Instring As String) 

Dim ConvertLength As Integer 

Dim PassConvBuf(0 To 99) As Byte 

For i = 1 To Len(Instring) 

PassConvBuf(i - 1) = Asc(Mid(Instring, i, 1)) 

Next i 



ConvertLength = Len(Instring) 



' 密码算法: 

' 每相邻两个码的和再高四位和低四位分别按位取反 



On Error Resume Next 

Dim Temp, temp1, temp2 As Byte 

For i = 0 To ConvertLength - 2 

Temp = (PassConvBuf(i) + PassConvBuf(i + 1)) And &HFF 

temp1 = Temp And &HF 

temp2 = (Temp And &HF0) / 16 

temp1 = Not temp1 

temp2 = Not temp2 

PassConvBuf(i) = (temp2 * 16 + temp1) And &HFF 

Next i 



Dim OutString As String 

For i = 0 To ConvertLength - 2 

OutString = OutString & Hex(PassConvBuf(i)) 

Next i 

PassWordConvert = OutString 

End Function

Public Function PassWordConvert(Instring As String) 

    Dim ConvertLength As Integer

    Dim PassConvBuf(0 To 99) As Byte



    For i = 1 To Len(Instring)

        PassConvBuf(i - 1) = Asc(Mid(Instring, i, 1))

        '把 Instring 的每个字符的 ASCII码 依次填入 Byte数组 PassConvBuf 中。

        '注：这只能对西文字符串进行处理，有汉字就会产生溢出错误

    Next i



    ConvertLength = Len(Instring)

'    我觉得这句应该写在 For 循环之前，可以少调用一次函数。

'    ConvertLength = Len(Instring)

'    For i = 1 To ConvertLength

'        PassConvBuf(i - 1) = Asc(Mid(Instring, i, 1))

'    Next i



    ' 密码算法:

    ' 每相邻两个码的和再高四位和低四位分别按位取反

    On Error Resume Next    '出错时从下一句继续执行（偶的程序中从来不这样写 -_-! ）

    Dim Temp, temp1, temp2 As Byte

    '应该这样写：

    'Dim Temp As Byte, temp1 As Byte, temp2 As Byte

    For i = 0 To ConvertLength - 2

        Temp = (PassConvBuf(i) + PassConvBuf(i + 1)) And &HFF

        '把相邻两个字符的 ASCII码 相加，赋值给 Temp

        '前面那句的 (....) And &HFF 多此一举

        temp1 = Temp And &HF    '求Temp的 低4bit 的值

        temp2 = (Temp And &HF0) / 16    '求Temp的 高4bit 的值

        '要算高4位，写成： temp2 = Temp \ 16 岂不是直接了当？

        temp1 = Not temp1   '每位都取反

        temp2 = Not temp2

        PassConvBuf(i) = (temp2 * 16 + temp1) And &HFF

        '把temp2‘左移4位’与temp1相加，求低字节的值，赋值给 PassConvBuf(i)

    Next i



    Dim OutString As String

    For i = 0 To ConvertLength - 2

        OutString = OutString & Hex(PassConvBuf(i))

        '把转换后的“密码”用十六进制字符串的形式表示

    Next i

    PassWordConvert = OutString     '把这个十六进制字符串作为函数值返回

End Function

' 密码算法:

' 每相邻两个码的和再高四位和低四位分别按位取反

'..........

    Temp = (PassConvBuf(i) + PassConvBuf(i + 1)) And &HFF

     temp1 = Temp And &HF

     temp2 = (Temp And &HF0) / 16

     temp1 = Not temp1

     temp2 = Not temp2

    PassConvBuf(i) = (temp2 * 16 + temp1) And &HFF

'.........

For i = 0 To ConvertLength - 2

    PassConvBuf(i) = Not (PassConvBuf(i) + PassConvBuf(i + 1))

Next

For i = 0 To ConvertLength - 2

    PassConvBuf(i) = (Not (PassConvBuf(i) + PassConvBuf(i + 1)) - 16)

Next

For i = 0 To ConvertLength - 2

    PassConvBuf(i) = (Not (PassConvBuf(i) + PassConvBuf(i + 1))) - 16

Next

补充：VB ,  基础类

上一个：这样的程序VB怎么可以做到
下一个：請問這樣如何實現