主题：[求助] 谁能给个LRC校验计算的代码？

Dim str As String = "384445463945"

Dim d_lrc As Integer = 0
Dim h_lrc As String = ""
Dim l As Integer = str.Length
Dim c As Integer = 0
While c < l
    Dim c_data As String = str.Substring(c, 2)
    d_lrc = d_lrc + Convert.ToInt32(c_data)
    c = c + 2
End While
If d_lrc >= 16 Then
    d_lrc = d_lrc Mod 16
End If
h_lrc = Convert.ToInt32(Not d_lrc + 1).ToString("X")
If h_lrc.Length > 2 Then
    h_lrc = h_lrc.Substring(h_lrc.Length - 2, 2)
End If
msgbox(h_lrc)

此主题相关图片如下：{8q_haou3hak~ckmkxa@ie.png

大红袍老师，我今天刚好用到这个LRC校验了，才发现和别的软件校验出来的对应不上，求助一下。您看看是哪里出的问题？

此主题相关图片如下：@7n93bb(8da`$mv6z)4qj$h.png