Is there something like
in B4i?
B4X:
Bit.ToBinaryString(Pruefsumme)
in B4i?
Bit.ToBinaryString(Pruefsumme)
Sub ToBinaryString(number As Int) As String
Dim sb As StringBuilder
sb.Initialize
Dim x As Int = Bit.ShiftLeft(1, 31)
For i = 0 To 31
Dim ii As Int = Bit.AND(number, x)
If ii <> 0 Then
sb.Append("1")
Else
sb.Append("0")
End If
x = Bit.UnsignedShiftRight(x, 1)
Next
Return sb.ToString
End Sub