Хардвер и софтвер - Алгоритам за Проверка на Точноста на Внесениот ЕМБ

Испечати | Затвори го прозорот

Алгоритам за Проверка на Точноста на Внесениот ЕМБ

Испечатено од: IDIVIDI forum
Категорија: Технологија
Име на форумот: Хардвер и софтвер
Опис на форумот: Матични плочи, монитори, оперативни системи, антивируси, интересни програмчиња ....
URL: http://forum.idividi.com.mk/forum_posts.asp?TID=25199
Датум на принтање: 28.Јануари.2025 во 18:13
Верзија на софтверот: Web Wiz Forums 10.03 - http://www.webwizforums.com

Тема: Алгоритам за Проверка на Точноста на Внесениот ЕМБ

Постирано од: and_2009
Наслов: Алгоритам за Проверка на Точноста на Внесениот ЕМБ
Датум на внесување: 27.Ноември.2011 во 02:29

Дали можеби некој има алгориатм или упатство за проверка на точноста на внесениот ЕМБГ? Имам изработено софтвер во Visual Basic 6

Коментари:

Постирано од: kuper
Датум на внесување: 10.Декември.2011 во 21:09

Еве ти целосна функција за валидација на ЕМБ, се надевам дека ќе ти помогне:

   Public Function ValidateEMB(ByVal emb As String) As Boolean

        If Len(emb) <> 13 Then GoTo eX

        Dim a, B, c, d, e, f As Integer
        Dim g, h, I, j, k, l As Integer

        Dim ch As Integer

        a = Val(Mid(emb, 1, 1))
        B = Val(Mid(emb, 2, 1))
        c = Val(Mid(emb, 3, 1))
        d = Val(Mid(emb, 4, 1))
        e = Val(Mid(emb, 5, 1))
        f = Val(Mid(emb, 6, 1))
        g = Val(Mid(emb, 7, 1))
        h = Val(Mid(emb, 8, 1))
        I = Val(Mid(emb, 9, 1))
        j = Val(Mid(emb, 10, 1))
        k = Val(Mid(emb, 11, 1))
        l = Val(Mid(emb, 12, 1))

        ch = Val(Mid(emb, 13, 1))

        Dim RES As Integer

        RES = 11 - ((a + g) * 7 + (B + h) * 6 + (c + I) * 5 + (d + j) * 4 + (e + k) * 3 + (f + l) * 2) Mod 11

        If RES = 11 Then RES = 0

        If RES = ch Then
            ValidateEMB = True
        Else
            ValidateEMB = False
        End If

        Exit Function
eX:
        ValidateEMB = False
    End Function