Dim sdata as byte ()
Dim the data () as byte

SData ((Height - H - 1) * Length + L)=Data * Length (H + L) Xor (2 ^ 8-1)

SData ((Height - H - 1) * Length + L - I)=SData ((Height - H - 1) * Length + L - I) And (2 ^ 256 - Mask)