Attribute VB_Name = "Module2"
Option Explicit
''\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'对连续的二个二进制值进行比较
'______________________________________________________________
Public Sub one(da() As Byte, i As Long)
'压缩算法''____________________________________________________
MsgBox i
Dim e As Long '记录数组指针
Dim a1 As Long '记录数组值重复的个数
Dim a2 As Long '记录第一个重复的序号
Dim su() As Byte '压缩后的数组
Dim a3 As Long '记录压缩后的数组的指针
ReDim su(i)
e = 0
a1 = 0
a2 = 0
a3 = 0
Do While e < i
If (a1 = 255) Then
su(a3) = da(e)
su(a3 + 1) = a1
'Form1.Caption = a3
a3 = a3 + 2
a1 = 0
If (e = i - 1) Then
su(a3) = da(i)
su(a3 + 1) = 0
ReDim Preserve su(a3 + 1)
End If
Else
If da(e) = da(e + 1) Then
a1 = a1 + 1
If (e = i - 1) Then
su(a3) = da(e)
su(a3 + 1) = a1
ReDim Preserve su(a3 + 1)
End If
Else
su(a3) = da(e)
su(a3 + 1) = a1
a3 = a3 + 2
a1 = 0
If (e = i - 1) Then
su(a3) = da(i)
su(a3 + 1) = 0
ReDim Preserve su(a3 + 1)
End If
End If
End If
e = e + 1
Loop
MsgBox a3
''
''还原算法________________________________________________________
Dim msu() As Byte '还原后要放入的数组
Dim mi As Long '记录还原时读出的指针
Dim mx As Long '重复的个数的递增
Dim ma As Long '记录写入的指针
mi = 0
mx = 0
ma = 0
ReDim msu(i)
Do While mi < a3 + 1
Do While mx <= su(mi + 1)
msu(ma) = su(mi)
mx = mx + 1
ma = ma + 1
Loop
mx = 0
mi = mi + 2
Loop
'Open "C:\zip.bmp" For Binary As #1
'
'Put #1, 1079, msu
'Close #1
End Sub
vb.rar （82个子文件） 
www.pudn.com.txt 218B
源代码 被控方 
pass.dat 10B M24xbmp_B.bas 3KB Form6.frm 8KB Module3.bas 2KB variable.bas 7KB Module1.bas 5KB Form1.frm 22KB list2.bas 3KB 工程1.vbp 1KB Form6.frx 23KB bmp.RES 769KB Form1.frx 3KB M24xbit.bas 1KB regedit.bas 2KB 位图压缩算法模块.txt 2KB M16bmp.bas 3KB M16xbitB.bas 2KB Module6.bas 4KB key.bas 1KB MSSCCPRJ.SCC 190B M16xbitA.bas 5KB Thumbs.db 17KB Form2.frx 3KB Module2.bas 2KB fso.bas 2KB Module4.bas 944B Form2.frm 4KB 工程1.vbw 479B
256.bmp 769KB pass.bas 4KB shutdown.bas 6KB 文件传输 1.RES 27KB reg.bas 2KB Form6.frm 44KB Module1.bas 2KB 工程1.vbp 1KB Form6.frx 48KB 工程1.PDM 3KB Form6.log 2KB Form2.frx 3KB list2tolist1.bas 471B Form2.frm 3KB send.bas 3KB 工程1.vbw 252B refurbish.bas 1024B 主控端 variable.bas 5KB Module1.bas 2KB
x.exe 56KB Form1.frm 2KB 工程1.vbp 1KB 工程1.PDM 3KB Key.bas 2KB MSSCCPRJ.SCC 190B Form2.frx 3KB Module2.bas 989B Form2.frm 17KB 工程1.vbw 218B menu.bas 4KB 管理器 Form5.frm 2KB Form3.frx 3KB Form6.frm 2KB ROButton.ctl 11KB Form4.frm 1KB Module1.bas 551B Form5.frx 3KB Form1.frm 16KB 工程1.vbp 1KB Form6.frx 3KB Form3.frm 7KB ROButton.log 237B 远程控制之主控端.RES 864B Form1.frx 10KB 授权.txt 8B MSSCCPRJ.SCC 190B yuankong.ini 82B Form2.log 62B Form2.frx 23KB Form2.frm 8KB 工程1.vbw 359B ping.bas 7KB VB1A.tmp 0B资源评论
