LUHN Credit Card Pre-Authorization (Genuine)

This code will check a credit card number using the LUHN algorythim (so far i am the only on using this thing right!!).

Original Author: Daniel Krusky

Inputs

Simple:
Call "ValidateCreditCardNumber" with the credit card number as a string... eg
===============================================
Dim ccReturn As CreditCardStats
ccReturn = ValidateCreditCardNumber("01234567890")
===============================================

Returns

The function ValidateCreditCardNumber will return a custom Data Type containing:
1. Credit card checksum
2. Credit card checksum total (according to LUHN)
3. Is Valid Number
4. Credit card company
i) VISA
ii) Mastercard
iii) American Express
iv) Diners Club / Carte Blanche
v) JCB
vi) Discover
vii) enRoute

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 81 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.