תקינות מספר כרטיס אשראי (אקסס)

[אבי]

איני מתכוון לתקינות מול השירותים הבנקאיים
אלא בדיקה שהמספר תקין בהתאם לחברת האשראי
מצאתי כמה מקורות והסברים ברשת, לדוגמא כאן
השאלה אם יש למאן דהו קוד מוכן או שאצטרך לבנות מחדש

תודה מראש

פורסם במקור בפורום CODE613 ב03/05/2015 11:26 (+03:00)

[dovid]

http://rosettacode.org/wiki/Luhn_test_of_credit_card_numbers

פורסם במקור בפורום CODE613 ב03/05/2015 11:41 (+03:00)

[אבי]

תודה
אבל לפי מה שכתוב כאן לישראכרט יש בדיקה שונה

חוצמזה, אני רוצה להוסיף תבניות קלט עם מספר הספרות לפי שם החברה שהמשתמש יבחר.
זה רשימה של חברות שהעתקתי עם כמות הספרות, אשמח להערות ותיקונים

 * MasterCard - מאסטרכרד **16**
 * Visa - ויזה **13** או **16**
 * Visa Electron - ויזה אלקטרון **?**
 * American Express - אמריקן אקספרס **15**
 * Diners Club דיינרס **14**
 * Discover - **?**
 * JCB - **?**
 * Laser - **?**
 * Maestro - **?**
 * Solo - **?**
 * Switch - **?**
 * Isracard - ישראכרד **8** או **9**

פורסם במקור בפורום CODE613 ב03/05/2015 12:00 (+03:00)

[dovid]

עם הרבה נסיון בUI, אני מציע לך לא לתת בכלל את סוג הכרטיס לבחירה.
כמו"כ לא להגביל/לחייב מס' ספרות.
ככה זה בpaypal ובכל מקום אחר.

אבל כמובן תעשה מה שאתה צריך.
פה יש לך רשימה של אשראי ואורכיהם, כולם עם אלגוריתם של "לון" עם הקוד למעלה.
בקשר לישראכרט, לפי ההוראות מהקישור שהבאת זה ממש קל, כתבתי לך:

Function CheckIsra(num As String) As Boolean
    val9 = Format(num, "000000000")
    
    For n = 1 To 9
        sum = sum + (Val(Mid(val9, n, 1)) * (10 - n))
    Next
    
    CheckIsra = (sum Mod 11 = 0)
End Function

פורסם במקור בפורום CODE613 ב03/05/2015 12:49 (+03:00)

[אבי]

@דוד ל.ט.

עם הרבה נסיון בUI, אני מציע לך לא לתת בכלל את סוג הכרטיס לבחירה.
כמו"כ לא להגביל/לחייב מס' ספרות.
ככה זה בpaypal ובכל מקום אחר.

קיבלתי (למרות שלא ממש הבנתי למה).

תודה רבה

פורסם במקור בפורום CODE613 ב03/05/2015 12:54 (+03:00)