שלח תשובה

זירת השאלות

1480
צפיות
4
תשובות

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

,‏ 15 באוקטובר, 2009

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
בכטיסי אשראי אחרים – אפשר לבדוק  את המספר ההתחלתי לכרטיס כדי לזהות איזה סוג כרטיס
מה המספר ההתחלתי לכרטיס ישראכרט?

תודה מראש

תגיות:

4 תשובות

  1. JUBRANO הגיב:

    בדיקת תקינות מספר כרטיס אשראי
    לגבי המאמר שנכתב על יד וויבמאסטר
    https://www.webmaster.org.il/article.asp?id=156

    1
    הבדיקה על 14 ספרות מציגה שהכרטיס אינו תקין
    למה?

    2
    ומה עושים עם מספר אי זוגי?

    3
    לגבי ישראכרט
    צריך רק להחליף את החלוקה ל 11 – זה הכל?

    תודה רבה
    מקווה שמישהו יעזור

  2. ישראכרט נבדק בצורה שונה משאר הכרטיסים
    ישראכרט נבדק בצורה שונה מכל הכרטיסים האחרים
    ישראכרט מגיע ב8 או 9 ספרות (דיירקט) ולכן אין בעיה להוסיף בתחילת הבדיקה תנאי IF שיבדוק אם אורך המחרוזת נמוך מ10 ספרות שיבדוק בנוסחת ישראכרט, ואם לא, שיבדוק בצורה הרגילה.

    ישנם כמה מאמרים ברשת, חיפוש קליל הציג לי אותם.

    http://sf.tapuz.co.il/shirshur-193-42383136.htm

    באתר שלי ישנו יישום לבדיקת תקינות חשבון בנק

שלח תשובה