以下是引用大红袍在2016/3/23 10:48:00的发言:
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)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:{8q_haou3hak~ckmkxa@ie.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-8/20178101447520112.png)
大红袍老师,我今天刚好用到这个LRC校验了,才发现和别的软件校验出来的对应不上,求助一下。您看看是哪里出的问题?
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:@7n93bb(8da`$mv6z)4qj$h.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-8/20178101450520306.png)
[此贴子已经被作者于2017/8/10 14:50:08编辑过]