cod_adddiffer.bas

包含几十个加密解密类和压缩解压缩类,DES,LZW,Huffman

Attribute VB_Name = "Cod_AddDiffer"

' **********************************************************************
'  描  述：21种加密54种压缩 算法模块 海阔天空收集整理
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空整理,有问题请上www.paly78.com 提
'  网址：http://www.play78.com/
'  QQ：13355575
'  e-mail:[e-mail]
' **********************************************************************


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