检查有效的 IMEI答案

【问题标题】：Check for valid IMEI检查有效的 IMEI
【发布时间】：2011-01-31 18:36:01
【问题描述】：

有人知道如何检查有效的 IMEI 吗？

我在此页面上找到了要检查的功能：http://www.dotnetfunda.com/articles/article597-imeivalidator-in-vbnet-.aspx

但它会返回 false 以获得有效的 IMEI（例如 352972024585360）。我可以在此页面上在线验证它们：http://www.numberingplans.com/?page=analysis&sub=imeinr

检查给定 IMEI 是否有效的正确方法（在 VB.Net 中）是什么？

PS：上面页面中的这个函数一定是不正确的：

Public Shared Function isImeiValid(ByVal IMEI As String) As Boolean
    Dim cnt As Integer = 0
    Dim nw As String = String.Empty
    Try
        For Each c As Char In IMEI
            cnt += 1
            If cnt Mod 2 <> 0 Then
                nw += c
            Else
                Dim d As Integer = Integer.Parse(c) * 2 ' Every Second Digit has to be Doubled '
                nw += d.ToString() ' Genegrated a new number with doubled digits '
            End If
        Next
        Dim tot As Integer = 0
        For Each ch As Char In nw.Remove(nw.Length - 1, 1)
            tot += Integer.Parse(ch) ' Adding all digits together '
        Next
        Dim chDigit As Integer = 10 - (tot Mod 10) ' Finding the Check Digit my Finding the Remainder of the sum and subtracting it from 10 '
        If chDigit = Integer.Parse(IMEI(IMEI.Length - 1)) Then ' Checking the Check Digit with the last digit of the Given IMEI code '
            Return True
        Else
            Return False
        End If
    Catch ex As Exception
        Return False
    End Try
End Function

编辑：这是我的工作“checkIMEI”-功能：

Public Shared Function checkIMEI(ByRef IMEI As String) As Boolean
    Const allowed As String = "0123456789"

    Dim cleanNumber As New System.Text.StringBuilder
    For i As Int32 = 0 To IMEI.Length - 1
        If (allowed.IndexOf(IMEI.Substring(i, 1)) >= 0) Then
            cleanNumber.Append(IMEI.Substring(i, 1))
        End If
    Next

    If cleanNumber.Length <> 15 Then
        Return False
    Else
        IMEI = cleanNumber.ToString
    End If

    For i As Int32 = cleanNumber.Length + 1 To 16
        cleanNumber.Insert(0, "0")
    Next

    Dim multiplier As Int32, digit As Int32, sum As Int32, total As Int32 = 0
    Dim number As String = cleanNumber.ToString()

    For i As Int32 = 1 To 16
        multiplier = 1 + (i Mod 2)
        digit = Int32.Parse(number.Substring(i - 1, 1))
        sum = digit * multiplier
        If (sum > 9) Then
            sum -= 9
        End If
        total += sum
    Next

    Return (total Mod 10 = 0)
End Function

【问题讨论】：

我也有同样的问题！我的 VBA 验证程序（取自 vb 的 Wikipedia 链接）和您的 dotnetfunda.com 页面都拒绝在新手机的包装盒上扫描的 IMEI 号码。你有这方面的消息吗？
我已经编辑了我的问题并添加了我的解决方案。

标签： .net vb.net algorithm imei

【解决方案1】：

IMEISV(IMEI软件版本)没有Luhn算法校验位。相反，它的软件版本号显示为两位数。 IMEI 号码的格式多年来一直在发展。

Wikipedia 是我认为看到格式变化的好来源。如果您查看新的 IMEI 和 IMEISV 版本格式，您会看到最终组装代码 (FAC) 已删除，类型分配代码 (TAC) 增加了 8 位。互联网上有free 和商业 TAC 列表。

它可能是通过在 Luhn 算法验证新旧 IMEI 号码之上查找 TAC 列表来验证 TAC 号码的选项。对于旧的 IMEI 号码，FAC 作为 2 位应丢弃，TAC 验证应针对 6 位进行。

【讨论】：

【解决方案2】：

IMEI 号码使用Luhn 算法进行验证。链接页面具有各种语言的实现。 This post 也有更多的实现和关于如何解决 Luhn 算法的通用方法。

【讨论】：