Synchsafe Integers

int synchsafe(int in)
{
        int out, mask = 0x7F;
 
        while (mask ^ 0x7FFFFFFF) {
                out = in & ~mask;
                out <<= 1;
                out |= in & mask;
                mask = ((mask + 1) << 8) - 1;
                in = out;
        }
 
        return out;
}
 
int unsynchsafe(int in)
{
        int out = 0, mask = 0x7F000000;
 
        while (mask) {
                out >>= 1;
                out |= in & mask;
                mask >>= 8;
        }
 
        return out;
}

Sub SynchSafeToInt(synchsafe As Int) As Int
  Dim a,b,c,d As Int
  a=Bit.And(synchsafe, 0x7f) 
  b=Bit.ShiftRight(Bit.And(synchsafe, 0x7f00),1)
  c=Bit.ShiftRight(Bit.And(synchsafe, 0x7f0000),2)
  d=Bit.ShiftRight(Bit.And(synchsafe, 0x7f000000),3)
  return Bit.Or(Bit.or(a,b), Bit.Or(c,d))
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Log(SynchSafe(255))
   Log(UnsynchSafe(383))
End Sub

Sub SynchSafe (In As Int) As Int
   Dim out, mask As Int
   mask = 0x7F
   Do While Bit.Xor(mask, 0x7FFFFFFF) <> 0
      out = Bit.And(in, Bit.Not(mask))
      out = Bit.ShiftLeft(out, 1)
      out = Bit.Or(out, Bit.And(in, mask))
      mask = Bit.ShiftLeft(mask + 1, 8) - 1
      in = out
   Loop
   Return out
End Sub
Sub UnsynchSafe (In As Int) As Int
   Dim out, mask As Int
   mask = 0x7F000000
   Do While mask <> 0
      out = Bit.ShiftRight(out, 1)
      out = Bit.Or(out, Bit.And(in, mask))
      mask = Bit.ShiftRight(mask, 8)
   Loop
   Return out
End Sub