cod_adddiffer.bas

21加密算法,用vB语言编写实现,可了解各种加密算法的结构

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