שלח תשובה

זירת השאלות

497
צפיות
3
תשובות

איך אפשר לאמת ישראכארט? (ASP)

,‏ 18 במאי, 2004

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

הקוד הוא:

private function checkcc(byval ccnum)
if ccnum="1111222233334444" or ccnum="4444333322221111" or ccnum="0000000000000000" then
checkcc=false : exit function
end if
cclen=int(len(ccnum))
ccrev=strReverse(ccnum)
tempn=int(0)
dim ccarray() : redim ccarray(cclen)
for i=1 to cclen
ccarray(i)=int(mid(ccrev,i,1))
next
for i=2 to cclen step 2
tempu=int(ccarray(i) * 2)
if tempu > 9 then
ccarray(i)=int(tempu – 9)
else
ccarray(i)=int(tempu)
end if
next
for i=1 to cclen
tempn=tempn + int(ccarray(i))
next
tempn=tempn Mod 10
if tempn <> 0 then
checkcc=false : exit function
end if
checkcc=TRUE
end function

מה אני צריך להוסיף או לשנות בשביל שזה יתאים גם לישראכארט

תודה רבה מראש על העזרה.

תגיות:

3 תשובות

  1. אוריקס הגיב:

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

  2. wollmann הגיב:

    מצאת משהו?
    אוריקס מצאת משהו?

    בבקשה….

שלח תשובה