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
