A是加密数组
B是解密后的储存数组
Pa 是A的下标
Pb 是B的下标
if a(pa) <> 0 then ‘第一种情况
b(pb)= a(pa)
pa= pa +3
pb = pb +1
else
Ifa(pa + 1) = 0 ‘第二种情况
b(pb)= a(pa+2) ‘空
pb= pb + 1
pa= pa + 3
else ‘第三种情况
fori = 1 to a(pa+1)
b(pb+i-1) = a(pa+2) ‘空
next
pb= pb + a(pa+1)
pa= pa + 3
endif
end if
纯手打，很多可能并不一样
