>Great!
>You're almost right, in fact the original version I got was a 
>275 lines Perl script which didn't even deal with the retrieving
>of the credit card type.
>I just hope now you're right with the new algorithm too.
>
I don't believe I changed the algorithm, just the code. That amazingly 
long line with all the MOD 2's merely checks to see whether the distance 
from the last char is even or odd! The bit with VAL(CHR$(ccNum[3])), etc. 
merely performs a MOD 10. I almost wonder whether it was obfuscatory by 
design to discourage hackers. Maybe I should have left well enough alone.

 0"0
 =J= a  y
  "