Android Question How To get CheckSum8 Modulo 256

[hanyelmehy]

any idea hot to get CheckSum8 Modulo 256
same result in this link from Hex Input or ASCII Input

https://www.scadacore.com/tools/programming-calculators/online-checksum-calculator/

 

[Erel]

Private Sub SumOfBytesMod256(Input As String) As String
    Dim x As Int
    For i = 0 To Input.Length - 1
        x = x + Asc(Input.CharAt(i))
    Next
    Return Bit.ToHexString(x Mod 256).ToUpperCase
End Sub