cod_adddiffer.bas

来自「目前程序中使用的多种数法的源代码,带加解密例子」· BAS 代码 · 共 29 行

Attribute VB_Name = "Cod_AddDiffer"
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