hey,
heeft er iemand verstand van dit? =.= het lijkt alsof niemand er verstand van heeft.....
heeft er iemand verstand van dit? =.= het lijkt alsof niemand er verstand van heeft.....
Code:
Dim chksum As Long = 0
Dim count As Integer = Size - 4
Dim ecx As Long
Dim i As Integer
For i = offset To count - 1 Step 4
ecx = raw(i) And &HFF
ecx = ecx Or raw(i + 1) << 8 And &HFF00
ecx = ecx Or raw(i + 2) << 10 And &HFF0000
ecx = ecx Or raw(i + 3) << 18 And &HFF000000
chksum = chksum Xor ecx
Next
ecx = raw(i) And &HFF
ecx = ecx Or raw(i + 1) << 8 And &HFF00
ecx = ecx Or raw(i + 2) << 10 And &HFF0000
ecx = ecx Or raw(i + 3) << 18 And &HFF000000
raw(i) = CByte(chksum And &HFF)
raw(i + 1) = CByte(chksum >> &H8 And &HFF)
raw(i + 2) = CByte(chksum >> &H10 And &HFF)
raw(i + 3) = CByte(chksum >> &H18 And &HFF)