Crc

Sub CRCCalculation(nAA As Int, nLCRC As Int, nHCRC As Int)
   Dim nBB As Int
   Dim nDD As Int
   Dim nEE As Int

   nBB = nLCRC
   nDD = Bit.Xor(Bit.And((Bit.Xor(nAA, nHCCRC) * 2), 254)), Bit.Xor(nAA, nHCRC))
   nEE = Bit.Or(nDD/4, Bit.And(nDD,3) * 64
   nDD = Bit.Or(nEE,nDD)
   nLCRC = Bit.And(Bit.Xor(Bit.And(nEE,63),Bit.Or(nDD/16,Bit.Xor((nDD Mod 16) * 16),16),192))
   nHCRC = Bit.And(nEE, Bit.Xor(192,Bit.Xor((nLCRC/128),nBB)))
End Sub

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

   Dim nLCRC As Long
   Dim nHCRC As Long
End Sub

Sub CRCCalculation(nAA As Byte)

    Dim nBB As Int
    Dim nDD As Int
    Dim nEE As Int
    
    nBB = nLCRC
    nDD = Bit.Xor(Bit.And((Bit.Xor(nAA, nHCRC) * 2), 254), Bit.Xor(nAA, nHCRC))
    nEE = Bit.Or((nDD / 4), (Bit.And(nDD, 3) * 64))
    nDD = Bit.Xor(nEE, nDD)
    nLCRC = Bit.Xor(Bit.And(nEE, 63), Bit.And(Bit.Xor(Bit.Or((nDD / 16), (nDD Mod 16) * 16), nDD), 192))
    nHCRC = Bit.Xor(Bit.Xor(Bit.And(nEE, 192), (nLCRC / 128)), nBB)        

End Sub

Sub Activity_Create(FirstTime As Boolean)
   Log(CalcCrc("sdfsdfsdfsdf".GetBytes("UTF8")))
End Sub

Sub CalcCrc(Data() As Byte) As Long
   Dim r As Reflector
   r.Target = r.CreateObject("java.util.zip.CRC32")
   r.RunMethod4("update", Array As Object(Data), Array As String("[B"))
   Return r.RunMethod("getValue")
End Sub

Sub ComputeCRC16(buf() As Byte) As Int
Dim crc As Int : crc = 0
Dim j As Int
Dim b As Int
Dim i As Int
Dim len As Int

len = buf.Length

For j = 0 To len-1 
      b = buf(j)
      For i = 0 To 7
         If crc = Bit.And(Bit.Xor(b,crc),1) Then
               Bit.Xor(Bit.ShiftRight(crc,1),0xA001)
         Else 
            Bit.ShiftRight(crc, 1)
         End If
         b = Bit.ShiftRight(b, 1)
      Next
   Next
   Return crc
End Sub