[Lindahl]

Om du bara vill kolla om det är giltigt kortnummer så kan du ju använda detta scriptet (asp) som jag hittade på internet, men det bevisar ju egentligen ingenting så nyttan av användandet är nog ganska begränsad.

  function isCreditCard(cardNo) 
    isCreditCard = false 
    lCard=len(cardNo) 
    lC=right(cardNo,1) 
    cStat=0 
    for i=(lCard-1) to 1 step -1 
      tempChar= mid(cardNo,i,1) 
      d=cint(tempChar) 
      if lcard mod 2 = 1 then 
        temp=d*(1+((i+1) mod 2)) 
      else 
        temp=d*(1+(i mod 2)) 
      end if 
      if temp < 10 then 
        cStat = cStat + temp 
      else 
        cStat = cStat + temp - 9 
      end if 
    next 
    cStat = (10-(cStat mod 10)) mod 10 
    if cint(lC) = cStat then isCreditCard = true 
  end function