בדיקת כרטיס ישראכרט

Private Function ValidateMod11(strCCNumber)
    Dim intCounter, intTotal
    Dim strTotal
    
    For intCounter = 1 To Len(strCCNumber)
    strTotal = strTotal & Mid(strCCNumber, intCounter, 1) * intCounter

    Next
    
    For intCounter = 1 To Len(strTotal)
    intTotal = intTotal + Mid(strTotal, intCounter, 1)
    Next

    If (intTotal Mod 11) Then
    ValidateMod11 = False
    Else: ValidateMod11 = True
    End If
    End Function




1
האם נכון מה שעישתי?

2
באלגורטים שמצורף בקישור
http://halemo.net/info/isracard/index.html

כתוב שם – אם אין 9 ספרות להכיס אפס בצד שמאל
האם צריך לעשות את בקוד?

3
בכטיסי אשראי אחרים – אפשר לבדוק  את המספר ההתחלתי לכרטיס כדי לזהות איזה סוג כרטיס
מה המספר ההתחלתי לכרטיס ישראכרט?

תודה מראש