[qson]

PHP-kod:

function luhn (cc)
   dim sum, i

   sum = 0
   for i = len (cc) - 1 to 1 step -2
      sum = sum + array (0, 2, 4, 6, 8, 1, 3, 5, 7, 9) (cint (mid (cc, i, 1)))
   next
   for i = len (cc) to 1 step -2
      sum = sum + cint (mid (cc, i, 1))
   next
   luhn = (sum mod 10 = 0)
end function 


Saxat från http://ornery-geeks.org/text/code/validationcomparison/

Google är din vän