質問
どのように有効なIMEIをチェックするために誰でも知っていますか?
私は、このページをチェックする機能を発見した: HTTP ://www.dotnetfunda.com/articles/article597-imeivalidator-in-vbnet-.aspxする
しかし、それは有効なIMEIの(f.e. false
)のため352972024585360
を返します。
私は、このページにそれらをオンラインで確認することができます: http://www.numberingplans.com/?page =分析&副= 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" です-functionます:
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
他のヒント
IMEISV(IMEIソフトウェアバージョンは)のLuhnアルゴリズムチェックデジットを持っていません。その代わりに、ソフトウェアのバージョン番号が2桁の数字を提示しています。 IMEI番号の形式は、年によって進化してきました。
ウィキペディアの私は年によってフォーマットの変更を確認するために考えて良いソースです。新しいIMEIとIMEISVバージョンの形式を見れば、あなたは最終アセンブリコード(FAC)が取り外されたことを見るであろうとタイプ割り当てコード(TAC)8桁増加しました。 無料と、市販のTACリストは、インターネット上に存在するがあります。
それは新旧のIMEI番号のLuhnアルゴリズムの検証の上にTACのリストを調べて検証TAC番号にオプションである可能性があります。古いIMEI番号については2桁としてFACは破棄されなければならないとTACの検証が6桁の数字のために行われる必要があります。