cod_adddiffer.bas

来自「加密解密及压缩解压算法.大致有21种加密/解密算法源代码」· BAS 代码 · 共 34 行

Attribute VB_Name = "Cod_AddDiffer"
'#########################################################################
'★★★★★         http://www.cnpopsoft.com [华普软件]         ★★★★★
'★★★★★             VB专业论文与源码荟萃                    ★★★★★
'#########################################################################

Option Explicit

Public Sub AddDiffer_Coder(ByteArray() As Byte)
    Dim X As Long
    Dim Value As Integer
    Value = 0
    For X = 0 To UBound(ByteArray)
        Value = Value + ByteArray(X)
        If Value > 255 Then Value = Value - 256
        ByteArray(X) = Value
    Next
End Sub

Public Sub AddDiffer_DeCoder(ByteArray() As Byte)
    Dim X As Long
    Dim Value As Integer
    Dim newValue As Integer
    newValue = 0
    For X = 0 To UBound(ByteArray)
        Value = newValue
        newValue = ByteArray(X)
        Value = ByteArray(X) - Value
        If Value < 0 Then Value = Value + 256
        ByteArray(X) = Value
    Next
End Sub